Ultimate Rock Paper Scissors with Botplay

By NIGathan on Jul 30, 2008

What is Ultimate Rock Paper Scissors you ask? Just take a look at the pic below :D

Image

I got the original script from Deimius here http://www.hawkee.com/snippet/4499/

I Saw this chart on fukung one day and really wanted to write a mirc script for it so I used that as a base and heavily modified it to allow all possible outcomes, and even botplay :D. Note: If Deimius wouldn't like me posting this I will remove it without hesitation.

To install just load it into your bots remote and type '!rps ' to challenge someone rounds is optional but if you specify it, the game will last until either person wins that many times. (You cannot use rounds when playing the bot.)

Update: Fixed a few bugs, haven't noticed anymore since.

on *:LOAD: {
set %!rpssel gun dynamite nuke lightning devil dragon alien water bowl air moon paper sponge wolf cockroach tree man woman monkey snake axe scissors fire sun rock
set %!rpsselection !gun, !dynamite, !nuke, !lightning, !devil, !dragon, !alien, !water, !bowl, !air, !moon, !paper, !sponge, !wolf, !cockroach, !tree, !man, !woman, !monkey, !snake, !axe, !scissors, !fire, !sun, or !rock
set %gunown.a rock.Gun targets rock.sun.Gun shoots at sun.scissors.Gun destroys scissors.axe.Gun chips axe.snake.Gun shoots snake.monkey.Gun shoots monkey.woman.Gun shoots woman.man.Gun shoots man.tree.Gun targets tree.cockroach.Gun shoots cockroach.wolf.Gun shoots wolf
set %dynamiteown.a gun.Dynamite outclasses gun.rock.Dynamite outclasses gun.sun.Smoke caused by dynamite blots out the sun.fire.Dynamite starts fire.scissors.Dynamite explodes scissors.axe.Dynamite explodes axe.snake.Dynamite explodes snake.monkey.Dynamite explodes monkey.woman.Dynamite explodes woman.man.Dynamite explodes man.tree.Dynamite explodes tree.cockroach.Dynamite explodes cockroach
set %nukeown.a dynamite.Nuke outclasses dynamite.gun.Nuke outclasses gun.rock.Nuke incinerates rock.sun.Nuke has the power of the sun and therefore results in a tie.fire.Radiation + fire > fire.scissors.Nuke incinerates scissors.snake.Nuke incinerates snake.axe.Nuke incinerates axe.monkey.Nuke incinerates monkey.woman.Nuke incinerates woman.man.Nuke incinerates man.tree.Nuke incinerates tree
set %lightningown.a nuke.Lightning difuses nuke.dynamite.Lighting ignites dynamite.gun.Lightning melts gun.rock.Lightning splits rock.sun.Lightning lives in storms which block the sun.fire.Lightning starts fire.scissors.Lightning melts scissors.axe.Lightning melts axe.snake.Lightning strikes snake.monkey.Lightning strikes monkey.woman.Lightning strikes woman.man.Lightning strikes man
set %devilown.a lightning.Devil casts lightning.nuke.Devil inspires nuke.dynamite.Devil inspires dynamite.gun.Devil inspires gun.rock.Devil hurls rock.sun.Devil curses sun.fire.Devil breathes fire.scissors.Devil is immune to scissors.axe.Devil is immune to axe.snake.Devil eats snake.monkey.Devil enrages monkey.woman.Devil tempts woman.
set %dragonown.a devil.Dragon commands devil.lightning.Dragon breathes lightning.nuke.Dragon lived before nukes.dynamite.Dragon flosses with dynamite.gun.Dragon is immune to guns.rock.Dragon rests upon rock.sun.Dragon blots out sun.fire.Dragon breathes fire.scissors.Dragon is immune to scissors.axe.Dragon is immune to axe.snake.Dragon spawns snake.monkey.Dragon chars monkey
set %alienown.a dragon.Alien vaporizes dragon.devil.Aliens are non-believers of the devil.lightning.Alien shoots lightning.nuke.Alien defuses nuke.dynamite.Alien defuses dynamite.gun.Alien force-fields gun.rock.Alien vaporizes rock.sun.Alien destroys sun.fire.Alien fuses fire.scissors.Alien force-fields scissors.axe.Alien force-fields axe.snake.Alien mutates snake
set %waterown.a alien.Water is toxic to alien.dragon.Water drowns dragon.devil.Water blesses devil.lightning.Water conducts lightning.nuke.Water short-circuits nuke.dynamite.Water douses dynamite.gun.Water rusts gun.rock.Water erodes rock.sun.Water reflects sun.fire.Water puts out fire.scissors.Water rusts scissors.axe.Water rusts axe
set %bowlown.a water.Bowl contains water.alien.Bowl shapes craft of alien.dragon.Bowl drowns dragon.devil.Bowl blesses devil.lightning.Bowl focuses lightning.nuke.Bowl encases core of nuke.dynamite.Bowl splashes dynamite.gun.Bowl splashes gun.rock.Bowl was once made of rock.sun.Bowl focuses sun.fire.Bowl snuffs out fire.scissors.Bowl covers scissors
set %airown.a bowl.Air tips over bowl.water.Air evaporates water.alien.Air chokes alien.dragon.Air freezes dragon.devil.Air chokes devil.lightning.Air creates lightning.nuke.Air blows astray nuke.dynamite.Air blows out dynamite.gun.Air tarnishes gun.rock.Air erodes rock.sun.Air cools heat of sun.fire.Air blows out fire
set %axeown.a snake.Axe chops snake.monkey.Axe cleaves monkey.man.Axe cleaves man.tree.Axe chops down tree.cockroach.Axe chops cockroach.wolf.Axe cleaves wolf.sponge.Axe chops sponge.paper.Axe slices paper.moon.Axe reflects moon.air.Axe flies through air.bowl.Axe chops bowl
set %Scissorsown.a axe.Scissors are sharper than axe.snake.Scissors stab snake.monkey.Scissors stab monkey.woman.Scissors cut woman's hair.man.Scissors cut man's hair.tree.Scissors carve tree.cockroach.Scissors stab cockroach.wolf.Scissors cut wolf's hair.sponge.Scissors cut up sponge.paper.Scissors cut paper.moon.Scissors reflect moon.air.Scissors swish through air
set %fireown.a scissors.Fire melts scissors.axe.Fire forges axe.snake.Fire burns snake.monkey.Fire burns monkey.woman.Fire burns woman.man.Fire burns man.tree.Fire burns down tree.cockroach.Fire burns cockroach.wolf.Fire burns wolf.sponge.Fire burns sponge.paper.Fire burns paper.moon.Fire campfire by moonlight
set %sunown.a fire.Sun is made of fire.scissors.Sun melts scissors.axe.Sun melts axe.snake.Sun warms snake.monkey.Sun warms monkey.woman.Sun warms woman.man.Sun warms man.tree.Sun feeds tree.cockroach.Sun warms cockroach.wolf.Sun warms wolf.sponge.Sun dries up sponge.paper.Sun shines through paper
set %rockown.a sun.Rock shades sun.fire.Rock pounds out fire.scissors.Rock smashes scissors.axe.Rock chips axe.snake.Rock crushes snake.monkey.Rock crushes monkey.woman.Rock crushes woman.man.Rock crushes man.tree.Rock blocks tree roots.cockroach.Rock squishes cockroach.wolf.Rock crushes wolf.sponge.Rock crushes sponge
set %treeown.a cockroach.Tree shelters cockroach.wolf.Tree shelters wolf.sponge.Tree outlives sponge.paper.Tree creates paper.moon.Tree blocks moon.air.Tree produces air.bowl.Tree wood creates bowl.water.Tree drinks water.alien.Tree ensnares alien ship.dragon.Tree shelters dragon.devil.Tree imprisons devil.lightning.Tree attracts lightning
set %manown.a tree.Man plants tree.cockroach.Man steps on cockroach.wolf.Man tames wolf.sponge.Man cleans with sponge.paper.Man writes paper.moon.Man travels to moon.air.Man breathes air.bowl.Man eats from bowl.water.Man drinks water.alien.Man disproves alien.dragon.Man slays dragon.devil.Man exorcises devil
set %womanown.a man.Woman tempts man.tree.Woman plants tree.cockroach.Woman steps on cockroach.wolf.Woman tames wolf.sponge.Woman cleans with sponge.paper.Woman writes paper.moon.Woman aligns with moon.air.Woman breaths air.bowl.Woman eats from bowl.water.Woman drinks water.alien.Woman disproves alien.dragon.Woman subdues dragon
set %Monkeyown.a woman.Monkey flings poop at woman.man.Monkey flings poop at man.tree.Monkey lives in tree.cockroach.Monkey eats cockroach.wolf.Monkey enrages wolf.sponge.Monkey rips up sponge.paper.Monkey rips up paper.moon.Monkey screeches at moon.air.Monkey breaths air.bowl.Monkey smashes bowl.water.Monkey drinks water.alien.Monkey infuriates alien
set %snakeown.a monkey.Snake bites monkey.woman.Snake bites woman.man.Snake bites man.tree.Snake lives in tree.cockroach.Snake eats cockroach.wolf.Snake bites wolf.sponge.Snake swallows sponge.paper.Snake nests in paper.moon.Snake nocturnal with moon.air.Snake breathes air.bowl.Snake sleeps in bowl.water.Snake drinks water
set %moonown.a air.Moon has no air.bowl.Moon shaped like bowl.water.Moon has no water.alien.Moon houses alien.dragon.Moon shines on dragon.devil.Moon terrifies devil.lightning.Moon is far above lightning.nuke.Moon is too far for nuke.dynamite.Moon suffocates dynamite.gun.Moonshine gunfight.rock.Moon shines on rock.sun.Moon eclipses sun
set %paperown.a moon.Paper uses its magic paperness to block out the moon.air.Paper fans air.bowl.Paper mache bowl.water.Paper floats on water.alien.Paper disproves alien.dragon.Paper rebukes dragon.devil.Paper rebukes devil.lightning.Paper defines lightning.nuke.Paper defines nuke.dynamite.Paper encases dynamite.Paper outlaws gun.rock.Paper covers rock
set %spongeown.a paper.Sponge soaks paper.moon.Sponge looks like moon.air.Sponge uses air pockets.bowl.Sponge cleans bowl.water.Sponge absorbs water.alien.Sponge intrigues alien.dragon.Sponge cleanses dragon.devil.Sponge cleanses devil.lightning.Sponge conducts lightning.nuke.Sponge cleans nuke.dynamite.Sponge soaks dynamite.gun.Sponge cleans gun
set %wolfown.a Sponge.Wolf chews up sponge.paper.Wolf chews up paper.moon.Wolf howls at moon.air.Wolf breaths air.bowl.Wolf drinks from bowl.water.Wolf drinks water.alien.Wolf chases alien.dragon.Wolf outruns dragon.devil.Wolf bites heiny of devil.lightning.Wolf outruns lightning.nuke."Wolf-2" launches nuke.dynamite.Wolf outruns dynamite
set %cockroachown.a wolf.Cockroach sleeps in fur of wolf.sponge.Cockroach nests in sponge.paper.Cockroach nests between papers.moon.Cockroach nocturnal with moon.air.Cockroach breaths air.bowl.Cockroach hides under bowl.water.Cockroach drinks water.alien.Cockroach stows away with alien.dragon.Cockroach eats eggs of dragon.devil.Cockroach makes men devils.lightning.Cockroach hides from lightning.nuke.Cockroach survives nuke
}

