Log in

View Full Version : error help please.



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.

m3gaman3g3nd
01-15-2012, 04:28 AM
var myPath:


u forgot this semicolon. usually if it tells you whats wrong usually that is what is wrong.

John
01-15-2012, 07:22 AM
gave me a new error:

[Error] (79:5): Identifier expected at line 78
Compiling failed.

Kyle Undefined
01-15-2012, 07:38 AM
var myPoint : TPointArray;

That will fix your error, but, even after doing that, your code is hacky and looks like it was stripped from other scripts and placed in there.

It won't compile since you're missing A LOT of needed parts in there.

John
01-15-2012, 07:48 AM
var myPoint : TPointArray;

That will fix your error, but, even after doing that, your code is hacky and looks like it was stripped from other scripts and placed in there.

It won't compile since you're missing A LOT of needed parts in there.
ok the banking was taken from another script the rest is from a tut apart from the sps.
thanks anyways.