program SwampToadCollector; <<- This is the line!
[Error] (1:1): Unexpected end of file at line 0
Compiling failed.
^^ Keep getting this error! But I can't see that I'm doing anything wrong!
program SwampToadCollector;
program SwampToadCollector; <<- This is the line!
[Error] (1:1): Unexpected end of file at line 0
Compiling failed.
^^ Keep getting this error! But I can't see that I'm doing anything wrong!
program SwampToadCollector;
BOT TILL YOU DROP!
umm do you have an "end." at the end of your script? is the main loop correct?
Simba Code:program SwampToadCollector;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL/SRL.simba}
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//Break Settings
BreakIn = 135;
BreakFor = 15;
Version = 1.0;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //Enter your Runescape Username Here
Pass := ''; //Enter your Runescape Password Here
Pin := ''; //Enter your Bank Pin Here, Leave blank if you dont have one BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Agility;
Active := True;
end;
end;
Var
x, y: Integer;
Procedure Antiban;
Begin
Case Random(100) Of
1: HoverSkill('magic', False);
2: HoverSkill('random', False);
3: Boredhuman;
4: Wait(2500 + random(4500));
5: RandomRClick;
6: PickUpMouse;
7: RandomMovement;
end;
end;
Procedure PickUpFrog;
begin
repeat
FindNormalRandoms;
if FindObjCustom(x, y, ['Swamp', 'toad'], [2190656], 5) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('Take');
end;
repeat
Until not IsUpText('toad') or (InvFull);
until(InvFull);
End;
Procedure RadialWalkToBank;
var
x,y, Roadcolor: Integer;
begin
If (InvFull) then
begin
RoadColor := AutoColor(1);
writeln(ToStr(RoadColor));
repeat
RadialWalkAutoColor(RoadColor, 160, 180, 65, 1, 1);
until(FindSymbol(x, y, 'summoning obelisk'));
end;
begin
Smart_Server := 23;
Smart_Members := True;
Smart_Signed := False;
Smart_SuperDetail := False;
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
SetAngle(SRL_ANGLE_HIGH);
PickUpFrog;
RadialWalkToBank;
end
There it is, nothing special, but hoping to get it fully working, would be a good first script to make ( I think).
Last edited by ABC!; 05-26-2012 at 09:36 AM.
BOT TILL YOU DROP!
Last line, "End" Should be "End."
no probs, 1 second and i'll have another look.
E: Spot the difference :P
Simba Code:program SwampToadCollector;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL/SRL.simba}
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//Break Settings
BreakIn = 135;
BreakFor = 15;
Version = 1.0;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //Enter your Runescape Username Here
Pass := ''; //Enter your Runescape Password Here
Pin := ''; //Enter your Bank Pin Here, Leave blank if you dont have one BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Agility;
Active := True;
end;
end;
Var
x, y: Integer;
Procedure Antiban;
Begin
Case Random(100) Of
1: HoverSkill('magic', False);
2: HoverSkill('random', False);
3: Boredhuman;
4: Wait(2500 + random(4500));
5: RandomRClick;
6: PickUpMouse;
7: RandomMovement;
end;
end;
Procedure PickUpFrog;
begin
repeat
FindNormalRandoms;
if FindObjCustom(x, y, ['Swamp', 'toad'], [2190656], 5) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('Take');
end;
repeat
Until not IsUpText('toad') or (InvFull);
until(InvFull);
End;
Procedure RadialWalkToBank;
var
x,y, Roadcolor: Integer;
begin
If (InvFull) then
begin
RoadColor := AutoColor(1);
writeln(ToStr(RoadColor));
repeat
RadialWalkAutoColor(RoadColor, 160, 180, 65, 1, 1);
until(FindSymbol(x, y, 'summoning obelisk'));
end;
end;
begin
Smart_Server := 23;
Smart_Members := True;
Smart_Signed := False;
Smart_SuperDetail := False;
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
SetAngle(SRL_ANGLE_HIGH);
PickUpFrog;
RadialWalkToBank;
end.
You Missed an "End" in RadialWalkBank.
Last edited by John; 05-26-2012 at 09:43 AM.
fix'd
Simba Code:program SwampToadCollector;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL/SRL.simba}
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//Break Settings
BreakIn = 135;
BreakFor = 15;
Version = 1.0;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //Enter your Runescape Username Here
Pass := ''; //Enter your Runescape Password Here
Pin := ''; //Enter your Bank Pin Here, Leave blank if you dont have one BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Agility;
Active := True;
end;
end;
Var
x, y: Integer;
Procedure Antiban;
Begin
Case Random(100) Of
1: HoverSkill('magic', False);
2: HoverSkill('random', False);
3: Boredhuman;
4: Wait(2500 + random(4500));
5: RandomRClick;
6: PickUpMouse;
7: RandomMovement;
end;
end;
Procedure PickUpFrog;
begin
repeat
FindNormalRandoms;
if FindObjCustom(x, y, ['Swamp', 'toad'], [2190656], 5) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('Take');
end;
repeat
Until not IsUpText('toad') or (InvFull);
until(InvFull);
End;
Procedure RadialWalkToBank;
var
x,y, Roadcolor: Integer;
begin
If (InvFull) then
begin
RoadColor := AutoColor(1);
writeln(ToStr(RoadColor));
repeat
RadialWalkAutoColor(RoadColor, 160, 180, 65, 1, 1);
until(FindSymbol(x, y, 'summoning obelisk'));
end;
end; //added end
begin
Smart_Server := 23;
Smart_Members := True;
Smart_Signed := False;
Smart_SuperDetail := False;
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
SetAngle(SRL_ANGLE_HIGH);
PickUpFrog;
RadialWalkToBank;
end. //added .
Working on: Tithe Farmer
Ty guys + repped both!
BOT TILL YOU DROP!
There are currently 1 users browsing this thread. (0 members and 1 guests)