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

Ce site au démarrage

begin process at 2012 02 12 04:47:30

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

AddOns

> SYSTEME D'IDENTIFICATION POUR BOT EN VARIABLES

SYSTEME D'IDENTIFICATION POUR BOT EN VARIABLES

Information sur la source

Note :
Aucune note

Catégorie :AddOns Classé sous :identification, auth, bot, variable, mirc Niveau :Débutant Date de création :03/01/2007 Date de mise à jour :03/01/2007 15:08:55 Vu :5 290

Auteur : Corween

Ecrire un message privé

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Ceci est un petit code fait en une soirée, c'est un système d'identification pour bot, mais en variables, ( tout est dans le titre en effet ). J'ai parcourut le site et je n'en est pas trouvé, donc voila, je me suis lancé dans ça ...
Le code est très simple, pas très bien codé, c'est sur, mais je ne suis qu'un débutant, et c'est la première source que je dépose ici, donc soyez indulgent svp.

Le code permet d'enregistrer des host avec des levels d'axX, et tout ça est proteger par un mot de passe.
Pour s'enreistrer --> /msg <Bot> register <Mdp>
Pour se loguer --> /msg <Bot> login <Mdp>
Pour l'aide --> !help

Et un petit truc, que j'ai oublié de mettre dans l'aide, pour ajouter un axx, c'est --> !go-axx <Pseudo> Niveau

Sachant que Niveau 1 peut se voicer, niveau 4 halfop + voice et ainsi dessuite, comme sur BotServ.

Source

