begin process at 2010 02 10 14:56:44
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Bots

 > ACCESS BOT

ACCESS BOT


 Information sur la source

Note :
8 / 10 - par 9 personnes
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Bots Niveau :Débutant Date de création :18/10/2004 Date de mise à jour :02/02/2005 19:41:29 Vu :4 935

Auteur : nightmar

Ecrire un message privé
Site perso
Commentaire sur cette source (21)
Ajouter un commentaire et/ou une note

 Description

C'est un systeme d'access pour bot avec mot de pass
Il sufit de taper /msg (nom du bot) auth (mot de pass) pour etre identifier
voila c'est peu etre très basique mais sa peu aider les debutant j'espere

Source

  • On 1:TEXT:auth*:?:{
  • if ($level($gettok($nick,1,124)) > 1) && (%pass. [ $+ [ $gettok($nick,1,124) ] ] == $2) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] != identifier) {
  • set %auth. [ $+ [ $gettok($nick,1,124) ] ] identifier
  • .notice $nick Vous voila identifier
  • }
  • else {
  • if ($level($gettok($nick,1,124)) > 1) && (%pass. [ $+ [ $gettok($nick,1,124) ] ] == $2) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
  • .notice $nick Vous ete deja identifier
  • }
  • }
  • }
  • On 1:TEXT:.op*:#:{
  • if ($level($gettok($nick,1,124)) > 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) && ($me isop $chan) {
  • /mode $chan +o $nick
  • }
  • else {
  • if ($level($gettok($nick,1,124)) > 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) {
  • /mode $chan +oooooooooooooooo $2-
  • }
  • else {
  • if ($me !isop $chan) && ($level($gettok($nick,1,124)) > 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
  • .notice $nick je ne suis pas op sur $chan
  • }
  • else {
  • if ($level($gettok($nick,1,124)) < 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
  • .notice $nick Tu n'a pas asser d'access
  • }
  • }
  • }
  • }
  • }
  • On 1:TEXT:.deop*:#:{
  • if ($level($gettok($nick,1,124)) > 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) && ($me isop $chan) {
  • /mode $chan -o $nick
  • }
  • else {
  • if ($level($gettok($nick,1,124)) > 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) && ($me != $2) {
  • /mode $chan -oooooooooooooooo $2-
  • }
  • else {
  • if ($me !isop $chan) && ($level($gettok($nick,1,124)) > 800) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
  • .notice $nick je ne suis pas op sur $chan
  • }
  • else {
  • if ($level($gettok($nick,1,124)) > 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) && ($me == $2) {
  • .notice $nick Tu ne peu pas me deop
  • }
  • else {
  • if ($level($gettok($nick,1,124)) < 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
  • .notice $nick Tu n'a pas asser d'access
  • }
  • }
  • }
  • }
  • }
  • }
  • On 1:TEXT:.voice*:#:{
  • if ($level($gettok($nick,1,124)) > 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) && ($me isop $chan) {
  • /mode $chan +v $nick
  • }
  • else {
  • if ($level($gettok($nick,1,124)) > 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) {
  • /mode $chan +vvvvvvvvvvvvvvv $2-
  • }
  • else {
  • if ($me !isop $chan) && ($level($gettok($nick,1,124)) > 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
  • .notice $nick je ne suis pas op sur $chan
  • }
  • else {
  • if ($level($gettok($nick,1,124)) < 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
  • .notice $nick Tu n'a pas asser d'access
  • }
  • }
  • }
  • }
  • }
  • On 1:TEXT:.devoice*:#:{
  • if ($level($gettok($nick,1,124)) > 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) && ($me isop $chan) {
  • /mode $chan -v $nick
  • }
  • else {
  • if ($level($gettok($nick,1,124)) > 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) {
  • /mode $chan -vvvvvvvvvvvvvvv $2-
  • }
  • else {
  • if ($me !isop $chan) && ($level($gettok($nick,1,124)) > 500) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
  • .notice $nick je ne suis pas op sur $chan
  • }
  • else {
  • if ($level($gettok($nick,1,124)) < 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
  • .notice $nick Tu n'a pas asser d'access
  • }
  • }
  • }
  • }
  • }
  • On 1:TEXT:.kick*:#:{
  • if ($level($gettok($nick,1,124)) > 50) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) && ($me isop $chan) {
  • .notice $nick specifier un pseudo
  • }
  • else {
  • if ($level($gettok($nick,1,124)) > 50) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) {
  • .kick $chan $2 $3-
  • }
  • else {
  • if ($me !isop $chan) && ($level($gettok($nick,1,124)) > 500) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
  • .notice $nick je ne suis pas op sur $chan
  • }
  • else {
  • if ($level($gettok($nick,1,124)) < 50) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
  • .notice $nick Tu n'a pas asser d'access
  • }
  • }
  • }
  • }
  • }
  • On 1:TEXT:.topic*:#:{
  • if ($level($gettok($nick,1,124)) > 50) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) && ($me isop $chan) {
  • .notice $nick specifier un topic
  • }
  • else {
  • if ($level($gettok($nick,1,124)) > 50) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) {
  • .topic $chan $2-
  • }
  • else {
  • if ($me !isop $chan) && ($level($gettok($nick,1,124)) > 500) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
  • .notice $nick je ne suis pas op sur $chan
  • }
  • else {
  • if ($level($gettok($nick,1,124)) < 50) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
  • .notice $nick Tu n'a pas asser d'access
  • }
  • }
  • }
  • }
  • }
  • On 1:part:#:{
  • /unset %auth. [ $+ [ $gettok($nick,1,124) ] ]
  • }
  • On 1:quit:{
  • /unset %auth. [ $+ [ $gettok($nick,1,124) ] ]
  • }
  • On 1:TEXT:dit*:?:{
  • if ($level($gettok($nick,1,124)) > 400) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) {
  • .notice $nick specifier un message
  • }
  • else {
  • if ($level($gettok($nick,1,124)) > 400) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 != $null) {
  • .msg %salon $2-
  • }
  • else {
  • if ($level($gettok($nick,1,124)) < 400) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) {
  • .notice $nick Tu n'a pas asser d'access
  • }
  • }
  • }
  • }
  • menu menubar {
  • Ajouter un access:{
  • set %pseudo $$?"Entrer le pseudo"
  • set %level $$?"Entrer le niveau d'access"
  • set %mdp $$?"Entrer le mot de pass"
  • auser %level %pseudo
  • set %pass. [ $+ [ %pseudo ] ] %mdp
  • }
  • }
