SRL Archive - First Scripts

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!

F is for flash! I guess there is two types of people ^^.

Haha this is interesting even though my smite game is already stronk. :)

You should put your code in

 tags so that it maintains its formatting and is easier to read. :)