Re: logic problem with perl game

[apl]

You should consider changing

    {
        $shield=param('shield');
        $correctryhm=param('correctryhm');
        $response=param('response');
        $win=param('win');
        $win=$win+1;
    }

to

    { 
      $shield = param( 'shield' );
      process();
    }

    # ....

    sub process
    {
        $correctryhm = param('correctryhm');
        $response    = param('response');
        $win         = param('win');
        $win=$win+1;
    }

This will reduce the size of your code.

[mynameisG]

Sorry guys I made a mistake, I just realized something very important. For some reason $correctryhm is storing the value of the previous $theword. for example, if the first $theword equals field and I click on the picture of the shield I get +1 # of losses, but if the next $theword equals arrow and I choose shield again I get +1 to # of wins... so that's what needs to be fixed