on *:TEXT:!*:#: {
  if ($1 == !RPS) || ($1 == !PSR) || ($1 == !PRS) || ($1 == !SRP) || ($1 == !SPR) || ($1 == !RSP) {
    if (%RPS1 == $null) {
      if ($2 == $nick) { msg $chan You cannot play Rock Paper Scissors, by yourself, $nick $+ . | halt }
      if ($2 == $me) {
        set %RPS1 $nick
        set %RPS2 $2
        set %RPS.chan $chan
        msg $chan $nick has challenged $2 to a game of Rock Paper Scissors!
        msg $chan The Challenge from %RPS1 has been accepted by %RPS2 $+ .
        notice %RPS1 You have 60 seconds to choose either %!rpsselection $+ . Syntax: /notice $me [!choicehere] 
        .timerRPS1limit1 1 40 msg $chan 20 seconds left, %RPS1 $+ .
        .timerRPS1limit2 1 60 rpstimeup 1
        .timerRPS2* off
        set %RPS2.P 1
        halt
      }
      if ($2 == $null) { msg $chan Who do you wish to challenge, $nick $+ ? | halt }
      if ($2 ison $chan) { 
        if ($3 isnum) {
          if ($3 < 11) {
            %rpsrow = $3
            %rps1.m = 0
            %rps2.m = 0
            msg $chan $nick has challenged $2 to a first to %rpsrow game of Rock Paper Scissors!
            notice $2 You have been challenged by $nick to a game of Paper scissors Rock. Type: '!accept' or '!decline'.
            .timerRPSChal1 1 60 rpsreject 
          }
          else { msg $chan Please choose an amount of rounds no greator than 10. | halt }
        }
        else {
          msg $chan $nick has challenged $2 to a game of Rock Paper Scissors!
          notice $2 You have been challenged by $nick to a game of Paper scissors Rock. Type: '!accept' or '!decline'.
          .timerRPSChal1 1 60 rpsreject 
        }
        set %RPS1 $nick
        set %RPSW $2
        set %RPS.chan $chan
        halt
      }
      else { msg $chan $2 is not on the channel, $nick $+ . | halt }
    }
    else { msg $chan Please be Patient, $nick $+ . There is already a game of rock paper scissors in progress. | halt } 
  }
  if ($1 == !accept) { 
    if (%RPS1) {
      if ($nick == %RPSW) {
        .timerRPSchal* off
        unset %RPSW
        set %RPS2 $nick
        msg $chan The Challenge from %RPS1 has been accepted by %RPS2 $+ .
        notice %RPS1 You have 60 seconds to choose either %!rpsselection $+ . Syntax: /notice $me [!choicehere] 
        notice %RPS2 You have 60 seconds to choose either %!rpsselection $+ . Syntax: /notice $me [!choicehere]    
        .timerRPS1limit1 1 40 msg $chan 20 seconds left, %RPS1 $+ .
        .timerRPS1limit2 1 40 rpstimeup 1
        .timerRPS2limit1 1 40 msg $chan 20 seconds left, %RPS2 $+ .
        .timerRPS2limit2 1 60 rpstimeup 2
        halt 
      }
      else { 
        msg $chan %rps1 did not challenge you, $nick $+ .
        halt
      }
    }
    else { msg $chan There is no game of rock paper scissors to accept. To challenge someone, type: !RPS [nicktochallenge] | halt }
  }
  if ($1 == !decline) { 
    if ($nick == %RPSW) { 
      .timerRPSchal* off
      msg $chan %RPSw has declined %RPS1 $+ 's challenge.
      unset %RPS*
      halt
    }
    else { 
      msg $chan %rps1 did not challenge you, $nick $+ .
      halt
    }
  }
  if ($replace($1,!, ) isin %!rpssel) {
    if ($nick == %Rps1) { msg %RPS.chan Correct Syntax is: '/notice $me [!choicehere]' It wouldn't be a bad idea to change your choice now. | halt }
    if ($nick == %Rps2) { msg %RPS.chan Correct Syntax is: '/notice $me [!choicehere]' It wouldn't be a bad idea to change your choice now. | halt }
    else { return }
  }
  else { halt }
}

on *:notice:*:?: {
  if (($findtok(%!rpssel,$replace($1,!, ),32) != $null) && ($mid($1,1,1) == !)) {
    if (%RPS2.P == 1) {
      if ($nick == %RPS1) {
        set %rps2.c $gettok(%!rpssel,$rand(1,25),32)
        .timerRPS1* off
        set %RPS1.C $replace($1,!, ) 
        notice %RPS1 You have chosen %RPS1.c $+ .
        rpsshow
        halt
      }
    }
    if ($nick == %RPS1) {
      .timerRPS1* off
      set %RPS1.C $replace($1,!, ) 
      notice %RPS1 You have chosen %RPS1.c $+ .
      if (%RPS2.c != $null) {
        rpsshow
        halt
      }
      if (%RPS2.C == $null) {
        notice %RPS1 Please wait for %RPS2 to decide what to pick.
        halt 
      }
    }
    if ($nick == %RPS2) {
      .timerRPS2* off
      set %RPS2.C $replace($1,!, )
      notice %RPS2 You have chosen %RPS2.c $+ . 
      if (%RPS1.C != $null) {
        rpsshow
        halt
      }
      if (%RPS1.c == $null) { notice %RPS2 Please wait for %RPS1 to decide what to pick. | halt } 
    }
  }
  elseif ($nick == %RPS1) {
    if ($mid($1,1,1) == !) notice %RPS1 Please decide on either %!rpsselection $+ .
    halt
  }
  elseif ($nick == %RPS2) {
    if ($mid($1,1,1) == !) notice %RPS2 Please decide on either %!rpsselection $+ .
    halt
  }
}

alias rpsreject {
  msg %rps.chan %RPSW doesn't appear to be there right now. Try challenging %RPSW again later.
  unset %RPS*
}

alias rpstimeup {
  if ($1 == 1) {
    msg %rps.chan You took far too long, %RPS1 $+ .
    %rps1.r = lose
    %rps2.r = win
    rpsresult
  }
  if ($1 == 2) {
    msg %rps.chan You took far too long, %RPS2 $+ .
    %rps1.r = win
    %rps2.r = lose
    rpsresult
  }
}

alias rpsshow {
  if (%rps1.c == gun) {
    if (%rps2.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == dynamite) {
    if (%rps2.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  echo -a a

  if (%rps1.c == nuke) {
    if (%rps2.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps2.c,1,46)+1),46)
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == lightning) {
    if (%rps2.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == devil) {
    if (%rps2.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == dragon) {
    if (%rps2.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == alien) {
    if (%rps2.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == water) {
    if (%rps2.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == bowl) {
    if (%rps2.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == air) {
    if (%rps2.c == $gettok(%airown.a,$findtok(%airown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  echo -a %rps1.c is not air.

  if (%rps1.c == moon) {
    if (%rps2.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  echo -a rps1.c is not air nor moon.

  if (%rps1.c == paper) {
    if (%rps2.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == sponge) {
    if (%rps2.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == wolf) {
    if (%rps2.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == cockroach) {
    if (%rps2.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == tree) {
    if (%rps2.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == man) {
    if (%rps2.c == $gettok(%manown.a,$findtok(%manown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == woman) {
    if (%rps2.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == monkey) {
    if (%rps2.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == snake) {
    if (%rps2.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == axe) {
    if (%rps2.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == scissors) {
    if (%rps2.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c  == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == fire) {
    if (%rps2.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == sun) {
    if (%rps2.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      %rps1.r = tie
      %rps2.r = tie
    }
    else if (%rps2.c == rock) {
      if (%rps1.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
  }

  if (%rps1.c == rock) {
    if (%rps2.c == $gettok(%rockown.a,$findtok(%rockown.a,%rps2.c,1,46),46)) {
      %rpsout = $gettok(%rockown.a,$calc($findtok(%rockown.a,%rps2.c,1,46)+1),46)
      %rps1.r = win
      %rps2.r = lose
    }
    else if (%rps2.c == gun) {
      if (%rps1.c == $gettok(%gunown.a,$findtok(%gunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%gunown.a,$calc($findtok(%gunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dynamite) {
      if (%rps1.c == $gettok(%dynamiteown.a,$findtok(%dynamiteown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dynamiteown.a,$calc($findtok(%dynamiteown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == nuke) {
      if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == lightning) {
      if (%rps1.c == $gettok(%lightningown.a,$findtok(%lightningown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%lightningown.a,$calc($findtok(%lightningown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == devil) {
      if (%rps1.c == $gettok(%devilown.a,$findtok(%devilown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%devilown.a,$calc($findtok(%devilown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == dragon) {
      if (%rps1.c == $gettok(%dragonown.a,$findtok(%dragonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%dragonown.a,$calc($findtok(%dragonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == alien) {
      if (%rps1.c == $gettok(%alienown.a,$findtok(%alienown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%alienown.a,$calc($findtok(%alienown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == water) {
      if (%rps1.c == $gettok(%waterown.a,$findtok(%waterown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%waterown.a,$calc($findtok(%waterown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == bowl) {
      if (%rps1.c == $gettok(%bowlown.a,$findtok(%bowlown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%bowlown.a,$calc($findtok(%bowlown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == air) {
      if (%rps1.c == $gettok(%airown.a,$findtok(%airown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%airown.a,$calc($findtok(%airown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == moon) {
      if (%rps1.c == $gettok(%moonown.a,$findtok(%moonown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%moonown.a,$calc($findtok(%moonown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == paper) {
      if (%rps1.c == $gettok(%paperown.a,$findtok(%paperown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%paperown.a,$calc($findtok(%paperown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sponge) {
      if (%rps1.c == $gettok(%spongeown.a,$findtok(%spongeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%spongeown.a,$calc($findtok(%spongeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == wolf) {
      if (%rps1.c == $gettok(%wolfown.a,$findtok(%wolfown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%wolfown.a,$calc($findtok(%wolfown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == cockroach) {
      if (%rps1.c == $gettok(%cockroachown.a,$findtok(%cockroachown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%cockroachown.a,$calc($findtok(%cockroachown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == tree) {
      if (%rps1.c == $gettok(%treeown.a,$findtok(%treeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%treeown.a,$calc($findtok(%treeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == man) {
      if (%rps1.c == $gettok(%manown.a,$findtok(%manown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%manown.a,$calc($findtok(%manown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == woman) {
      if (%rps1.c == $gettok(%womanown.a,$findtok(%womanown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%womanown.a,$calc($findtok(%womanown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == monkey) {
      if (%rps1.c == $gettok(%monkeyown.a,$findtok(%monkeyown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%monkeyown.a,$calc($findtok(%monkeyown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == snake) {
      if (%rps1.c == $gettok(%snakeown.a,$findtok(%snakeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%snakeown.a,$calc($findtok(%snakeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == axe) {
      if (%rps1.c == $gettok(%axeown.a,$findtok(%axeown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%axeown.a,$calc($findtok(%axeown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == scissors) {
      if (%rps1.c == $gettok(%scissorsown.a,$findtok(%scissorsown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%scissorsown.a,$calc($findtok(%scissorsown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == fire) {
      if (%rps1.c == $gettok(%fireown.a,$findtok(%fireown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%fireown.a,$calc($findtok(%fireown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == sun) {
      if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
        %rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
        %rps1.r = lose
        %rps2.r = win
      }
    }
    else if (%rps2.c == rock) {
      %rps1.r = tie
      %rps2.r = tie
    }
  }
  rpsresult
}

alias rpsresult {
  if (%rps1.r == tie || %rps2.r == tie) {
    msg %RPS.chan %RPS1 chose %RPS1.c - %RPS2 chose %RPS2.c $+ .
    if (%rpsout != $null) { msg %rps.chan %rpsout $+ ! We all know, here in %rps.chan $+ , there are no losers. | unset %RPS* | halt }
    msg %rps.chan This Game ends in a draw! We all know, here in %rps.chan $+ , there are no losers.
    if (%rpsrow != $null) rematch
    else { unset %RPS* }
    halt
  }
  else if (%rps1.r == win && %rps2.r == lose) {
    if (%rps1.c != $null && %rps2.c != $null) msg %RPS.chan %RPS1 chose %RPS1.c - %RPS2 chose %RPS2.c $+ .
    msg %RPS.chan Congratulations, %rps1 $+ !! %rpsout $+ !
    if (%rpsrow != $null) { inc %rps1.m | inc %rpscount | rematch }
    else { unset %RPS* }
    unset %RPS*
    halt
  }
  else if (%rps1.r == lose && %rps2.r == win) {
    if (%rps1.c != $null && %rps2.c != $null) msg %RPS.chan %RPS1 chose %RPS1.c - %RPS2 chose %RPS2.c $+ .
    msg %RPS.chan Congratulations, %rps2 $+ !! %rpsout $+ !
    if (%rpsrow != $null) { inc %rps2.m | inc %rpscount | rematch }
    else { unset %RPS* }
    unset %RPS*
    halt
  }
  else {
    msg %rps.chan Sorry, an error has occured. %access has been notified of the error.
    msg %access An error has occured with RPS at $time $+ . It seems there was some confusion of who won. rps1.c = %rps1.c rps2.c = %rps2.c rps1.r = %rps1.r rps2.r = %rps2.r rpsout = %rpsout rpscount = %rpscount rpsrow = %rpsrow rps1.m = %rps1.m rps2.m = %rps2.m
    unset %RPS*
  }
}

alias rematch {
  if (%rps1.m == %rpsrow) {
    msg %rps.chan Congratulations %rps1 you win the game!
    unset %RPS*
    halt
  }
  else if (%rps2.m == %rpsrow) {
    msg %rps.chan Congratulations %rps2 you win the game!
    unset %RPS*
    halt
  }
  else if (%rps1.m < %rpsrow && %rps2.m < %rpsrow) {
    msg %rps.chan %rps1 has won %rps1.m round(s), and %rps2 has won %rps2.m round(s)!
    if (%rps1.m > %rps2.m) msg %rps.chan Only $calc(%rpsrow - %rps1.m) more rounds to win, %rps1 $+ !
    if (%rps1.m < %rps2.m) msg %rps.chan Only $calc(%rpsrow - %rps2.m) more rounds to win, %rps2 $+ !
    unset %rps1.c
    unset %rps2.c
    unset %rps1.r
    unset %rps2.r
    unset %rpsout
    notice %RPS1 You have 60 seconds to choose either %!rpsselection $+ . Syntax: /notice $me [!choicehere] 
    notice %RPS2 You have 60 seconds to choose either %!rpsselection $+ . Syntax: /notice $me [!choicehere]    
    .timerRPS1limit1 1 40 msg %rps.chan 20 seconds left, %RPS1 $+ .
    .timerRPS1limit2 1 60 rpstimeup 1
    .timerRPS2limit1 1 40 msg %rps.chan 20 seconds left, %RPS2 $+ .
    .timerRPS2limit2 1 60 rpstimeup 2
    halt
  }
  else {
    msg %rps.chan Sorry, an error has occured.
    unset %RPS*
  }
}

Comments

Sign in to comment.
NIGathan   -  Apr 01, 2009
Purplebeard   -  Mar 31, 2009

sweet i look foward to it

 Respond  
NIGathan   -  Mar 30, 2009

Thanks for your input, I actually just recently ported this to C++, and found a much better method. So Ill be rewriting the entire script, I also had changed the nuke and sun results in the new version.

Expect an update sometime within the next two days

 Respond  
Purplebeard   -  Mar 29, 2009

found another problem anytime GUN and FIRE are used together i get an error

Sorry, an error has occured. has been notified of the error.

and who is being notified of the error?

 Respond  
Purplebeard   -  Mar 29, 2009

hey ok i want to set it up so that NUKE Beats SUN

this is what i did

i changed
set %nukeown.a dynamite.Nuke outclasses dynamite.gun.Nuke outclasses gun.rock.Nuke incinerates rock.sun.Nuke has the power of the sun and therefore results in a tie.fire.Radiation + fire > fire.scissors.Nuke incinerates scissors.snake.Nuke incinerates snake.axe.Nuke incinerates axe.monkey.Nuke incinerates monkey.woman.Nuke incinerates woman.man.Nuke incinerates man.tree.Nuke incinerates tree

TO

set %nukeown.a dynamite.Nuke outclasses dynamite.gun.Nuke outclasses gun.rock.Nuke incinerates rock.sun.Nuke has the power of the sun.fire.Radiation + fire > fire.scissors.Nuke incinerates scissors.snake.Nuke incinerates snake.axe.Nuke incinerates axe.monkey.Nuke incinerates monkey.woman.Nuke incinerates woman.man.Nuke incinerates man.tree.Nuke incinerates tree

under the if == sun one i made the nuke one

else if (%rps2.c == nuke) {
if (%rps1.c == $gettok(%nukeown.a,$findtok(%nukeown.a,%rps1.c,1,46),46)) {
%rpsout = $gettok(%nukeown.a,$calc($findtok(%nukeown.a,%rps1.c,1,46)+1),46)
%rps1.r = lose
%rps2.r = win
}
}

and under the if == Nuke one i changed sun to
else if (%rps2.c == sun) {
if (%rps1.c == $gettok(%sunown.a,$findtok(%sunown.a,%rps1.c,1,46),46)) {
%rpsout = $gettok(%sunown.a,$calc($findtok(%sunown.a,%rps1.c,1,46)+1),46)
%rps1.r = lose
%rps2.r = win
}
}

Now my results were as followed

if the first one in was a NUKE and the 2nd dude picked SUN

Congratulations, Purplebeard!! Nuke has the power of the sun and therefore results in a tie!
Purplebeard has won 1 round(s), and Test_Dude has won 0 round(s)!

why is it still saying tie? yet giving Purplebeard (1st in and picked NUKE) the point

now i tried reversing it i made Purplebeard pick SUN first and test_dude picked NUKE my results were as followed

Congratulations, Test_Dude!! Nuke has the power of the sun and therefore results in a tie!
Purplebeard has won 0 round(s), and Test_Dude has won 1 round(s)!

so the person who should be winning IS but how do i ditch the "Nuke has the power of the sun and therefore results in a tie!" Message

i thought i fixed that up top

PLEASE HELP!

-Thanks,
Purplebeard

P.S. Besides the nuke and sun tie I LOVE your script

 Respond  
NIGathan   -  Oct 28, 2008

Mirccoder, careful what you say... I once changed the first to "n" limit from 10 to 100 and it was the most boring few hours ever... But it was an epic fucking game, the final score was 100 - 99, I won.

I actually have an updated version with a few bug fixes AND a cheat blocker for the bot owner so they cant see what people choose. Ill post it in a bit after I clean it up :D

 Respond  
Mirccoder   -  Oct 06, 2008

very very nice i like it i could play all day

 Respond  
NIGathan   -  Aug 10, 2008

Thanks.

Haha, I dont necessarily agree with all of how what beats what, I just simply based it off the chart.

 Respond  
Eugenio   -  Aug 03, 2008

rofl
omfg nice code mate
dayum
ROFL @ \"woman\" ! should be in the kitchen ffs not playing RPS

 Respond  
zarukas   -  Aug 03, 2008

awesome script!! loads of fun and laughter and how the hell does this beat that? LOL

 Respond  
NIGathan   -  Jul 31, 2008

Oh you know what?

I was so tired when I posted this I completely forgot about all the variables for it.

Ill edit it with the update now. Thanks for letting me know

Alright just make sure you add the on LOAD event and reload it, and it should work fine.

 Respond  
Wizjany   -  Jul 30, 2008

whenever I try to play against my bot, i get this:

-Wormhole- You have 60 seconds to choose either . Syntax: /notice Wormhole [!choicehere]
and then whatever i type to it...
-Wormhole- Please decide on either .
there\'s a problem with the %!rpsselection i think...it\'s not set at that point

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.