A Simple ShitList

alias addsh {
  /guser shit $1 3 
  //set %shitcom $comchan($1,0)
  /set %reason. [ $+ [ $did(shitlist,3) ] ] $did(shitlist,5)
  //echo -a 12***14Added $did(shitlist,3) To ShitList!
  :sbchan
  if (%shitcom == 0) { halt }
  elseif (%shitcom != 0)  {
    /mode $comchan($1,%shitcom) +b $did(shitlist,3) | /kick  $comchan($1,%shitcom) $did(shitlist,3)  %reason. [ $+ [ $1 ] ]
    /dec %shitcom
    goto sbchan
  }
}

alias delshit {
  /ruser shit $1 3
  /unset %reason. [ $+ [ $did(shitlist,3) ] ]
}

on shit:join:#: mode # +b $nick | /kick $chan $nick %reason. [ $+ [ $nick ] ]

dialog shitlist {
  title "ShitList V1"
  size -1 -1 120 100
  option dbu
  text "ShitList By G13AoUsTiS", 1, 17 6 83 8, disable center
  text "NickName", 2, 7 27 34 8, center
  edit "", 3, 47 26 50 10
  text "Reason:", 4, 8 45 33 8, center
  edit "", 5, 47 43 50 12, autohs
  button "Add", 6, 18 73 37 12
  button "Remove", 7, 63 73 37 12
  menu "File", 8
  item "Exit", 9, 8, cancel
  menu "Help", 10
  item "How To", 11, 10
  item "About", 12, 10, 
}

on *:dialog:shitlist:sclick:*: {
  if ($did == 6) { /addsh $did(shitlist,3)  }
  if ($did == 7) { /delshit $did(shitlist,3)   }
}

on *:dialog:shitlist:menu:*: {
  if ($did == 11) { dialog -m show show }
  if ($did == 12) { dialog -m sabout sabout }
}

dialog show {
  title "How To Use"
  size -1 -1 130 66
  option dbu
  box "How To Use", 1, 0 0 131 112
  text , 2, 23 31 0 60
  text "First Open The Dialog By Right clicking in a channel", 3, 2 11 125 8, center
  text "The Click On -shitList- Add The NickName Of Victim", 4, 2 20 125 8, center
  text "Then Add The Reason For Shitlisting him", 5, 2 30 126 8, center
  text "and then click on add or remove!", 6, 3 40 126 8, center
  text "ENJOY", 7, 48 53 25 8, center
}

dialog sabout {
  title "About"
  size -1 -1 130 66
  option dbu
  box "About", 1, 0 0 131 112
  text , 2, 23 31 0 60
  text "This Snippet is a result of hard work ", 3, 2 11 125 8, center
  text "Please Do NOT Try To Rip It", 4, 2 20 125 8, center
  text "All Rights Reserved To G13AoUsTiS", 5, 2 30 126 8, center
  text "ENJOY", 7, 53 44 25 8, center
}