cs_KiNdErMaXi
Messages postés
1052
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
30 novembre 2009
2
1 mars 2006 à 19:09
Si y'en a que ca interresse :
alias socket {
set %socknick $$1
sockopen hi $$2-
.timer 1 3 sockwrite -n hi nick $$1
.timer 1 4 sockwrite -n hi user a a a :.
}
alias hi { sockwrite -n hi $$1- }
on *:sockread:hi:{
if (!$window(@socket)) { window -k @socket }
sockread %temp
tokenize 32 %temp
if ($1 == PING) { sockwrite -tn hi PONG $2 | halt }
if ($2 == privmsg) {
if (!$window(@socket $+ $3)) window -ke @socket $+ $3
if $4 == :ACTION { echo @socket $+ $3 $timestamp 6* $remove($1,$remove($mask($1,0),!,$chr(42)),$chr(58),!) $remove($5-,$chr(1)) }
else { echo @socket $+ $3 $timestamp < $remove($1,$remove($mask($1,0),!,$chr(42)),$chr(58),!) > $right($4-,-1) }
}
elseif $2 == mode { echo @socket $+ $3 $timestamp 6× Mode × $remove($1,$remove($mask($1,0),!,$chr(42)),$chr(58),!) met le mode $4- }
elseif $2 == nick {
if %socknick == $remove($1,$remove($mask($1,0),!,$chr(42)),$chr(58),!) { set %socknick $remove($3,$chr(58),!) }
echo @socket $timestamp 6× Nick × $remove($1,$remove($mask($1,0),!,$chr(42)),$chr(58),!) change son pseudo en $remove($3,$chr(58))
}
elseif $2 == join {
if %socknick == $remove($1,$remove($mask($1,0),!,$chr(42)),$chr(58),!) { window -ke @socket $+ $remove($3,$left($3,1)) }
else { echo @socket $+ $remove($3,$left($3,1)) $timestamp 6× Join × $remove($1,$remove($mask($1,0),!,$chr(42)),$chr(58),!) Entre sur $3 }
}
elseif $2 == part {
if %socknick == $remove($1,$remove($mask($1,0),!,$chr(42)),$chr(58),!) { window -c @socket $+ $3 }
else { echo @socket $+ $3 $timestamp 6× Part × $remove($1,$remove($mask($1,0),!,$chr(42)),$chr(58),!) part de $3 $4- }
}
elseif $2 == quit { echo @socket $timestamp 6× Quit × $remove($1,$remove($mask($1,0),!,$chr(42)),$chr(58),!) a quitté l'irc $3- }
elseif $2 == kick {
if $4 == %socknick { echo @socket $+ $3 $timestamp 6× Kick × Tu as été kick par $remove($1,$remove($mask($1,0),!,$chr(42)),$chr(58),!) : $right($5-,-1) | hi join $3 }
else { echo @socket $+ $3 $timestamp 6× Kick × $4 a été kick par $remove($1,$remove($mask($1,0),!,$chr(42)),$chr(58),!) : $right($5-,-1) }
}
elseif $2 == notice { echo @socket $timestamp 6× Notice × De $remove($1,$remove($mask($1,0),!,$chr(42)),$chr(58),!) : $right($4-,-1) } elseif $2 :closing && $3 link: { echo @socket $timestamp 6× Disconnected × Tu as quitté l'irc : $left($5-,-1) }
elseif $2 == 353 { echo @socket $1- }
elseif $2 == 321 { window @list }
elseif $2 == 322 { echo @list $4- }
elseif $2 == 366 { halt }
elseif $2 == 332 { echo @socket $+ $4 $timestamp Le topic de $4 est : $remove($5-,$left($5,1)) }
elseif $2 == 333 { echo @socket $+ $4 $timestamp Topic mis par $5 le $asctime($6) }
elseif $2 == 372 { echo @socket 6× Motd × $right($4-,-1) }
elseif $2 == 376 { echo @socket 6× Motd × Fin du /motd }
elseif $2 == 421 { echo @socket $timestamp 6× Erreur × $+ $4 $+ Commande inconnue }
elseif $2 == 433 { echo @socket $timestamp 6× Erreur × Pseudo actuellement utilisé }
elseif $2 == 451 { echo @socket $timestamp 6× Erreur × Pseudo reservé }
elseif $2 == 306 { echo @socket $timestamp 6× Away × Tu entre en away }
elseif $2 == 305 { echo @socket $timestamp 6× Away × Tu reviens d'away }
else echo @socket $1-
}
on *:input:@socket*:{
if ($left($$1-,1) != /) {
if $gettok($editbox($active),1,32) == !me { echo -at 6* %socknick $remove($1-,!me) | hi privmsg $remove($window($active),@socket) : $+ ACTION $remove($1-,!me) }
else {
echo -ta < %socknick > $$1-
hi privmsg $remove($window($active),@socket) $chr(58) $+ $$1-
}
}
}
Ya pas mal de modif a faire mais ca marche :))
[irc://irc.voila.fr/kinder Kinder_Maxi]