*******************************
*KNOBEL
*papier, stein, schere (c)daGroove..
*
*******************************

on *:text:!knobel*:#:{
  if ($2 != $null) && ($3 == $null) {
    set %game.chan $chan
    set %game.on 1
    set %game.player1 $nick
    set %game.player2 $2
    msg %game.chan 14spieler1 ist10 %game.player1 14, spieler2 ist10 %game.player2
    msg %game.chan 14beide spieler müssen nun zwischen:10 papier, stein und schere 14wählen und ihre wahl an
    describe %game.chan 14per notice schicken.. (10 /notice $me <deine wahl>14)
  }
  else {
    msg $chan 14es können nur 2 spieler gegeneinander spielen..
    halt 
  }
}
on *:input:#: {
  if (($1 == !knobel) && ($2 != $null) && ($3 == $null)) {
    set %game.chan $chan
    set %game.on 1
    set %game.player1 $nick
    set %game.player2 $2
    msg %game.chan 14spieler1 ist10 %game.player1 14, spieler2 ist10 %game.player2
    msg %game.chan 14beide spieler müssen nun zwischen:10 papier, stein und schere 14wählen und ihre wahl an
    describe %game.chan 14per notice schicken.. (10 /notice $me <deine wahl>14)
  }
}


on ^*:notice:*:*:{ 
  if ($nick == %game.player1) {
    set %game.wort.player1 $1
  }
  if ($nick == %game.player2) {
    set %game.wort.player2 $1
  }
  if (%game.wort.player1 != $null) && (%game.wort.player2 != $null) {
    game.start
  }
}


alias game.start {
  msg %game.chan 14beide spieler haben ihre wahl getroffen...
  if (%game.wort.player1 == papier) && (%game.wort.player2 == schere) {
    msg %game.chan 10 %game.player2 14hat gewonnen.. (10schere schneidet papier14)
    goto unset
  }
  if (%game.wort.player1 == schere) && (%game.wort.player2 == papier) {
    msg %game.chan 10 %game.player1 14 hat gewonnen.. (10schere schneidet papier14)
    goto unset
  }
  if (%game.wort.player1 == stein) && (%game.wort.player2 == schere) {
    msg %game.chan 10 %game.player1 14 hat gewonnen.. (10der stein zerstört die schere14)
    goto unset
  }
  if (%game.wort.player2 == stein) && (%game.wort.player1 == schere) {
    msg %game.chan 10 %game.player2 14hat gewonnen.. (10der stein zerstört die schere14)
    goto unset
  }
  if (%game.wort.player1 == stein) && (%game.wort.player2 == papier) {
    msg %game.chan 10 %game.player2 14hat gewonnen.. (10der stein wird vom papier verdeckt14)
    goto unset
  }
  if (%game.wort.player2 == stein) && (%game.wort.player1 == papier) {
    msg %game.chan 10 %game.player1 14hat gewonnen.. (10der stein wird vom papier verdeckt14)
    goto unset
  }
  if (%game.wort.player1 == stein) && (%game.wort.player2 == stein) {
    msg %game.chan 10unentschieden !
    goto unset
  }
  if (%game.wort.player1 == schere) && (%game.wort.player2 == schere) {
    msg %game.chan 10unentschieden !
    goto unset
  }
  if (%game.wort.player1 == papier) && (%game.wort.player2 == papier) {
    msg %game.chan 10unentschieden !
    goto unset
  }
  else {
    msg %game.chan 14einer der beiden spieler hat eine ungültige eingabe gemacht ! nochmal von vorne bitte !!!
    goto unset
  }
  :unset
  unset %game*
}