SHITLIST BY V1KO0

dialog shite {
  title "Shitlist by v1ko0"
  size -1 -1 156 175
  option dbu
  list 1, 83 6 65 143, size 
  edit "", 2, 17 26 50 10, autohs
  button ".::Add::.", 3, 3 41 37 12
  button ".::Del::.", 4, 45 41 37 12
  button ".::Edit::.", 5, 23 59 37 12
  box "-Format-", 6, 3 84 72 65
  radio "-Kick-", 7, 13 95 24 10
  radio "-Kickban-", 8, 13 111 33 10
  radio "-Akick-", 9, 12 128 25 10
  text ".::Nick::.", 10, 25 10 26 8
  button ".::Ok::.", 11, 5 163 143 12, ok cancel
  check ".::Shitlist-On::.", 12, 20 152 65 10
}

alias shitmaj {
  did -r shite 1
  var %conte = 1
  while ( %conte <= $gettok(%shit,0,44) ) {
    did -a shite 1 $gettok(%shit,%conte,44) 
    inc %conte
  }
}
on *:dialog:shite:init:0: {  
  shitmaj
  if (%formashit == Kick) {   did -c shite 7 }
  if (%formashit == Kb) { did -c shite 8 }
  if (%formashit == Akick) {  did -c shite 9 }
  if (%shitact == pikachu) { did -c shite 12 }
}
on *:dialog:shite:sclick:*:{
  if ($did == 3) { set %shit $addtok(%shit,$did(2),44) | shitmaj }
  if ($did == 5) && ($did(1).sel !== $null)   { set %shit $reptok(%shit,$gettok(%shit,$did(1).sel,44),$did(2),1,44) | shitmaj }
  if ($did == 1) { did -ra shite 2 $gettok(%shit,$did(1).sel,44) }
  if ($did == 4) { set %shit $remtok(%shit,$gettok(%shit,$did(1).sel,44),44) | shitmaj }
  if ($did == 7) { set %formashit Kick }
  if ($did == 8) { set %formashit Kb }
  if ($did == 9) { set %formashit Akick }
  if ($did == 12) {
    if ($did(12).state == 1) { set %shitact pikachu }
    else { set %shitact carapuce }
  }
}
on ^1:JOIN:#:{
  if  (%shitact == pikachu) && ($nick isin %shit) && (%formashit == Kick) { /kick $chan $nick ShitListed ! }
  if  (%shitact == pikachu) && ($nick isin %shit) && (%formashit == Kb) { /kick $chan $nick ShitListed! | /ban $chan $nick }
  if (%shitact == pikachu) && ($nick isin %shit) && (%formashit == Akick) { //msg chanserv akick $chan add $nick  Muahahah $me | /kick $chan $nick Get out of here (shitlisted) !  }
}
on *:load:{ /dialog -m shite shite }
menu menubar,channel,status,query {
  - 
  ShitList :/dialog -m shite shite 
  -
}