*************************
* 1 Page *
*************************
On *:text: register*:?:{
if ($2 == $null) && ($1 == register) { .notice $nick [ERREUR] <~~> 3/msg $me Register MotDePasse }
elseif ($address($nick,2) isin $read(pseudoth.txt, w,* $+ $address($nick,2) $+ *)) { .notice $nick [ERREUR] <~~> Vous êtes déjà enregistré sur le bot avec l'adresse :4 $address($nick,2) }
elseif ($2 == MotDePasse) && ($1 == register) { .notice $nick [ERREUR] <~~> Merci de donner un mot de passe valide }
else { /write pseudoth.txt $address($nick,2) | /set %mdp $+ $address($nick,2) $2 | /set %ol $+ $address($nick,2) ON | .notice $nick Vous êtes maintenant enregistré auprès du bot avec l'adresse :4 $address($nick,2) }
}
On *:text: login*:?:{
if ($2 == $null) && ($1 == login) { .notice $nick [ERREUR] <~~> 3/msg $me login MotDePasse }
elseif ($address($nick,2) != $read(pseudoth.txt, w,* $+ $address($nick,2) $+ *)) { .notice $nick [ERREUR] <~~> Vous n'êtes pas enregistré auprès du bot : 3/msg $me register MotDePasse 4Si vous avez changé votre vhost, merci de vous ré-enregistrer }
elseif (%ol [ $+ [ $address($nick,2) ] ] == ON) { .notice $nick [ERREUR] <~~> Vous êtes déjà identifié }
elseif ($2 != %mdp [ $+ [ $address($nick,2) ] ]) { .notice $nick [ERREUR] <~~> Mauvais Mot de passe }
else { /set %ol [ $+ [ $address($nick,2) ] ] ON | .notice $nick Identification Réussie }
}
On *:text: logout*:?:{
if ($address($nick,2) != $read(pseudoth.txt, w,* $+ $address($nick,2) $+ *)) { .notice $nick [ERREUR] <~~> Vous n'êtes pas enregistré auprès du bot : 3/msg $me register MotDePasse 4Si vous avez changé votre vhost, merci de vous ré-enregistrer }
elseif (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous n'êtes pas identifié }
else { /set %ol [ $+ [ $address($nick,2) ] ] OFF | .notice $nick Vous n'êtes plus identifié }
}
*************************
* 2 Page *
*************************
on *:part:#:{ If ( %ol [ $+ [ $address($nick,2) ] ] == ON ) { /set %ol $+ $address($nick,2) OFF }
}
on *:join:#:{ If ($nick != $me) {
If (%ol [ $+ [ $address($nick,2) ] ] == ON) { .msg $chan Bonjour $nick !! [ Auth : ON ] }
If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .msg $chan Bonjour $nick !! [ Auth : OFF ] }
}
}
On *:text: !info*:#:{
If (%ol [ $+ [ $address($nick,2) ] ] == ON) { .msg $chan $nick --> [ Auth : 4ON ] }
If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .msg $chan $nick --> [ Auth : 4OFF ] }
If ($address($nick,2) != $read(pseudoth.txt, w,* $+ $address($nick,2) $+ *)) { .msg $chan $nick --> Tu n'est pas enregistré auprès du bot ... 4/msg $me register MotDePasse }
}
On *:text: hello*:?:{
If (%helloauth == OFF) { .notice $nick 4J'ai déjà un Maître ! }
else { /set %mdp $+ $address($nick,2) $2 | /set %ol $+ $address($nick,2) ON | /write pseudoth.txt $address($nick,2) | /inc %axx $+ $address($nick,2) 10 | .notice $nick Tu es mon Maître, enregistré sous l'host :4 $address($nick,2) .:::. Avec comme Mot de passe :4 %mdp [ $+ [ $address($nick,2) ] ] | /set %helloauth OFF }
}
*************************
* 3 Page *
*************************
On *:text: !v*:#:{
If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 0) && ($2 == $null) { /mode $chan +v $nick }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) { /mode $chan +v $2 }
}
On *:text: !dv*:#:{
If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 0) && ($2 == $null) { /mode $chan -v $nick }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) { /mode $chan -v $2 }
}
On *:text: !h*:#:{
If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 3) && ($2 == $null) { /mode $chan +h $nick }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) { /mode $chan +h $2 }
}
On *:text: !dh*:#:{
If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 3) && ($2 == $null) { /mode $chan -h $nick }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) { /mode $chan -h $2 }
}
On *:text: !o*:#:{
If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] < 5) { .notice $nick [ERREUR] <~~> Votre AxX N'est pas sufisant ! | /halt }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) && ($2 == $null) { /mode $chan +o $nick }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) { /mode $chan +o $2 }
}
On *:text: !do*:#:{
If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] < 5) { .notice $nick [ERREUR] <~~> Votre AxX N'est pas sufisant ! | /halt }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) && ($2 == $null) { /mode $chan -o $nick }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) { /mode $chan -o $2 }
}
On *:text: !a*:#:{
If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] < 10) { .notice $nick [ERREUR] <~~> Votre AxX N'est pas sufisant ! | /halt }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 9) && ($2 == $null) { /mode $chan +a $nick }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 9) { /mode $chan +a $2 }
}
On *:text: !da*:#:{
If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] < 10) { .notice $nick [ERREUR] <~~> Votre AxX N'est pas sufisant ! | /halt }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 9) && ($2 == $null) { /mode $chan -a $nick }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 9) { /mode $chan -a $2 }
}
On *:text: !go-axx*:#:{
If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
if ($address($2,2) != $read(pseudoth.txt, w,* $+ $address($2,2) $+ *)) { .notice $nick Vous ne pouvez mettre des aXx que sur des host's enregistré auprès du bot ! | .notice $2 $nick à éssayé de vous mettre un aXx, enregistré vous auprès du bot, pour que cela soit possible ! ( /msg $me register MotDePasse ) | /halt }
If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] < 10) { .notice $nick [ERREUR] <~~> Votre AxX N'est pas sufisant ! | /halt }
If ( %ol [ $+ [ $address($nick,2) ] ] == ON ) && ( %axx [ $+ [ $address($nick,2) ] ] > 9 ) { /set %axx $+ $address($2,2) $3 | .notice $nick Un aXx3 Niveau $3 a bien été ajouté sur l'host4 $address($2,2) ! | .notice $2 $nick vient de vous mettre un aXx 3Niveau $3 sur votre host :4 $address($2,2) }
}
*************************
* 4 Page *
*************************
On *:text:!Help*:#:{
.notice $nick Général --> !Aide.G
.notice $nick Modération --> !Aide.M
.notice $nick Accèss --> !Aide.A
}
On *:text:!Aide.G*:#:{
.notice $nick .::Général::.
.notice $nick Pour s'enregistrer --> /msg $me register MotDePasse
.notice $nick Pour s'identifier --> /msg $me login MotDePasse
.notice $nick Pour se désidentifier --> /msg $me Logout
.notice $nick Pour connaître son statut ( Level axx ... ) --> !info ( Sur un chan )
}
On *:text:!Aide.M*:#:{
.notice $nick .::Modération::.
.notice $nick Protect --> !a ou !a <Pseudo> .:::. Deprotect --> !da ou !da <Pseudo>
.notice $nick Op --> !o ou !o <Pseudo> .:::. Deop --> !do ou !do <Pseudo>
.notice $nick Halfop --> !h ou !h <Pseudo> .:::. Dehalfop --> !dh ou !dh <Pseudo>
.notice $nick Voice --> !v ou !v <Pseudo> .:::. Devoice --> !dv ou !dv <Pseudo>
}
On *:text:!Aide.A*:#:{
.notice $nick .::Accèss::.
.notice $nick Niveau 1 --> Voice ( Juste Pour Soit Même )
.notice $nick Niveau 4 --> Voice ( Pour Tout Le Monde ) .:::. Halfop ( Juste Pour Soit Même )
.notice $nick Niveau 5 --> Voice ( Pour Tout Le Monde ) .:::. Halfop ( Pour Tout Le Monde ) .:::. Op ( Pour Tout Le Monde )
.notice $nick Niveau 10 --> Voice ( Pour Tout Le Monde ) .:::. Halfop ( Pour Tout Le Monde ) .:::. Op ( Pour Tout Le Monde ) .:::. Protect ( Pour Tout Le Monde )
.notice $nick /!\IMPORTANT/!\ <~~> Pour connaître les commandes de modération ( voice, op ... ) --> !Aide.M
}

