NICKS ALEATOIRE

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
}