Simba Code:
program KensMahogany;
{$i SRL/srl.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Active := True; //Leave this alone.
Players[0].Pin := ''; //Put your Bank PIN here. Leave blank if you don't have a Bank PIN.
end;
procedure AntiBan;
begin
FindNormalRandoms;
case Random(100) of
0..7:
begin
case Random(5) of
0:
begin
HoverSkill('Woodcutting', false);
wait(1200 + random(100));
end;
1: PickUpMouse;
2: RandomMovement;
3: ExamineInv;
end;
end;
8..99: Wait(50 + random(50));
end;
end;
function TreeColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.04, 1.25);
if not (FindColorsTolerance(arP, 6135736, MSX1, MSY1, MSX2, MSY2, 9)) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
Result := arC[i];
Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;
Function ChopDown:BooLean;
Var
heX, heY: Integer;
Begin
If FindObjTPA(heX, heY, TreeColor, 5, 2, 20, 60, 10, ['hogany', 'Chop', 'hop']) then
WriteLn('Yo Dawg, we found that Tree');
begin
Mouse(heX, heY, 2, 2, false);
ChooseOption('hop');
repeat
Wait(1200+random(240));
Until not IsUpText('hogany') or (InvFull);
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
Repeat
ChopDown;
Until not IsUpText('hogany')or(InvFull);
end.
Oh k same issue [Error] (96:4): Identifier expected at line 95 what did i do wrong now !