random nick - text üretici

**CoCoRiCo** · #1 06 Temmuz 2015, 13:20

bilenler bilir Loremp vardır. bende mIRC kullananlar için kendi çapında geliştirmeye açık ve anlaşılır yazmaya alıştım umarım işinize yarar..
kod rastgele ama akılcı kelimeler oluşturuyor..
kelimeleri 3 farklı tipte oluşturuyor..
birinde yalnızca metin..
digerinde bazen sonuna _23 gibi ekler yapıyor..
sonuncuda ise tamamen karmaşık karakterler..
güle güle kullanın.

PHP- Kodu:

  alias rendom {
  var %l' $r($1,$2),%s' a e i o u,%a' . b c d f g h j k l m n p r s t v x w y z | :r
  var %k' $addtok(%k',$gettok(%a',$r(1,$numtok(%a',32)),32),32)
  if $len(%k') < %l' goto r
  if  $len(%k') >= %l' {
    ;  type: ##  VokuZURuYOu  hutak 
    var %r'  $regsubex($regsubex(%k',/(\W)/ig,$gettok(%s',$r(1,$numtok(%s',32)),32)),/([a-f]|[c-g]|[h-z])/g,$iif($r(0,20) > 15,$upper(\t),\t))
    echo 3 %r'
    ;type: ## yAmuwAHufikax_10  yAmuwAHufikax
    echo 4 %r'  $+ $iif($r(1,100) < 35,$+($gettok(_.-.|.\.[.].^.´,$r(1,8),46),$r(1,85)),$null)  
    ;type: ##  x[o_bI[t]e|c_e\g_
    echo 5  $regsubex($regsubex(%k',/(\W)/ig,$gettok(%s',$r(1,$numtok(%s',32)),32)),/([a-f]|[c-g]|[h-z])/g,$&
      $iif($r(1,100) > 10, $+($iif($r(0,20) > 15,$upper(\t),\t),$gettok(_.-.|.\.[.].^.´,$r(1,8),46)),$iif($r(0,20) > 15,$upper(\t),\t))) 
    echo $crlf
  }
}

komut: /rendom 2 10
(2 ila 10 harf arasında bir kelime)
çıktı:
yemawIHefakex
yAmuwAHufikax|10
y]im-Aw\o´H\u^F_a_k|o|x|

**IrCbaStarD** · #2 06 Temmuz 2015, 15:33

Eline sağlik abi

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Text event	comanche	Help - Yardım	1	01 Mart 2014 00:12
ON Text	Scripter	mIRC events - Olaylar	2	23 Ocak 2013 09:03
$_t(<name>,[0-15],[0-15],<text>)	L4roXyL	Snippets - Parça kodlar	1	06 Ekim 2009 21:14
Random (nick ve ident)	WeiLSiDe	Help - Yardım	2	24 Eylül 2009 14:08
$_text(text ..)	L4roXyL	Snippets - Parça kodlar	2	03 Eylül 2009 21:25

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder