Souligneur Automatique

J'ai créé ce code pour un utilisateur de #scripting (HeliosNet) ... ne pouvant le poster en tant que Source à part entière mais voulant savoir si il est optimisable je le met ici.

on *:input:#: {
var %i = 1,%j,%k = 1,%l = $1-,%m
while %i <= $nick(#,0) { %j = $+($iif(%j,$+(%j,$chr(32))),$nick(#,%i)) | inc %i }
tokenize 32 %j
while %k <= $count(%j,$chr(32)) { %i = $ [ $+ [ %k ] ] | if %i isin %l { %m = $replace($iif(%m,%m,%l),%i,$+(,%i,)) } | inc %k }
msg # $iif(%m,%m,%l)
halt
}

La Partie en gras est modifiable à souhait...

By Koli

Rejoignez le channel des codeurs d'ircfr :
=>> #scripting
ou =>> #scripting

Suite à un petit bug je mets à jour :

on *:input:#: {
var %i = 1,%j,%k = 1,%l = $1-,%m
while %i <= $nick(#,0) { %j = $+($iif(%j,$+(%j,$chr(32))),$nick(#,%i)) | inc %i }
tokenize 32 %j
while %k <= $calc($count(%j,$chr(32)) + 1) { %i = $ [ $+ [ %k ] ] | if %i isin %l { %m = $replace($iif(%m,%m,%l),%i,$+([,$chr(32),%i,$chr(32),])) } | inc %k }
msg # $iif(%m,%m,%l)
halt
}

By Koli

Rejoignez le channel des codeurs d'ircfr :
=>> #scripting
ou =>> #scripting

Révision du Code :
on *:input:#: {
if $left($1-,1) != $chr(47) {
var %i = 1,%j,%k = 1,%l = $1-,%m
while %i <= $nick(#,0) { %j = $+($iif(%j,$+(%j,$chr(32))),$nick(#,%i)) | inc %i }
tokenize 32 %j
while %k <= $calc($0 + 1) { %i = $gettok(%j,%k,32) | if %i isin %l { %m = $replace($iif(%m,%m,%l),%i,$+([,$chr(32),%i,$chr(32),])) } | inc %k }
msg # $iif(%m,%m,%l)
halt
}
}


By Koli

Rejoignez le channel des codeurs d'ircfr :
=>> #scripting
ou =>> #scripting

Suite à une longue discussion avec Kallok sur cela, la forme la plus optimisé de ce code est :

on 1:input:*: {
if $left($1-,1) != $chr(47) {
var %a 1,%b
while %a <= $nick(#,0) { if $nick(#,%a) isin $1- { %b = $replace($1-,$ifmatch,$+([,$chr(32),$ifmatch,$chr(32),])) } | inc %a }
say $iif(%b,%b,$1-) | halt
}
}

Mais cela pose un pb car la fonction $ifmatch... apparement fais un $lower en même temps :/

By Koli

Rejoignez le channel des codeurs d'ircfr :
=>> #scripting
ou =>> #scripting

Suite au problême du $upper, j'ai optimisé le premier script et cela donne :

on 1:input:*: {
if $left($1-,1) != $chr(47) {
if # && !$istok(!seen !tapavu,$1,32) && $1- {
var %k 1,%m = $1-
while %k <= $nick(#,0) { %i = $nick(#,%k) | if %i isin $1- { %m = $replace(%m,%i,$+([,$chr(32),%i,$chr(32),])) } | inc %k }
msg # %m
halt
}
}
}

By Koli

Rejoignez le channel des codeurs d'ircfr :
=>> #scripting
ou =>> #scripting

Un WakeUp !!! En gros un Highlight général ^^
Voici le code :

alias wakeup { var %i 1,%j | while %i <= $nick(#,0) { %j = $+(%j,$chr(32),$nick(#,%i)) | inc %i } | msg # WAKE UP %j }

/wakeup et c'est parti !! Eviter de l'utiliser si vous êtes sur un gros chan ... Vous risqueriez de vous faire kicker... voir bannir ... :/

By Koli

Rejoignez le channel du Réseau Codes Sources :
=>> #Programmation

mdrrr en fait le pb maintenant, c'est que toutes mes commande avec / et ! ne fonctionne plus !

Un Petit bout de Snipet codé en 5minutes ^^ /allserv et tlm saura ou vous êtes lol :

alias allserv {
var %a $scon(0),%b 1,%c,%d $cid
while %b <= %a { scon %b | inc %b | %c = $+(%c,$chr(32),$chr(42),$chr(32),$server) }
scid %d | msg $active Je suis connecté actuellement sur %a serveurs. %c
}


J'ai un peu bidouillé le wakeup... voici ce qu'il donne :

alias wakeup { var %i 1,%j | while %i <= $nick(#,0) { %j = $+(%j,$chr(32),$nick(#,%i)) | inc %i } | msg # $1- %j By Koli-Boulet }

Surtout le super copyright s'il vous plait lol ^^

En fait vous pouvez mettre ce que vous voulez ... /wakeup J'aime les andives par exemple... lol ...


By Koli

Rejoignez le channel du Réseau Codes Sources :
=>> #Programmation

Petite Découverte ^^ qui ne sert à rien mais qui est sympa à connaître : if X == Y <=> if X =! Y

By Koli

Rejoignez le channel du Réseau Codes Sources :
=>> #Programmation

Mise à Jour du /allserv :

alias allserv {
var %a $scon(0),%b 1,%c,%d $cid
while %b <= %a { scon %b | inc %b | %c = $+(%c,$chr(32),$chr(42),$chr(32),$iif($network,$+($ifmatch -,$chr(32))),$server) }
scid %d | msg $active Je suis connecté actuellement sur %a serveurs. %c
}

On voit now les noms des serveurs ^^ lol... Faites gaffe ce snipet peut vous valoir un kb pour deux raisons la première SPAM et la deuxième FLOOD

By Koli

Rejoignez le channel du Réseau Codes Sources :
=>> #Programmation