Simba Code:
program FlaxSpin;
{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i sps/sps.simba}
var
x, y, k, walks, flax, BowString: integer;
ToFlax, ToWheel, ToBank, FromFlaxToBank: TPointArray;
const
AntibanFrequency = 28;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Don't touch this
NumberOfPlayers(HowManyPlayers);// Don't touch this
CurrentPlayer := 0; // Don't touch this
Players[0].Name := '';// Username
Players[0].Pass := ''; // Password
Players[0].Active := True; // Don't touch this
Players[0].Pin := ''; // Bank Pin, Leave blank if you don't have one
Wait(randomrange(1500,5000));
end;
Procedure AntiBan;
begin
Case Random(AntibanFrequency) of
1: Setangle(RandomRange(0, 30));
2: MakeCompass(RandomRange(260, 280));
3: RandomRClick;
4: RandomMovement;
5: begin
HoverSkill('Crafting', false);
Wait(RandomRange(2000, 7000));
Gametab(Tab_Inv);
end;
end;
end;
Procedure Bank;
begin
BowString := DTMFromString('m1gAAAHic42JgYLBlYmAwAWIXIPYFYjcgdgBiMyC2AmIbIPYA4idAtR+h+C0QXwfim0B8D4jvA/F7IH4GxJlJAUCSCYx5eXnhbHTMxkAcYCQSIwAA8lgM8g==');
MakeCompass('E');
Wait(randomrange(200,250));
//FindObjCustom(x,y,['ank','ooth'],[4218737,4218737],8);
FindObjTPA(x, y, 4153201, 10, 1, 25, 8, 120, ['ank']);
Mouse(x, y, 2, 2, true);
Wait(randomrange(600,800));
DepositAll;
wait(randomrange(200,250));
Repeat
Wait(randomrange(50,75));
DepositAll;
until(Not FindDTM(BowString, x, y, MIX1, MIY1, MIX2, MIY2));
Wait(randomrange(200,300));
CloseWindow;
Wait(randomrange(200, 300));
Gametab(Tab_Inv);
Wait(randomrange(400, 500));
end;
Procedure WalkToFlax;
begin
SPS_Setup(RUNESCAPE_SURFACE,['6_6','6_7','7_7']);
ToFlax := [Point(2738, 2682), Point(2740, 2700),
Point(2740, 2712), Point(2743, 2729),
Point(2743, 2748), Point(2754, 2768),
Point(2752, 2789), Point(2762, 2812),
Point(2755, 2824), Point(2755, 2850),
Point(2756, 2869), Point(2770, 2873),
Point(2791, 2873), Point(2810, 2869)];
SPS_WalkPath(ToFlax);
end;
Procedure Pick;
begin
while (InvCount < 28) do
begin
FindObjCustom(x,y,['ick','lax'],[1458965,1458965],15);
Mouse(x, y, 5, 5, true);
Wait(randomrange(500,520));
end
end;
Procedure WalkToWheel;
begin
SPS_Setup(RUNESCAPE_SURFACE, ['7_7','6_7','6_6']);
ToWheel := [Point(2802, 2869), Point(2779, 2873), Point(2765, 2866),
Point(2754, 2844), Point(2737, 2833), Point(2714, 2820),
Point(2730, 2800), Point(2727, 2768), Point(2703, 2764)];
SPS_WalkPath(ToWheel);
end;
Procedure ClickLadder;
begin
Wait(randomrange(600,800));
repeat
Wait(RandomRange(400,700));
x:= (MSCX-80)
y:= (MSCY-55)
FindObjTPA(x, y, 6186861, 20, 2, 5, 18, 25,['Climb'])
until(true);
Mouse(x, y, 0, 0, true);
Wait(RandomRange(1500,1800));
end;
Procedure DealWithDoor;
begin
wait(randomrange(400,600));
MakeCompass('W');
// If FindObjCustom(x, y, ['pen Do'],[6450033] , 5) then
wait(randomrange(400,600));
x:= MSCX
y:= MSCY
If (FindObjTPA(x, y, 5462880 , 10, 2, 20, 15, 250 ,['pen Do'])) then
begin
Mouse(x, y, 0, 0, true);
wait(randomrange(600,800));
ClickLadder;
end else
ClickLadder;
Wait(randomrange(600,800));
end;
Procedure Spin;
begin
Flax := DTMFromString('m6wAAAHic42ZgYLBnYmCwAWJXIDYFYmsgdgJiDyD2B2IfKAbJPweqfwfE74H4GRA/AOLbQHwXiO9AxV4B8Rsg5nLlBpJMRGF+BuIBIwkYCQAALrgNag==');
x:= MSCX
y :=MSCY
MakeCompass('N');
Wait(randomrange(200,350));
Mouse(116, 178, 1, 1, true);
Wait(randomrange(900, 1050));
FindObjCustom(x,y,['nnin','eel'],[6186861,6450033],6);
Mouse(x, y, 0, 0, false);
WaitOption('Spin', 200);
Wait(randomrange(1400,1600));
Mousebox(124, 399, 186, 451, 1)
Repeat
Wait(randomrange(1500,3000));
Antiban;
until(Not FindDTM(Flax, x, y, MIX1, MIY1, MIX2, MIY2));
Wait(randomrange(200,300));
end;
Procedure GetOutOfHouse;
begin
MakeCompass('S');
Wait(randomrange(600,700));
Mouse(182, 167, 0, 0, true);
Wait(randomrange(1000,1200));
x:= (MSCX-80)
y:= (MSCY-55)
FindObjTPA(x, y, 6186861, 20, 2, 5, 18, 25,['-dow'])
Mouse(x, y, 0, 0, true);
Wait(randomrange(2000,2200));
x:= MSCX
y:= MSCY
Mouse(210, 250, 0, 0, true);
MakeCompass('W');
Wait(randomrange(800,1000));
If (FindObjTPA(x, y, 5462880 , 10, 2, 20, 15, 250 ,['pen Do'])) then
begin
Mouse(x, y, 0, 0, true);
Wait(randomrange(600,700));
Mouse(261, 221, 0, 0, true);
end else
Wait(randomrange(600,700));
Mouse(261, 221, 0, 0, true);
end;
Procedure GetToBank;
begin
SPS_Setup(RUNESCAPE_SURFACE, ['7_7','6_7','6_6']);
FromFlaxToBank := [Point(2803, 2871), Point(2764, 2872), Point(2750, 2846),
Point(2746, 2821), Point(2748, 2792), Point(2749, 2762),
Point(2738, 2737), Point(2752, 2715), Point(2739, 2695),
Point(2736, 2678)];
SPS_WalkPath(FromFlaxToBank);
Wait(randomrange(400,500));
end;
Procedure FlaxToBank;
begin
SPS_Setup(RUNESCAPE_SURFACE, ['6_6']);
ToBank := [Point(2702, 2762), Point(2713, 2762), Point(2726, 2758),
Point(2733, 2746), Point(2737, 2735), Point(2737, 2722),
Point(2729, 2708), Point(2739, 2691), Point(2738, 2681)];
SPS_WalkPath(ToBank);
end;
Procedure FreeDTMs;
begin
FreeDTM(Bowstring);
FreeDTM(Flax);
end;
begin
MouseSpeed := RandomRange(14,16);
smart_server := 91;
smart_members := false;
smart_signed := true;
smart_superDetail := false;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
inc(walks);
Bank;
WalkToFlax;
Pick;
WalkToWheel;
DealWithDoor;
Spin;
GetOutOfHouse;
GetToBank;
//FlaxToBank;
FreeDTMs;
until(walks=8);
end.