; §§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§
; §§
; §§                                       INVISION VERSION 2.0 Script for mIRC 6.02 By cRYOa
; §§                                       FILE: itext.ini
; §§                                       DATE: 2-4-02
; §§                                       DESCRIPTION: on TEXT Routines
; §§
; §§                                       DO NOT ADD OR CHANGE ANYTHING IN THIS FILE
; §§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§
; on connect ajout cussay
on 1:connect: {
  if (($me == $r.set(Auto.ID,Nick.1)) && ($r.set(Auto.ID,Pass.1) != $null)) { %Nserv [ $+ [ $iNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.1) }
  elseif (($me == $r.set(Auto.ID,Nick.2)) && ($r.set(Auto.ID,Pass.2) != $null)) { %Nserv [ $+ [ $iNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.2) }
  elseif (($me == $r.set(Auto.ID,Nick.3)) && ($r.set(Auto.ID,Pass.3) != $null)) { %Nserv [ $+ [ $iNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.3) }
  elseif (($me == $r.set(Auto.ID,Nick.4)) && ($r.set(Auto.ID,Pass.4) != $null)) { %Nserv [ $+ [ $iNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.4) }
  elseif (($me == $r.set(Auto.ID,Nick.5)) && ($r.set(Auto.ID,Pass.5) != $null)) { %Nserv [ $+ [ $iNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.5) }
}

on &^*:text:*:?:{ 
  var %curlevel = $level($fulladdress)
  if (%curlevel == 5) { .msg $nick Vous êtes dans ma liste d'abrutis et vous êtes maintenant ignoré! $ilogo | close -m $nick | .ignore -pntiu60 $wildsite | aecho $nick $bracket($address) a été mis en ignoré. $bracket(Shitlisted) }
  else {
    flud Text $fulladdress
    ; 5 lignes suivantes ajout cussay pour mot de passe érroné
    if (($r.set(Auto.ID,Status) == On) && ($nick == NickServ) && ((Mot de passe incorrect* iswm $1-) || (Password incorrect* iswm $1-))) {
      w.set Auto.Id Status Off
      w.set Invision KeepNick Off
      ./warn Attention votre mot de passe est erroné, auto-identification désactivée, garde du nick désactivée
    }
    if ($gnick($nick) == $true) { mflud text }
    if (($r.set(Auto.ID,Status) == On) && ($nick == NickServ) && (This nick* iswm $1-)) {
      if (($me == $r.set(Auto.ID,Nick.1)) && ($r.set(Auto.ID,Pass.1) != $null)) { %Nserv [ $+ [ $iNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.1) }
      elseif (($me == $r.set(Auto.ID,Nick.2)) && ($r.set(Auto.ID,Pass.2) != $null)) { %Nserv [ $+ [ $iNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.2) }
      elseif (($me == $r.set(Auto.ID,Nick.3)) && ($r.set(Auto.ID,Pass.3) != $null)) { %Nserv [ $+ [ $iNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.3) }
      elseif (($me == $r.set(Auto.ID,Nick.4)) && ($r.set(Auto.ID,Pass.4) != $null)) { %Nserv [ $+ [ $iNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.4) }
      elseif (($me == $r.set(Auto.ID,Nick.5)) && ($r.set(Auto.ID,Pass.5) != $null)) { %Nserv [ $+ [ $iNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.5) }
      elseif (($me ison $active) || ($query($active) != $null)) { editbox -ap / $+ %Nserv [ $+ [ $iNetwork ] ] IDENTIFY }
      else { editbox -sp / $+ %Nserv [ $+ [ $iNetwork ] ] IDENTIFY }
      halt
    }
    if (($1- == !getmsg) && ($checkpending($fulladdress))) { SendMessages $fulladdress $nick | close -m $nick | halt }
    if ($r.set(XDCC,Status) == On) {
      if ($1 == XDCC) {
        if (%curlevel == 7) { .notice $nick $c(1) $+ Votre accès a été refusé. $ilogo | aecho $nick $bracket($address) essaye d'utiliser le serveur XDCC. $bracket(Banni) }
        elseif ($r.set(XDCC,Status) != On) { .msg $nick $c(1) $+ Le serveur XDCC est actullement stoppé. $ilogo }
        else {
          if ($2 == $null) { .msg $nick Syntaxe: XDCC commande | .msg $nick /msg $me XDCC HELP pour plus d'informations. | halt }
          elseif ($2 == Help) {
            aecho $nick $bracket($address) demande l'aide XDCC.
            if ($3 == Send) { .msg $nick Syntaxe: Send #<numéro de pack> | .msg $nick Cette commande demarre le transfert XDCC. }
            elseif ($3 == List) { .msg $nick Syntaxe: List | .msg $nick Cette commande fait la liste des packs proposés. }
            elseif ($3 != $null) { .msg $nick Syntaxe: Help commande | .msg $nick Send   Envoie le pack spécifié | .msg $nick List   Cette commande fait la liste des packs proposés }
            else { .msg $nick Un serveur XDCC est un serveur ou vous ne pouvez télécharger que les pack proposés.  Pour plus d'infos, tapez /msg $me XDCC Help commande | .msg $nick Send   Envoie le pack spécifié | .msg $nick List   Cette commande fait la liste des packs proposés }
          }
          elseif ($2 == List) {
            aecho $nick $bracket($address) demande la liste des packs XDCC. $iif($isnum($r.set(XDCC,Pack.List)) != $true,$bracket(Liste des packs désactivée)) $+ $iif($tc($nick,XDCC) != $true,$bracket(Requête rejetée))
            if ($isnum($r.set(XDCC,Pack.List)) != $true) { .msg $nick $c(1) $+ Liste des packs désactivée. $ilogo }
            elseif ($tc($nick,XDCC) != $true) { .msg $nick $c(1) $+ Accès refusé car vous n'êtes pas sur l'un des salons spécifiés. $bracket($iif($r.set(XDCC,Channels) == $null || $r.set(XDCC,Channels) == All,Tous salons où je suis,$r.set(XDCC,Channels))) $ilogo }
            elseif (($calc($ctime - [ %xdcc-ctime [ $+ [ $iNetwork ] ] ] ) <= $r.set(XDCC,Pack.List)) && (%xdcc-ctime [ $+ [ $iNetwork ] ] != $null)) { .msg $nick $c(1) $+ SVP attendez encore $lduration($calc($r.set(XDCC,Pack.List) - ($ctime - [ %xdcc-ctime [ $+ [ $iNetwork ] ] ] ))) avant de redemander le pack XDCC. $ilogo }
            elseif ($isfile(Invision\Settings\ $+ $iSetwork $+ \XDCCList.txt)) { .msg $nick $c(1) $+ Envoi DCC de la liste XDCC.  Pour télécharger un fichier de la liste, tapez /ctcp $me XDCC Send #<numéro de pack> | dcc send $nick Invision\Settings\ $+ $iSetwork $+ \XDCCList.txt }
            else { set -u [ $+ [ $calc($r.set(XDCC,Pack.List) * 2) ] ] %xdcc-ctime [ $+ [ $iNetwork ] ] $ctime | xdcc.ad.temp 1 .msg $nick }
          }
          elseif ($2 == Remove) && $3 == $null {
            if $r.set(DCCmgr,SecondQ) == On {
              if %SessionLevel [ $+ [ $nick ] ] >= $r.set(DCCmgr,SQlevel) {
                if ($Pqueue.nick($nick) == 0) { msg $nick $c(1) $+ Vous n'avez plus rien en attente. }
                else {
                  var %fserve-cq = 0
                  :clr_queue-start-1
                  inc %fserve-cq 1
                  :clr_queue-start-2
                  if ($Pqueue(%fserve-cq) == $null) { unset %fserve-cq | Halt }
                  elseif ($gettok($Pqueue(%fserve-cq),2,32) == $nick) { msg $nick $c(1) $+ J'ôte $c(2) $+ $nopath($gettok($Pqueue(%fserve-cq),5-,32)) $bracket($size($lof($gettok($Pqueue(%fserve-cq),5-,32)))) de votre liste d'attente. | Pqueue.del %fserve-cq | goto clr_queue-start-2 }
                  else { goto clr_queue-start-1 }
                  if $r.set(Fserve,Logging) == On { FSlog $address($nick,5) deleted there queues. }
                }
              }
              else {
                if ($queue.nick($nick) == 0) { msg $nick $c(1) $+ Vous n'avez plus rien en attente. }
                else {
                  var %fserve-cq = 0
                  :clr_queue-start-1
                  inc %fserve-cq 1
                  :clr_queue-start-2
                  if ($queue(%fserve-cq) == $null) { unset %fserve-cq | Halt }
                  elseif ($gettok($queue(%fserve-cq),2,32) == $nick) { msg $nick $c(1) $+ J'ote $c(2) $+ $nopath($gettok($queue(%fserve-cq),5-,32)) $bracket($size($lof($gettok($queue(%fserve-cq),5-,32)))) de votre liste d'attente. | queue.del %fserve-cq | goto clr_queue-start-2 }
                  else { goto clr_queue-start-1 }
                  if $r.set(Fserve,Logging) == On { FSlog $address($nick,5) deleted there queues. }
                }
              }
            }
            else {
              if ($queue.nick($nick) == 0) { msg $nick $c(1) $+ Vous n'avez plus rien en attente. }
              else {
                var %fserve-cq = 0
                :clr_queue-start-1
                inc %fserve-cq 1
                :clr_queue-start-2
                if ($queue(%fserve-cq) == $null) { unset %fserve-cq | Halt }
                elseif ($gettok($queue(%fserve-cq),2,32) == $nick) { msg $nick $c(1) $+ J'ote $c(2) $+ $nopath($gettok($queue(%fserve-cq),5-,32)) $bracket($size($lof($gettok($queue(%fserve-cq),5-,32)))) de votre liste d'attente. | queue.del %fserve-cq | goto clr_queue-start-2 }
                else { goto clr_queue-start-1 }
                if $r.set(Fserve,Logging) == On { FSlog $address($nick,5) deleted there queues. }
              }
            }
            close -m $nick
            halt
          }
          elseif (($2 == Send) || ($2 == Get)) {
            aecho $nick $bracket($address) demande un pack XDCC. $iif($tc($nick,XDCC) != $true,$bracket(reqête rejetée),$iif($3 == $null,$bracket(n/a),$bracket($3)))
            if ($tc($nick,XDCC) != $true) { .notice $nick $c(1) $+ Accès refusé car vous n'êtes pas sur l'un des salons spécifiés. $ilogo }
            else {
              if ($3 == $null) { .notice $nick Syntaxe: Send #<numéro de pack> }
              elseif ($r.xdcc.pack($remove($3,$chr(35)),DL) == $null) { .notice $nick $c(1) $+ Pack inexistant }
              elseif ($isend(0) >= $r.set(XDCC,Max.Sends.Total)) {
                if $r.set(DCCmgr,SecondQ) == On && %curlevel >= $r.set(DCCmgr,SQlevel) { 
                  if ($Pqueue(0) >= $r.set(XDCC,Max.Queues.Total)) { .notice $nick $c(1) $+ Il y a trop d'envois en cours et toutes les files d'attente prioritaires sont utilisées. }
                  elseif ($Pqueue.nick($nick) >= $r.set(XDCC,Max.Queues.Each)) { .notice $nick $c(1) $+ Il y a trop d'envois en cours et toutes vos files d'attente sont utilisées. | halt }
                  else {
                    Pqueue.add XDCC $nick $iif($address($nick,5) != $null,$address($nick,5),$fulladdress) $ctime $r.xdcc.pack($remove($3,$chr(35)),Filename)
                    if ($result isnum) { .notice $nick $c(1) $+ Ce fichier est déjà en file d'attente $chr(35) $+ $result $+ , essayez un autre fichier. }
                    else { .notice $nick $c(1) $+ Mis en queue prioritaire $+ $c(2) $r.xdcc.pack($remove($3,$chr(35)),Desc) $+ $c(1) ( $+ $size($file($r.xdcc.pack($remove($3,$chr(35)),Filename)).size) $+ ).  Il a été mis en queue $chr(35) $+ $Pqueue(0) $+ , Il sera envoyé dès que possible. }
                  }
                }
                else {
                  if ($queue(0) >= $r.set(XDCC,Max.Queues.Total)) { .notice $nick $c(1) $+ Il y a trop d'envois en cours et toutes les files d'attente sont utilisées. }
                  elseif ($queue.nick($nick) >= $r.set(XDCC,Max.Queues.Each)) { .notice $nick $c(1) $+ Il y a trop d'envois en cours et toutes vos files d'attente sont utilisées. | halt }
                  else {
                    queue.add XDCC $nick $iif($address($nick,5) != $null,$address($nick,5),$fulladdress) $ctime $r.xdcc.pack($remove($3,$chr(35)),Filename)
                    if ($result isnum) { .notice $nick $c(1) $+ Ce fichier est déjà en file d'attente $chr(35) $+ $result $+ , essayez un autre fichier. }
                    else { .notice $nick $c(1) $+ Mis en queue $+ $c(2) $r.xdcc.pack($remove($3,$chr(35)),Desc) $+ $c(1) ( $+ $size($file($r.xdcc.pack($remove($3,$chr(35)),Filename)).size) $+ ).  Il a été mis en queue $chr(35) $+ $queue(0) $+ , Il sera envoyé dès que possible. }
                  }
                }
              }
              elseif ($send.nick($nick) >= $r.set(XDCC,Max.Sends.Each)) {
                if $r.set(DCCmgr,SecondQ) == On && %curlevel >= $r.set(DCCmgr,SQlevel) {
                  if ($Pqueue(0) >= $r.set(XDCC,Max.Queues.Total)) { .notice $nick $c(1) $+ Vous avez trop de transferts en cours et toutes les files d'attente prioritaires sont utilisées. }
                  elseif ($Pqueue.nick($nick) >= $r.set(XDCC,Max.Queues.Each)) { .notice $nick $c(1) $+ Désolé, Vous avez trop de transferts en cours et toutes vos files d'attente sont utilisées. Si vous voulez en télécharger un autre attendez qu'un finisse pour renvoyer la demande. }
                  else {
                    Pqueue.add XDCC $nick $iif($address($nick,5) != $null,$address($nick,5),$fulladdress) $ctime $r.xdcc.pack($remove($3,$chr(35)),Filename)
                    if ($result isnum) { .notice $nick $c(1) $+ Ce fichier est déjà en file d'attente $chr(35) $+ $result $+ , essayez un autre fichier. }
                    else { .notice $nick $c(1) $+ Mise en file d'attente prioritaire de $+ $c(2) $r.xdcc.pack($remove($3,$chr(35)),Desc) $+ $c(1) ( $+ $size($file($r.xdcc.pack($remove($3,$chr(35)),Filename)).size) $+ ).  Il a été mis en queue $chr(35) $+ $Pqueue(0) $+ , Il sera envoyé dès que possible. }
                  }
                }
                else {
                  if ($queue(0) >= $r.set(XDCC,Max.Queues.Total)) { .notice $nick $c(1) $+ Vous avez trop de transferts en cours et toutes les files d'attente sont utilisées. }
                  elseif ($queue.nick($nick) >= $r.set(XDCC,Max.Queues.Each)) { .notice $nick $c(1) $+ Désolé, Vous avez trop de transferts en cours et toutes vos files d'attente sont utilisées.  Si vous voulez en télécharger un autre attendez qu'un finisse pour renvoyer la demande. }
                  else {
                    queue.add XDCC $nick $iif($address($nick,5) != $null,$address($nick,5),$fulladdress) $ctime $r.xdcc.pack($remove($3,$chr(35)),Filename)
                    if ($result isnum) { .notice $nick $c(1) $+ Ce fichier est déjà en file d'attente $chr(35) $+ $result $+ , essayez un autre fichier. }
                    else { .notice $nick $c(1) $+ Mise en file d'attente de $+ $c(2) $r.xdcc.pack($remove($3,$chr(35)),Desc) $+ $c(1) ( $+ $size($file($r.xdcc.pack($remove($3,$chr(35)),Filename)).size) $+ ).  Il a été mis en queue $chr(35) $+ $queue(0) $+ , Il sera envoyé dès que possible. }
                  }
                }
              }
              else { .dcc send -l $nick " $+ [ $r.xdcc.pack($remove($3,$chr(35)),Filename) ] $+ " | .notice $nick $c(1) $+ Envoi de $c(2) $+ $r.xdcc.pack($remove($3,$chr(35)),Desc) $+ $c(1) ( $+ $size($file($r.xdcc.pack($remove($3,$chr(35)),Filename)).size) $+ ).  Ce fichier a été téléchargé $c(2) $+ $r.xdcc.pack($remove($3,$chr(35)),DL) $+ $c(1) fois. }
            }
          }
          else { .msg $nick Commande non reconnue  $2 $+ .  Tapez "/msg $me XDCC Help" pour l'aide. }
        }
        .timer 1 0 close -m $nick
        halt
      }
    }
    if ($r.set(mp3serv,Status) == On) && ($r.set(mp3serv,Listen) == On) && ($r.set(mp3serv,Pause) != On) {
      if ($strip($1-,burc) ==  @ [ $+ [ $me ] ] ) && ($r.set(mp3serv,SendList) == On) && (%mp3ReqFlag [ $+ [ %curNetwork ] ] != 1) { .timer -o 1 8 unset %mp3ReqFlag [ $+ [ %curNetwork ] ] | set %mp3ReqFlag [ $+ [ %curNetwork ] ] 1 | mp3servLIST $nick | close -m $nick | halt }
      if ((($strip($1,burc) == ! [ $+ [ $me ] ] ) && ($r.set(mp3serv,UseNickTrigger) == On)) || (($strip($1,burc) == $strip($r.set(mp3serv,Trigger),burc)) && ($r.set(mp3serv,UseNickTrigger) != On))) && (%mp3ReqFlag [ $+ [ %curNetwork ] ] != 1) && ($2 != $null) {
        .timer -o 1 3 unset %mp3ReqFlag [ $+ [ %curNetwork ] ]
        set %mp3ReqFlag [ $+ [ %curNetwork ] ] 1
        close -m $nick        
        if ($strip($2-,burc) == List) && ($r.set(mp3serv,SendList) == On) { mp3servLIST $nick | halt }
        if ($strip($2-,burc) == Queues) { mp3servQueues $nick | halt }
        if ($strip($2-,burc) == Clear All) { mp3servClearAll $nick | halt } 
        if ($strip($2,burc) == Clear) && ($strip($3,burc) isnum 1- 999) && ($strip($4,burc) == $null) { mp3servClearOne $nick $strip($3,burc) | halt }
        if ($strip($2-,burc) == mp3Help) { mp3servHELP $nick | halt }
        set %newtwo $replace($2-,$chr(44),$chr(42),$chr(40),*,$chr(41),*)
        if $istok($r.set(mp3serv,FileTypes),$right($strip(%newtwo,burc),4),44) {
          ;  set %mp3tosend $hget(mp3list [ $+ [ %curNetwork ] ] ,$hmatch(mp3list [ $+ [ %curNetwork ] ] , [ *:*\ [ $+ [ $strip(%newtwo,burc) ] ] ] ,1).data)
          if $hget(mp3list [ $+ [ %curNetwork ] ] ,$hmatch(mp3list [ $+ [ %curNetwork ] ] , [ *:*\ [ $+ [ $strip(%newtwo,burc) ] ] ] ,1).data) == $null { .notice $nick $c(1) $+ Sorry $c(2) $+ $nick $+ $c(1) $+ , but $c(2) $+ $2- $c(1) $+ was not found. Be sure you have spelled it correctly. | halt }
          if $exists($hget(mp3list [ $+ [ %curNetwork ] ] ,$hmatch(mp3list [ $+ [ %curNetwork ] ] , [ *:*\ [ $+ [ $strip(%newtwo,burc) ] ] ] ,1).data)) {
            if ($isend(0) >= $r.set(mp3serv,Max.Sends.Total)) {
              if ($queue(0) >= $r.set(mp3serv,Max.Queues.Total)) { .notice $nick $c(1) $+ Désolé vous avez trop de transferts en cours et toutes les files d'attente sont utilisées. | Halt }
              elseif ($queue.nick($nick) >= $r.set(Fserve,Max.Queues.Each)) { .notice $nick $c(1) $+ Désolé vous avez trop de transferts en cours et toutes vos files d'attente sont utilisées. | Halt }
              elseif ($r.set(mp3serv,CloneGuard) == On) && ($cloneQchk($nick) == $true) { .notice $nick $c(2) $+ CloneGuard $c(1) $+ a détecté que vous avez des fichiers en attente sous un autre pseudo. Le téléchargement a partir des clones est interdit. | Secho CloneGuard actif sur $nick | Halt }
              else {
                queue.add mp3serv $nick $iif($address($nick,5) != $null,$address($nick,5),$nick) $ctime $hget(mp3list [ $+ [ %curNetwork ] ] ,$hmatch(mp3list [ $+ [ %curNetwork ] ] , [ *:*\ [ $+ [ $strip(%newtwo,burc) ] ] ] ,1).data)
                if ($result isnum) { .notice $nick $c(1) $+ Ce fichier est déjà en file d'attente pour vous. }
                else { .notice $nick $c(1) $+ Mise en file d'attente de $+ $c(2) $nopath($hget(mp3list [ $+ [ %curNetwork ] ] ,$hmatch(mp3list [ $+ [ %curNetwork ] ] , [ *:*\ [ $+ [ $strip(%newtwo,burc) ] ] ] ,1).data)) $bracket($size($file($hget(mp3list [ $+ [ %curNetwork ] ] ,$hmatch(mp3list [ $+ [ %curNetwork ] ] , [ *:*\ [ $+ [ $strip(%newtwo,burc) ] ] ] ,1).data)).size)) $+ .  Il a été mis en file d'attente $chr(35) $+ $queue(0) $+ , sera envoyé dès que possible. }
              }
            }
            elseif ($send.nick($nick) >= $r.set(mp3serv,Max.Sends.Each)) {
              if ($queue(0) >= $r.set(mp3serv,Max.Queues.Total)) { .notice $nick $c(1) $+ Désolé vous avez trop de transferts en cours et toutes les files d'attente sont utilisées. | Halt }
              elseif ($queue.nick($nick) >= $r.set(Fserve,Max.Queues.Each)) { .notice $nick $c(1) $+ Vous avez trop de transferts en cours et toutes vos files d'attente sont utilisées. | Halt }
              elseif ($r.set(mp3serv,CloneGuard) == On) && ($cloneQchk($nick) == $true) { .notice $nick $c(2) $+ CloneGuard $c(1) $+ a détecté que vous avez des fichiers en attente sous un autre pseudo. Le téléchargement a partir des clones est interdit. | Secho CloneGuard actif sur $nick | Halt }
              else {
                queue.add mp3serv $nick $iif($address($nick,5) != $null,$address($nick,5),$nick) $ctime $hget(mp3list [ $+ [ %curNetwork ] ] ,$hmatch(mp3list [ $+ [ %curNetwork ] ] , [ *:*\ [ $+ [ $strip($2-,burc) ] ] ] ,1).data)
                if ($result isnum) { .notice $nick $c(1) $+ Ce fichier est déjà en file d'attente pour vous. }
                else { .notice $nick $c(1) $+ Queuing $+ $c(2) $nopath($hget(mp3list [ $+ [ %curNetwork ] ] ,$hmatch(mp3list [ $+ [ %curNetwork ] ] , [ *:*\ [ $+ [ $strip(%newtwo,burc) ] ] ] ,1).data)) $bracket($size($file($hget(mp3list [ $+ [ %curNetwork ] ] ,$hmatch(mp3list [ $+ [ %curNetwork ] ] , [ *:*\ [ $+ [ $strip(%newtwo,burc) ] ] ] ,1).data)).size)) $+ .  Il a été mis en file d'attente $chr(35) $+ $queue(0) $+ , sera envoyé dès que possible. }
              }
            }
            else {
              .idcc send -c $+ $iif($r.glob(DCCmgr,SendBW) != 0,l) $nick " $+ $hget(mp3list [ $+ [ %curNetwork ] ] ,$hmatch(mp3list [ $+ [ %curNetwork ] ] , [ *:* [ $+ [ $strip(%newtwo,burc) ] ] ] ,1).data) $+ " | if ($r.set(Invision,SndOpt17) == On) { SoundQ $shortfn($mircdir) $+ $r.glob(Themes,Sound18) } 
            }
          }
          else {
            .notice $nick $c(1) $+ Désolé $c(2) $+ $nick $+ $c(1) $+ , mais $c(2) $+ $2- $c(1) $+ est actuellement indisponible. 
            halt 
          }
        }
      }
    }
    if (($away == $true) && ($r.set(Away,Auto.Reply) == On) && ($nick != $me) && ($gnick($nick) == $true) && ($1 != XDCC) && (%idle. [ $+ [ $nick ] ] [ $+ [ $iNetwork ] ] == $null) && ($idle >= 60)) { .msg $nick $C(1) $+ AFK, $away.reason $c(2) $+ Parti depuis $away.time. $away.pager $ilogo | set %idle. [ $+ [ $nick ] ] [ $+ [ $iNetwork ] ] 1 | .timer 1 300 unset %idle. [ $+ [ $nick ] ] [ $+ [ $iNetwork ] ] }    
    if (($away == $true) && ($r.set(Away,Tooltip.Away) == On)) { noop $tip(AwayMsg,Message de $nick,$iif($1 == $null,<none>,$1-),$null,$readini($mircini,files,trayicon),1,window -a $nick,$null) } 
  }
  if $left($1,3) == §€¥ { 
    if $r.set(Invision,Decrypt) == On { 
      set -u0 %rtndc $decrypt($1-) 
      if %rtndc == §§§ { 
        echo $nick $c(2) $+ Votre clé n'est pas celle utilisée pour crypter. $bracket(Decryptage échoué) 
      } 
      else { echo $nick $c(1) $+ DECRYPTE: $c(1) $+ < $+ $c(2) $+ $nick $+ $c(1) $+ >  $+ $decrypt($1-) } 
      halt
    } 
  }
  if $left($1,3) == §Å¥ { 
    if $r.set(Invision,Decrypt) == On { 
      echo $nick $ts $c(1) $+ DECRYPTE: $c(1) $+ < $+ $c(2) $+ $nick $+ $c(1) $+ >  $+ $decrypt2($1-) 
      halt
    } 
  }
  if $left($1,3) == ] {
    if $2 != $null && $r.set(Invision,Decrypt) == On {
      crypt 1 $r.set(Invision,CryptKey) $2-
      echo $nick $c(1) $+ < $+  $+ $nick - $c(2) $+ ircN Decrypt $+ $c(1) $+ >  $+ $result
      halt
    }
  }
  if ($1- == !Queues) && %prvQueuesFlag [ $+ [ $iNetwork ] ] != 1 {
    .timer -o 1 10 unset %prvQueuesFlag [ $+ [ $iNetwork ] ]
    set %prvQueuesFlag [ $+ [ $iNetwork ] ] 1
    if $r.set(DCCmgr,SecondQ) == On && %curlevel >= $r.set(DCCmgr,SQlevel) { 
      if ($Pqueue(0) == 0) { .msg $nick $ilogo $c(1) $+ toutes les files d'attente prioritaires sont disponibles. $iif($queue(0) >= 1,Il y a $queue(0) files d'attente normales.) }
      else {
        if ($Pqueue(0) == 1) { .msg $nick $ilogo $c(1) $+ une seule file d'attente en cours. }
        elseif ($Pqueue(0) > 1) { .msg $nick $ilogo $c(1) $+ Il y a $Pqueue(0) files d'attente. L'attente est de $queuetime }
        var %fserve-q = 0
        :queuestart
        inc %fserve-q 1
        if ($Pqueue(%fserve-q) == $null) { unset %fserve-q }
        else { .timer 1 $calc(%fserve-q * 1) .msg $nick $c(2) $+ File d'attente $chr(35) $+ %fserve-q $C(1) $+ de $c(2) $+ $iif(($r.set(DCCmgr,CloakNicks) != On || $nick == $gettok($Pqueue(%fserve-q),2,32)),$gettok($Pqueue(%fserve-q),2,32),Cloaked User) $+ $c(1) is queued for file $c(2) $+ $nopath($gettok($Pqueue(%fserve-q),5-,32)) $bracket($size($lof($gettok($Pqueue(%fserve-q),5-,32)))) utilisant $c(2) $+ $gettok($Pqueue(%fserve-q),1,32) $+ $c(1) $+ . | goto queuestart }
      }
    }
    else {
      if ($queue(0) == 0) { .msg $nick $ilogo $c(1) $+ Toutes files d'attentes disponibles. }
      else {
        if ($queue(0) == 1) { .msg $nick $ilogo $c(1) $+ une seule file d'attente en cours. }
        elseif ($queue(0) > 1) { .msg $nick $ilogo $c(1) $+ Il y a  $queue(0) files d'attente. L'attente est de $queuetime }
        var %fserve-q = 0
        :queuestart
        inc %fserve-q 1
        if ($queue(%fserve-q) == $null) { unset %fserve-q }
        else { .timer 1 $calc(%fserve-q * 1) .msg $nick $c(2) $+ File d'attente $chr(35) $+ %fserve-q $c(1) $+ de $c(2) $+ $iif(($r.set(DCCmgr,CloakNicks) != On || $nick == $gettok($queue(%fserve-q),2,32)),$gettok($queue(%fserve-q),2,32),Cloaked User) $+ $c(1) est en attente du fichier $c(2) $+ $nopath($gettok($queue(%fserve-q),5-,32)) $bracket($size($lof($gettok($queue(%fserve-q),5-,32)))) utilisant $c(2) $+ $gettok($queue(%fserve-q),1,32) $+ $c(1) $+ . | goto queuestart }
      }
    }
    close -m $nick
    halt
  }
  if ($1- == !sends) && %prvQueuesFlag [ $+ [ $iNetwork ] ] != 1 {
    .timer -o 1 10 unset %prvQueuesFlag [ $+ [ $iNetwork ] ]
    set %prvQueuesFlag [ $+ [ $iNetwork ] ] 1
    if ($isend(0) == 0) { 
      .msg $nick $c(1) $+ Pas d'envoi en cours.  $+ $ilogo 
      return 
    } 
    elseif ($isend(0) == 1) { 
      .msg $nick $c(1) $+ 1 envoi en cours.  $+ $ilogo 
    } 
    elseif ($isend(0) > 1) { 
      .msg $nick $c(1) $+ $isend(0) envois en cours.  $+ $ilogo 
    } 
    var %sends = 0 
    :sendstart 
    inc %sends 1 
    if ($isend(%sends) == $null) { 
      unset %sends 
      close -m $nick
      halt 
    } 
    .msg $nick $c(1) $+ Send $chr(35) $+ %sends $+ :  $c(2) $+ $iif(($r.set(DCCmgr,CloakNicks) != On || $nick == $isend(%sends)),$isend(%sends),Cloaked User) $c(1) $+ a $c(2) $+ $isend(%sends).pc $+ % $c(1) $+ sur $+ $c(2) $isend(%sends).file $c(1) $+ $bracket($size($isend(%sends).size)) a $+ $c(2) $ratefix($isend(%sends).cps) $c(1) $+ $bracket( [ Approximativement $lduration($round($calc(($isend(%sends).size - $isend(%sends).sent) / $isend(%sends).cps),0)) restant ] ) 
    goto sendstart 
    close -m $nick
    halt
  }
  if ($hget(SpamSafe,$nick) != 1) && ($gnick($nick)) {
    if $r.set(Invision,SpamFilter) == On && %curlevel <= 14 { 
      var %list = $r.set(Invision,SpamList)
      var %num = $numtok(%list,44)
      var %ct = 1
      while (%ct <= %num) {
        if ($gettok(%list,%ct,44) isin $strip($1-,burc)) && (queue !isin $strip($1-,burc)) { close -m $nick | .ignore -pntidu15 $nick | .msg $nick Votre message a été bloqué sur 04détection spam. $ilogo | .msg $nick $c(2) $+ essaye encore... $c(1) $+ $read($shortfn($mircdir) $+ Text\mama.txt) | aecho Boqué sur spam /msg de $c(2) $+ $nick | Halt }
        inc %ct 1
      }
    }
  }
  if $r.set(Invision,SndOpt35) == On { if $active != $nick { SoundQ $shortfn($mircdir) $+ $r.glob(Themes,Sound45) } } 
  if $active != $nick { .beep }
  if $dqwin || ($away == $true && $r.set(Away,Msglogger) == On) {
    if  ($away == $true && $r.set(Away,Msglogger) == On) {
      if ($window(Message Window) != $null) && ($1- != $null) { echo -d $ts $c(1) $+ < $+ $nick $+ $c(1) $+ > $clradj($1-) | close -m $nick | Halt }
      else { dqwindow show | echo -dmbfh $ts $c(1) $+ < $+ $modepre(q,$nick) $+ $c(1) $+ > $clrdj($1-) | close -m $nick | Halt }
    } 
    else { return }
  }
  if ($r.set(Invision,Visufix) == On) { echo -mbfh $nick $ts < $+ $modepre(q,$nick) $+ > $visufix($1-) | Halt }
}
on &^*:text:*:#:{
  var %fulladdress = $fulladdress
  var %curNetwork = $iNetwork
  flud text %fulladdress
  mflud text $chan
  if ($r.set(Auto.ID,Status) == On) && ($nick == NickServ) {
    if (This nick* iswm $1-) {
      if (($me == $r.set(Auto.ID,Nick.1)) && ($r.set(Auto.ID,Pass.1) != $null)) { %Nserv [ $+ [ %curNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.1) }
      elseif (($me == $r.set(Auto.ID,Nick.2)) && ($r.set(Auto.ID,Pass.2) != $null)) { %Nserv [ $+ [ %curNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.2) }
      elseif (($me == $r.set(Auto.ID,Nick.3)) && ($r.set(Auto.ID,Pass.3) != $null)) { %Nserv [ $+ [ %curNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.3) }
      elseif (($me == $r.set(Auto.ID,Nick.4)) && ($r.set(Auto.ID,Pass.4) != $null)) { %Nserv [ $+ [ %curNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.4) }
      elseif (($me == $r.set(Auto.ID,Nick.5)) && ($r.set(Auto.ID,Pass.5) != $null)) { %Nserv [ $+ [ %curNetwork ] ] IDENTIFY $r.set(Auto.ID,Pass.5) }
      elseif (($me ison $active) || ($query($active) != $null)) { editbox -ap / $+ %Nserv [ $+ [ %curNetwork ] ] IDENTIFY }
      else { editbox -sp / $+ %Nserv [ $+ [ %curNetwork ] ] IDENTIFY }
      halt
    }
  }
  if ($r.set(Auto.Pinger,Status) == On) {
    if ((Ping me == $1-) || ($1 == !ping)) && (%pingFLag [ $+ [ %curNetwork ] ] != 1) { 
      .timer -o 1 10 unset %pingFLag [ $+ [ %curNetwork ] ]
      set %pingFLag [ $+ [ %curNetwork ] ] 1
      .ctcp $nick ping 
    }
  }
  if ($r.glob(Messenger,Status) == On) {
    if ($r.glob(Messenger,Mode) == Text) {
      if ($CheckPending($fulladdress)) {
        if (%Messenger [ $+ [ $nick ] ] != 1) {
          .msg $nick $c(1) $+J'ai $c(2) $+ $messagect($fulladdress) $c(1) $+ message(s) en attente pour vous. SVP repondez moi, tapez $c(2) $+ !getmsg $c(1) $+ pour le recevoir. $ilogo 
          .timer -o 1 7200 unset %Messenger $+ $nick
          set %Messenger [ $+ [ $nick ] ] 1
        }
      }
    }
  }
  if ($r.set(Invision,Seen) == On) {
    if ($nick ishop $chan) || ($nick isvo $chan) || ($nick isop $chan) || ($level($fulladdress) >= 15) || ($r.set(Invision,SeenTrack) != Friends) {
      if $strip($1,burc) == !Seen && ($len($2) >= 3) {
        iseen 1 $chan $nick $2
      }
    }
  }
  if ($r.set(Invision,Decrypt) == On) {
    if ($left($1,3) == §€¥) { 
      set -u0 %rtndc $decrypt($1-) 
      if (%rtndc == §§§) { 
        echo $chan $ts $c(2) $+ Votre clé n'est pas celle qui a servi à crypter. $bracket(Decryptage échoué) 
      } 
      else { echo $chan $c(1) $+ DECRYPTE: $c(1) $+ < $+ $c(2) $+ $nick $+ $c(1) $+ >  $+ $decrypt($1-) | Halt } 
    }
    elseif ($left($1,3) == §Å¥) { 
      echo $chan $ts $c(1) $+ DECRYPTE: $c(1) $+ < $+ $c(2) $+ $nick $+ $c(1) $+ >  $+ $decrypt2($1-) 
      halt 
    }
    elseif ($left($1,3) == ]) {
      if ($2 != $null) {
        crypt 1 $r.set(Invision,CryptKey) $2-
        echo $chan $ts $c(1) $+ < $+  $+ $nick - $c(2) $+ ircN Decrypt $+ $c(1) $+ >  $+ $result
        halt 
      }
    }
  }
}
on *:action:*:#:{ 
  var %fulladdress = $fulladdress
  var %curNetwork = $iNetwork
  flud Text %fulladdress
  var %ct = 1
  while (%ct <= 9) {
    if $r.set(Customs,WWATCH [ $+ [ %ct ] ] [ $+ [ .desc ] ] ) iswm $strip($1-,burc) {
      if ($istok($r.set(Customs,WWATCH [ $+ [ %ct ] ] [ $+ [ .chan ] ] ),$chan,32) == $true) || ($r.set(Customs,WWATCH [ $+ [ %ct ] ] [ $+ [ .chan ] ] ) == All) {
        if (Request isin $strip($1-,burc)) && ($r.set(Customs,WWreq. [ $+ [ %ct ] ] ) == On) { goto leave }
        if ($nick isop $chan) && ($r.set(Customs,WWops. [ $+ [ %ct ] ] ) == On) { goto leave }
        if ($nick isvo $chan) && ($r.set(Customs,WWvos. [ $+ [ %ct ] ] ) == On) { goto leave }
        if %WWflag [ $+ [ %curNetwork ] ] != 1 && $r.set(Customs,WWATCH [ $+ [ %ct ] ] [ $+ [ .msg ] ] ) != $null { 
          if $r.set(Customs,WWusemsg [ $+ [ %ct ] ] ) == On { msg $chan $c(2) $+ [ [ $r.set(Customs,WWATCH [ $+ [ %ct ] ] [ $+ [ .msg ] ] ) ] ] }
          if $r.set(Customs,WWusenot [ $+ [ %ct ] ] ) == On { notice $nick $c(2) $+ [ [ $r.set(Customs,WWATCH [ $+ [ %ct ] ] [ $+ [ .msg ] ] ) ] ] }
        }
      set %WWflag [ $+ [ %curNetwork ] ] 1 | .timerStopWW $+ %curNetwork -o 1 $r.set(Invision,WWtime) set %WWflag [ $+ [ %curNetwork ] ] 0 | if (($r.set(Customs,WWkick. [ $+ [ %ct ] ] ) == On) || ($r.set(customs,WWban. [ $+ [ %ct ] ] ) == On)) && ($me isop $chan) { if $r.set(Customs,WWban. [ $+ [ %ct ] ] ) == On { .timer -o 1 $calc(%defban * 60) mode $chan -b $address($nick,$r.glob(Invision,DefaultBan)) | mode $chan +b $address($nick,$r.glob(Invision,DefaultBan)) } | kick $chan $nick  $+ $rkick $+  ( $+ $ilogo(X) } }
    }
    :leave
    inc %ct 1 
  }
  if (pimp slaps $me isin $1-) { SoundQ $shortfn($mircdir) $+ SoundFX\SndFiles\pimpslap.wav | set %xtrawav [ $+ [ %curNetwork ] ] 1 | .timer -o 1 10 unset %xtrawav [ $+ [ %curNetwork ] ] }
}
on *:notice:*:#:{ 
  var %fulladdress = $fulladdress
  var %curNetwork = $iNetwork
  flud Notice %fulladdress
  mflud notice $chan
  var %ct = 1
  while (%ct <= 9) {
    if $r.set(Customs,WWATCH [ $+ [ %ct ] ] [ $+ [ .desc ] ] ) iswm $strip($1-,burc) {
      if ($istok($r.set(Customs,WWATCH [ $+ [ %ct ] ] [ $+ [ .chan ] ] ),$chan,32) == $true) || ($r.set(Customs,WWATCH [ $+ [ %ct ] ] [ $+ [ .chan ] ] ) == All) {
        if (Request isin $strip($1-,burc)) && ($r.set(Customs,WWreq. [ $+ [ %ct ] ] ) == On) { goto leave }
        if ($nick isop $chan) && ($r.set(Customs,WWops. [ $+ [ %ct ] ] ) == On) { goto leave }
        if ($nick isvo $chan) && ($r.set(Customs,WWvos. [ $+ [ %ct ] ] ) == On) { goto leave }
        if %WWflag [ $+ [ %curNetwork ] ] != 1 && $r.set(Customs,WWATCH [ $+ [ %ct ] ] [ $+ [ .msg ] ] ) != $null { 
          if $r.set(Customs,WWusemsg [ $+ [ %ct ] ] ) == On { msg $chan $c(2) $+ [ [ $r.set(Customs,WWATCH [ $+ [ %ct ] ] [ $+ [ .msg ] ] ) ] ] }
          if $r.set(Customs,WWusenot [ $+ [ %ct ] ] ) == On { notice $nick $c(2) $+ [ [ $r.set(Customs,WWATCH [ $+ [ %ct ] ] [ $+ [ .msg ] ] ) ] ] }
        }
      set %WWflag [ $+ [ %curNetwork ] ] 1 | .timerStopWW $+ %curNetwork -o 1 $r.set(Invision,WWtime) set %WWflag [ $+ [ %curNetwork ] ] 0 | if (($r.set(Customs,WWkick. [ $+ [ %ct ] ] ) == On || $r.set(customs,WWban. [ $+ [ %ct ] ] ) == On)) && ($me isop $chan) { if $r.set(Customs,WWban. [ $+ [ %ct ] ] ) == On { .timer -o 1 $calc(%defban * 60) mode $chan -b $address($nick,$r.glob(Invision,DefaultBan)) | mode $chan +b $address($nick,$r.glob(Invision,DefaultBan)) } | kick $chan $nick  $+ $rkick $+  ( $+ $ilogo(X) } }
    }
    :leave
    inc %ct 1 
  }
}
