SRL Archive - OSR Help

why do i get this error when compiling??


Steingraber

2012-05-28 23:41:53

[Error] C:\Simba\Includes\sps/sps.simba(43:35): Unknown identifier 'MMCX' at line 42
Compiling failed.

Simba opens a new tab called "sps".
the part it is having a fit over:
begin
try
Result := TMufasaBitmap.Create;
Result.SetSize(150, 150);

c := getTClient;
Result.CopyClientToBitmap(
c.IOManager, false, 0, 0, MMCX-75, MMCY-75, MMCX+75, MMCY+75
);

except
Writeln('SPS_GatherMinimap ERROR: '+ExceptionToString(ExceptionType, ExceptionParam));
end;
end;

bg5

2012-05-28 23:50:32

What you trying to compile?
Did you include SRL.simba?

Do you have setupSRL; line?

Steingraber

2012-05-28 23:54:38

program ll;
{$i sps/sps.simba}
{$I SRL/SRL/Misc/Smart.simba}
{$I SRL/SRL.simba}
{$i SRL/SRL/misc/paintsmart.simba}

procedure DeclarePlayers;
begin



HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].Pin := '5723';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players

procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 87;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
end;

Procedure Walktopit;
Var
PitPath:TPointArray;
begin
If Not LoggedIn Then Exit;
If FindNormalRandoms Then Exit;

Writeln('Walking to pit.');
SPS_Setup(RUNESCAPE_SURFACE,['5_10']);
PitPath := [Point(284, 300), Point(252, 283), Point(214, 278),
Point(177, 276), Point(140, 306), Point(82, 310),
Point(35, 296), Point(24, 258)];
SPS_WalkPath(PitPath);
end;

Begin
DeclarePlayers;
SetupLogin;
Walktopit;
end.


This is what I am trying to compile.

bg5

2012-05-28 23:57:19

Thats because you include SPS before srl. Change it to this:

{$DEFINE SMART}
{$I SRL/SRL.simba}
{$i sps/sps.simba}
{$i SRL/SRL/misc/paintsmart.simba}

Steingraber

2012-05-28 23:59:56

Thank you!!!