[twopac]

merhaba..bu kod @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yetkili arkadasimiza ait.
bu mirc kodudur.. tcl olarak ayarlama şansimiz varmidir.

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

!firlat nick seklinde komutu kullanabilirsiniz.

 
 
 
Kod:  Tümünü Seç

 
 
 
alias xyz {

  if ($prop = n) { return $+(-,$1,-) }

  var %r = $token($2-,0,$1), %ra = $token($2-,$rand(1,%r),$1)

  return %ra

}

on *:text:*:#: {

  if $regex($1,/[!.]f(i|ı)rlat/i) { 

    if !$2 { msg # $xyz($nick).n lutfen nick giriniz sonra firlatalim. | return }

    var %firlat = leptop"leptopu geri firlatti" ‡ kalem"saplandi" ‡ masa"yardi" ‡  tekerlek"uzerinden gecti" ‡ canta"carpti" ‡ gözlük"kırıldı" ‡  tas"kırdı" ‡  telefon"kirildi" ‡  bicak"saplandi", cicek"tekrar kaldirdi kokladi", $&

      %firlatilan = $xyz(135,%firlat), %carpma = kafasina ayagina koluna beline, %carpan = $xyz(32,%carpma), %tutma = Manevra  ‡ hizli koşu  ‡ senden once hareket, %kacma = $xyz(135,%tutma), $&

      %denge = $iif($rand(1,10) >= 1,on,off)

    msg # 5 $xyz($nick).n 2 elinde5 $token(%firlatilan,1,34) 2 tutup5 $xyz($2).n 2 nickli arkadasa firlatti.

    if (%denge = on) { $+(.timer,$nick) 1 2 msg # 2 Firlatilan4 $token(%firlatilan,1,34) 2 $xyz($2).n  arkadasin  5 %carpan 2 isabet etti ve5 $token(%firlatilan,2,34)  }

    if (%denge = off) { $+(.timer,$nick) 1 2 msg # 2 Firlatilan $token(%firlatilan,1,34) 2 $xyz($2).n arkadasin  5 %carpan 2 isabet etmedi cunki 4 %kacma 2 yaparak kurtuldu } 

  }

}