afastngr
05-16-2012, 08:01 AM
[Error] C:\Simba\Includes\SRL/SRL/core/simba.simba(4:24): Semicolon (';') expected at line 3
Compiling failed.
Also [Error] (4:15): period ('.') expected at line 3
Compiling failed.
program PowerChopper
{$i srl/srl.simba};
Const
It opens up Simba
//-----------------------------------------------------------------//
//-- Scar Standard Resource Library --//
//-- Simba.simba --//
//-----------------------------------------------------------------//
Simba.Simba is highlighted any help, first time trying to code, thanks in advance
================ F U L L S C R I P T, N O T F I N I S H E D =========================================
program PowerChopper
{$i srl/srl.simba}
begin
SetUpSRL;
ActivateClient;
end.
begin
end.
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//General settings
DebugMode = True; //On-screen debugging?
SwitchWorlds = True; //Switch worlds after a break?
//Break settings
BreakIn = 302; //How long before we take a break? (minutes)
BreakFor = 4; //How long will we break for? (minutes)
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Agility;
Active := True;
end;
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}
If WaitUpTextMulti(['Chop','hop'], 150) Then
Begin
Result:=True;
GetMousePos(x, y);
Mouse(x, y, 0, 0,True);
Wait(100+Random(50));
FFlag(0);
End;
End;
Procedure Antiban;
Begin
Case Random(192) Of
0: HoverSkill('Woodcutting', 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;
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Procedure Failsafe
Begin
Players(CurrentPlayer).Lnc:-Reason;
Logout;
Stats_Commit
//ProgressReport;
TerminateScript;
End;
Function IvyChop:Boolean;
var
x, y, PlusOne: Integer;
Begin
If FindObjCustom(var x, y ['Chop', 'Ivy', '2','C I'] ['4223833','10001823 ','4149077 ' ,'11186098 ' ,'3695950 ' ,'8291204 ' ,'3233860'],30 ): Then
GetMousePos(x, y);
Case Random(2)
0: Mouse(x, y, 6, 6, True);
1: Begin
Mouse(X, Y, 6, 6, False);
WaitOption('Chop',500)
ChooseOption('Chop')
End;
End;
End.
Begin
setup SRL;
DeclarePlayers;
Repeat
IvyChop;
Until(false);
End.
Compiling failed.
Also [Error] (4:15): period ('.') expected at line 3
Compiling failed.
program PowerChopper
{$i srl/srl.simba};
Const
It opens up Simba
//-----------------------------------------------------------------//
//-- Scar Standard Resource Library --//
//-- Simba.simba --//
//-----------------------------------------------------------------//
Simba.Simba is highlighted any help, first time trying to code, thanks in advance
================ F U L L S C R I P T, N O T F I N I S H E D =========================================
program PowerChopper
{$i srl/srl.simba}
begin
SetUpSRL;
ActivateClient;
end.
begin
end.
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//General settings
DebugMode = True; //On-screen debugging?
SwitchWorlds = True; //Switch worlds after a break?
//Break settings
BreakIn = 302; //How long before we take a break? (minutes)
BreakFor = 4; //How long will we break for? (minutes)
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Agility;
Active := True;
end;
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}
If WaitUpTextMulti(['Chop','hop'], 150) Then
Begin
Result:=True;
GetMousePos(x, y);
Mouse(x, y, 0, 0,True);
Wait(100+Random(50));
FFlag(0);
End;
End;
Procedure Antiban;
Begin
Case Random(192) Of
0: HoverSkill('Woodcutting', 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;
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Procedure Failsafe
Begin
Players(CurrentPlayer).Lnc:-Reason;
Logout;
Stats_Commit
//ProgressReport;
TerminateScript;
End;
Function IvyChop:Boolean;
var
x, y, PlusOne: Integer;
Begin
If FindObjCustom(var x, y ['Chop', 'Ivy', '2','C I'] ['4223833','10001823 ','4149077 ' ,'11186098 ' ,'3695950 ' ,'8291204 ' ,'3233860'],30 ): Then
GetMousePos(x, y);
Case Random(2)
0: Mouse(x, y, 6, 6, True);
1: Begin
Mouse(X, Y, 6, 6, False);
WaitOption('Chop',500)
ChooseOption('Chop')
End;
End;
End.
Begin
setup SRL;
DeclarePlayers;
Repeat
IvyChop;
Until(false);
End.