Please help to modify the OFFSET AUTOLISP program

Code:

(defun c:myoffset (/ ss offset_dis layer_entry layer_name color_name line_name confirm new_ents)
  (setq ss (ssget)
        offset_dis 0.0
        layer_name ""
        color_name ""
        line_name ""
        confirm ""
        new_ents nil)
  (if ss
      (progn
        (setq offset_dis (getdist "\nPlease offset distance: ")
              layer_entry (tblsearch "LAYER" (cdr (assoc 8 (entget (ssname ss 0))))))
        (if layer_entry
            (setq layer_name (cdr (assoc 2 layer_entry)))
          (setq layer_name ""))
        (setq color_name (acad_colordlg 7))
        (setq line_name (strcase (strtrim (getstring t "\nPlease select a linetype for the new object:\n1.Solid line\n2.Center line\n3.Dashed line\n\nPlease enter line style options:"))))
        (setq confirm (strcase (strtrim (getstring t "\nAre you sure you want to offset the object? (Y/N): "))))
        (if (= confirm "Y")
            (progn
              (command ".OFFSET" offset_dis ss "")
              (setq new_ents (nentselp "\nPlease select the new object: "))
              (vla-put-color (vlax-ename->vla-object (car new_ents)) color_name)
              (if (= line_name "1") (command ".CHPROP" new_ents "" "LT" "continuous"))
              (if (= line_name "2") (command ".CHPROP" new_ents "" "LT" "center"))
              (if (= line_name "3") (command ".CHPROP" new_ents "" "LT" "dashed"))
              (if layer_name (command ".CHPROP" new_ents "" "LA" layer_name)))
          (princ "\nOperation canceled!")))
    (princ "\nNo objects selected!"))
  (princ))

(defun acad_colordlg ( init / r g b )
  (if (not (and (setq r (car init))
                (setq g (cadr init))
                (setq b (caddr init))))
    (setq r 255 g 255 b 255)
  )
  (vl-cmdf "_.-COLOR %d %d %d" r g b)

Can someone please help me ? It would be much appreciated. Thanks in advance