First Real Script -AutoShaftMaker -Help!
Hi everybody, this was my first ever full script.
However, it doesn't work
It tells me it expects an identifier in line 29 or something.
Also, any help at all is much appreciated.
Vilon, I wasn't able to contact you, but I used your antiban, I hope that is ok?
I tried to use standards.
SCAR Code:
{ Arrow Shafter by Belt
Credits:
WT Fakawi for...a lot of stuff.
Vilon for his Antiban }
program BeltArrowShaft;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
const
TreeColor = 927012; //This should work...change if needed.
ShaftsToMake =5; //How many logs do you want cut to shafts?
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 1;
Players[1].Name := 'xxx'
Players[1].Pass := 'xxx'
Players[1].Nick := 'xxx'
Players[1].Active := True;
procedure ClearDebug;
begin
ClearDebug;
WriteLn('BeltArrowShaft')
end;
function FindFastRandoms: boolean; //By WT-Fakawi.
var
i: integer;
begin
for i := 1 to 6 do
begin
case I of
1:
if FindDead then
Result := True;
2:
if FindMod then
Result := True;
3:
if FindMime then
Result := True;
4:
if FindMaze then
Result := True;
5:
if FindQuiz then
Result := True;
6:
if FindDemon then
Result := True;
procedure FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
end;
procedure AntiBan; //Taken from Vilon Flax Spinner! Thank you!
begin
PlayerCheck;
case random(35) + 1 of
0: HoverSkill('fletching', false);
1: HoverSkill('random', false);
2: BoredHuman;
3: HoverSkill('crafting', false);
4: BoredHuman;
5: BoredHuman;
6: HoverSkill('woodcutting', false);
end;
procedure FindTree;
begin
if FindColor(x,y,TreeColor,0,0,600,600) then
Wait(1500);
MMouse(x,y,3,3)
Wait(1500);
if (IsUpText('Tree')) then
Mouse(x,y,3,3, False);
Wait(1500);
ChooseOption(x,y,'Chop');
Wait(4000)
;
end;
procedure ShaftTime;
begin
Mouse(668,228,3,3,True);
Wait(1500);
Mouse(624,229,3,3,True);
Wait(1500);
MMouse(80,405,3,3);
Wait(1500);
if (IsUpText('Make')) then
Mouse(80,405,3,3,True);
Wait(3500);
end;
begin
SetupSRL;
DeclarePlayers;
repeat
FindTree;
FindRandoms;
FindFastRandoms;
ShaftTime;
ClearDebug;
until (ShaftsToCut);
end.