just an easy shitlist

dialog shitlist { 
  title "Shitlist" 
  size -1 -1 99 136 
  option dbu 
  box "Shitlisted", 1, 1 3 54 131 
  combo 2, 3 10 49 123, size 
  button "Ok", 3, 57 122 37 12, ok 
  box "Options", 5, 54 3 43 23 
  button "Remove", 6, 57 11 37 12 
} 
on *:dialog:shitlist:init:0:{ 
  var %; = 1 
  var %_ = $hget(shitlist,0).item 
  While (%; <= %_) { 
    did -a shitlist 2 $hget(shitlist,%;).item 
    inc %; 
  } 
} 
on *:dialog:shitlist:sclick:6: { 
  hdel shitlist $hfind(shitlist,$did(shitlist,2).seltext,1).item 
  echo -a 3* Removed $did(shitlist,2).seltext from your shitlist 
} 
on @*:join:#:{ 
  if ($hget(shitlist,$address($nick,3)))  { 
    ban $chan $nick 3 | kick $chan $nick 4,1 {~{~{ have a nice time on my shitlisted  $+ $hget(settings,kicks) 
  } 
} 
menu nicklist { 
  ShitList 
  .Add:hadd shitlist $address($$1,3) $$1 | echo -a 3* Added $$1 to your shitlist. 3 | var %x 1,%y | while ($chan(%x)) { %: = $ifmatch | if ($me isop %:) && ($1 ison %:) { kick %: $1 4,1 {~{~{ You have been shitlisted have a nice day } | inc %x } 
  .Remove:hdel shitlist $address($$1,3) | echo -a 3* Removed $$1 from your Shitlist. 
  .View List: dialog -m shitlist shitlist 
} 
on *:load:hmake shitlist 10 
on *:EXIT:{ hsave -o shitlist shitlist.txt } 
on *:START:{ hmake shitlist 10 | hload shitlist shitlist.txt }