*************************
*       1 Page          *
*************************

On *:text: register*:?:{
  if ($2 == $null) && ($1 == register) { .notice $nick [ERREUR] <~~> 3/msg $me Register MotDePasse }
  elseif ($address($nick,2) isin $read(pseudoth.txt, w,* $+ $address($nick,2) $+ *)) { .notice $nick [ERREUR] <~~> Vous êtes déjà enregistré sur le bot avec l'adresse :4 $address($nick,2) }
  elseif ($2 == MotDePasse) && ($1 == register) { .notice $nick [ERREUR] <~~> Merci de donner un mot de passe valide }
  else { /write pseudoth.txt $address($nick,2) | /set %mdp $+ $address($nick,2) $2 | /set %ol $+ $address($nick,2) ON | .notice $nick Vous êtes maintenant enregistré auprès du bot avec l'adresse :4 $address($nick,2) }
}

On *:text: login*:?:{
  if ($2 == $null) && ($1 == login) { .notice $nick [ERREUR] <~~> 3/msg $me login MotDePasse }
  elseif ($address($nick,2) != $read(pseudoth.txt, w,* $+ $address($nick,2) $+ *)) { .notice $nick [ERREUR] <~~> Vous n'êtes pas enregistré auprès du bot : 3/msg $me register MotDePasse 4Si vous avez changé votre vhost, merci de vous ré-enregistrer }
  elseif (%ol [ $+ [ $address($nick,2) ] ] == ON) { .notice $nick [ERREUR] <~~> Vous êtes déjà identifié }
  elseif ($2 != %mdp [ $+ [ $address($nick,2) ] ]) { .notice $nick [ERREUR] <~~> Mauvais Mot de passe  }
  else { /set %ol [ $+ [ $address($nick,2) ] ] ON | .notice $nick Identification Réussie }
}

On *:text: logout*:?:{
  if ($address($nick,2) != $read(pseudoth.txt, w,* $+ $address($nick,2) $+ *)) { .notice $nick [ERREUR] <~~> Vous n'êtes pas enregistré auprès du bot : 3/msg $me register MotDePasse 4Si vous avez changé votre vhost, merci de vous ré-enregistrer }
  elseif (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous n'êtes pas identifié }
  else { /set %ol [ $+ [ $address($nick,2) ] ] OFF | .notice $nick Vous n'êtes plus identifié }
}







*************************
*       2 Page          *
*************************

on *:part:#:{ If ( %ol [ $+ [ $address($nick,2) ] ] == ON ) { /set %ol $+ $address($nick,2) OFF }
}

on *:join:#:{ If ($nick != $me) {
    If (%ol [ $+ [ $address($nick,2) ] ] == ON) { .msg $chan Bonjour $nick !! [ Auth : ON ] }
    If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .msg $chan Bonjour $nick !! [ Auth : OFF ] }
  }
}


On *:text: !info*:#:{
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) { .msg $chan $nick --> [ Auth : 4ON ] }
  If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .msg $chan $nick --> [ Auth : 4OFF ] }
  If ($address($nick,2) != $read(pseudoth.txt, w,* $+ $address($nick,2) $+ *)) { .msg $chan $nick --> Tu n'est pas enregistré auprès du bot ... 4/msg $me register MotDePasse }
}



