My first script EVER. Warrior Fighter.

[l33t master]

Hey guys this is my new script. My first ever. Its an Al-Kharid warrior fighter.

program L33tMastersFirstScript;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
var
warriorColor1,warriorColor2,warriorColor3:integer;
//set findlamp at line 20
procedure GetReady;
begin
warriorColor1:=0;
warriorColor2:=0;
warriorColor3:=0;
end;

procedure FindRandoms;
begin
setRun(true)
FindNormalRandoms;
ClickToContinue;
CloseWindow;
FindLamp('hitpoints');
FindDead;
FindMod;
FindMime;
FindMaze;
FindQuiz;
FindFrog;
FindDemon;

end;

procedure loginIfneeded;
begin
if LoggedIn=false then LoginPlayer;
end;
procedure KillGuards;
begin
AttackMonster(warriorColor1,warriorColor2,warriorC olor3,'Al-Kharid Warrior',2);
end;

begin
//main line
repeat
setupsrl;
GetReady;
FindRandoms;
LoginIfNeeded;
KillGuards;
until(false);

end.

just help me out by telling me what i did wrong and what can be improved. Thanks.