IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
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

}
!tas !kagit !makas komutlariyla tetiklenir