Shitlist by v1ko0

Commenter

Contenu du snippet

This is one perfect shitlist .
Put this in your remote !

Source / Exemple : 


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 
  -
}

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_viko)