Program Warm_up_Smite;
var
dragon_hp, start_menu, option_menu, guide_menu, about_menu, add, smite_damage, games_won, games_lost: Integer;
status: String;
procedure loadall;
begin
smite_damage := 850;
end;
Procedure console;
begin
Writeln('*** *** *** *** *** *** *** *** *** ***');
Writeln('Smite = ' + inttostr(smite_damage));
Writeln('');
Writeln('Dragon: ' + inttostr(dragon_hp));
Writeln('');
Writeln('*** *** *** *** *** *** *** *** *** ***');
end;
Procedure Mainmenu;
begin
if IsKeyDown(49) then
begin
start_menu := start_menu+1;
option_menu := option_menu-1;
guide_menu := guide_menu-1;
about_menu := about_menu-1;
add := add+2;
end;
if IsKeyDown(50) then
begin
option_menu := option_menu+1;
start_menu := start_menu-1;
guide_menu := guide_menu-1;
about_menu := about_menu-1;
end;
if IsKeyDown(51) then
begin
guide_menu := guide_menu+1;
option_menu := option_menu-1;
start_menu := start_menu-1;
about_menu := about_menu-1;
end;
if IsKeyDown(52) then
begin
about_menu := about_menu+1;
guide_menu := guide_menu-1;
option_menu := option_menu-1;
start_menu := start_menu-1;
end;
if start_menu = 2 then
begin
start_menu := 1;
about_menu := -1;
guide_menu := -1;
option_menu := -1;
end;
if about_menu = 2 then
begin
start_menu := -1;
about_menu := 1;
guide_menu := -1;
option_menu := -1;
end;
if option_menu = 2 then
begin
start_menu := -1;
about_menu := -1;
guide_menu := -1;
option_menu := 1;
end;
if guides_menu = 2 then
begin
start_menu := -1;
about_menu := -1;
guide_menu := 1;
option_menu := -1;
end;
if start_menu > 0 then
if add < 1 then
dragon_hp := 1000 + random(3000);
if IsKeyDown(32) then // space reset
begin
start_menu := 0;
option_menu = 0;
about_menu = 0;
guide_menu = 0;
add := 0;
end;
Writeln('Ignore these: ' + ('Status: ') + (status) + (' [') + inttostr(start_menu) + (']') + (' [') + inttostr(option_menu) + (']') + (' [') + inttostr(guide_menu) + (']') + (' [') + inttostr(about_menu) + (']') + (' [add = ' + inttostr(add)));
Writeln('*** *** *** *** *** *** *** *** *** ***');
Writeln('(1) to start the game');
Writeln('(2) Options');
Writeln('(3) Guides');
Writeln('(4) About');
Writeln('Games Won: ' + inttostr(games_won) + (' Games Lost: ') + inttostr(games_lost) + );
Writeln('*** *** *** *** *** *** *** *** *** ***');
end;
Procedure console_game;
begin
Writeln('Current Status:' + (status));
Writeln('**** **** **** **** **** **** ****');
Writeln('');
Writeln('Dragon HP: ' + inttostr(dragon_hp));
Writeln('');
Writeln('**** **** **** **** **** **** ****');
end;
Procedure game;
begin
if add > 1 then
begin
status := ('Game started');
Dragon_hp -(250+random(225));
wait(350 + random(150) + random(250));
Dragon_hp - (50+random(25));
wait(random(100));
Dragon_hp - (210+random(255));
wait(random(400));
Dragon_hp - (110+random(755));
wait(random(650));
end;
end;
Procedure Main;
begin
loadall;
if Dragon_hp < smite_damage then
if IsKeyDown(70) then
begin
dragon_hp - (smite_damage);
games_won := games_won+1;
Writeln('You won game!');
Writeln('Press Space to return Main Menu');
end else
begin
writeln('Enemy jungler stole dragon!');
Writeln('Press Space to return Main Menu');
games_lost := games_lost+1;
end;
if start_menu = 1 then
if option_menu = -1 then
if about_menu = -1 then
if guide_menu = -1 then
begin
console_game;
game;
end;
if start_menu = 0 then
if option_menu = 0 then
if about_menu = 0 then
if guide_menu = 0 then
if add = 0 then
begin
Mainmenu;
end;
end;
begin
Repeat
Cleardebug;
Main;
wait(10 + random(20));
Until(IsKeyDown(123)); //F12
end.
Im not sure if its work or not write this with notepad in work. but i really want learn make some basic scripts and only start game should work
and remember! F for smite!


. but i really want learn make some basic scripts and only start game should work
Reply With Quote



