Trouver une ressource (Nouvelle version du moteur, plus rapide & pertinent, essayez le !)
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
NICKS ALEATOIRE
Information sur la source
Description
Mon premier script, soyez indulgent.
sans pretentions, juste un exercice de randomiser des tokens.
pas vraiment d'interet.
___________________________________________________________
a mettre dans remote, pour le faire fonctionner : click droit dans la nicklist
vous choississez dans le dialog le nick qui vous plait.
Source
- dialog aleanick {
- title "Nicks Aléatoire"
- size -1 -1 104 225
- option pixels notheme
- list 1, 3 34 100 154
- text "Double clicker pour choisir le nick", 2, 6 2 92 30, center
- button "Renouveler", 3, 4 185 97 33
- }
- on *:dialog:aleanick:init:0:{
- aleanick
- }
- alias -l aleanick {
- var %v = a,A,e,E,i,I,o,O,u,U,y,Y
- var %c = b,B,c,C,d,D,f,F,g,G,h,H,j,J,k,K,l,L,m,M,n,N,p,P,q,Q,r,R,s,S,t,T,v,V,w,W,x,X,z,Z
- var %z = 1
- while (%z <= 10) {
- var %rdnick
- var %n = $rand(4,9)
- var %i = 1
- while (%i <= %n) {
- if ($isbit(%i,1) == 1) {
- var %rdnick = $+(%rdnick,$gettok(%c,$rand(1,40),44))
- var %n1 $rand(1,9)
- if (%n1 == %i) {
- var %rdnick = $+(%rdnick,$gettok(%c,$rand(1,40),44))
- }
- }
- if ($isbit(%i,1) == 0) {
- var %rdnick = $+(%rdnick,$gettok(%v,$rand(1,12),44))
- var %n2 $rand(1,9)
- if (%n2 == %i) {
- var %rdnick = $+(%rdnick,$gettok(%v,$rand(1,12),44))
- }
- }
- inc %i
- }
- did -a $dname 1 %rdnick
- inc %z
- }
- }
- on *:dialog:aleanick:dclick:1:{
- nick $did(aleanick,1,$did(aleanick,1).sel)
- }
- on *:dialog:aleanick:sclick:3:{
- var %g = 1
- while (%g <= 10) {
- did -d $dname 1 1
- inc %g
- }
- aleanick
- }
- menu channel,nicklist {
- Nick Aléatoire:dialog -m aleanick aleanick
- }
dialog aleanick {
title "Nicks Aléatoire"
size -1 -1 104 225
option pixels notheme
list 1, 3 34 100 154
text "Double clicker pour choisir le nick", 2, 6 2 92 30, center
button "Renouveler", 3, 4 185 97 33
}
on *:dialog:aleanick:init:0:{
aleanick
}
alias -l aleanick {
var %v = a,A,e,E,i,I,o,O,u,U,y,Y
var %c = b,B,c,C,d,D,f,F,g,G,h,H,j,J,k,K,l,L,m,M,n,N,p,P,q,Q,r,R,s,S,t,T,v,V,w,W,x,X,z,Z
var %z = 1
while (%z <= 10) {
var %rdnick
var %n = $rand(4,9)
var %i = 1
while (%i <= %n) {
if ($isbit(%i,1) == 1) {
var %rdnick = $+(%rdnick,$gettok(%c,$rand(1,40),44))
var %n1 $rand(1,9)
if (%n1 == %i) {
var %rdnick = $+(%rdnick,$gettok(%c,$rand(1,40),44))
}
}
if ($isbit(%i,1) == 0) {
var %rdnick = $+(%rdnick,$gettok(%v,$rand(1,12),44))
var %n2 $rand(1,9)
if (%n2 == %i) {
var %rdnick = $+(%rdnick,$gettok(%v,$rand(1,12),44))
}
}
inc %i
}
did -a $dname 1 %rdnick
inc %z
}
}
on *:dialog:aleanick:dclick:1:{
nick $did(aleanick,1,$did(aleanick,1).sel)
}
on *:dialog:aleanick:sclick:3:{
var %g = 1
while (%g <= 10) {
did -d $dname 1 1
inc %g
}
aleanick
}
menu channel,nicklist {
Nick Aléatoire:dialog -m aleanick aleanick
}
Sources de la même categorie
Commentaires
|
CalendriCode
| | | L | M | M | J | V | S | D |
| | | | | 1 | 2 | 3 |
| 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| 11 | 12 | 13 | 14 | 15 | 16 | 17 |
| 18 | 19 | 20 | 21 | 22 | 23 | 24 |
| 25 | 26 | 27 | 28 | 29 | 30 | 31 |
|
|