On *:text: hello*:?:{
  If (%helloauth == OFF) { .notice $nick 4J'ai déjà un Maître ! }
  else { /set %mdp $+ $address($nick,2) $2 | /set %ol $+ $address($nick,2) ON | /write pseudoth.txt $address($nick,2) | /inc %axx $+ $address($nick,2) 10 | .notice $nick Tu es mon Maître, enregistré sous l'host :4 $address($nick,2) .:::. Avec comme Mot de passe :4 %mdp [ $+ [ $address($nick,2) ] ] | /set %helloauth OFF }
}









*************************
*       3 Page          *
*************************


On *:text: !v*:#:{
  If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 0) && ($2 == $null) { /mode $chan +v $nick }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) { /mode $chan +v $2 }
}

On *:text: !dv*:#:{
  If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 0) && ($2 == $null) { /mode $chan -v $nick }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) { /mode $chan -v $2 }
}

On *:text: !h*:#:{
  If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 3) && ($2 == $null) { /mode $chan +h $nick }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) { /mode $chan +h $2 }
}

On *:text: !dh*:#:{
  If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 3) && ($2 == $null) { /mode $chan -h $nick }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) { /mode $chan -h $2 }
}

On *:text: !o*:#:{
  If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] < 5) { .notice $nick [ERREUR] <~~> Votre AxX N'est pas sufisant ! | /halt }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) && ($2 == $null) { /mode $chan +o $nick }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) { /mode $chan +o $2 }
}

On *:text: !do*:#:{
  If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] < 5) { .notice $nick [ERREUR] <~~> Votre AxX N'est pas sufisant ! | /halt }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) && ($2 == $null) { /mode $chan -o $nick }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 4) { /mode $chan -o $2 }
}

On *:text: !a*:#:{
  If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] < 10) { .notice $nick [ERREUR] <~~> Votre AxX N'est pas sufisant ! | /halt }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 9) && ($2 == $null) { /mode $chan +a $nick }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 9) { /mode $chan +a $2 }
}

On *:text: !da*:#:{
  If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] < 10) { .notice $nick [ERREUR] <~~> Votre AxX N'est pas sufisant ! | /halt }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 9) && ($2 == $null) { /mode $chan -a $nick }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] > 9) { /mode $chan -a $2 }
}

On *:text: !go-axx*:#:{
  If (%ol [ $+ [ $address($nick,2) ] ] == OFF) { .notice $nick [ERREUR] <~~> Vous devez être identifier pour utiliser cette commande ( /msg $me login MotDePasse ) | /halt }
  if ($address($2,2) != $read(pseudoth.txt, w,* $+ $address($2,2) $+ *)) { .notice $nick Vous ne pouvez mettre des aXx que sur des host's enregistré auprès du bot ! | .notice $2 $nick à éssayé de vous mettre un aXx, enregistré vous auprès du bot, pour que cela soit possible ! ( /msg $me register MotDePasse ) | /halt }
  If (%ol [ $+ [ $address($nick,2) ] ] == ON) && (%axx [ $+ [ $address($nick,2) ] ] < 10) { .notice $nick [ERREUR] <~~> Votre AxX N'est pas sufisant ! | /halt }
  If ( %ol [ $+ [ $address($nick,2) ] ] == ON ) && ( %axx [ $+ [ $address($nick,2) ] ] > 9 ) { /set %axx $+ $address($2,2) $3 | .notice $nick Un aXx3 Niveau $3 a bien été ajouté sur l'host4 $address($2,2) ! | .notice $2 $nick vient de vous mettre un aXx 3Niveau $3 sur votre host :4 $address($2,2) }
}
   








*************************
*       4 Page          *
*************************


On *:text:!Help*:#:{
  .notice $nick Général --> !Aide.G
  .notice $nick Modération --> !Aide.M
  .notice $nick Accèss --> !Aide.A 
}

On *:text:!Aide.G*:#:{
  .notice $nick .::Général::.
  .notice $nick Pour s'enregistrer --> /msg $me register MotDePasse
  .notice $nick Pour s'identifier --> /msg $me login MotDePasse
  .notice $nick Pour se désidentifier --> /msg $me Logout
  .notice $nick Pour connaître son statut ( Level axx ... ) --> !info ( Sur un chan )
}


