Simba Code:
program HoneyComberVersion1; //by blazingrobin
{$DEFINE SMART}
{$DEFINE CRASHSMART}
{$include srl/srl/misc/smart.simba}
{$include srl/srl.simba}
{$include sps/sps.simba}
var
x, y, Hive, HoneyComb, InsectRepel: integer;
honeywalk:TPointArray;
bankwalk:TPointArray;
Procedure SetDTM; //declaring dtms
begin
Hive := DTMFromString('mbgUAAHic7dBZTgJBEAbg4gTeyVuqUaOCgKLs+74Jsu/DKDuKxPUK/lUUCfHVV0i+NNNd9VfPHBLR3ELUgxUsYQJtMGAKr/ChZjCEDnRhBAv41n5+HijOrEETGlBXvNfSfkN7OPcF1juzPjV3+7zSuifNN3Q1d+7B+VUYWzbvxXf/0Zytms429V1NvaMT3+ISLsADUQjDNVjBDvfghxAEwUubPqty6Zlfa/nsHM7gCm7ArTUpyEMBSn/wXgYSWuvQ/FM4UsdworlRreXMNOQgpnO3/FqX0nMfxHUW3yOie+lwiCrZLIXdbvlfLxRo0utRNZ+jTCRCEa+HAq5bOee6zmOZzFaLupWKnCcCfrqz2aSXe/i8+VCUnH6tKrh+1O3Q3DAkez2Z0Nt4RAtzKM/bvFIqJfM4L+bzyepxOshtt8s+zysmE3IPNmw2ZC1n0pSLRelruaD32ZQK8Tglg0Hp4X5eOYP7p4O+zHxut2lQr8v9eO8A32KPyLIn/v/7BUjrAus=');
HoneyComb := DTMFromString('mvQEAAHicE2VgYHBmYWBwAmJbILYCYnsWiJgXEHsCsSMQ2wGxG1SNG1QOxneE6ncHYgcgtgRiOUYGBgkglgFiJShWhtKyQCwIxJJALA7EqkgYJCcPxGpALArEilAzQHLl8SYM+xdkMUyvC2aY0xwGxvNawhlW9MYyFMcYMdSnmTO0ZlkxFEYbMnTkWjNUJ5uB6WXdMWA1E6sCGVb1xYHx/LYIhtI4YwZ+oP+pjRlpgLECAImtJco=');
InsectRepel := DTMFromString('mVAEAAHicE2BgYBBnYWCQYoHQEkAsDcRyQCwDFRMGYhEoloTKw/SA1MszAsWAWBKIBYFYAohlgVgJiFWBWBmI5YBYCioGUi8DlRMB4ie3bjG45doyOKZaMAT4+DCYhegzLJk7l+HEgf0MD69fZ7BLNGNwzrRisE82Z3h08wbDtbNnGZ7euQ2Wiw4PZ+AH+oESzEghRgcAfYUfPA==');
end;
procedure DeclarePlayers; //loggings
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers)
CurrentPlayer := 0;
Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Pin :=''; //if no bank pin leave empty
end;
procedure Rest;
var
S: String;
begin
if not (LoggedIn) then
Exit;
if (GetMMLevels('Run', S) <= 25) then
RestUntil(RandomRange(75,100))
procedure GoToHoney; //walking to honey
begin
SPS_Setup(RUNESCAPE_SURFACE, ['6_6','6_7','7_7']);//SPS Areas
honeywalk := [Point(2740, 2695), Point(2739, 2708), Point(2739, 2720),
Point(2738, 2744), Point(2738, 2761), Point(2741, 2779),
Point(2744, 2794), Point(2747, 2806), Point(2749, 2820),
Point(2752, 2832), Point(2757, 2847), Point(2764, 2854),
Point(2769, 2864), Point(2771, 2871), Point(2780, 2881),
Point(2789, 2880), Point(2801, 2879), Point(2812, 2878),
Point(2823, 2877), Point(2834, 2875), Point(2843, 2873),
Point(2852, 2873), Point(2868, 2876)];
SPS_WalkPath(honeywalk);
end;
procedure Banking;
begin
if bankscreen then
begin
wait(1500 + random(50))
if (FindDTM(HoneyComb, x, y, MIX1, MIY1, MIX2, MIY2)) then
Mouse(x, y, 1, 1, False);
ChooseOption('All');
end;
begin
if (InvCount) >2 = True then
Begin
CloseBank;
GoToHoney;
end;
end;
CloseBank;
end;
procedure FindBanker;
var
bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair: Integer;
begin
if SPS_WalkPath(bankwalk) then
Wait(100 + Random(50));
If FindNormalRandoms then
Begin
Logout;
TerminateScript;
End;
Speed := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
ColFace := 7513036;
ColGrey := 4995649;
ColBlue := 4336690;
ColHair := 2506053;
if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
['ounter', 'se Co', 'anke', 'to B', 'Banker', 'nker'], 2, 2)) then
begin
Mouse(bx, by, 0, 0, False);
if (WaitOptionMulti(['kly Co', 'se-qu', 'ank B', 'Bank Banker', 'ank', 'nker'], 750)) then
begin
if (Length(Players) > 0) then
if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
InPin(Players[CurrentPlayer].Pin);
begin
wait(1500 + random(50))
if (FindDTM(HoneyComb, x, y, MIX1, MIY1, MIX2, MIY2)) then
Mouse(x, y, 1, 1, False);
ChooseOption('All');
end;
begin
if (InvCount) >2 = True then
Begin
CloseBank;
GoToHoney;
end;
end;
CloseBank;
end;
end;
ColorToleranceSpeed(Speed);
end;
procedure GoToBank; //banking walk
begin
SPS_Setup(RUNESCAPE_SURFACE, ['7_7','6_7','6_6']);//SPS Areas
bankwalk := [Point(2867, 2879), Point(2848, 2876), Point(2833, 2873),
Point(2822, 2873), Point(2810, 2873), Point(2798, 2873),
Point(2788, 2878), Point(2775, 2879), Point(2765, 2875),
Point(2760, 2866), Point(2756, 2854), Point(2754, 2841),
Point(2751, 2832), Point(2747, 2821), Point(2742, 2810),
Point(2740, 2798), Point(2740, 2788), Point(2740, 2773),
Point(2739, 2757), Point(2738, 2748), Point(2739, 2736),
Point(2738, 2722), Point(2738, 2706), Point(2738, 2693),
Point(2735, 2679)];
SPS_WalkPath(bankwalk)
if (InvFull) then
begin
FindBanker;
end;
if (InvEmpty) then
begin
GoToHoney;
end;
end;
procedure GetHoney; //getting honey from hive
begin
if (InvEmpty) then
GoToHoney;
begin
if (InvFull) then
GoToBank;
if (FindDtm(Hive, x, y, MSX1, MSY1, MSX2, MSY2)) then
begin
Mouse(x, y, 5, 5, False);
ChooseOption('oney');
repeat
GetHoney;
Until(InvCount=27);
begin
Exit;
end;
end;
end;
end;
procedure FreDTM;
begin
FreeDTM(Hive);
FreeDTM(HoneyComb);
FreeDTM(InsectRepel);
end;
begin
Smart_Signed := TRUE;
Smart_Members := True;
Smart_SuperDetail := FALSE;
Smart_Server := 60;
ClearDebug;
SetUpSrl;
SetDTM;
MouseSpeed := 10;
ActivateClient;
DeclarePlayers;
LoginPlayer;
repeat
SetAngle(SRL_ANGLE_HIGH);
GoToHoney;
GetHoney;
GoToBank;
FindBanker;
Banking;
wait(1000 +random(50));
MakeCompass ('N');
Rest;
until (LoggedIn) = False
end