on *:TEXT:!basla:#: {
  if (%oyun.aktif) {
    msg $chan 0,4Zaten aktif bir oyun var! !sec rakam yaparak seçim yapın.!
    halt
  }
  set %oyun.aktif 1
  set %dogru.kart $rand(1,3)
  msg $chan 0,4 ?? Bul Karayı Al Parayı başladı! Korkuyorsan !dur komutunu uygulayabilirsin.
  msg $chan 8,1 [?] [?] [?] - 3 karttan birini seç! Maça Ası (?A) hangisinde?
  msg $chan 8,1 Seçmek için: !sec 1 / !sec 2 / !sec 3
}
on *:TEXT:!sec *:#: {
  if (!%oyun.aktif) {
    msg $chan 0,4Şu anda aktif bir oyun yok. !basla komutu ile başlatabilirsiniz.
    halt
  }

  var %secim = $2
  if (!$istok(1 2 3,%secim,32)) {
    msg $chan 0,4 $nick , Lütfen sadece 1, 2 veya 3 girin! (örnek: !sec 2)
    halt
  }
  var %kullanici = $nick
  var %dogru = %dogru.kart
  var %puan = $readini(puanlar.ini, Puanlar, %kullanici)
  if (%puan == $null) { set %puan 0 }

  if (%secim == %dogru) {
    var %yeni = $calc(%puan + 1)
    writeini -n puanlar.ini Puanlar %kullanici %yeni
    var %rozet = $rozet(%yeni)
    msg $chan 0,3?? Tebrikler %kullanici ! Doğru kart: Maça Ası (?A)! (+1 puan) 6 [ %rozet ]
  }
  else {
    var %yeni = $calc(%puan - 1)
    writeini -n puanlar.ini Puanlar %kullanici %yeni
    msg $chan 0,4? Üzgünüm %kullanici , yanlış kart. Maça Ası kart $+ %dogru $+ 'daydı. (-1 puan)
  }

  var %goster, %i = 1
  while (%i <= 3) {
    if (%i == %dogru) { %goster = %goster [?A] }
    else { %goster = %goster [??] }
    inc %i
  }
  msg $chan 0,6Kartlar: %goster
  msg $chan 0,6 %kullanici , Güncel Puanın: %yeni

  unset %oyun.aktif
  unset %dogru.kart
}
on *:TEXT:!dur:#: {
  if (%oyun.aktif) {
    msg $chan 4,1Oyun iptal edildi. Maça Ası kart $+ %dogru.kart $+ 'daydı.
    unset %oyun.aktif
    unset %dogru.kart
  }
  else {
    msg $chan 0,4Aktif bir oyun yok!
  }
}
on *:TEXT:!puan:#: {
  var %p = $readini(puanlar.ini, Puanlar, $nick)
  if (%p == $null) { set %p 0 }
  var %rozet = $rozet(%p)
  msg $chan 8,1 $nick ? Puan: %p 
}
on *:TEXT:!puanlar:#: {
  msg $chan 8,1?? Puan Tablosu:
  var %i = 1
  while ($ini(puanlar.ini, Puanlar, %i) != $null) {
    var %kullanici = $v1
    var %puan = $readini(puanlar.ini, Puanlar, %kullanici)
    var %rozet = $rozet(%puan)
    msg $chan 8,1 ? %kullanici : %puan puan 
    inc %i
  }
}
alias rozet {
  if ($1 >= 10) return ??*** Usta Kartçı
  elseif ($1 >= 5) return ??** Deneyimli
  else return ??* Yeni Oyuncu
}