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 1
on *: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 mirc e dökülmüş halidir.
!rulet karşınızdaki kişiye rulet 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 oyun başladıktan sonra tabancayı sıkmak için kullanılır
!cevir sıranızı savmak için kullanılır

ALINTIDIR.