Réponse au raw 319
cs_babass
Messages postés
72
Date d'inscription
samedi 3 janvier 2004
Statut
Membre
Dernière intervention
12 septembre 2004
-
5 févr. 2004 à 20:04
cs_Kolibot Messages postés 817 Date d'inscription mercredi 25 juin 2003 Statut Membre Dernière intervention 19 avril 2004 - 5 févr. 2004 à 22:51
cs_Kolibot Messages postés 817 Date d'inscription mercredi 25 juin 2003 Statut Membre Dernière intervention 19 avril 2004 - 5 févr. 2004 à 22:51
2 réponses
cs_Kolibot
Messages postés
817
Date d'inscription
mercredi 25 juin 2003
Statut
Membre
Dernière intervention
19 avril 2004
5 févr. 2004 à 20:43
5 févr. 2004 à 20:43
Un micro défi ^^ Je suis partant ^^ lol :D
By Koli :approve)
Rejoignez le channel du Réseau Codes Sources :
=>> [irc://irc.heliosnet.org/programmation #Programmation]
By Koli :approve)
Rejoignez le channel du Réseau Codes Sources :
=>> [irc://irc.heliosnet.org/programmation #Programmation]
cs_Kolibot
Messages postés
817
Date d'inscription
mercredi 25 juin 2003
Statut
Membre
Dernière intervention
19 avril 2004
5 févr. 2004 à 22:51
5 févr. 2004 à 22:51
Voici une solution possible ...
raw *:*:{
if $istok(301 307 310 311 312 313 317 319 378 379 320,$numeric,32) {
if $numeric != 319 { whs1 1 $1- }
else {
var %a $0,%b 3,%c,%d,%ow,%cs,%o,%h,%v,%r
while %b <= %a {
%c = $gettok($ [ $+ [ %b ] ],1,35)
%d = $remove($ [ $+ [ %b ] ],%c) if $len(%d) 1 { %d $+(%d,%c) | %c = }
if * isin %c || ~ isin %c { %ow = $whs(%ow,%d) }
elseif ^ isin %c || & isin %c || ! isin %c { %cs = $whs(%cs,%d) }
elseif @ isin %c { %o = $whs(%o,%d) }
elseif % isin %c { %h = $whs(%h,%d) }
elseif + isin %c { %v = $whs(%v,%d) }
else { %r = $whs(%r,%d) }
inc %b
}
whs1 2 $2 Liste des chans de $2
if %ow { whs1 2 $2 Owner : %ow }
if %cs { whs1 2 $2 Cfounder-SOP : %cs }
if %o { whs1 2 $2 Op : %o }
if %h { whs1 2 $2 Halfop : %h }
if %v { whs1 2 $2 Voice : %v }
if %r { whs1 2 $2 Autres : %r }
}
halt
}
}
alias whs { return $+($iif($1,$+($1,$chr(32),$chr(42),$chr(32))),$2) }alias whs1 { echo -a 12 $+ $chr(35) Whois on 4 $iif($1 1,$3,$2) 12 $chr(35) $+($chr(91),$numeric,$chr(93)) 6 $iif($1 1,$4-,$3-) }
Je suis un peu soulé car je n'arrive pas à optimiser la partie avec les tokkens...
By Koli :approve)
Rejoignez le channel du Réseau Codes Sources :
=>> [irc://irc.heliosnet.org/programmation #Programmation]
raw *:*:{
if $istok(301 307 310 311 312 313 317 319 378 379 320,$numeric,32) {
if $numeric != 319 { whs1 1 $1- }
else {
var %a $0,%b 3,%c,%d,%ow,%cs,%o,%h,%v,%r
while %b <= %a {
%c = $gettok($ [ $+ [ %b ] ],1,35)
%d = $remove($ [ $+ [ %b ] ],%c) if $len(%d) 1 { %d $+(%d,%c) | %c = }
if * isin %c || ~ isin %c { %ow = $whs(%ow,%d) }
elseif ^ isin %c || & isin %c || ! isin %c { %cs = $whs(%cs,%d) }
elseif @ isin %c { %o = $whs(%o,%d) }
elseif % isin %c { %h = $whs(%h,%d) }
elseif + isin %c { %v = $whs(%v,%d) }
else { %r = $whs(%r,%d) }
inc %b
}
whs1 2 $2 Liste des chans de $2
if %ow { whs1 2 $2 Owner : %ow }
if %cs { whs1 2 $2 Cfounder-SOP : %cs }
if %o { whs1 2 $2 Op : %o }
if %h { whs1 2 $2 Halfop : %h }
if %v { whs1 2 $2 Voice : %v }
if %r { whs1 2 $2 Autres : %r }
}
halt
}
}
alias whs { return $+($iif($1,$+($1,$chr(32),$chr(42),$chr(32))),$2) }alias whs1 { echo -a 12 $+ $chr(35) Whois on 4 $iif($1 1,$3,$2) 12 $chr(35) $+($chr(91),$numeric,$chr(93)) 6 $iif($1 1,$4-,$3-) }
Je suis un peu soulé car je n'arrive pas à optimiser la partie avec les tokkens...
By Koli :approve)
Rejoignez le channel du Réseau Codes Sources :
=>> [irc://irc.heliosnet.org/programmation #Programmation]