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