SRL Archive - General Botting Help

Compiling failed, help please!


Manager

2014-11-20 17:11:03

So i just joined this site to try some scripts out and stumbled into a simple honeycomb picker.
After going trough the setup and finally understanding what i'm doing i stumbled upon an error, i was wondering if you could help please.
It seems like there is something wrong with the fourth line in the code.
Help is much appriciated!

The error i get:
Error: File "srl/srl/misc/smart.simba" not found at line 4
Compiling failed.
Error: File "srl/srl/misc/smart.simba" not found at line 4
Compiling failed.


The script i use
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

riwu

2014-11-20 17:18:43

The script is outdated, find a more recent script in the correct section.

U also didnt have the srl include, which is the cause of the error.
Try SRL>Check for updates at the top option bar

KeepBotting

2014-11-20 18:23:37

Are you Manager from pb?

Manager

2014-11-20 18:28:14

From: KeepBotting
Are you Manager from pb?


Yes i am.

KeepBotting

2014-11-20 18:45:56

From: Manager
Yes i am.


l3l you're banned on there for scamming ain't ya

Manager

2014-11-21 11:41:51

From: KeepBotting
l3l you're banned on there for scamming ain't ya

Yes i am, altough that is irrelevant to this topic.
Also i'm here to script, not to market trade.

Harrier

2014-11-21 11:53:23

This is a SRL5 script, it's damn outdated

NKN

2014-11-21 14:04:16

First, you have to find a script that's not 8 months old.

KeepBotting

2014-11-21 18:30:51

From: Manager
Yes i am, altough that is irrelevant to this topic.
Also i'm here to script, not to market trade.


Yeah, I understand. Didn't mean anything by it - as long as you're not planning to do the same here.

As others have said, that script is quite old and was probably written for RS2 EoC. libSRL5 by Markus might help you convert it, but work will probably still need to be done.