On 1:TEXT:auth*:?:{
  if ($level($gettok($nick,1,124)) > 1) && (%pass. [ $+ [ $gettok($nick,1,124) ] ] == $2) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] != identifier) {
    set %auth. [ $+ [ $gettok($nick,1,124) ] ] identifier
    .notice $nick Vous voila identifier
  }
  else {
    if ($level($gettok($nick,1,124)) > 1) && (%pass. [ $+ [ $gettok($nick,1,124) ] ] == $2) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
      .notice $nick Vous ete deja identifier
    }
  }
}

On 1:TEXT:.op*:#:{
  if ($level($gettok($nick,1,124)) > 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) && ($me isop $chan) {
    /mode $chan +o $nick
  }
  else {
    if ($level($gettok($nick,1,124)) > 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) {
      /mode $chan +oooooooooooooooo $2-
    }
    else {
      if ($me !isop $chan) && ($level($gettok($nick,1,124)) > 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
        .notice $nick je ne suis pas op sur $chan
      }
      else {
        if ($level($gettok($nick,1,124)) < 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
          .notice $nick Tu n'a pas asser d'access
        }
      }
    }
  }
}

On 1:TEXT:.deop*:#:{
  if ($level($gettok($nick,1,124)) > 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) && ($me isop $chan) {
    /mode $chan -o $nick
  }
  else {
    if ($level($gettok($nick,1,124)) > 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) && ($me != $2) {
      /mode $chan -oooooooooooooooo $2-
    }
    else {
      if ($me !isop $chan) && ($level($gettok($nick,1,124)) > 800) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
        .notice $nick je ne suis pas op sur $chan
      }
      else {
        if ($level($gettok($nick,1,124)) > 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) && ($me == $2) {
          .notice $nick Tu ne peu pas me deop
        }
        else {
          if ($level($gettok($nick,1,124)) < 40) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
            .notice $nick Tu n'a pas asser d'access
          }
        }
      }
    }
  }
}

On 1:TEXT:.voice*:#:{
  if ($level($gettok($nick,1,124)) > 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) && ($me isop $chan) {
    /mode $chan +v $nick
  }
  else {
    if ($level($gettok($nick,1,124)) > 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) {
      /mode $chan +vvvvvvvvvvvvvvv $2-
    }
    else {
      if ($me !isop $chan) && ($level($gettok($nick,1,124)) > 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
        .notice $nick je ne suis pas op sur $chan
      }
      else {
        if ($level($gettok($nick,1,124)) < 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
          .notice $nick Tu n'a pas asser d'access
        }
      }
    }
  }
}

On 1:TEXT:.devoice*:#:{
  if ($level($gettok($nick,1,124)) > 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) && ($me isop $chan) {
    /mode $chan -v $nick
  }
  else {
    if ($level($gettok($nick,1,124)) > 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) {
      /mode $chan -vvvvvvvvvvvvvvv $2-
    }
    else {
      if ($me !isop $chan) && ($level($gettok($nick,1,124)) > 500) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
        .notice $nick je ne suis pas op sur $chan
      }
      else {
        if ($level($gettok($nick,1,124)) < 10) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
          .notice $nick Tu n'a pas asser d'access
        }
      }
    }
  }
}

On 1:TEXT:.kick*:#:{
  if ($level($gettok($nick,1,124)) > 50) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) && ($me isop $chan) {
    .notice $nick specifier un pseudo
  }
  else {
    if ($level($gettok($nick,1,124)) > 50) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) {
      .kick $chan $2 $3-
    }
    else {
      if ($me !isop $chan) && ($level($gettok($nick,1,124)) > 500) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
        .notice $nick je ne suis pas op sur $chan
      }
      else {
        if ($level($gettok($nick,1,124)) < 50) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
          .notice $nick Tu n'a pas asser d'access
        }
      }
    }
  }
}

On 1:TEXT:.topic*:#:{
  if ($level($gettok($nick,1,124)) > 50) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) && ($me isop $chan) {
    .notice $nick specifier un topic
  }
  else {
    if ($level($gettok($nick,1,124)) > 50) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($me isop $chan) && ($2 != $null) {
      .topic $chan $2-
    }
    else {
      if ($me !isop $chan) && ($level($gettok($nick,1,124)) > 500) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
        .notice $nick je ne suis pas op sur $chan
      }
      else {
        if ($level($gettok($nick,1,124)) < 50) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) {
          .notice $nick Tu n'a pas asser d'access
        }
      }
    }
  }
}



On 1:part:#:{
  /unset %auth. [ $+ [ $gettok($nick,1,124) ] ]
}

On 1:quit:{
  /unset %auth. [ $+ [ $gettok($nick,1,124) ] ]
}

On 1:TEXT:dit*:?:{
  if ($level($gettok($nick,1,124)) > 400) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) {
    .notice $nick specifier un message
  }
  else {
    if ($level($gettok($nick,1,124)) > 400) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 != $null) {
      .msg %salon $2-
    }
    else {
      if ($level($gettok($nick,1,124)) < 400) && (%auth. [ $+ [ $gettok($nick,1,124) ] ] == identifier) && ($2 == $null) {
        .notice $nick Tu n'a pas asser d'access
      }
    }
  }
}

menu menubar {
Ajouter un access:{
set %pseudo $$?"Entrer le pseudo"
set %level $$?"Entrer le niveau d'access"
set %mdp $$?"Entrer le mot de pass"
auser %level %pseudo
set %pass. [ $+ [ %pseudo ] ] %mdp
}
}

 Conclusion

voila merci de laisser quelques commentaires svp


 Historique

18 octobre 2004 17:09:14 :
Changement de $nick par $gettok($nick,1,124)
22 octobre 2004 18:04:57 :
Amelioration du code
11 décembre 2004 13:44:37 :
Changement du systeme de level
02 février 2005 19:35:31 :
Ajout d'un menu pour ajouter des access
02 février 2005 19:39:26 :
Oubli d'un " dans le menu d'ajout d'access
02 février 2005 19:41:29 :
Je doit vraiment etre fatiguer j'est encore oublier un } ....

 Sources du même auteur

Source avec Zip SOCKET MESSAGER

 Sources de la même categorie

ANIMATION POUR BOT par michounou
RECORD AFFLUENCE MULTI-SALON par extarsik
Source avec Zip Source avec une capture LOGCHAN BY DIIMS :: POUR BOT :: TOTALEMENT CONFIGURABLE par sodims
SALON TRADUCTION par CsDarkman
BOT DE SUPPORT (HELPSERV) par Maxou1012

Commentaires et avis

Commentaire de PaDa le 18/10/2004 16:03:36

quelque commantaire -> quelques commentaires

vous n'ete pas identifier sur -> Vous n'êtes pas identifié

Essaie de regrouper tes events dans la mesure du possible

J'ai pas testé sinon , bonne continuation

Commentaire de PaDa le 18/10/2004 16:08:48

On ne peu l'utilise que si on a le mot pass d'origine exemple Nightmar et pas Nightmar|oQp <<< il suffit de remplacer $nick par $gettok($nick,1,124) partout ou presque, comme je t'ai dit sur le forum :)

Commentaire de COOLMAN002 le 18/10/2004 16:31:41

On 50:TEXT:!voice:#:{
if ( %auth.mode. [ $+ [ $nick ] ] == ok ) {
    /mode # +v $nick
}

