SHITLIST QUI MARCHE :)

dialog shite {
  title "Shitlist par Tiboug"
  size -1 -1 156 175
  option dbu
  list 1, 83 6 65 143, size 
  edit "", 2, 17 26 50 10, autohs
  button "Ajouter", 3, 3 41 37 12
  button "Supprimer", 4, 45 41 37 12
  button "Modifier", 5, 23 59 37 12
  box "Format de rejet", 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 "Pseudo :", 10, 25 10 26 8
  button "Ok", 11, 5 163 143 12, ok cancel
  check "Activer la Shitlist", 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 7 Tu es dans ma shitlisteuhhhhhh }
  if  (%shitact == pikachu) && ($nick isin %shit) && (%formashit == Kb) { /kick $chan $nick 7 Tu es dans ma shitlisteuhhhhhh | /ban $chan $nick }
  if (%shitact == pikachu) && ($nick isin %shit) && (%formashit == Akick) { //msg chanserv akick $chan add $nick  7 Present dans la Shitlist de $me | /kick $chan $nick 7 Tu es dans ma shitlisteuhhhhhhhhh   }
}
on *:load:{ /dialog -m shite shite }
menu menubar,channel,status,query {
  ShitList :/dialog -m shite shite 
  -
}