dbmain's game

[dbmain]

{
you may use this script as long as you do not edit the top of the
script.
This was made by Kenji Hemora
}
program New;
//
var num,tt:Integer;
var gnum:String;
var win:Boolean;
//
procedure winn;
begin
writeln('you win');
terminatescript;
end;
//
procedure two;
begin
num:=random(50);
repeat
gnum:=readln('0-50');
if(gnum=inttostr(num))then
begin
tt:=tt+1;
writeln('=-----------------------------=');
writeln('= '+inttostr(tt)+' tried times            =');
writeln('=-----------------------------=');
win:=true;
end;
//
if not(gnum=inttostr(num))then
begin
tt:=tt+1;
if(tt>=25)then
begin
writeln('You loose');
terminatescript;
end;
//
end;
//
until(win=true);
winn;
end;
//
procedure one;
begin
num:=random(10);
repeat
gnum:=readln('0-10');
if(gnum=inttostr(num))then
begin
tt:=tt+1;
writeln('=-----------------------------=');
writeln('= '+inttostr(tt)+' tried times              =');
writeln('=-----------------------------=');
win:=true;
end;
//
if not(gnum=inttostr(num))then
begin
tt:=tt+1;
if(tt>=5)then
begin
writeln('You loose');
terminatescript;
end;
//
one;
end;
//

until(win=true);
tt:=0;
win:=false;
two;
end;
//
begin
one;
end.

 

[dbmain]

lol no posts.