Jhangir
2011-12-20 23:20:30
Im following yohojo's tutorial script and now I get an error on line 43 the (bolded line). It says I need a semicolon?
program PowerChopper;
{$define SMART}
{$i SRL/SRL.scar}
{$i SRL/SRL/Misc/stats.simba}
Const
SRLStats_Username =
BreakIn = 135;
BreakFor = 15;
Version = 1.0;
NumbOfPlayers = 1;
StartPlayer = 0;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
with Players[0] do
begin
Name
end;
Procedure StatsGuise(wat:String);
begin
Status(wat);
Disguise(wat);
end
Function CheckAndClick(X,Y:Integer):Boolean;
Begin
MMouse(x, y, 5, 5);
Wait(100 + Random(50));
If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then
Begin
Result:=True;
GetMousePos(x, y);
Mouse(x, y, 0, 0,True);
Wait(100);
FFlag(0);
End;
End;
Procedure Antiban;
Begin
Case Random(192) Of
0: HoverSkill('Woodcut', False);
1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
2: ExamineInv;
3: RandomAngle(1);
4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
5: HoverSkill('random', False);
End;
End;
Function ChopDown;
Var
x, y: Integer;
Begin
// FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5);
If FindObjCustom(x, y, ['Chop', 'down', 'p d'], [123, 345], 10) Then
begin
end.
program PowerChopper;
{$define SMART}
{$i SRL/SRL.scar}
{$i SRL/SRL/Misc/stats.simba}
Const
SRLStats_Username =
BreakIn = 135;
BreakFor = 15;
Version = 1.0;
NumbOfPlayers = 1;
StartPlayer = 0;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
with Players[0] do
begin
Name
end;
Procedure StatsGuise(wat:String);
begin
Status(wat);
Disguise(wat);
end
Function CheckAndClick(X,Y:Integer):Boolean;
Begin
MMouse(x, y, 5, 5);
Wait(100 + Random(50));
If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then
Begin
Result:=True;
GetMousePos(x, y);
Mouse(x, y, 0, 0,True);
Wait(100);
FFlag(0);
End;
End;
Procedure Antiban;
Begin
Case Random(192) Of
0: HoverSkill('Woodcut', False);
1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
2: ExamineInv;
3: RandomAngle(1);
4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
5: HoverSkill('random', False);
End;
End;
Function ChopDown;
Var
x, y: Integer;
Begin
// FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5);
If FindObjCustom(x, y, ['Chop', 'down', 'p d'], [123, 345], 10) Then
begin
end.