Memoire pour bot anim

Commenter

Contenu du snippet

Ce code crée un fichier memory.ini qui répertorie les allées et venues des user. Ainsi, le bot est capable de savoir lorsque c'est la premiere fois qu'un user arrive sur tel salon ou s'il est venu plusieurs fois dans la journée. Il peut ainsi dire "bonjour" ou "re". ce fichier memory.ini est effacé tous les jours.
de plus le bot ne flood pas en disant bonjour a tout le monde s'il y a une attaque de clone (je n'ai pas eu l'occasion de tester cette protection) et si le bot a beaucoup de chan en commun avec quelqun qui vient de se connecter, il prend en compte l'autojoin et ne lui dira pas bonjour sur tous les chan.
autre option, si l'user ne parle pas durant la premiere minute où il arrive, le bot tente de lancer la conversation
enfin lorsqu'un user part, une notice lui est envoyé. une notice différente est envoyée en cas de join/part
Le bonjour automatique, la relance et la notice de part peuvent etre désactivées dans le menubar

Source / Exemple : 


On 1:start:{
  if (%dernier == $null) {
    /set %bonjour active
    /set %relance active
    /set %noticepart active
  }
  /timer $+ reset 00:00 1 1 /remove memory
  /echo Dernière utilisation le %dernier à cet heure : %temps 
  if (%dernier != $date) {
    /remove memory
  }
  /set %dernier $date
  /set %temps $time
}

On 1:join:#:{
  if ($nick != $me) {
    if (%bonjour == active) {
      inc %arrivant
      /timer $+ $chan $+ . $+ %arrivant 1 10 dec %arrivant
      /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ notice off
      if !$timer($+ $gettok($nick,1,124) $+ . $+ autojoin) {
        if (%arrivant < 5) {
          if ($readini(memory,$gettok($nick,1,124),$chan) != kické) {
            if ($readini(memory,$gettok($nick,1,124),$chan) == parti) {
              /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ re 1 03 msg $chan  12 $+ $read(re.txt) $+  
              /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ anti-double-joinpart 1 30 /echo anti-double-joinpart désactivé pour $nick 
            }
            elseif ($readini(memory,$gettok($nick,1,124),etat) == déconnecté) { 
              /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ re 1 03 msg $chan 12 $+ $read(re.txt) $+  
            }
            else {
              if ($comchan($nick,0) == 1) {  
                /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ bonjour 1 03 msg $chan 12 $+ $read(bonjour.txt) $+ 
                if (%relance == active) {
                  /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ join 1 90 msg $chan 12 $+ $read(suite.txt) $+ 
                }
                /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ anti-joinpart 1 40 /echo anti join-part désactivé pour $nick
              }
              else {
                /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ re 1 03 msg $chan 12 $+ re $nick $+ 
              }
            }
          }
        }
      }
    }
    /writeini -n memory $gettok($nick,1,124) $chan présent
    /timer $+ $gettok($nick,1,124) $+ . $+ autojoin 1 30 /echo Temps de protection autojoin terminé pour $nick
  }
}
On *:text:*:#:{
  /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ join off
}
On *:PART:#:{
  if (($nick != $me ) && (%noticepart == active)) {
    if $timer($+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ anti-joinpart) { 
      /timer $+ $chan $+. $+ $gettok($nick,1,124) $+ . $+ notice 1 05 /notice $nick 12Honte aux join-part !! Pourquoi tu es venu pour repartir tout de suite après ? 
    }      
    /writeini -n memory $gettok($nick,1,124) $chan parti
  }
  elseif $timer($+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ anti-double-joinpart) {
    /timer $+ $chan $+. $+ $gettok($nick,1,124) $+ . $+ notice 1 05 /notice $nick 12Tu viens, tu pars, tu reviens, tu repars... Mais reste donc un peu ! allez reviens et reste cette fois  
    /writeini -n memory $gettok($nick,1,124) $chan parti
  }
  else {
    if !$timer($+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ kick-reviens) { 
      /writeini -n memory $gettok($nick,1,124) $chan parti
      /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ notice 1 05 /notice $nick 12 Tu es sur que tu veux pas rester un peu plus longtemps sur $chan ? 
    }
  }
  /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ join off 
  /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ bonjour off
  /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ re off 
}
On *:KICK:#:{ 
  /timer $+ $chan $+ . $+ $gettok($knick,1,124) $+ . $+ join off 
  /timer $+ $chan $+ . $+ $gettok($knick,1,124) $+ . $+ bonjour off 
  /timer $+ $chan $+ . $+ $gettok($knick,1,124) $+ . $+ re off
  /writeini -n memory $gettok($nick,1,124) $chan kické
}
On *:QUIT:{
  /writeini -n memory $gettok($nick,1,124) etat déconnecté
  /timer $+ $chan $+ $gettok($nick,1,124) $+ . $+ join off 
  /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ bonjour off 
  /timer $+ $chan $+ . $+ $gettok($nick,1,124) $+ . $+ re off 
}
menu menubar {
  Bonjour auto
  .Bonjour
  ..$iif(%bonjour == desactive, Activer):{
    /set %bonjour active
    /echo L'option bonjour est activée
  }
  ..$iif(%bonjour == active, Desactiver):{
    /set %bonjour desactive
    /set %relance desactive
    /echo L'option bonjour est désactivée, ainsi que l'option relance qui va ensemble
  }
  .Relance si l'arrivant ne parle pas
  ..$iif(%relance == desactive, Activer):{
    if (%bonjour == active) {
      /set %relance active
      /echo L'option relance est activée, c'est à dire que le bot envoie un message si les nouveau arrivant ne se décident pas à parler
    }
    else {
      /echo L'option relance ne peut pas être activée si l'option bonjour ne l'est pas
    }
  }
  ..$iif(%relance == active, Desactiver):{
    /set %relance desactive
    /echo L'option relance est désactivée
  }
  .Notice de part
  ..$iif(%noticepart == desactive, Activer):{
    /set %noticepart active
    /echo Le bot envoie désormais des notice lorsque les user quittent le salon 
  }
  ..$iif(%noticepart == active, Desactiver):{
    /set %noticepart desactive
    /echo Le bot n'enverra plus de notice lorsqu'un user quitte le salon
  }
}

Conclusion :


j'ai fait quelques modifications juste avant de poster la sources, et il est possible qu'elles fassent capoter tout le reste (on sait jamais, certains cotés de l'irc restent obscurs pour moi), dans ce cas je ferai des mises a jour.
je pense avoir envisagé tous les cas de figures, que le bot dit bonjour ou re comme un etre humain meme si on a plusieur salon en commun avec lui. mais il est possible que son comportement soit quelquefois incohérent : dans ce cas j'aimerai bien qu'on me le signale, pour ceux qui le testetont peut etre

Il faut également créer trois fichier txt :
bonjour.txt :
souhaitons la bienvenue à $nick !
bonjour $nick
salut $nick comment sa va ??
yo $nick sa va bien ?
kikoo $nick !
hello $nick
slt $nick
Salutations, ô grand $nick !

re.txt :
Merci d'être revenu $nick
Merci d'être revenu $nick
C'est cool que tu soit revenu $nick
$nick est de nouveau parmi nous !
re $nick 
re $nick 
re $nick 
re $nick 
tiens revoila $nick

suite.txt :
hého $nick c'est pas interdit de causer ici
on t'a coupé la langue $nick ?
tes pas du genre bavard toi $nick
t'as le droit de discuter $nick
ben dis quelquechose $nick , par exemple "bonjour"
move your body $nick et parle donc un peu
la causerie c pas ton truc à ce que je vois $nick
tu racontes quoi de beau $nick alors

A voir également

S'inscrire maintenant

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 (ZeDaHu)