Simba Code:
program AlkharidTanner;
{$I SRL/SRL/misc/SMART.SCAR}
{$loadlib sps}
{$I SRL/SRL.scar}
{$i sps/sps.simba}
type
BoxName = record
name: String;
x1: Integer;
y1: Integer;
x2: Integer;
y2: Integer;
end;
const
CharName = '';
CharPas = '';
Loads2Do = 999;//how many loads to do
HideType = 2; // valids are [0]SoftLeather,[1]HardLeather, [2]GreenDhide
BreakFor = 0;
BreakEvery= 0;
// BankerCol = ([000,000,000,000]);
//Smart Setup
SmartWorld = 16;
Members = True;
SignedClient = True;
HighDetail = False;
var
tic,FailedTan,start,DidBreak,Made,x,y:integer;
WhatHide: Array [0..8]of BoxName;
Location:string;
Bnk2Tan:TPointArray;
procedure SetupPlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :=CharName;
Players[0].Pass :=CharPas;
Players[0].Pin :='';
Players[0].Active:=True;
end;
procedure DoBreak;
begin
writeln('breaking');
inc(DidBreak);
ExitToLobby;
Wait(BreakFor*60000+RandomRange(60000,300000));
LoginPlayer;
writeln('Finished Break');
MarkTime(Start);
end;
procedure AntiBan;
begin
if not(LoggedIn) then Exit;
case RandomRange(1,76) of
1: RandomMovement;
// 2: HoverSkill('Magic',false);
3: RandomMovement;
4: PickupMouse;
5: FindNormalRandoms;
6: MakeCompass('e');
end;
end;
Procedure EnergyChecker;
Begin
If FindColorSpiralTolerance(X, Y, 255, 736, 104, 761, 121, 10)then
Begin
Wait(Randomrange(300, 321));
RestUntil(RandomRange(80,90));
End;
End;
procedure DoWalking;
begin
SPS_Setup(RUNESCAPE_SURFACE, ['12_9']);
SPS_Continue := false;
if Location = 'Bank'then
begin
Bnk2Tan := [Point(4916, 3995),
Point(4936, 3977),
Point(4953, 3941),
Point(4935, 3898)];
if SPS_WalkPath(Bnk2Tan) then
begin
Location:='Tan';
Wait(RandomRange(500,600));
end else
Writeln('we got lost... Please post where you got lost');
exit;
end;
if Location = 'Tan'then
begin
InvertTPA(Bnk2Tan);
if SPS_WalkPath(Bnk2Tan) then
begin
Location:='Bank';
Wait(RandomRange(500,600));
end else
Writeln('we got lost... Please post where you got lost');
exit;
end;
end;
procedure FindTanner;
begin
repeat
while IsMoving do
begin
wait(0);
end;
if FindObjCustom(x,y,['ll','is'],[15590380,5929419],15)then
Mouse(x,y,2,2,false);
inc(tic);
until(ChooseOption('de '))or (tic>=10);
end;
procedure DoTanning;
begin
WhatHide[0].name:='SoftLeather';//SoftLeather
WhatHide[0].x1:=66;
WhatHide[0].y1:=70;
WhatHide[0].x2:=113;
WhatHide[0].y2:=122;
WhatHide[1].name:='HardLeather';//HardLeather
WhatHide[1].x1:=176;
WhatHide[1].y1:=70;
WhatHide[1].x2:=223;
WhatHide[1].y2:=122;
WhatHide[2].name:='GreenDhide';//GreenDhide
WhatHide[2].x1:=63;
WhatHide[2].y1:=201;
WhatHide[2].x2:=109;
WhatHide[2].y2:=251;
FindTanner;
tic:=0;
repeat
Wait(RandomRange(1000,1200));
inc(tic);
until(FindColorTolerance(x,y,1006349,MSX1,MSY1,MSX2,MSY2,15))or (tic>=10)
if tic>=10 then
begin
tic:=0;
exit;
end;
MouseBox(WhatHide[HideType].x1,WhatHide[HideType].y1,WhatHide[HideType].x2,WhatHide[HideType].y2,2);
if ChooseOption('ll')then
begin
Made:=Made+28;
end else
writeln('failed tannin');
inc(FailedTan);
end;
// Edited OpenBankNPC;
function OpenBankNPC_Booth: Boolean;
var
bx, by, Speed, ColFace, ColFace2, BankBooth, BankBooth2, t: Integer;
begin
Result := (LoggedIn) and (BankScreen or PinScreen);
if (Result) then exit;
Speed := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
ColFace := 1979203; // Face Color
ColFace := 3892356; // Grey Color [ Clothes ]
BankBooth := 4080456; // Blue Color [ Clothes ]
BankBooth2 := 4080456; // Orange Hair [wyn10]
if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColFace, BankBooth, BankBooth2], [1, 1, 1, 1],
['anke', 'to B', 'Bank', 'nk','booth'], 10, 10)) then
begin
Mouse(bx, by, 0, 0, False);
if (WaitOptionMulti(['ank B','-qui', '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;
procedure Bnk;
var tri,i1,w:integer;
begin
if not(LoggedIn) then Exit;
w:= RandomRange(200,400);
while IsMoving do
begin
wait(0);
end;
if OpenBankNPC_Booth then
if not OpenBankNPC_Booth then
if not OpenBankNPC_Booth then
if not OpenBankNPC_Booth then
begin
writeln('failed banking please set colors Terminating');
LogOut;
TerminateScript;
end;
i1:=0;
repeat
Wait(0);
Until(BankScreen);
MouseBox(355,317,384,299, 1);
MouseSpeed:= RandomRange(14,19);
Withdraw(0,0,28);
tri:=6;
begin
EnergyChecker;
end;
end;
procedure proggy;
begin //+IntToStr(WhatHide[HideType].name)
cleardebug;
writeln('||----------------------------------------||');
writeln('||----------- Owner5 AlkharidTanner ----------||');
writeln(' Ran for '+TimeRunning+'');
writeln('||---'+WhatHide[HideType].name+'--'+'Hides Tanned : '+IntToStr(Made)+'-----------------||');
// writeln('||----- '+IntToStr((FailedTan))+'------------------||');
WriteLn(PadR('[ ' + FloatToStr(Round((Made * 3600) / (GetTimeRunning / 1000))) + ' Hides/Hr', 50) + ']');
writeln('||----------------------------------------||');
end;
Procedure main;
var
ii:integer;
begin
repeat
inc(ii);
Bnk;
DoWalking;
DoTanning;
proggy;
DoWalking;
EnergyChecker;
until(ii>= Loads2Do)
end;
begin
Smart_Server := SmartWorld;
Smart_Members := Members;
Smart_Signed := SignedClient;
Smart_SuperDetail := HighDetail;;
SetupSRL;
SetupPlayers;
ActivateClient;
MarkTime(Start);
MouseSpeed:=RandomRange(25,30);
Location:= 'Bank';
wait(RandomRange(1000,1500));
if not LoggedIn then LogInPlayer;
main;
end.