Simba Code:
program QAZsflaxFinder;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i SPS/sps.simba}
// Start in seers village bank
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Pin := '';
end;
Var
myPath:TPointArray;
myPrath:TPointArray; //This is not used too
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(8) of
0:
begin
HoverSkill('Mining', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
end;
end;
end;
Procedure RunToFlax;
begin
if not LoggedIn then Exit;
RestUntil(100);
SPS_Setup(RUNESCAPE_SURFACE,['6_6','6_7','7_7']);
myPath := [Point(2740, 2692), Point(2741, 2760), Point(2744, 2830), Point(2779, 2880), Point(2807, 2856)]; //You missed a ] here
SPS_WalkPath(myPath)
end;
Procedure PickFlax;
var
i, x, y: Integer; //You did not declare the variance x and y, and your i is not used in the procedure
begin
if not (LoggedIn) then
Exit;
if not (FindNormalRandoms) then
begin
SetAngle(SRL_ANGLE_HIGH);
while (InvCount < 28) do
begin
while (IsMoving) do
X:= MSCX;
Y:= MSCY+30;
Wait(RandomRange(1000, 1500));
if(FindColorSpiralTolerance(X, Y, 14407266, MSX1, MSY1, MSX2, MSY2, 41)) then
begin
Mouse(X, Y, 10, 10, true);
Wait(RandomRange(500, 1000));
AntiBan;
end else
Break;
end;
end;
end;
Procedure ToBank;
begin
if not LoggedIn then Exit;
RestUntil(100);
SPS_Setup(RUNESCAPE_SURFACE,['7_7','6_7','6_6']); //Missed out ) here
myPath := [Point(2801, 2875), Point(2766, 2879), Point(2746, 2825), Point(2730, 2763), Point(2740, 2710), Point(2736, 2675)];
SPS_WalkPath(myPath)
end;
Procedure BankFlax;
begin
FindNormalRandoms;
SetAngle(SRL_ANGLE_HIGH);
wait(2000)
OpenBankFast('clt')
if PinScreen then
InPin(Players[0].Pin);
WriteLn('Opened bank. Depositing flax...');
wait(3000);
DepositAll();
CloseBank;
Antiban;
WriteLn('finished banking. Resting...');
Antiban;
wait(1500);
RestUntil(100);
end;
begin
Smart_Server := 3;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
RunToFlax;
PickFlax;
ToBank;
BankFlax;
until(not LoggedIn)
end.