CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 04:55:42

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : PIRATER LE MOT DE PASS MSN par Mauricelepoisson

RE : PIRATER LE MOT DE PASS MSN par IrX

PIRATER LE MOT DE PASS MSN par kaniboss

RE : ENVOI DE MP SUR COMMANDE + AUTO-VOICE AUTOMATIQUE par okier

+ de logiciels à télécharger

1 465 003 membres
54 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 047 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

ACCESS BOT

Information sur la source

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 788

Auteur : nightmar

Site perso

Ecrire un message privé

Note :

8,00 / 10

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

SOCKET MESSAGER

Toutes les sources de nightmar

Sources de la même categorie

RECORD AFFLUENCE MULTI-SALON par extarsik

LOGCHAN BY DIIMS :: POUR BOT :: TOTALEMENT CONFIGURABLE par sodims

SALON TRADUCTION par CsDarkman

BOT DE SUPPORT (HELPSERV) par Maxou1012

BOT DE LIASON DE CHANS par Maxou1012

Toutes les sources de la catégorie Bots

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 !