Anti vulgarité

Commenter

Contenu du snippet

voila un petit code qui peut êttre utile dans certain cas...
j'espere que ca va vous servire et que vous allez pas trop critiquer :o)
ce code servira pour AlienScript V4.5
(/server -m AlienScript.exolia.net:6600 & www.alienscript.fr.tc)

Source / Exemple : 


alias modo dialog -m modo modo
dialog modo {
  title "..:: Modération ::.."
  size -1 -1 263 330
  option pixels
  list 1, 12 10 133 117, vsbar size
  radio "Avertir", 2, 150 20 100 17
  radio "Kick", 3, 150 42 100 17
  radio "Ban", 4, 150 65 100 17
  edit "", 5, 150 84 60 20, disable autohs
  text "Mins.", 6, 213 87 100 17, disable
  text " ? Message d'avertissement :", 7, 14 216 144 16, disable
  edit "", 8, 14 231 221 20, disable autohs
  text " ? Message de kick :", 9, 14 256 144 17, disable
  edit "", 10, 14 272 220 20, disable autohs
  button ">>> Fermer / Enregistrer <<<", 11, 53 304 133 21, ok
  edit "", 12, 16 148 97 21, autohs
  button "Ajouter", 13, 27 171 70 21
  edit "", 14, 135 148 100 21, autohs
  button "Supprimer", 15, 148 171 70 21
  box "Ajouter/Supprimer un mot", 16, 8 130 236 72
  box "Messages", 17, 8 203 236 96
}
on *:dialog:modo:*:*: {
  if ($devent == sclick) {
    if ($did == 1) {
      ;ca efface l'edit   
      did -r modo 14
      ;et ca ajoute dedans ce que vous avez selectionné
      did -a $dname 14 $did(modo,1).seltext
    }
    if ($did == 2) {
      ;si on choisit avertos ca disable les autres et enable tout les avertos...    
      did -e modo 7,8
      did -b modo 9,10,5,6
      ;on set la sanction choisit (sert dans le on text)    
      set %modo_sanct avertos
    }
    if ($did == 3) {
      ;pareil qu'avant  
      did -e modo 9,10
      did -b modo 7,8,5,6
      set %modo_sanct kick
    }
    if ($did == 4) {
      ;toujours pareil... on se lasse a force mdr 
      did -e modo 5,6
      did -b modo 7,8,9,10
      set %modo_sanct ban
    }
    if ($did == 13) {
      ;si l'edit n'est pas vide
      if ($did(12) != $null) {
        ;ca ajoute le mot dans la liste 
        did -a modo 1 $did(12)
        ;et dans la var aussi
        set %modo_list $didtok($dname,1,59)
      }
    }
    if ($did == 15) {
      ;ca set la var en supprimant lz mot de la liste 
      set %modo_list $remtok(%modo_list,$did($dname,1).seltext,1,59)
      ;ca efface l'edit 
      did -r modo 1
      ;on le remplace par le texte selectionné     
      didtok modo 1 59 %modo_list
    }
    if ($did == 11) {
      if ($did(8,10) != $null) {
        ;on set les messages et temps de ban  
        set %modo_avertos $did(8)
        set %modo_kick $did(10)
        set %modo_ban $calc( $did(5) * 60 )
      }
    }
  }
  if ($devent == init) {
    ;on met la liste a l'ouverture du dialog
    didtok modo 1 59 %modo_list
  }
}

on *:text:*:#: {
  ;si on dit un mot qui est dans %modo_list
  if ($istok(%modo_list,$1-,59)) {
    ;et si %modo_sanct est égal à avertos 
    if (%modo_sanct == avertos) {
      ;et si cette var est nulle
      if (%modo_avertos == $null) {
        ;alors ca envoit un message prédéfini  
        msg # $nick $chr(149) Attention $nick : Avertissement $chr(149)
      }
      ;ou si la var n'est pas nulle
      else {
        ;ca envoi le message de %modo_avertos
        msg $chan %modo_avertos
      }
    }
    ;si la sanction vaut un kick
    if (%modo_sanct == kick) {
      ;et si la raison est nulle
      if (%modo_kick == $null) {
        ;ca kick avec un message choisit par moi :o)
        kick # $nick $chr(149) Mot interdit prononcé $chr(149)
      }
      ;si le kick n'est pas null
      else {
        ;ca kick avec la raison que vous avez choisit
        kick # $nick %modo_kick
      }
    }
    ;si on veut un ban
    if (%modo_sanct == ban) {
      ;pareil... si le temps de ban est null ca ban à vie :P
      if (%modo_ban == $null) {
        ;ca kick avec mon message + ban
        kick # $nick $chr(149) Mot interdit prononcé $chr(149) | mode # +b $address($nick,2)
      }
      ;sinon
      else {
        ;ca ban avec le temps choisit
        Ban # $address($nick,2) | Timer 1 1 /kick # $nick ? Mot interdit prononcé ? | timer 1 %modo_ban mode # -b $address($nick,2)
        ;on referme toutes les accolades.
      }
    }
  }
}

Conclusion :


ne dites pas "faut penser au hash table" je vais m'y mettre prochainement et je mettrais a jour le plus ute possible cette source :)
voila mercia tous et surtout tebond qui ma aidé ;)
merci de ne pas riper ou tout copier pensez a celui qui l'a créé!!

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_clem54)