[immortaL]

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

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 }
}

!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