quote:


program Game100313;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, crt;
{ you can add units after this }

{$R *.res}
Var
myRandom : integer; //I store my random number here
studentHP : integer;//The hit points of the player
bunnyHP : integer; //The hit points of the Non player character
gameover : boolean;//A true or false variable
begin
studentHP := 100;
bunnyHP := 150;
Randomize();
gameover := false;
//The above part sets all the variables, giving them values

repeat;
WriteLn('You enter a dark forest... A harmless bunny rabbit approaches');
myRandom := Random(10)+ 1;
Write('Student HP :', studentHP);
WriteLn(' A harmless bunny lunges at you! Ouch that hurt!');
studentHP := studentHP - myRandom;
//The above part deals with the player
myRandom := Random(10)+ 1;
Write('Harmless bunny HP:', bunnyHP);
WriteLn(' You kick the harmless bunny, causing ', myRandom, ' damage');
bunnyHP := bunnyHP - myRandom;
//This part details with the other character.

delay(500);
IF studentHP < 1 then gameover := true;
IF bunnyHP < 1 then gameover := true;
//This part checks if any of the values are less than 1.
ClrScr;
//Wipes all text from the screen.
until gameover = true; //If gameover is true then the game will end.

IF studentHP < 1 then
WriteLn('The harmless bunny sinks its teeth into your neck, you are dead.');
IF bunnyHP < 1 then
WriteLn('Your swift kick sends the harmless bunny flying! Level up!');
readln;
end.