alias tkm_start {
  .timerTKM 1 10 tkm_timeout
  msg $chan Taş, kağıt veya makas seçin: !tas, !kagit, !makas
}

alias tkm_timeout {
  msg $chan Oyun süresi doldu. Yeniden başlamak için !tas komutunu kullanın.
  .timerTKM off
}

on *:TEXT:!tas:#: {
  .timerTKM off
  var %choices = taş kağıt makas
  var %random = $r(1,3)
  var %choice = $gettok(%choices,%random,32)
  var %userchoice = taş
  var %result

  if (%userchoice == taş) {
    if (%choice == taş) { set %result = Berabere }
    if (%choice == kağıt) { set %result = Kaybettin }
    if (%choice == makas) { set %result = Kazandın }
  }

  msg $chan Sonuç: Senin seçimin %userchoice - Benim seçimim %choice - Sonuç: %result
}

on *:TEXT:!kagit:#: {
  .timerTKM off
  var %choices = taş kağıt makas
  var %random = $r(1,3)
  var %choice = $gettok(%choices,%random,32)
  var %userchoice = kağıt
  var %result

  if (%userchoice == kağıt) {
    if (%choice == taş) { set %result = Kazandın }
    if (%choice == kağıt) { set %result = Berabere }
    if (%choice == makas) { set %result = Kaybettin }
  }

  msg $chan Sonuç: Senin seçimin %userchoice - Benim seçimim %choice - Sonuç: %result
}

on *:TEXT:!makas:#: {
  .timerTKM off
  var %choices = taş kağıt makas
  var %random = $r(1,3)
  var %choice = $gettok(%choices,%random,32)
  var %userchoice = makas
  var %result

  if (%userchoice == makas) {
    if (%choice == taş) { set %result = Kaybettin }
    if (%choice == kağıt) { set %result = Kazandın }
    if (%choice == makas) { set %result = Berabere }
  }

  msg $chan Sonuç: Senin seçimin %userchoice - Benim seçimim %choice - Sonuç: %result
}