On *:text:!Aide.M*:#:{
  .notice $nick .::Modération::.
  .notice $nick Protect --> !a ou !a <Pseudo> .:::. Deprotect --> !da ou !da <Pseudo>
  .notice $nick Op --> !o ou !o <Pseudo> .:::. Deop --> !do ou !do <Pseudo>
  .notice $nick Halfop --> !h ou !h <Pseudo> .:::. Dehalfop --> !dh ou !dh <Pseudo>
  .notice $nick Voice --> !v ou !v <Pseudo> .:::. Devoice --> !dv ou !dv <Pseudo>
}


On *:text:!Aide.A*:#:{
  .notice $nick .::Accèss::.
  .notice $nick Niveau 1 --> Voice ( Juste Pour Soit Même )
  .notice $nick Niveau 4 --> Voice ( Pour Tout Le Monde ) .:::. Halfop ( Juste Pour Soit Même )
  .notice $nick Niveau 5 --> Voice ( Pour Tout Le Monde ) .:::. Halfop ( Pour Tout Le Monde ) .:::. Op ( Pour Tout Le Monde )
  .notice $nick Niveau 10 --> Voice ( Pour Tout Le Monde ) .:::. Halfop ( Pour Tout Le Monde ) .:::. Op ( Pour Tout Le Monde ) .:::. Protect ( Pour Tout Le Monde )
  .notice $nick /!\IMPORTANT/!\ <~~> Pour connaître les commandes de modération ( voice, op ... ) --> !Aide.M
}

Conclusion

IMPORTANT ==> Il est indispensable de séparer le code dans 4 pages neuves, sinon le code ne fonctionne pas dans sa totalitée.

Dans votre bot : " alt " + " R " --> " fichier " --> " new " --> Copier coller, la première partie, puis la seconde, puis la troisième, et enfin la quatrième.

Le seul problème qu'il peut y avoir, c'est que la source est divisée en 4 page de remotes, si on met tout en semble, le bot ne fonctionne pas, mais à part ça, tout marche.

Donc, pour l'aide " !help "
Pour vous identifier en tant que owner du bot --> /msg <Bot> hello <Mdp>

Pour inserer ce code dans une remote de jeu de mini RPG par exemple, il suffit de rajouter dans chaque on text : " If (%ol [ $+ [ $address($nick,2) ] ] == ON) " Puisque si la variable est ON, c'est que la personne est enregistrée dans le bot.

Voila, tout est dit je pense.

Bonne journée et bonne année =)

PS : Merci d'être indulgent sur les commentaires, je suis débutant. Merci =)

Historique

03 janvier 2007 14:58:32 :: Un oubli dans l'explication de la source :x
03 janvier 2007 15:08:55 :: Him Hum ... Une petite retouche très minime ...

Sources du même auteur

SMS SEND - 1 SMS GRATUIT PAR HEURE

Toutes les sources de Corween

Sources de la même categorie

PACMAN MULTI-JOUEUR EN LIGNE par wims

PROXY&SOCKS SCANNER+LEECHER par independentt

GESTIONNAIRE DE HIGHLIGHT AVANCÉ AVEC IGNORE SALON OU PSEUDO par doob666

AUTOJOIN HTABLE MULTISERVER par doob666

TCL - AJOUT SUPPRESSION DE LOGS par Atok

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

PROXY&SOCKS SCANNER+LEECHER par independentt

PENDU POUR MIRC par neobidou

SERVICE GEOFRONT (PERL) par iZyTeHPariaH

SIMPLE QUIZZ par Kentix

UN BOT AVEC AUTH, ACCES.... par Mc_AbBeR

Commentaires et avis

Commentaire de wims le 03/01/2007 23:43:06

Ok déja le titre de la source est faux puisque ce n'est pas qu'un system d'ident sur un bot mais plutot un bot plus ou moins complet.

IMPORTANT ==> Il est indispensable de séparer le code dans 4 pages neuves, sinon le code ne fonctionne pas dans sa totalitée.

