Vip script

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 751 fois - Téléchargée 15 fois

Contenu du snippet

Ce script scan le whois lord d'un join et si la personne est op sur un chan que vous avez définit "vip" alors le bot opera cette personne.

Source / Exemple :


on *:join:#: {
  if ($nick != $me) {
    set %chan $chan
    set %cmd join
    whois $nick
  }
}

on *:load:{
  echo 1VIP Script loaded.
  set %owner $?="Entrez ici le hostmask du owner (Par exemple: *!*@auth.users.quakenet.org)" 
  echo 1Owner: %owner
}

on @*:text:.vip*:#: {
  var %adresse $address($nick,2)
  if (%adresse !isin %owner) {
    notice $nick 1,0?7» 7S1orry $nick $+ , but you're not admin in $chan
  }
  else {
    if ($2 == on) {
      set %vip on 
      timer 1 1 msg $chan 1,0?7» 1V7i1p 1mode is now %vip 
    }
    elseif ($2 == off) {
      set %vip off 
      timer 1 1 msg $chan 1,0?7» 1V7i1p 1mode is now %vip  

    }
    elseif (!$2) {
      msg $chan 1,0?7» 1V7i1p 1mode is %vip  
    }
    else {
      msg $chan 1,0?7» 1V7i1p 1mode is %vip  
    }
  }
}

on @*:text:.list-vip*:#: {
  var %adresse $address($nick,2)
  if (%adresse !isin %owner) {
    notice $nick 1,0?7» 7S1orry $nick, but you're not admin in $chan
  }
  else {
    notice $nick - 1,0?7» 7L1iste des chans vip: %listevip 
  }
}

on @*:text:.add-vip*:#: {
  if (!$2 ) {
    msg $chan 1,0?7» S1yntaxe: .add-vip #chan
    halt
  }
  elseif ($left($2,1) != $chr(35)) {
    msg $chan 1,0?7» S1yntaxe: .add-vip #chan 
    halt
  }
  var %adresse $address($nick,2)
  if (%adresse isin %owner) {
    var %nbrchan = $numtok(%listevip,32)
    var %i = 0
    while (%i <= %nbrchan) {
      if ($2 == $gettok(%listevip,%i,32)) {
        notice $nick 1,0?7» T1he channel $2 is already a vip.
        halt
      }
      inc %i
    }
    set %listevip %listevip $2
    notice $nick 1,0?7» T1he chan $2 have been added to the vip list.
  }
  else {
    notice $nick 1,0?7» 7S1orry $nick, but you're not admin in $chan
  }
}

on @*:text:.del-vip*:#: {
  if (!$2 ) {
    msg $chan 1,0?7» S1yntaxe: .del-vip #chan
    halt
  }
  elseif ($left($2,1) != $chr(35)) {
    msg $chan 1,0?7» S1yntaxe: .del-vip #chan
    halt
  }
  var %adresse $address($nick,2)
  if (%adresse isin %owner) {
    var %nbrchan = $numtok(%listevip,32)
    var %i = 0
    while (%i <= %nbrchan) {
      if ($2 == $gettok(%listevip,%i,32)) {
        set %listevip $remove(%listevip,$2)
        notice $nick 1,0?7» T1he chan $2 have been deleted from the vip list.
        halt
      }
      inc %i
    }
    notice $nick   1,0?7» T1he chan $2 isn't in the vip list.
  }
  else {
    1,0?7» 7S1orry $nick, but you're not admin in $chan
  }
}

raw 319:* {
  if ((%vip == on) && (%cmd == join)) {
    unset %cmd
    var %nbrchan = $numtok(%listevip,32)
    var %nbrchan2 = $numtok($3-,32) 
    var %i = 1
    while (%i <= %nbrchan) {
      var %j = 1
      while (%j <= %nbrchan2) {
        if ($gettok($3-,%j,32) ==  @ $+ $gettok(%listevip,%i,32)) {
          msg %chan 7,0?1» kikoo7,0 $2 1[7,0¤1,0] you're vip from $gettok(%listevip,%i,32), so you get +7,0o1,0 on %chan [7,0¤1,0] enj7,0O1,0y 
          mode %chan +o $2
          goto end
        }
        inc %j
      }
      inc %i
    }
  }
  :end
  unset $(%cmd,%chan)
}

Conclusion :


Tout est fait a partir de variables. Il ya beaucoup d'améliorations à faire j'en suis conscient je travaille dessus actuellement.

A voir également

Ajouter un commentaire

Commentaires

cs_ISoKa
Messages postés
437
Date d'inscription
jeudi 27 avril 2006
Statut
Membre
Dernière intervention
17 octobre 2008
-
Bonjour,

des systemes de VIP y en a deja pas mal mais bon. dans l'enssemble pour ma part le seul truc au nivo du codage ki je pense pourrai etre amélioré c'est de regrouper tes on text ca serai plus propre et en plus ca te réduirai ton code vu qu'a chak on text tu verif si la personnes est vip. donc ainsi tu ne le fairai qu'une fois. sinon, essaye de rajouter des trucs à ton code, plus de fonction pck là ca se demmarque pas trop de ce qui existe déja ici.
DJ_BoOmEr
Messages postés
23
Date d'inscription
vendredi 3 mars 2006
Statut
Membre
Dernière intervention
30 août 2007
-
Bonjour Detax,

Je suis du meme avis que ISoKa au niveau de ton code, tu pourrai le compacter, il deviendrait plus jolie a regarder et aussi plus rapide a executer ^^ (m'enfin la différence tu la sentira pas ^^) et je suis aussi d'accord avec ISoKa sur le fait que pour l'instant c'est un addon VIP tout bete :)


Moi je te proposerai d'y rajouter un systeme avec une boite de dialog qui gererai multi chan, et multi serv, la ça deviendrai 'achement intéressant
devorZ
Messages postés
48
Date d'inscription
dimanche 27 juillet 2008
Statut
Membre
Dernière intervention
21 février 2009
-
Salut,

# on @*:text:.del-vip*:#: {
# if (!$2 ) {
# msg $chan 1,0?7» S1yntaxe: .del-vip #chan
# halt
# }
# elseif ($left($2,1) != $chr(35)) {
# msg $chan 1,0?7» S1yntaxe: .del-vip #chan
# halt
# }
#}
devient :
On @*:TEXT:*:#:{
if (.del-vip == $1-) {
Elseif (!$2) {
# msg $chan 1,0?7» S1yntaxe: .del-vip #chan
# halt
# }
# elseif ($left($2,1) != $chr(35)) {
# msg $chan 1,0?7» S1yntaxe: .del-vip #chan
# halt
# }
ainsi de suite
bonne continuation cordialement devorZ

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.