suffit que je sois auth, que je tape !voice et que mon bot ne sois pas op pour me prendre un vieux message d'erreur.
Verifie aussi que '$2' n'existe pas, comme ça on pourrait tapé: !voice pseudo et ça voicerai pseudo plutot que nous.

on @*:text:*:#:{
if ($ulevel == 100) { .... }
elseif ($ulevel == 50) { ... }
}

les "/" sont inutile

Commentaire de nightmar le 18/10/2004 17:01:39

merci beaucoup de vos commantaire je vai changer tt sa

Commentaire de SornDrixer le 18/10/2004 17:16:38 administrateur CS

Tu peux remplacer :

if ( %auth.mode. [ $+ [ $gettok($nick,1,124) ] ] == ok ) {
mode # +o $nick }
else { notice $nick vous n'ete pas identifier sur $me }


par :

$iif(%auth.mode. [ $+ [ $gettok($nick,1,124) ] ]  == ok,mode # +o $nick,notice $nick Vous n'êtes pas identifié sur $me)

(Tu peux faire également pareil pour les autres commandes basées sur la même syntaxe)

Commentaire de Therion007 le 19/10/2004 20:06:37

Yop,

Question conne, mais, comment on gere si non la liste des user avec leur pass dans l'onglet user ?

style : 50:*pseudo*!*@*

mais si non j'vois pas pour le reste.

@+

Commentaire de nightmar le 22/10/2004 18:06:29

Voila j'est profité de la semaine pour changer quelques truc dessu :)

Commentaire de COOLMAN002 le 23/10/2004 00:06:15

on 50:text:!op*:#:{
  if ( %auth.mode. [ $+ [ $gettok($nick,1,124) ] ] == ok ) {
    if ($me !isop $chan) notice $nick Je ne suis pas op sur $chan | halt
    if $2 { $iif($2 isop $chan, notice $nick $2 est déjà op sur $chan, mode $chan +o $2) }
    else { $iif($nick isop $chan, notice $nick Tu es déjà op sur $chan, mode $chan +o $nick) }
  }
  else { notice $nick Vous n'ete pas identifié sur $me }
}

oublié le "| halt" après le if $me !isop $chan

Commentaire de charlie220 le 18/11/2004 20:19:23

Je suis un debutant en scripting pourez vous mexpliquer ou je doit mettre sette remote et si il faut quelque chose a mettre a coter pour quil reconnaisse mon pseudo =)

Commentaire de nightmar le 20/11/2004 18:36:01

Tu doi metre se code dans ton editeur de remote (alt +r)

Commentaire de charlie220 le 21/11/2004 11:41:01

Oui sa je sais mais pour definir ladmin je fait koi ? aprer =)

Commentaire de Therion007 le 21/11/2004 12:59:43

c'est bien là le probleme, il n'y a aucun truc qui te permets de marquer ton pass , ....,  donc.... en gros ça ne sert a rien comme addon ( pour le moment ) , en  + le bot il ne répond meme pas qd il devrait normalement dire que tu n'es pas auth...

Commentaire de nightmar le 22/11/2004 18:28:16

Mm je vai rajouter un popup pour créé l'admin du bot =)

Commentaire de Therion007 le 22/11/2004 23:13:10

Bonjour,

Cela serait pas mal, ou meme un multi admin assez simple en ayant juste a lir un .txt

Good Luck :)

Commentaire de nightmar le 12/12/2004 17:27:27

voila si quelqu'un pourai me dire se qu'il pense de mon nouveau systeme de level sa serai simpa =)

Commentaire de danl36 le 05/01/2005 23:51:03

bonsoir

peut me dire quel programme utilisé pour faire ce bot

merci

Commentaire de PaDa le 06/01/2005 00:20:57

télécharge mirc sur www.mirc.com,
et pour utiliser ce robot fais un c/c de ce code dans l'éditeur de script de mirc : lorsque tu as ouvert mirc, appuie sur les touches Alt+R c'est la ! ensuite Ok, et connecte toi...
mais je te conseille de t'habituer a mirc avant de tenter de te servir d'un bot, pour apprendre les commandes te connecter etc

Commentaire de Janusss le 01/02/2005 21:53:27

Powaa j'adore se code ! c'est bete qu'il n'y est pas un popups de config voir un dialog !

Commentaire de Ampoule52 le 27/05/2007 11:21:47

hello, comment le modifier pour qu'il gere les axx sur les channels? Merci

Commentaire de spart_jack le 19/08/2007 22:56:35

petite question, je tappe .op mais il m'op pas c'normal?

Commentaire de LePheniXcooky le 02/05/2008 13:51:43

serai t'il possible de refaire la remote avec tous les changement je veux dire le refaire mais sans les probleme indique si dessu
merci

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,811 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales