MEMOIRE POUR BOT ANIM

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
  }
}

27 septembre 2005 21:53:31 :

j'avais oublié de préciser qu'il faut créer les fichier txt