on *:text:!kpsreset *:%kpschans: {
  if ($istok(%masterit,$nick,32)) {
    set %kps. [ $+ [ $2 ] ] 0
} }

on *:text:!allowkps *:#: {
  if ($istok(%masterit,$nick,32) && $istok(%kpschans,$2,32) == $false) {
    set %kpschans %kpschans $2
    msg $chan KPS Sallitaan kanavalla $2 $+ .
} }

on *:text:!denykps *:#: {
  if ($istok(%masterit,$nick,32) && $istok(%kpschans,$2,32)) {
    set %kpschans $remtok(%kpschans,$2,32)
    msg $chan KPS Ei sallita kanavalla $2 $+ .
} }

on *:text:!kps:$($replace(%kpschans,$chr(32),$chr(44))): {
  if (%kps == 1) {
    msg $chan Kivi, paperi & sakset on jo menossa.
  }
  if (%kps == 0) {
    msg $chan Kivi, paperi & sakset aloitettu! $nick sinulla on 5 sekuntia aikaa vastata: kivi,
sakset, paperi. Kun peli loppuu odota kunnes saat luvan aloittaa uuden pelin.
    set %kps 1
    set %kpsnick $nick
    set %vastaus $gettok(%kpsrand,$rand(1,3),32)
    timer 0 6 set %kps 0
    timer 0 7 msg $chan Nyt voit aloittaa uuden pelin.
    timer 0 7 timers off
} }

on *:text:!kpspts:$($replace(%kpschans,$chr(32),$chr(44))): {
  if ($var(%kps. [ $+ [ $nick ] ] ) == 0) {
    msg $chan Et ole pelannu yhtään peliä.
  }
  else {
    msg $chan KPS Pisteesi: %kps. [ $+ [ $nick ] ]
} }

on *:text:!kpspts *:$($replace(%kpschans,$chr(32),$chr(44))): {
  if ($var(%kps. [ $+ [ $2 ] ] ) == 0) {
    msg $chan $2 ei ole pelannu yhtään peliä.
  }
  else {
    msg $chan Pelaaja: $2 KPS Pisteet: %kps. [ $+ [ $2 ] ]
} }

on *:text:kivi:$($replace(%kpschans,$chr(32),$chr(44))):{
  if (%kps == 0 && $nick == %kpsnick) {
    set %kps. [ $+ [ $nick ] ] $calc(%kps. [ $+ [ $nick ] ] -1)
    msg $chan Voitin, koska vastasit liian hitaasti. Pisteesi nyt: %kps. [ $+ [ $nick ] ]
  }
  if (%vastaus == kivi && %kps == 1 && $nick == %kpsnick) {
    msg $chan Minullakin oli kivi, tasapeli. Pisteesi: %kps. [ $+ [ $nick ] ]
  }
  if (%vastaus == sakset && %kps == 1 && $nick == %kpsnick) {
    set %kps. [ $+ [ $nick ] ] $calc(%kps. [ $+ [ $nick ] ] +1)
    msg $chan Minulla oli sakset, voitit pelin. Pisteesi nyt: %kps. [ $+ [ $nick ] ]
  }
  if (%vastaus == paperi && %kps == 1 && $nick == %kpsnick) {
    set %kps. [ $+ [ $nick ] ] $calc(%kps. [ $+ [ $nick ] ] -1)
    msg $chan Minulla oli paperi, hävisit pelin. Pisteesi nyt: %kps. [ $+ [ $nick ] ]
  }
  set %kps 0
  unset %kpsnick
}

on *:text:paperi:$($replace(%kpschans,$chr(32),$chr(44))):{
  if (%kps == 0 && $nick == %kpsnick) {
    set %kps. [ $+ [ $nick ] ] $calc(%kps. [ $+ [ $nick ] ] -1)
    msg $chan Voitin, koska vastasit liian hitaasti. Pisteesi nyt: %kps. [ $+ [ $nick ] ]
  }
  if (%vastaus == paperi && %kps == 1 && $nick == %kpsnick) {
    msg $chan Minullakin oli paperi, tasapeli. Pisteesi: %kps. [ $+ [ $nick ] ]
  }
  if (%vastaus == sakset && %kps == 1 && $nick == %kpsnick) {
    set %kps. [ $+ [ $nick ] ] $calc(%kps. [ $+ [ $nick ] ] -1)
    msg $chan Minulla oli sakset, hävisit pelin. Pisteesi nyt: %kps. [ $+ [ $nick ] ]
  }
  if (%vastaus == kivi && %kps == 1 && $nick == %kpsnick) {
    set %kps. [ $+ [ $nick ] ] $calc(%kps. [ $+ [ $nick ] ] +1)
    msg $chan Minulla oli kivi, voitit pelin. Pisteesi nyt: %kps. [ $+ [ $nick ] ]
  }
  set %kps 0
  unset %kpsnick
}

on *:text:sakset:$($replace(%kpschans,$chr(32),$chr(44))):{
  if (%kps == 0 && $nick == %kpsnick) {
    set %kps. [ $+ [ $nick ] ] $calc(%kps. [ $+ [ $nick ] ] -1)
    msg $chan Voitin, koska vastasit liian hitaasti. Pisteesi nyt: %kps. [ $+ [ $nick ] ]
  }
  if (%vastaus == sakset && %kps == 1 && $nick == %kpsnick) {
    msg $chan Minullakin oli sakset, tasapeli. Pisteesi: %kps. [ $+ [ $nick ] ]
  }
  if (%vastaus == kivi && %kps == 1 && $nick == %kpsnick) {
    set %kps. [ $+ [ $nick ] ] $calc(%kps. [ $+ [ $nick ] ] -1)
    msg $chan Minulla oli kivi, hävisit pelin. Pisteesi nyt: %kps. [ $+ [ $nick ] ]
  }
  if (%vastaus == paperi && %kps == 1 && $nick == %kpsnick) {
    set %kps. [ $+ [ $nick ] ] $calc(%kps. [ $+ [ $nick ] ] +1)
    msg $chan Minulla oli paperi, voitit pelin. Pisteesi nyt: %kps. [ $+ [ $nick ] ]
  }
  set %kps 0
  unset %kpsnick
}