alias logo return 04[ $+ $1- $+ 04] ***
0on $*:TEXT:/^[!.@](random|schaarsteenpapier|stp|steenpapierschaar|sps|bladsteenschaar|bss)$/Si:#eyup,#benelux: {
if ($me == `-_-`) {
  if (!%stp.count. [ $+ [ $chan ] ]) set -u3600 %stp.count. $+ $chan 0
  if (%stp.count. [ $+ [ $chan ] ] == 1 && %stp.user.1. [ $+ [ $chan ] ] == $nick) {
    notice $nick $logo(SCHAAR STEEN PAPIER) Je mag niet tegen jezelf spelen.
    halt
  }
  inc %stp.count. $+ $chan
  var %x $r(1,3)
  set -u3600 %stp.user. $+ %stp.count. [ $+ [ $chan ] ] $+ . $+ $chan $nick
  set -u3600 %stp.user. $+ %stp.count. [ $+ [ $chan ] ] $+ .stp. $+ $chan %x
  var %stp schaar steen papier
  if (%stp.count. [ $+ [ $chan ] ] == 2) {
    notice $nick $logo(SCHAAR STEEN PAPIER) Je hebt $gettok(%stp,%x,32) $+ .
    var %winner
    var %stpus1 %stp.user.1.stp. [ $+ [ $chan ] ]
    var %stpus2 %stp.user.2.stp. [ $+ [ $chan ] ]
    if (%stpus1 == %stpus2) {
      msg $chan $logo(SCHAAR STEEN PAPIER) Het is gelijkspel, jullie hebben beiden $gettok(%stp,%stpus1,32) $+ .
    }
    elseif ((%stpus1 == 1 && %stpus2 == 3) || (%stpus1 == 2 && %stpus2 == 1) || (%stpus1 == 3 && %stpus2 == 2)) {
      msg $chan $logo(SCHAAR STEEN PAPIER) %stp.user.1. [ $+ [ $chan ] ] heeft gewonnen, hij/zij heeft $gettok(%stp,%stpus1,32) en %stp.user.2. [ $+ [ $chan ] ] heeft $gettok(%stp,%stpus2,32) $+ !
    }
    elseif ((%stpus2 == 1 && %stpus1 == 3) || (%stpus2 == 2 && %stpus1 == 1) || (%stpus2 == 3 && %stpus1 == 2)) {
      msg $chan $logo(SCHAAR STEEN PAPIER) %stp.user.2. [ $+ [ $chan ] ] heeft gewonnen, hij/zij heeft $gettok(%stp,%stpus2,32) en %stp.user.1. [ $+ [ $chan ] ] heeft $gettok(%stp,%stpus1,32) $+ !
    }
    else {
      msg $chan $logo(SCHAAR STEEN PAPIER) Er is een onbekende fout opgetreden.
    }
    unset %stp.*
  }
  else {
    notice $nick $logo(SCHAAR STEEN PAPIER) Je hebt $gettok(%stp,%x,32) $+ .
  }
}
}