l33t master
09-19-2006, 03:55 AM
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.
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.