J'aimerai bien voir ca. Ton code ne contient que des on text ( qu'il faut regroupé ) des on part et on join. En regroupant les on text, ton code sera déja beaucoup plus clair, (habitude qu'il vaut mieux avoir).

Tout les /halt doivent etre remplacés par des /return

Corrige déja tout ca, essaye sur un mirc vierge de mettre le code sur une seul page.

Pour regroupé les on text fais comme ca ( c'est un exemple ) :

on *:text:*:#:{
if ($1 == !Ga && $2 == is) set %ga Ga
;si $1 == !Ga et si $2 == is, on effectue la command
elseif ($1 == !ok || $78 == WOW!) set %ok putin $78 ca doit etre tendu de tout géré
;sinon si $1 == !ok ou si $78 == wow!, on effectue la cmd
else set %else bah sinon tu fais ce que tu veux
;sinon on fait la cmd
}

si le if est validé, mirc ne cherchera meme pas a vérifié le elseif.

Commentaire de Corween le 04/01/2007 12:07:21

Ha ok,

Merci beaucoup pour les tuyaus, j'essairais de regrouper les on text cet après midi, et pour les /return ? ca a quel effet en fait ? Le même que les /halt ?

En tout cas, merci, bonne journée =)

Commentaire de wims le 04/01/2007 19:03:16

Regarde l'aide pour savoir quelle différence il y a entre /halt /return voir meme /haltdef mais aucun rapport ici.

La commande /return arrête un script en cours d'utilisation et permet à la routine appelant de continuer le traitement.Vous pouvez également spécifier optionnellement une valeur de retour qui sera gardée dans l'identifieur $result. Le $result peut alors être utilisé dans la routine appelant.

/return [value]

La commande /halt arrête un script et empêche tout traitement ultérieur. Vous pouvez utiliser cela dans les scripts remote pour empêcher mIRC de répondre :
-aux messages ctcp normaux
-dans les alias pour les arrêter,
-dans tout alias appelant.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

identification par auth [ par MuluShiSu ] Salut à tous.Je suis entrin de me faire un bot personnel sur le reseau Quakenet mais j ai un probleme arrivé a un moment :( J'aimerais bien que le bot [MIRC] un petit probleme de definition de variable [ par nova78180 ] bonsoirmon script se presente comme su dessous:on 1:FILERCVD:*.*:{  inc %i  /echo Recu $filename de $nick  /echo i+1 = %i  /msg $n Citations bot mirc [ par dams89 ] Salut !! a tous Bon voila je sui toujours entrain d 'ameliorer mon bot et la je voudrai le faire cité quelque dicton ou proverbe (comme un pub qu Bot mirc sur shell ! [ par rush974 ] Bjr @ tous,   Juste une question très bête. Peut-on lancer un bot Problème de lag en mIRC [ par Lorya51100 ] Bonjour à tous :)Voici mon second post dans ce fofo car j'ai un nouveau soucis : le lag !En fait, je réalise un bot d'animation en mIRC, donc, quand j Shell Pour mIRC [ par Corween ] Vous aurie pas une astuce pour que le bot fonctionne même sur un BNC svp ?Et aussi, auriez vous une adresse de shell hébergent les bot's mIRC svp ?Mer Code Pour Bot /mirc en link sur 2 serveurs 2Salons Intersalon !!! HelP !!! [ par ronehp ] Voila Bonjourje me rapelle d'avoie eu ici un addons ici , pour un link entre 2 serveursje ne retrouve plus ce c Dcc Chat pour bot mIRC [ par XavSniper ] Bonjour tout le monde.J'essai de faire un système de DCC Chat pour bot mIRC, mais comme vous vous en seriez douté, celà ne marche pas, ce qui explique Petit probleme de variable [ par crash71 ] Voila j'ai un petit probleme, je suis sous mirc et j'aimerai faire une variable avec un nick dans une remote... Enfin je m'explique, prenons un exempl Demande d'aide script bot Mirc ! [ par rush974 ] Bjr la team,J'ai un petit souci avec mon bot Mirc. Un de mes (on ^*:join:#:) est kill par un bot de salon off sur wanadoo.voila, alors ke le mess

Nos sponsors

Derniers Blogs

SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc

[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier

[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

Forum

CONFLIT ENTRE BOTSERV ET CHANSERV ? par Nordicansa

RE : AIDE par Nico26000

RE : AIDE par WorldDMT

RE : AFFICHAGE DES JOIN/PART/QUIT DANS UNE FENêTRE à PART @JPQ ? par WorldDMT

AIDE par Nico26000

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Passerelle Pericles sur site Joomla 17
Budget : 499€
Infogerance Serveur Debian Linux
Budget : 2 400€
Developpeur applications iphone - ipad - android
Budget : 800€

Logiciels

Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning