Anti vulgarité

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 977 fois - Téléchargée 28 fois

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

Ajouter un commentaire Commentaires
cs_clem54 Messages postés 253 Date d'inscription jeudi 10 mars 2005 Statut Membre Dernière intervention 16 octobre 2005
19 sept. 2005 à 19:49
salut simsbig11, pour ouvrir ce programme, il te suffit de le rentrer dans les remotes de ton mIRC (ALT+R > files> New > tu rentre le code > ok) et ensuite tu tape /modo .

>>> kiffmarseillais, si c'est pour donner un commentaire comme ca, casse toi de ce site. Moi je veux des commantaires constructifs, qui me permettent de progresser, comme ceux de wims, tofu ou meme coolman pour exemple.
Celui qui a mis le 1/10 pourrai-t-il s'expliquer ?
simsbig11 Messages postés 4 Date d'inscription dimanche 12 juin 2005 Statut Membre Dernière intervention 19 septembre 2005
19 sept. 2005 à 01:38
Comment on ouvre le programme 0.0 ?
cs_wims Messages postés 2466 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 1 août 2010 1
7 juil. 2005 à 17:03
Petite fautes :
if ($did == 2) { set %modo_sanct avertos }
if ($did == 3) { set %modo_sanct kick }
if ($did == 4) { set %modo_sanct ban }

voila
cs_wims Messages postés 2466 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 1 août 2010 1
5 juil. 2005 à 19:54
# 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
# }

Tu peux remplacer par

if ($did >= 2 && $did <= 4) {
did -e modo 5,6
did -b modo 7,8,9,10
if ($did == 2) { set avertos }
if ($did == 3) { set kick }
if ($did == 4) { set ban }
}
cs_clem54 Messages postés 253 Date d'inscription jeudi 10 mars 2005 Statut Membre Dernière intervention 16 octobre 2005
5 juil. 2005 à 19:49
dac je corrige demain :)
merci de vos commentaires
Afficher les 7 commentaires

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)