John
01-15-2012, 01:19 AM
[Error] (79:5): Identifier expected at line 78
Compiling failed.
My simba coding:
program EvlinsFleshCrawlerKillah;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
Const
{---SMART Setup Constants---}
WORLD = 50;// Set a world, if you'd like.
MEMBERS = False;// Change accordingly.
SIGNED = True; // True if running a single account, false otherwise.
{---------------------------}
{--------Script Info--------}
Author = 'Evlin';
Name = 'EvlinsFleshCrawlerKillah';
Version = '1.00';
{---------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username
Players[0].Active := True; // Set to true if you want to use this player
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
procedure AntiBan;
begin
case Random(6) of
0: HoverSkill('Random', False);
1: begin
RandomMovement;
HoverSkill('Random', False);
end;
2: BoredHuman;
3: BoredHuman;
4: ExamineInv;
5: begin
RandomAngle(1);
HoverSkill('Random', False);
ExamineInv;
end;
end;
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
end;
procedure ProgressReport;
begin
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
WriteLn(Name + ' by' + Author + ' V' + Version);
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
procedure BanktoFleshCrawls;
var myPath:
begin
SPS_Setup(RUNESCAPE_SURFACE,['10_6','10_7']);
SPS_GetmyPos;
myPath:= [Point(4204, 2685), Point(4195, 2686), Point(4194, 2695),
Point(4197, 2702), Point(4207, 2703), Point(4218, 2705), Point(4226, 2705),
Point(4233, 2711), Point(4235, 2721), Point(4234, 2733), Point(4233, 2746),
Point(4232, 2755), Point(4231, 2765), Point(4231, 2778), Point(4228, 2785),
Point(4217, 2785), Point(4213, 2791), Point(4200, 2791), Point(4187, 2787),
Point(4185, 2802), Point(4188, 2810), Point(4189, 2819), Point(4189, 2828),
Point(4188, 2837), Point(4189, 2845), Point(4192, 2854), Point(4196, 2863),
Point(4196, 2874), Point(4197, 2884), Point(4199, 2893), Point(4193, 2901),
Point(4193, 2909), Point(4193, 2917), Point(4194, 2926), Point(4192, 2934),
Point(4187, 2939), Point(4182, 2945), Point(4176, 2950), Point(4167, 2956),
Point(4159, 2958)];//Path from the path maker.
end;
procedure UseBankNPC
begin
Result := (LoggedIn) and (BankScreen or PinScreen);
if (Result) then exit;
Speed := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
ColFace := 7513036;
ColGrey := 4995649;
ColBlue := 4336690;
ColHair := 2506053;
if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
['ounter', 'se Co', 'anke', 'to B', 'Banker', 'nker'], 2, 2)) then
begin
Mouse(bx, by, 0, 0, False);
if (WaitOptionMulti(['kly Co', 'se-qu', 'ank B', 'Bank Banker', 'ank', 'nker'], 750)) then
begin
t := (GetSystemTime + 5000);
repeat
if (BankScreen) or (PinScreen) then
begin
Result := true;
Break;
end;
Wait(50);
until(GetSystemTime > t);
if (Length(Players) > 0) then
if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
InPin(Players[CurrentPlayer].Pin);
Result := (BankScreen) or (PinScreen);
end;
end;
ColorToleranceSpeed(Speed);
end;
begin
Smart_Server := WORLD;
Smart_Members := MEMBERS;
Smart_Signed := SIGNED;
Smart_SuperDetail := False; // These four lines, setup and run Smart, using the constants you made earlier.
SetupSRL; // This is used to setup SRL's base features, and is almost always necessary.
DeclarePlayers; // This runs your DeclarePlayers procedure, setting them up to run
LoginPlayer; // This logs in your first player.
SPS_Debug := true
UseBankNPC
BanktoFleshCrawls; // sps path used to getting to the dungeon.
end.
Help greatly appreciated.
Compiling failed.
My simba coding:
program EvlinsFleshCrawlerKillah;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
Const
{---SMART Setup Constants---}
WORLD = 50;// Set a world, if you'd like.
MEMBERS = False;// Change accordingly.
SIGNED = True; // True if running a single account, false otherwise.
{---------------------------}
{--------Script Info--------}
Author = 'Evlin';
Name = 'EvlinsFleshCrawlerKillah';
Version = '1.00';
{---------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username
Players[0].Active := True; // Set to true if you want to use this player
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
procedure AntiBan;
begin
case Random(6) of
0: HoverSkill('Random', False);
1: begin
RandomMovement;
HoverSkill('Random', False);
end;
2: BoredHuman;
3: BoredHuman;
4: ExamineInv;
5: begin
RandomAngle(1);
HoverSkill('Random', False);
ExamineInv;
end;
end;
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
end;
procedure ProgressReport;
begin
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
WriteLn(Name + ' by' + Author + ' V' + Version);
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
procedure BanktoFleshCrawls;
var myPath:
begin
SPS_Setup(RUNESCAPE_SURFACE,['10_6','10_7']);
SPS_GetmyPos;
myPath:= [Point(4204, 2685), Point(4195, 2686), Point(4194, 2695),
Point(4197, 2702), Point(4207, 2703), Point(4218, 2705), Point(4226, 2705),
Point(4233, 2711), Point(4235, 2721), Point(4234, 2733), Point(4233, 2746),
Point(4232, 2755), Point(4231, 2765), Point(4231, 2778), Point(4228, 2785),
Point(4217, 2785), Point(4213, 2791), Point(4200, 2791), Point(4187, 2787),
Point(4185, 2802), Point(4188, 2810), Point(4189, 2819), Point(4189, 2828),
Point(4188, 2837), Point(4189, 2845), Point(4192, 2854), Point(4196, 2863),
Point(4196, 2874), Point(4197, 2884), Point(4199, 2893), Point(4193, 2901),
Point(4193, 2909), Point(4193, 2917), Point(4194, 2926), Point(4192, 2934),
Point(4187, 2939), Point(4182, 2945), Point(4176, 2950), Point(4167, 2956),
Point(4159, 2958)];//Path from the path maker.
end;
procedure UseBankNPC
begin
Result := (LoggedIn) and (BankScreen or PinScreen);
if (Result) then exit;
Speed := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
ColFace := 7513036;
ColGrey := 4995649;
ColBlue := 4336690;
ColHair := 2506053;
if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
['ounter', 'se Co', 'anke', 'to B', 'Banker', 'nker'], 2, 2)) then
begin
Mouse(bx, by, 0, 0, False);
if (WaitOptionMulti(['kly Co', 'se-qu', 'ank B', 'Bank Banker', 'ank', 'nker'], 750)) then
begin
t := (GetSystemTime + 5000);
repeat
if (BankScreen) or (PinScreen) then
begin
Result := true;
Break;
end;
Wait(50);
until(GetSystemTime > t);
if (Length(Players) > 0) then
if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
InPin(Players[CurrentPlayer].Pin);
Result := (BankScreen) or (PinScreen);
end;
end;
ColorToleranceSpeed(Speed);
end;
begin
Smart_Server := WORLD;
Smart_Members := MEMBERS;
Smart_Signed := SIGNED;
Smart_SuperDetail := False; // These four lines, setup and run Smart, using the constants you made earlier.
SetupSRL; // This is used to setup SRL's base features, and is almost always necessary.
DeclarePlayers; // This runs your DeclarePlayers procedure, setting them up to run
LoginPlayer; // This logs in your first player.
SPS_Debug := true
UseBankNPC
BanktoFleshCrawls; // sps path used to getting to the dungeon.
end.
Help greatly appreciated.