les deux versions sont assez sympas, même si c'est vrai que celle de SornDrixer est un peu plus longue. Toutefois j'ai pris la sienne car mes compétences en scripting sont pour l'instant au bas de l'échelle et j'ai préféré prendre un code que je comprend :)
alias c_maj {
set %itr 1
set %maj 0
while ( %itr <= $len($1) ) {
if ( $mid($1,%itr,1) isupper ) { inc %maj }
inc %itr
}
if ( %maj => $int($calc(%itr / 2)) ) { echo -s $2 = pb }
}
on *:text:*:*: { $c_maj($1-,$nick) }
plutot que de faire plagia wala mon idée je sais pas si ça marche, mais c en gros ma version
la detection est effective quand il detecte plus de "$int($calc(%itr / 2))"
wala
c pas mal mais tu airais pu faire plus cours je pense.
je crois qu'on peu utiliser "isupper" pour voir sir le texte est en majuscule. pour etudier chaque lettre il suffit d'utiliser $mid et en quelque ligne la verification est faite...
c beaucoup plus cours et normalement ça marche. ça reste un jolie code :)
Je rajoute un dernier truc , vous pouvez incorporer mon code dans votre script, ou le modifier et l'incorporer, mais merci de mettre une ligne de commentaire comme quoi j'en suis l'auteur.
Cela fais toujours plaisir de retrouver un jour son pseudo dans un script ;)
Merci en tout cas :)
set %itr 1
set %maj 0
while ( %itr <= $len($1) ) {
if ( $mid($1,%itr,1) isupper ) { inc %maj }
inc %itr
}
if ( %maj => $int($calc(%itr / 2)) ) { echo -s $2 = pb }
}
on *:text:*:*: { $c_maj($1-,$nick) }
plutot que de faire plagia wala mon idée je sais pas si ça marche, mais c en gros ma version
la detection est effective quand il detecte plus de "$int($calc(%itr / 2))"
wala
- Messages postés
-
2084
- Date d'inscription
- jeudi 12 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 30 janvier 2011
8Je ne connaissais pas l'existance de isupper , donc j'ai fais avec les moyens du bord lol. Au moins mon anti maj sort de l'ordinaire :)