mIRC Rus Rulet Oyunu

on *:start: {  mkdir rulet  if !$read(rulet/cekme.txt) {    write rulet/cekme.txt hizlica tetigi ceker...    write rulet/cekme.txt titreyerek elini tetige goturur ve silayi yavasca sakagina dayar....    write rulet/cekme.txt tetigi cekerken, yuzunde soguk ve sakin gulumseme belirir....    write rulet/cekme.txt tabancayi agzina sokar....    write rulet/cekme.txt tabancayi kaslarinin arasina yerlestirir ve sessizce dua eder...    write rulet/cekme.txt yavasca silahi kaldirir ve cenesinin altina sabitler....    echo -s 2* Çekme Aliasları Tekrar Yüklendi.....  }  else {  echo -s 2* Çekme Aliasları Yüklendi..... }  if !$read(rulet/sans.txt) {    write rulet/sans.txt ...klik......Oops..bu silahi doldurmayi mi unuttum ?    write rulet/sans.txt ....klik....Bu sansin daha fazla surmeyecek hahaha    write rulet/sans.txt .klik........Gelecek sefere kursun ile bir randevun olacak hahaha    write rulet/sans.txt .klik....... Seni sansli budala    write rulet/sans.txt ......klik....Sanslisin o kursun calismadi...Ping silaha yeni kursun doldurur    write rulet/sans.txt ....klik.....Bahse varim sen lotoda da bu kadar sansliydin    write rulet/sans.txt ....klik......Cevir ya da ates et umursamiyorum, eger kazanirsan seni kendi ellerimle oldururum    write rulet/sans.txt .....klik.....iyi oldugunu saniyorsun.....birdahaki sefere karsina cikmaya curet ediyorum    write rulet/sans.txt ....klik......Eger senin gibi bi kafam olsaydi kaybedene kadar devam ederdim    write rulet/sans.txt .....klik......Boyle cirkin biri nasil bu kadar sansli olabilir    write rulet/kayp.txt kaşlarının ortasına domdom kurşunu değdi :D    echo -s 2* Şans Aliasları Tekrar Yüklendi.....  }  else {  echo -s 2* Şans Aliasları Yüklendi..... }  if !$read(rulet/sans.txt) {    write rulet/kayp.txt aha gafası yarıldı :d    write rulet/kayp.txt HeadShoooot    echo -s 2* Kayp Aliasları Tekrar Yüklendi.....  }  else {  echo -s 2* Kayp Aliasları Yüklendi..... }  unset %sira %r1 %r2 %x  hmake puanlar | hload -sbi puanlar puanlar.hash}alias _puan return 1on *:text:*:#: {  if $1 == !rulet {    if %r1 || %r2 { msg $chan Şuan %r1 nicki %r2 nicki ile rulet oynuyor.... | return }    if !$2 { msg $chan $nick Hatalı Kullanım; Nick Belirtmediniz... "!rulet YouMyCure" | return }    if $2 == $me { msg $chan Benimle Rulet Oynayamazsın $nick | return }    if $2 == $nick { msg $chan Kendinle Rulet Oynayamazsın $nick | return }    if $2 ison $chan {      set %r1 $nick      set %r2 $2      notice $nick $2 nickine rulet isteğiniz gitmiştir bekleyiniz...      notice $2 $nick size rulet isteği gönderdi kabul ediyorsanız !kabul , etmiyorsanız !tavuk yazınız.    }    else { msg $chan $nick Hatalı Kullanım; $2 Nicki Şuan Kanalda Bulunmuyor.... }  }  if $1 == !kabul {    if $nick == %r2 {      msg $chan Meydan okuma kabul edildi      msg $chan %r1 < < once basliyor. !vur tetigi ceker, !cevir tetigi cekmeden once tabancayi cevirir      set %sira %r1    }    else { msg $chan $nick Size Bir Meydan Okuma Yok...... }  }  if $1 == !tavuk {     if $nick == %r2 {      msg $chan $nick Muhtemelen tavuk gibi korktu.      unset %sira %r1 %r2 %x    }    else { msg $chan $nick Size Bir Meydan Okuma Yok...... }  }  if $1 == !vur {    if $nick == %sira {      msg $chan $nick $read(rulet/cekme.txt)      set -s %x $r(0,30)      if $istok(5 10 15 17 20 27 25 8 14 29 30,%x,32) {         msg $chan %sira ta ta ta öldün çıq        timerCIQ 1 2 /kick $chan %sira $read(rulet/kayp.txt)        if !$hget(puanlar) { hmake puanlar 100 }        if %sira == %r1 { /a %r2 } | else { /a %r1 }        elseif %sira == %r2 { /a %r1 } | else { /a %r2 }        unset %sira %r1 %r2 %x       }      else {         msg $chan $read(rulet/sans.txt)         if %sira == %r1 { set %sira %r2 } | else { set %sira %r1 }        elseif %sira == %r2 { set %sira %r1 } | else { set %sira %r2 }        msg $chan sıra >> %sira da. !vur tetigi ceker, !cevir tetigi cekmeden once tabancayi cevirir.      }     }    else { msg $chan $nick Sıra Sizde Değil... }  }  if $1 == !cevir {    if $nick == %sira {      if %sira == %r1 { set %sira %r2 } | else { set %sira %r1 }      elseif %sira == %r2 { set %sira %r1 } | else { set %sira %r2 }      msg $chan $nick Sırasını Devretti Sıra Sende >> %sira . !vur tetigi ceker, !cevir tetigi cekmeden once tabancayi cevirir.    }    else { msg $chan $nick Sıra Sizde Değil... }  }}alias a {  hinc -s puanlar $1 $_puan  hsave -i puanlar puanlar.hash }on *:text:*:?: {  if $1 == !puan { msg $nick Kazanma Sayınız; $hget(puanlar,$nick) }  if $1 == !puanlar { play $nick puanlar.hash 1 }}

Kod Hakkında; Kaynaktaki tcl nin e dökülmüş halidir.
! karşınızdaki kişiye isteği sunar
!kabul rulet isteği sunulan kişi tarafından kullanılır istegi kabul eder
!tavuk rulet isteği sunulan kişi tarafından kullanılır istegi red eder
!vur başladıktan sonra tabancayı sıkmak için kullanılır
!cevir sıranızı savmak için kullanılır

ALINTIDIR.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir