***Andrewstarr***on *:CTCPREPLY:*:{
if $1 = PING { echo -a ( $+ $time $+ ) �3;4�2;[ CTCP REPLY : �3;5 $+ $1 ]�1F;�F; : $duration($calc($ctime - $2) ) }
else { echo -a ( $+ $time $+ ) �3;4�2;[ CTCP REPLY : �3;5 $+ $1 ]�1F;�F; : $2- }
}
on ^*:TOPIC:#:{
echo -flm $chan �3;10�2; $+ $chr(%7minscript.display.event1) Topic $chr(%7minscript.display.event2) �3;7 $nick �3;12vient de changer le topic du salon :�1F;�F; $chan($chan).topic
halt
}
on ^*:INVITE:#:{
if %7minscript.gene.sound = on { splay sounds\ $+ $readini(system\sons.ini,principal,48) $+ .wav }
var %i2 = 1 | var %MAX = $comchan($nick,0)
while ( %i2 <= %MAX ) { var %y = $comchan($nick,%i2) | var %z = $addtok(%z,%y,32) | inc %i2 }
unset %i2
if %z = $null { %z = Aucun }
; echo -a ( $+ $time $+ ) �3;6�2;[ Invite ] �3;5 $+ $nick �3;6vous a invité sur �3;7�1F; $+ $chan $+ �1F;�3;2 (Salons en communs :�3;14 %z �3;2)
echo -ast �2;�3;0,6[ INVITE ]�3;7,0 $nick �2;�3;14vous a invité sur le salon�2;�3;7 $chan �2;�3;14 ( $server )
echo -ast �2;�3;0,6[ INVITE ]�2;�3;14,0 Salons en communs: �2; %z �F;
echo -ast �2;�3;0,6[ INVITE ]�2;�3;14,0 Pour rejoindre le salon�2;�3;7 $chan �3;14�2;, pressez la touche �3;7�2;F4
if ($isEpiKnet()) { /set %7minscript.invite.salon.epiknet $chan }
else { /set %7minscript.invite.salon.voila $chan }
if %7minscript.antispam = on && sept !isin $chan && $me ison #sept_mn_d`intelligence {
/avertir_op �3;6�2;( $+ $time $+ ) Invite massive de la part de $nick sur �3;7�1F; $+ $chan $+ �1F;�3;2 (Salons en communs :�3;14 %z �3;2)
}
unset %z
halt
}
alias avertir_op {
%itemp = $nick(#sept_mn_d`intelligence,0,o)
%itemp2 = 1
while %itemp2 <= %itemp {
%itemp3 = $nick(#sept_mn_d`intelligence,%itemp2,o)
if %itemp3 != Irix && %itemp3 != Quizzneurone && %itemp3 != BougeTonNeurone && %itemp3 != Aphrodite {
.timer 1 %itemp2 .notice %itemp3 �3;4�2;/Sept Min Anti-Invite\ $1-
}
inc %itemp2
}
unset %itemp3
}
on ^*:OP:#:{
if ( $me != $nick ) && ( $me = $opnick ) { echo -a ( $+ $time $+ ) �3;10�2;[ Mode ] �3;2Vous avez été op par $+ �3;5 $nick �3;2+@ sur le salon �3;5 $+ $chan } | echo -flm $chan ( $+ $time $+ ) �3;10�2;[ Mode ] �3;5 $+ $nick �3;2a op $+ �3;5 $opnick �3;2+@
if %7minscript.gene.sound = on {
if $opnick == $me { splay sounds\ $+ $readini(system\sons.ini,principal,76) $+ .wav }
else { splay sounds\ $+ $readini(system\sons.ini,principal,68) $+ .wav }
}
halt
}
on ^*:DEOP:#:{
if %7minscript.gene.sound = on {
if $opnick == $me { splay sounds\ $+ $readini(system\sons.ini,principal,28) $+ .wav }
else { splay sounds\ $+ $readini(system\sons.ini,principal,24) $+ .wav } }
if ( $me != $nick ) && ( $me = $opnick ) { echo -a ( $+ $time $+ ) �3;10�2;[ Mode ] �3;2Vous avez été deop par $+ �3;5 $nick �3;2+@ sur le salon �3;5 $+ $chan } | echo -flm $chan ( $+ $time $+ ) �3;10�2;[ Mode ] �3;5 $+ $nick �3;2a deop $+ �3;5 $opnick �3;2-@ | halt
}
on ^*:VOICE:#:{
if ( $me != $nick ) && ( $me = $vnick ) { echo -a ( $+ $time $+ ) �3;10�2;[ Mode ] �3;3Vous avez été voicé par $+ �3;5 $nick �3;3+v sur le salon �3;5 $+ $chan } | echo -flm $chan ( $+ $time $+ ) �3;10�2;[ Mode ] �3;5 $+ $nick �3;3a voicé $+ �3;5 $vnick �3;3+v
if %7minscript.gene.sound = on {
if $vnick == $me { splay sounds\ $+ $readini(system\sons.ini,principal,88) $+ .wav }
else { splay sounds\ $+ $readini(system\sons.ini,principal,84) $+ .wav } }
halt
}
on ^*:DEVOICE:#:{
if ( $me != $nick ) && ( $me = $vnick ) { echo -a ( $+ $time $+ ) �3;10�2;[ Mode ] �3;3Vous avez été dévoicé par $+ �3;5 $nick �3;3-v sur le salon �3;5 $+ $chan } | echo -flm $chan ( $+ $time $+ ) �3;10�2;[ Mode ] �3;5 $+ $nick �3;3a devoicé $+ �3;5 $vnick �3;3-v
if %7minscript.gene.sound = on {
if $vnick == $me { splay sounds\ $+ $readini(system\sons.ini,principal,36) $+ .wav }
else { splay sounds\ $+ $readini(system\sons.ini,principal,32) $+ .wav }
halt
}
}
on ^*:HELP:#:{
if ( $me != $nick ) && ( $me = $hnick ) { echo -a ( $+ $time $+ ) �3;10�2;[ Mode ] �3;3Vous avez été halfopé par $+ �3;5 $nick �3;3+h sur le salon �3;5 $+ $chan } | echo -flm $chan ( $+ $time $+ ) �3;10�2;[ Mode ] �3;5 $+ $nick �3;3a halfopé $+ �3;5 $hnick �3;3+h
if %7minscript.gene.sound = on {
if $hnick == $me { splay sounds\ $+ $readini(system\sons.ini,principal,88) $+ .wav }
else { splay sounds\ $+ $readini(system\sons.ini,principal,84) $+ .wav } }
halt
}
on ^*:DEHELP:#:{
if ( $me != $nick ) && ( $me = $hnick ) { echo -a ( $+ $time $+ ) �3;10�2;[ Mode ] �3;3Vous avez été déhalfopé par $+ �3;5 $nick �3;3-h sur le salon �3;5 $+ $chan } | echo -flm $chan ( $+ $time $+ ) �3;10�2;[ Mode ] �3;5 $+ $nick �3;3a déhalfopé $+ �3;5 $hnick �3;3-h
if %7minscript.gene.sound = on {
if $hnick == $me { splay sounds\ $+ $readini(system\sons.ini,principal,36) $+ .wav }
else { splay sounds\ $+ $readini(system\sons.ini,principal,32) $+ .wav }
halt
}
}
on ^*:MODE:#:{ echo -flm $chan ( $+ $time $+ ) �3;10�2;[ Mode ] �3;5 $+ $nick �3;2a changé les modes du salon en $+ �3;7 $1- | halt }
on ^*:JOIN:#:{
if $nick = $me {
if ! !isin $left($chan,2) {
if #septmin isin $chan { background -f $chan background\salonrallyemixte.jpg }
if #sept_mn_d`intelligence = $chan {
if %7minscript.theme = garcon { background -f $chan background\privatechangarcon.jpg }
if %7minscript.theme = fille { background -f $chan background\privatechanfille.jpg }
if %7minscript.theme = normal { background -f $chan background\privatechangarcon.jpg }
}
}
if (($read(salonsoff.txt, w, $chan)) && (%warning_color.alert == 1)) {
/warning_color
}
}
if $nick = $me { halt }
echo -flm $chan ( $+ $time $+ ) �3;0,3�2;[ JOIN ]�3;3,0 $nick �2;( $right($address($nick,1),-3) )�F;
; echo -flm $chan ( $+ $time $+ ) �3;10�2;[ Join ] �3;5 $+ $nick �3;7�1F;rejoint�1F; $+ �3;2 $chan �3;1(�3;12�1F; $+ $adress($nick,5) $+ �1F; �3;1)
halt
}
on ^*:PART:#:{
if $nick = $me { halt }
echo -flm $chan ( $+ $time $+ ) �3;0,7�2;[ PART ]�3;7,0 $nick �2;( $right($address($nick,1),-3) )�F;
;echo -flm $chan ( $+ $time $+ ) �3;10�2;[ Part ] �3;5 $+ $nick �3;7�1F;part de�1F; $+ �3;2 $chan �3;(�F; $1- $+ �F;�3;�2; )
halt
}
on ^*:BAN:#:{
if (($bnick == $me) || ($mask($banmask,2) == $address($me,2)) || ($mask($banmask,7) == $address($me,7))) {
%7minscript.message.ban = Vous avez été banni(e) du salon $chan par $nick
/dialog -m avert_ban avert_ban
}
if (%7minscript.gene.sound == on) {
if $bnick == $me || $nick isin $banmask || $address($nick,1) isin $banmask { splay sounds\ $+ $readini(system\sons.ini,principal,12) $+ .wav }
else { splay sounds\ $+ $readini(system\sons.ini,principal,8) $+ .wav }
}
echo -flm $chan ( $+ $time $+ ) �3;4�2;[ BAN ] �3;5 $+ $nick �3;6bannit l'adresse : $+ �3;5 $banmask | halt
}
on ^*:UNBAN:#:{ echo -flm $chan ( $+ $time $+ ) �3;4�2;[ UNBAN ] �3;5 $+ $nick �3;6débannit l'adresse : $+ �3;5 $banmask | if %7minscript.gene.sound = on { splay sounds\unban.wav } | halt }
on ^*:KICK:#:{
if ($knick == $me) {
%7minscript.message.kick = Vous avez été kické(e) du salon $chan par $nick
if ($1- != $nick) {
%raison = $strip($1-,burc)
%7minscript.message.kick = %7minscript.message.kick $+ $chr(32) $+ pour la raison suivante: %raison
}
/dialog -m avert_kick avert_kick
}
if %7minscript.gene.sound = on {
if ($knick == $me) { splay sounds\ $+ $readini(system\sons.ini,principal,56) $+ .wav }
else { splay sounds\ $+ $readini(system\sons.ini,principal,52) $+ .wav } }
echo -flm $chan ( $+ $time $+ ) �3;4�2;[ KICK ] �3;5 $+ $nick �3;4a kické $+ �3;5 $knick �3;4(�3;�2; $+ $1- $+ �F; $+ �3;4�2;) | halt
}
on ^*:QUIT:{
%mpi = $comchan($nick,0)
%oo = 1
while ( %oo <= %mpi ) {
/echo $comchan($nick,%oo) ( $+ $time $+ ) �3;0,4�2;[ QUIT ]�3;4,0 $nick �2;�3;14( $1- �F;�3;14) | haltdef
; /echo $comchan($nick,%oo) ( $+ $time $+ ) �3;10�2;[ Quit ] �3;5 $+ $nick �3;2a �3;7�1F;quitté�1F;�3;2 l'Irc (�2; $1- �3;2 �2;) | haltdef
inc %oo
}
%tempquitnick = $nick
if ($query($nick) != $null) { echo $query($nick) ( $+ $time $+ ) �3;0,4�2;[ QUIT ]�3;4,0 $nick �2;�3;14( $1- �F;�3;14) }
; if ($query($nick) != $null) { echo $query($nick) ( $+ $time $+ ) �3;10�2;[ Quit ] �3;5 $+ $nick �3;2a �3;7�1F;quitté�1F;�3;2 l'Irc (�2; $1- �3;2 �2;) }
}
on ^*:NICK:{
if ($query($newnick) != $null) {
echo $query($newnick) ( $+ $time $+ ) $+ $str($chr(160),1) $+ �3;0,13�2;[ Nick ]�3;5,0 $nick �3;13change son pseudo en �3;7 $newnick
}
%mpii = $comchan($newnick,0) | %oo = 1
while ( %oo <= %mpii ) { echo $comchan($newnick,%oo) ( $+ $time $+ ) $+ $str($chr(160),1) $+ �3;0,13�2;[ Nick ]�3;5,0 $nick �3;13change son pseudo en �3;7 $newnick | inc %oo }
unset %mpii
haltdef
}
on ^*:notice:*:*:{
if %7minscript.gene.sound = on { splay -c sounds\ $+ $readini(system\sons.ini,principal,60) $+ .wav }
/echo -as ( $+ $time $+ ) �3;0,12�2;[ NOTICE ]�3;12,0 �2;de�2; $nick �2;: �F; $1-
; echo -a ( $+ $time $+ ) $+ �3;4,0 [Notice] $+ �3;10 $nick $+ $str($chr(160),1) $+ �3; $+ $1-
; echo -s ( $+ $time $+ ) $+ �3;4,0 [Notice] $+ �3;10 $nick $+ $str($chr(160),1) $+ �3; $+ $1-
haltdef
}
on *:notify:{ if (%7minscript.gene.sound == on) { splay sounds\ $+ $readini(system\sons.ini,principal,64) $+ .wav } }
on *:open:?:*:{
if (%7minscript.gene.sound == on) { splay sounds\prive.wav }
if (%7minscript.gene.rep == 1) {
if (%7minscript.gene.mode == 1) { %7minscript.gene.answer = Bienvenue $nick . Je suis actuellement sur $chan(0) salons et j'ai $query(0) pvs. Patiente un peu s'il te plait }
if (%7minscript.gene.mode == 2) { %7minscript.gene.answer = Coucou $nick . Patiente un peu, je ne suis pas sur mon pc depuis $duration($idle) }
var %testtext = %7minscript.gene.answer
unset %tempvar1
if (�3; != $left(%testtext,1)) {
if (%7minscript.coul.maj == 1) { var %testtext = $upper($left(%testtext,1)) $+ $right(%testtext,$calc($len(%testtext)-1)) }
if (( ! !isin $chan ) && ( %7minscript.coul.u == 1)) { var %tempvar1 = �1F; }
if (%7minscript.coul.r == 1) { var %tempvar1 = %tempvar1 $+ �16; }
if (%7minscript.coul.g == 1) { var %tempvar1 = %tempvar1 $+ �2; }
if %7minscript.coul1 = 32 { if (( %7minscript.coul.m == 1 ) && ( ! !isin $chan )) { var %testtext = %7minscript.coul.first $+ $left(%testtext,1) $+ �F; $+ �3; $+ %7minscript.coul2 $+ %tempvar1 $+ $right(%testtext,$calc($len(%testtext)-1)) }
else { var %testtext = �3; $+ %7minscript.coul2 $+ %tempvar1 $+ %testtext } }
if %7minscript.coul1 != 32 { if (( %7minscript.coul.m == 1 ) && ( ! !isin $chan )) { var %testtext = %7minscript.coul.first $+ $left(%testtext,1) $+ �F; $+ �3; $+ %7minscript.coul2 $+ , $+ %7minscript.coul1 $+ %tempvar1 $+ $right(%testtext,$calc($len(%testtext)-1)) }
else { var %testtext = �3; $+ %7minscript.coul2 $+ , $+ %7minscript.coul1 $+ %tempvar1 $+ %testtext }
}
if (( %7minscript.coul.s = 1 ) && ( ! !isin $chan )) { var %testtext = %7minscript.coul.symb1 $+ �F; $+ %testtext $+ �F; $+ %7minscript.coul.symb2 }
}
/query $nick
/msg $nick %testtext
}
background $nick background\private.jpg
}
on *:start:{
%EpiKnet.connected = 0
%Voila.connected = 0
%7minscript.verif.update = 0
%7minscript.verif.articlesRSS = 0
%7minscript.verif.animRSS = 0
if %7minscript.gene.compteur = 0 { /run notepad New.txt | /dialog -m premier premier | %7minscript.info.pseudo = $$?="Entrer votre pseudo de quizz" | /nick %7minscript.info.pseudo
/anick $$?="Entrer un pseudo de quizz alternatif"
%7minscript.site.pseudo = $$?="Entrer le pseudo correspondant à votre fiche sur www.7min.org"
%7minscript.site.key = $$?="Entrer le mot de passe correspondant à votre fiche sur www.7min.org"
}
%7minscript.away = off
; /emailaddr $remove(%7minscript.info.pseudo,_,.) $+ @7min.org
if %7minscript.gene.sound = on { splay sounds\ $+ $readini(system\sons.ini,principal,72) $+ .wav }
echo -s �3;2�2; Bienvenue sur MirC : Vous utilisez le �3;10�2;©�1F;�3;�1F;�1F;S�3;6e�3;5p�3;4t �3;2M�3;13i�3;12n �3;7S�3;6c�3;5r�3;4i�3;2p�3;13t�3;10�1F;®�2;�3;5 �1F; $+ %7minscript.version
echo -s �3;2�2; Nous sommes le $asctime(dd) $+ / $+ $asctime(mm) $+ / $+ $asctime(yyyy) $time
echo -s �3;2
echo -s �3;2 �1F;Crédits�1F;:
echo -s �3;2 �2;LiGhT_At_ThE_EnD�2; script initial,
echo -s �3;2 �2;Shashou�2; graphismes et design,
echo -s �3;2 �2;_Orion_�2; évolution du script et interfaces.
echo -s �F; �F;
echo -s �3;2 Appuyer sur �2;F1�2; pour une aide sommaire, �2;F5�2; pour l'interface principale
echo -s �3;2�2; Ce script a déjà été lancé �3;4�2;�2; $+ %7minscript.gene.compteur �3;2fois :)
echo -s �3;2�2; Vous êtes prêt à chatter avec le pseudo : �3;4�1F; $+ $me
if %7minscript.gene.compteur != 0 { /dialog -m chat chat }
inc %7minscript.gene.compteur
if %7minscript.site.pseudo != $null && %7minscript.site.key != $null {
/url -a 
[ Lien ]= $+ %7minscript.site.pseudo $+ &pass= $+ %7minscript.site.key
}
}
on *:disconnect:{
if %7minscript.gene.sound = on { splay sounds\ $+ $readini(system\sons.ini,principal,40) $+ .wav }
echo -s �3;2 $+ A Bientot sur le �3;10�2;©�1F;�3;�1F;�1F;S�3;6e�3;5p�3;4t �3;2M�3;13i�3;12n �3;7S�3;6c�3;5r�3;4i�3;2p�3;13t�3;10�1F;®
echo -s �3;2 $+ Le $jour $asctime(dd) $mois $asctime(yyyy) à $time
echo -s �3;2 $+ Serveur�3; $+ $colour(info text) $server �3; $+ $colour(info2 text) $+ ( $+ $port $+ )
echo -s �3;2 $+ Tu es déconnecté avec le nick �3;4 $+ $colour(info text) $me
if ($isEpiKnet()) { /set %EpiKnet.connected 0 } | else { /set %Voila.connected 0 }
}
on *:connect:{
%7minscript.away = off
if (%Connectest == 1) { /dialog -x tryconnect tryconnect }
set %Connectest 0
if %7minscript.gene.sound = on { splay sounds\ $+ $readini(system\sons.ini,principal,20) $+ .wav }
echo -s �3;2Bienvenue sur le �3;10�2;©�1F;�3;�1F;�1F;S�3;6e�3;5p�3;4t �3;2M�3;13i�3;12n �3;7S�3;6c�3;5r�3;4i�3;2p�3;13t�3;10�1F;®
echo -s �3;2 Le $jour $asctime(dd) $mois $asctime(yyyy) à $time
echo -s �3;2 Serveur�3; $+ $colour(info text) $server �3; $+ $colour(info2 text) $+ ( $+ $port $+ )
echo -s �3;2 Tu es connecté avec le nick �3;4 $+ $colour(info text) $me
if ($isEpiKnet()) {
/scid 1 j #sept_mn_d`intelligence
}
.timer 1 1 /localinfo -u
if %7minscript.gene.quita = 0 { %7minscript.gene.quitmess = $read(system\quit.txt,%7minscript.gene.quit) } | else { %7minscript.gene.quitmess = $read(system\quit.txt) }
if (%7minscript.verif.update == 0) {
%7minscript.verif.update = 1
.timermaj 1 $rand(10,20) /7minUpdate
}
if (%7minscript.verif.articlesRSS == 0) .timerRSS1 1 $rand(10,20) /verif.articles.7min
if (%7minscript.verif.articlesRSS == 0) .timerRSS2 1 $rand(10,20) /verif.anim.7min
; 2e connexion sur Voila si Epiknet connecté et case voila cochée
if ((epiknet isin $lower($right($server,12))) && (%7minscript.info.book.voila == 1) && (%Voila.connected != 1)) {
.timer 1 2 {
;/nick %7minscript.info.pseudo
if (%7minscript.info.book == 0) { /server -m %7minscript.server.default.name 6667 }
else { /server -m %7minscript.server.default.name 6667 %7minscript.info.key }
set %Connectest 1
.timerbar on
/dialog -m tryconnect tryconnect
}
}
if (%Connectest == 0) { .timerbar off }
if ($isEpiKnet()) { /set %EpiKnet.connected 1 | /set %EpiKnet.id $cid } | else { /set %Voila.connected 1 | set %Voila.id $cid }
%iii = 1
while (%iii <= $lines(system\autojoins.txt)) {
if (%EpiKnet.connected) {
if ($gettok($read(system\autojoins.txt,%iii),2,32) == EpiKnet) {
.timer 1 $calc(2+%iii) /scid %EpiKnet.id join $gettok($read(system\autojoins.txt,%iii),1,32) $gettok($read(system\autojoins.txt,%iii),3,32)
}
}
if (%Voila.connected) {
if ($gettok($read(system\autojoins.txt,%iii),2,32) == Voila) {
.timer 1 $calc(2+%iii) /scid %Voila.id join $gettok($read(system\autojoins.txt,%iii),1,32) $gettok($read(system\autojoins.txt,%iii),3,32)
}
}
inc %iii
}
}
; Protection contre les attaque en flood de PV
on 1:OPEN:?:*: {
if ((%7minscript.protec.pv == 1) && ($query(0) > 10)) {
/close -m
/echo -s �2;�3;8 Fermeture des PV automatique effectuée - Protection contre les attaques en "Flood de PV" !
}
}
on *:NOTICE:*:* {
%message = Sinon, veuillez choisir un pseudo différent.
%nmess = $1-
if (%message isin %nmess) {
/echo -sat �2;�3;4Si vous avez utilisé votre mot de passe à la connexion, veuillez ne pas tenir compte de ce message
if (%7minscript.info.key.themis != $null ) /scid %EpiKnet.id .Themis IDENTIFY %7minscript.info.key.themis
}
}
on *:EXIT: {
;/url -na [ Lien ]
il est ou dans tout sa?