IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kullanim : $randtok(string,ascii)

1: //echo $randtok(ali veli deli yogurt cacik,32) cacik ali veli yogurt deli
-
2: //echo $randtok(ali.veli.deli.yogurt.cacik,46) deli.yogurt.veli.cacik.ali
-
3: //echo $randtok(ali-veli-deli-yogurt-cacik,45) veli-deli-cacik-ali-yogurt
-

Kod:

alias randtok {

  if $chr($$2) !isin $$1 { return $false }

  var %asc_ = $$2

  tokenize $2 $1

  var %j = 1 

  while ($eval($+($,%j),2)) {

    var % $+ rand_ $+ $r($str(9,10),1) $v1 

    inc %j 

  }

  var %m = 1 

  while ($var($+(%,rand_,*),%m)) { 

    var %b = %b $v1

    inc %m

  }

  var %z  = [ [ $ $+ sorttok(%b,32) ] ]

  return $replace(%z,$chr(32),$chr(%asc_))

}