#!/usr/bin/perl -w
use strict;
my ($waves, $board, $ride, $score);
$board = int (rand 5);
print "Your board is pretty good! Go ride, Master!\n\n"
 if $board <= 1;
print "Poor Lamer...Where d'ya wanna go with that board?\n\n"
 if $board >= 4;
print "Got a good old standard longboard! Enjoy!\n\n"
 if $board == 2 || $board == 3;
sleep 1;
$waves = 5;
$score = 0;
while ($waves != 0)
        {
        $waves = int (rand 9);
        if ($waves == 0)
                {
                print "No more waves, the tide has gone...\n";
                print "Today's score is: ", $score, "\n";
                last
                }
        $ride = ($waves - $board);
        $score++, $score++, print "Damn good ride!\n" if $ride >= 3;
        $score++, print "Fine ride!\n"
          if $ride < 3 && $ride >= (-2);
        print "Loser!\n" if $ride < (-2);
        if ($ride <= (-4))
                { print "You're gonna break your neck!\n";
                ++$board;
                }
        sleep 1;       

        }