on *:text:*:#: {
  if ($regex($1-, /^[-.!]ba[sş]la$/)) {
    baslat_oyun
  }
  if ($regex($1-, /^[-.!]c (\d+)[\s]*([\+\-\*\/x])[\s]*(\d+)$/)) {
    işlem $2 $3 $4
  }
  if ($regex($1-, /^[-.!]puan$/)) {
    puan_goster
  }
  if ($regex($1-, /^[-.!]puanlar$/)) {
    eniyiler
  }
  if ($regex($1-, /^[-.!]yard[ıi]m$/)) {  
    yardimkomut
  }
}

alias baslat_oyun {
  var %sayi $rand(1, 500)
  set %dogru_sonuc %sayi
  set %islem_turu $rand(1, 4)
  set %oyun_bitti 0
  msg $chan 4Oyun başladı! 2Şimdi, 1 ile 500 arasında rastgele seçilen sayıyı işlem yaparak bulmaya çalışacaksınız.İşlem zor geldiyse yeniden !başla yap :)

  if (%islem_turu == 1) {
    msg $chan 4Toplama işlemi yaparak 2 %dogru_sonuc 4sayısını bulmaya çalışın.
    msg $chan 4Örnek işlem: 200 + 2 (cevabınızı sadece işlemi yazarak verin. Örnek: 200 + 2)
  }
  elseif (%islem_turu == 2) {
    msg $chan 4Çıkarma işlemi yaparak 2 %dogru_sonuc 4sayısını bulmaya çalışın.
    msg $chan 4Örnek işlem: 401 - 1 (cevabınızı sadece işlemi yazarak verin. Örnek: 401 - 1)
  }
  elseif (%islem_turu == 3) {
    msg $chan 4Çarpma işlemi yaparak 2 %dogru_sonuc 4sayısını bulmaya çalışın.
    msg $chan 4Örnek işlem: 200 * 2 (cevabınızı sadece işlemi yazarak verin. Örnek: 200 * 2)
  }
  elseif (%islem_turu == 4) {
    msg $chan 4Bölme işlemi yaparak 2 %dogru_sonuc 4sayısını bulmaya çalışın.
    msg $chan 4Örnek işlem: 400 / 2 (cevabınızı sadece işlemi yazarak verin. Örnek: 400 / 2)
  }
}

alias işlem {
  if (%oyun_bitti) {
    msg $chan 0,1Oyun zaten bitti, yeniden başlatmak için !başlat yazabilirsiniz.
    return
  }
  var %ilk_sayi $remove($1, 32)
  var %operatör $remove($2, 32)
  var %ikinci_sayi $remove($3, 32)
  var %sonuc

  if (%operatör == x) { set %operatör * }

  ; İşlemi yapalım
  if (%operatör == +) {
    var %sonuc = %ilk_sayi + %ikinci_sayi
  }
  elseif (%operatör == -) {
    var %sonuc = %ilk_sayi - %ikinci_sayi
  }
  elseif (%operatör == *) {
    var %sonuc = %ilk_sayi * %ikinci_sayi
  }
  elseif (%operatör == /) {
    var %sonuc = %ilk_sayi / %ikinci_sayi
  }
  if (%sonuc == %dogru_sonuc) {
    var %nick = $nick
    var %puan = $readini(puanlar.bzkrt, %nick, puan)
    if (%puan == $null) { set %puan 0 }
    set %puan $calc(%puan + 10)
    writeini puanlar.bzkrt %nick puan %puan
    msg $chan 0,4Tebrikler! Doğru sonucu buldunuz. Puanınız: %puan
    set %oyun_bitti 1
  }
  else {
    msg $chan 0,2Yanlış sonuç! Tekrar deneyin.
  }
}

alias puan_goster {
  var %nick = $nick
  var %puan = $readini(puanlar.bzkrt, %nick, puan)
  if (%puan == $null) { set %puan 0 }
  msg $chan 0,4 $nick , mevcut puanın: %puan
}

alias eniyiler {
  var %top_puanlar = $sortini(puanlar.bzkrt, puan, d)
  var %i = 1
  msg $chan En iyi puanlar:
  if (%top_puanlar == $null) {
    msg $chan 4Henüz puan kaydedilmemiş.
    return
  }

  while (%i <= 10) {
    var %nick = $gettok(%top_puanlar, %i, 44)
    var %puan = $readini(puanlar.bzkrt, %nick, puan)
    msg $chan %i %nick - %puan puan
    inc %i
  }
}

alias yardimkomut {
  msg $chan 0,2 İŞLEM ARENASI OYUNUNA HOŞ GELDİNİZ
  msg $chan 4 !başlat oyunu başlatır.
  msg $chan 2!c işlem cevap verir. ÖRNEK: !c 200x2
  msg $chan 3!puan : Sizin puanınızı gösterir.
  msg $chan 7!puanlar : Diğer kullanıcıların puanlarını gösterir.
}