dialog Dialaide { title "Aide" size -1 -1 145 57 option dbu icon 1, 2 15 30 30, icones\info.ico,0, text "texte", 2, 25 3 120 55 button "fermer", 3, 1 45 22 12, ok } alias infico { return 6,6•0,6Info6,6• } ;##########-Bouton H on *:ACTIVE:@Highlights: { if !$toolbar(H) { toolbar -d 14 | toolbar -i 14 H "Highlights" icones/letterHblack.ico /hbutton } } on *:TEXT:*:*:{ if $me isin $strip($1-) { if %hlsalon { echo $iif($chan($chan).wid != $chan($active).wid && $active != $nick,-sa,-s) 2*** Highlight ***10 $serv $+(,$nick,) 14 a prononcé ton pseudo sur $iif($chan,sur 10 $chan,en privé) | echo $iif($chan($chan).wid != $chan($active).wid && $active != $nick,-sa,-s) 2*** Highlight *** 1 $1- } if %hlflash { flash [Highlight $iif($chan,$chan,$nick) $+ $chr(93) } if ($active != @highlights && !$toolbar(H14)) { toolbar -d 14 | toolbar -i 14 H2 "Highlights" icones/letterHgold.ico /hbutton } if !$window(@Highlights) { window -nvk0z @Highlights aline -p @Highlights 2 ************ Fenêtre Highlight ouverte le $dt2 ************ aline -p @Highlights $chr(160) aline -p @Highlights $chr(160) } aline -p @Highlights $timestamp 2 $serv ** Highlight de $+(,$nick,) ** 14 sur $iif$+ $iif($target != $me,#,Privé) =>  $1- } halt } on *:ACTION:*:*:{ if $me isin $strip($1-) { if %hlsalon { echo $iif($chan($chan).wid != $chan($active).wid && $active != $nick,-sa,-s) $+($timestamp) 2 ** Highlight ** 10 $serv $+(,$nick,) 14 a prononcé ton pseudo sur $iif($chan,sur 10 $chan,en privé) | echo $iif($chan($chan).wid != $chan($active).wid && $active != $nick,-sa,-s) $+($timestamp) 2 ** Highlight ** 1 $1- } if %hlflash { flash [Highlight $iif($chan,$chan,$nick) $+ $chr(93) } if $active != @highlights { toolbar -d 14 | toolbar -i 14 H2 "Highlights" icones/letterHgold.ico /hbutton } if !$window(@Highlights) { window -nvk0z @Highlights aline -p @Highlights 2 ************ Fenêtre Highlight ouverte le $dt2 ************ aline -p @Highlights $chr(160) aline -p @Highlights $chr(160) } aline -p @Highlights $timestamp 2 $serv ** Highlight de $+(,$nick,) ** 14 sur $iif$+ $iif($target != $me,#,Privé) =>  $1- haltdef } haltdef } on ^*:USERMODE:{ echo $iif($active != Status Window && $active != channels list,-sa,-s) $timestamp $serv 2 ** changement de mode ** 14 tu as changé tes modes d'utiliateur par : $1- halt } on ^*:VOICE:#:{ echo # 2[Voice]3 $nick a mis le mode +v à $vnick HALTDEF } on ^*:DEVOICE:#:{ echo # 2[Devoice] 3 $nick a mis le mode -v à $vnick HALTDEF } on ^*:OP:#:{ echo # 2[Op] 12 $nick a mis le mode +o à $opnick HALTDEF } on ^*:HALFOP:#:{ echo # 2[Halfop] 12 $nick a mis le mode +h à $opnick HALTDEF } on ^*:DEOP:#:{ echo # 2[Deop] 12 $nick a mis le mode -o à $opnick HALTDEF } on ^*:KICK:#:{ echo # 2** kick ** 4 $knick vient de se faire kicker du salon par $nick => $iif($1-,$1-,Sans Raison Précisée) HALTDEF } on ^*:BAN:#:{ echo # 2** Ban ** 4 $ialchan($banmask,#,1).nick vient de se faire bannir du salon par $nick / Banmask : $banmask HALTDEF } on ^*:UNBAN:#:{ echo # 2** Deban ** $nick vient de débannir le mask suivant: $banmask haltdef } on ^*:MODE:#:{ echo # 2[Changement de mode] 10 $nick 14 a changé le mode de $chan par : 10 $1- haltdef } on ^H:MODE:#:{ echo # 2[Changement de mode] 10 $nick 14 a changé le mode de $chan par : 10 $1- haltdef } ;##########-Bouton N on *:ACTIVE:@Notices: { if !$toolbar(N) { toolbar -d 15 | toolbar -i 15 N "Notices" icones/letterNblack.ico /nbutton } } on ^*:NOTICE:*:*:{ if ($active != channels list) { echo -a 2[Notice de $+(,$serv) $nick ]  $1- } if ($active != @notices && !$toolbar(N2)) { toolbar -d 15 | toolbar -i 15 N2 "notices" icones/letterNblue.ico /nbutton } if !$window(@Notices) { window -nvk0z @Notices aline -p @Notices $str($chr(160),50) 2 ************ Fenêtre des Notices ouverte le $dt2 ************ aline -p @Notices $chr(160) aline -p @Notices $chr(160) } aline -p @Notices $timestamp $serv - 10[Notice de $+(,$nick,) ] $1- halt } ;##########-Autres event on ^*:NICK:{ .who $newnick var %niall = $comchan($newnick,0),%ni = 1 while %ni <= %niall { echo 2 $comchan($newnick,%ni) 2[Changement de pseudo] 2 $nick 14 a changé son pseudo pour 2 $newnick 14 à $time | haltdef inc %ni } if $query($newnick) { echo 2 -n $query($newnick) 2[Changement de pseudo] 2 $nick 14 a changé son pseudo pour 2 $newnick 14 à $time | haltdef } if $nick == $me { echo 2 2[Changement de pseudo] 14Ton pseudo devient : 2 $newnick 14 à $time | haltdef } } ;###########~Privés~########## On 1:OPEN:?:{ if %pvhl { echo 10 -as $serv 2 ~~ [Privé de $nick ] - 1 $1- } if %pvflash { flash [Privé - $nick $+ $chr(93) } halt } ;##########~Join~########## raw 331:*:{ echo $2 2[Topic]  Pas de topic sur $2 | haltdef } raw 332:*:{ echo $2 2[Topic]  $3- | haltdef } raw 333:*:{ echo $2 2[Topic] 14 mit par 10 $3 14 le $jour-w($4) $asctime($4,dd) $mois-w($4) $asctime($4,yyyy) à $asctime($4,HH:nn:ss) | haltdef } raw 324:*:{ echo $2 2[Mode] 14 sur $2 : 10 $3 | haltdef } on ^*:JOIN:#:{ if $nick == $me { echo $chan  echo $chan 4[ $nb-jour $date(dd) $nb-mois $mois $date(yyyy) - $time(HH) $+ h $+ $time(nn) ] echo $chan  echo $chan 2[Join]  Tu arrives sur $chan .who # halt } else { if %jo { inc -u3 %Flood-join 1 if ($eval(%Flood-join,2) >= 15) { halt } else { .who $nick echo $chan 3* $nick 14 vient d'entrer sur le salon $+($chr(91),$address,$chr(93)) if $query($nick) { echo 3 -n $query($nick) 3 $nick $+($chr(91),$address,$chr(93)) est entré(e) sur # . } } } halt } } ;##########~Topic~########## on ^*:TOPIC:#:{ echo $chan 2[Changement de Topic] 10 $nick 14 change le topic du salon par :  $1- | halt } ;##########~Part~########## on ^*:PART:#:{ if $nick == $me { echo 5 -s $timestamp => Tu pars de $chan } if %kit { echo $chan 5* $nick 14 vient de sortir du salon $+($chr(91),$address,$chr(93)) if $query($nick) { echo -n $query($nick) 5* $nick 14 est parti(e) de $chan } } halt } ;##########~Quit~########## on ^*:QUIT:{ if %kit { var %squitall = $comchan($nick,0),%squit = 1 while %squit <= %squitall { echo $comchan($nick,%squit) 5* $nick 14 vient de quitter l'IRC $+($chr(91),$address,$chr(93)) : $1- $+ . $suser($comchan($nick,%squit)).n inc %squit } if $query($nick) { echo $query($nick) 5* $nick 14 vient de quitter l'IRC $+($chr(91),$address,$chr(93)) $1- $+ . } } .cnick -r $nick halt } ;##########~Invite~########## on ^*:INVITE:#:{ inc -u6 %Flood-invite 1 if ($eval(%Flood-invite,2) >= 3) { .ignore -iu10 *!*@* | echo -as $+ $timestamp 2[Flood d'invitation] 10 Flood d'invite détecté ! Les invitations seront ignorées pendant 10 secondes. | halt } echo -as $serv 2[Invitation sur un salon] 10 $nick 14 t'invite à rejoindre le salon 10 $+(12,$chan) | halt } ;###########-Protection-########## on 1:NOTICE:*:*:{ if ($istok(OperServ-HelpServ-MemoServ-BotServ-ChanServ-Hostserv-NickServ-Neostats-Global-Anima-moderateur,$nick,45)) halt inc -u6 %Flood-notice 1 if ($eval(%Flood-notice,2) >= 6) { .ignore -nu10 *!*@* | echo 2[Flood de notices] 10 Flood de notice détecté ! Les notices seront ignorées pendant 10 secondes. | halt } } on *:OPEN:?:{ inc -u6 %Floodopen 1 if ($eval(%Floodopen,2) >= 3) { .ignore -pu10 *!*@* | echo -as 2[Flood de privé] 10 Flood de privé détecté ! Les privés ne seront plus ouvert pendant 10 secondes. | halt } } CTCP ^:VERSION:*:{ .ignore -tu60 *!*@* } CTCP ^*:PING:*:{ .ignore -tu60 *!*@* } CTCP ^*:TIME:*:{ .ignore -tu60 *!*@* } CTCP ^*:ASV:*:{ .ignore -tu60 *!*@* } CTCP ^*:*:*:{ .ignore -tu60 *!*@* | halt } ;##########- raws ;raw *:*:{ echo -s [RAW $numeric $+ $chr(93) $1- | halt } raw 375:*:{ echo -s ---------- 3Début du message du jour de $3 ---------- halt } raw 372:*:{ echo -s $2- | halt } raw 376:*:{ echo -s ---------- 4Fin du message du jour ---------- halt } raw 308:*:{ echo -s 3Début du message de rappel des règles de $3 | halt } raw 232:*:{ echo -s $+  $3- | halt } raw 309:*:{ echo -s 4Fin du message de rappel des règles. | halt } raw 006:*:{ echo -s $+  $3- | halt } raw 007:*:{ echo -s 4Fin de la liste des serveurs | halt } raw 470:*:{ echo 6 -a $timestamp 4Le canal12 $3 4est plein, vous avez été automatiquement transféré sur le canal relié :12 $17 | halt } raw 433:*:{ echo 6 -a $timestamp 4Impossible de prendre le pseudo $+(,$2,,$chr(44)) ce nickname est déja en cours d'utilisation. | halt } raw 001:*:{ echo -s Bienvenue sur le réseau IRC $+(7,$5,,$chr(44),7) $gettok($8,1,33) $+(,$chr(40),$8-,$chr(41)) | halt } raw 002:*:{ echo -s Ton host est $+(7,$remove($5,$chr(44)),,$chr(44)) serveur tournant sur7 $8- | halt } raw 003:*:{ echo -s Ce serveur a été créé le7 $6-9 à7 $11 ( $+ $12 $+ ) | halt } ; raw 004, servira pour savoir si $me est enregistré sur le server $2 raw 004:*:{ echo -s Serveur7 $2 sur7 $3 ( $+ $4- $+ ) | halt } raw 005:*:{ echo -s $replace($2-,are supported by this server,sont supportés par ce serveur) | halt } raw 251:*:{ echo -s 12 Sur4 $+($my-serv,,$chr(44)) 12il y a4 $4 12utilisateurs dont4 $7 12invisbles, répartis sur4 $10 12serveurs. | halt } raw 252:*:{ set -u10 %Oponline $2 | halt } raw 253:*:{ set -u10 %Inconnect $2 | halt } raw 254:*:{ echo -s 12 Il y a4 %Oponline 12opérateur $+ $plur(%Oponline) et4 $2 12salons existants $iif(%Inconnect,ainsi que4 %inconnect 12connexion $+ $plur(%inconnect) inconnue $+ $plur(%inconnect)) | halt } raw 255:*:{ echo -s 12 Ce serveur (4 $+ $server $+ 12) supporte actuellement4 $4 12personnes et4 $7 12serveur $+ $plur($7) | halt } raw 265:*:{ echo -s 12 Nombre d'utilisateur actuellement sur ce serveur : $+(4,$5,,$chr(44)) 12nombre maximum atteint :4 $7 | halt } raw 266:*:{ echo -s 12 Nombre d'utilisateur au total sur $iif($network,$network,le serveur) : $+(4,$5,,$chr(44)) 12nombre maximum atteint :4 $7 | halt } raw 437:*:{ echo 6 -a $timestamp Impossible de changer de pseudo tant que tu es banni sur12 $2 ! | halt } raw 353:*:{ ;if $me isin $4- { halt } $replace($iif($4,echo 6 -s $remove($4,$mid($4,$pos($4,$chr(33))))) $iif($5,-6 $remove($5,$mid($5,$pos($5,$chr(33))))) $iif($6,-6 $remove($6,$mid($6,$pos($6,$chr(33))))) $iif($7,-6 $remove($7,$mid($7,$pos($7,$chr(33))))) $iif($8,-6 $remove($8,$mid($8,$pos($8,$chr(33))))) $iif($9,-6 $remove($9,$mid($9,$pos($9,$chr(33))))),~,12~6,&,7&6,@,4@6,%,3%6,+,10+6,$me,$+(8,$me,)) halt } raw 366:*:{ if $me ison $2 { echo $2 2[Info Users] 10 $nick($2,0) personne(s) sur le salon. } echo -s - 4Fin de la liste des noms sur12 $2 echo -s - haltdef } raw 438:*:{ echo 6 -a 2[Info] Impossible de prendre le pseudo $2 avant $9 secondes, changements trop rapides ! | halt } raw 421:*:{ echo 6 -a 2[Info] $+(5,$2,) est une commande inconnue | halt } raw 341:*: { echo 6 -as 2[Info] $2 a été invité sur le salon $+(12,$3) | halt } raw 381:*: { echo 6 -a 2[Info] Vous êtes maintenant un4 IRCop | halt } raw 382:*: { echo 6 -a 2[Info] ircd.conf rehashing | halt } raw 403:*: { echo 6 -a 2[Info] Le salon12 $2 est introuvable ou n'existe pas | halt } raw 404:*: { echo 6 -a 2[Info] Votre phrase n'a pas pu s'afficher sur le salon12 $2 (+n, +m, +b, +c ou autre... ) | halt } raw 405:*: { echo 6 -a 2[Info] Vous ne pouvez pas rejoindre12 $2 car, vous êtes sur trop de salons en même temps | halt } raw 406:*: { echo 6 -a 2[Info] Le pseudo4 $2 est introuvable | halt } raw 416:*: { echo 6 -a 2[Info] $2 trop de lignes à transmettre, reduisez vos recherches | halt } raw 315:*: { halt } raw 431:*: { echo 6 -a 2[Info] Vous n'avez pas donné de pseudo | halt } raw 432:*: { echo 6 -a 2[Info] Vous ne pouvez pas prendre ce pseudo :4 $2 | halt } raw 433:*: { echo 6 -a 2[Info]$+(4,$2,:) Ce pseudo est déja utilisé } raw 439:*: { echo 6 -a 2[Info] La destination est changée trop rapidement. Svp attendez10 $9 secondes | halt } raw 441:*: { echo 6 -a 2[Info] $+(4,$2,) n'est pas sur le salon12 $3 | halt } raw 442:*: { echo 6 -a 2[Info] Vous n'êtes pas sur le salon12 $2 | halt } raw 443:*: { echo 6 -a 2[Info] $+(4,$2,) est déja sur le salon12 $3 | halt } raw 465:*: { echo 6 -a 2[Info] Vous êtes banni de ce server | halt } raw 471:*: { echo 6 -a 2[Info] Vous ne pouvez pas joindre le salon12 $2 car il est plein (+l) | halt } raw 473:*: { echo 6 -a 2[Info] Vous ne pouvez pas joindre le salon12 $2 car il est en mode invité (+i) | halt } raw 474:*: { echo 6 -a 2[Info] Vous ne pouvez pas joindre le salon12 $2 car vous êtes banni (+b) | halt } raw 475:*: { echo 6 -a 2[Info] Vous ne pouvez pas joindre le salon12 $2 car il faut le mot de passe correct (+k) | halt } raw 477:*: { echo 6 -a 2[Info] Vous devez enregistrer votre pseudo pour joindre ce salon | halt } raw 478:*: { echo 6 -a 2[Info] La ban/ignore liste du salon12 $2 est pleine | halt } raw 481:*: { echo 6 -a 2[Info] Permission refusée car vous n'êtes pas un 4IRCop | halt } raw 482:*: { echo 6 -a 2[Info] Tu n'es pas opérateur du salon $2 | halt } raw 483:*: { echo 6 -a 2[Info] Vous ne pouvez pas killer un serveur | halt } raw 484:*: { echo 6 -a 2[Info] Impossible de killer, kicker ou deoper $remove($7,.) sur $2 $+ , c'est un utilisateur protégé | halt } raw 401:*: { echo 6 -as 2[Info] $+(4,$2,) n'est pas connecté à10 $server | halt } raw 402:*: { echo 6 -a 2[Info] ce serveur n'existe pas. | halt } raw 411:*: { echo 6 -a 2[Info] Impossible, pas de destinataire | halt } raw 422:*: { echo 6 -s 2[Info] Pas de motd sur ce server. | halt } raw 436:*: { echo 6 -a 2[Info] ce pseudo est déjà utilisé. | halt } raw 461:*: { echo 6 -a 2[Info] Attention il manque des parametres à ta commande | halt } raw 472:*: { echo 6 -a 2[Info] mode de salon inconnu | halt } raw 008:*: { echo 6 -s 2[Info] $1- | halt } raw 302:*: { echo 6 -a 2[Info] UserHost de $remove($gettok($2,1,61),*) :10 $2 | halt } raw 408:*: { echo 6 -a 2[Info] Les couleurs sont interdites sur12 $2 | halt } raw 502:*: { echo 6 -a 2[Info] Vous ne pouvez pas changer le mode d'un autre user | halt } raw 314:*:{ window -x "status window" echo -s - echo -s 13Pseudo:4 $2 echo -s 13Ident:14 $3 echo -s 13Host:14 $4 echo -s 13ASV:14 $6- halt } raw 369:*:{ echo -s 4Fin du Whowas de $2 echo -s - halt } raw 311:*:{ klw $2 if !%swhois { set %swhois -s } echo %swhois --------------------------------------------------------------------- echo %swhois 2[Whois de $+(,$2,14) ] 14 le $nb-jour $date(dd) $nb-mois $mois $date(yyyy) à $time(HH) $+ h $+ $time(nn) echo %swhois 2ASV: 14 $+ $6- echo %swhois 2Ident: 14 $+ $3 echo %swhois 2Host: 14@ $+ $4 echo %swhois 2Anciens pseudos:14 $iif($ini(logs\scans.ini,$+(*!*@,$4)),$replace($readini(logs\scans.ini,$+(*!*@,$4),nk1),$chr(42),$+($chr(44),$chr(32))),Pas d'ancien pseudo trouvé) halt } raw 378:*:{ echo %swhois 2Adresse:14 $6 if $7 { echo %swhois 12IP: 14 $+ $7 } halt } raw 310:*is using modes*: { echo %swhois 2Modes:14 $6- halt } raw 379:*is using modes*: { echo %swhois 2Modes:14 $1- halt } raw 307:*:{ echo %swhois 2Pseudo enregistré14: Oui halt } raw 313:*:{ set %sw 2IRC Opérateur $iif(Network Service isin $1-,- 4[Service de réseau - BotServ]) $+ $iif(Services Administrator isin $1-,- 4[Administrateur réseau]) $+ $iif(network administrator isin $1-,- 4[Administrateur du serveur]) halt } raw 310:*:{ set %sw $iif(%sw,%sw 2Helpeur,2Helpeur) halt } raw 335:*:{ set %sw $iif(%sw,%sw $+(2,Robot,),$+(2,Robot,)) halt } raw 319:*:{ var %ns = $3- echo %swhois 2Salon(s):14 $replace(%ns,%,3%14,+,7+14,@,4@14,&,5&14,~,6~14) echo %swhois 2Salon(s):14 $2 est présent sur $count(%ns,$chr(35)) salon(s) if $2 == $me || !$comchan($2,0) { halt } echo %swhois 2Salon(s) en commun:14 $comchan($2,0) $+(salon(s),$plur($comchan($2,0))) halt } raw 320:*:{ echo %swhois 2Ssh:14 $iif(Secure isin $1-,Oui,Non) halt } raw 312:*:{ echo %swhois 2Serveur:14 $3 halt } raw 671:*secure connection*: { echo %swhois 2Connexion sécurisée:14 Oui halt } raw 317:*:{ echo %swhois 2Inactivité:14 $duration($3) echo %swhois 2Connection:14 Depuis $duration($calc($ctime - $4)) halt } raw 301:*:{ echo %swhois 2Absent:14 $3- halt } raw 318:*:{ echo %swhois 2Clones:14 $iif(%klw1,$replace(%klw1,$chr(44),$chr(32)),Aucun clone sur $active) echo %swhois 2Status: $iif(%sw,%sw,14Tchateur) echo %swhois --------------------------------------------------------------------- unset %sw %klw1 halt } ;raw 308:*:{ echo -as 319 $1- } ;raw 316:*:{ echo -as 316 $1- } ;raw 309:*:{ echo -as 309 $1- } ;raw 354:*:{ echo -as 354 $1- } #gwho on raw 352:*:{ if ($6 == off) { halt } elseif ($6 == $me) { .cnick $me 8 | halt } elseif ($9 == bot || robot isin $9 || B isin $7) { .cnick $6 5 | halt } elseif (* isin $7) { .cnick $6 7 | halt } elseif ($10 == f || $10 == n) { .cnick $6 13 | halt } elseif ($10 == m || $10 == h) { .cnick $6 12 | halt } ;if (~ isin $7) { .cnick $6 6 | halt } ;if (& isin $7) { .cnick $6 4 | halt } ;if (@ isin $7) { .cnick $6 4 | halt } ;if (% isin $7) { .cnick $6 3 | halt } ;if (+ isin $7) { .cnick $6 10 | halt } halt } #gwho end on *:INPUT:*: { if ($1 == /who) { .disable #gwho | /who $1- | .timer 10 1 .enable #gwho } } on *:OP:#:{ if (($opnick == $me) && ($chan != $active)) { echo -a $+(6,$timestamp) $infico $serv $pseud1 T'a 4opé sur12 $chan } } on *:DEOP:#:{ if (($opnick == $me) && ($chan != $active)) { echo -a $+(6,$timestamp) $infico $serv $pseud1 T'a 4déopé sur12 $chan } } on *:HELP:#:{ if (($hnick == $me) && ($chan != $active)) { echo -a $+(6,$timestamp) $infico $serv $pseud1 T'a 3halfop sur12 $chan } } on *:DEHELP:#:{ if (($hnick == $me) && ($chan != $active)) { echo -a $+(6,$timestamp) $infico $serv $pseud1 T'a 3déhalfop sur12 $chan } } on *:VOICE:#:{ if (($vnick == $me) && ($chan != $active)) { echo -a $+(6,$timestamp) $infico $serv $pseud1 T'a 10voicé sur12 $chan } } on *:DEVOICE:#:{ if (($vnick == $me) && ($chan != $active)) { echo -a $+(6,$timestamp) $infico $serv $pseud1 T'a 10dévoicé sur12 $chan } }