From: The Mayor
Post your script and I will fix it :whistling:
Quite funny how I don't like sharing my scrips but end up posting it xD I don't mean I'm against helping the community but I would like to keep my goldfarming scripts private.
Walking to the bank works fine so you won't have to change that :)
It would be nice if you could add some information with the things you change/add so I don't have to ask this again next time.
program Nats;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}
{$I SPS/lib/SPS-RS3.Simba}
const
MY_LOGINNAME = '';
MY_PASSWORD = '';
WORLD = 1;
var
PBANK := [Point(188, 125), Point(194, 143), Point(206, 165), Point(201, 178), Point(195, 200), Point(195, 218), Point(182, 230), Point(164, 228)];
PALTAR := [Point(137, 107), Point(148, 118), Point(163, 134), Point(177, 148), Point(195, 174), Point(212, 192), Point(225, 207), Point(248, 227), Point(263, 244), Point(280, 260), Point(283, 274), Point(284, 295), Point(284, 321), Point(292, 338), Point(311, 358), Point(333, 382), Point(354, 401), Point(366, 412), Point(382, 424), Point(396, 438), Point(411, 454), Point(427, 468), Point(439, 482)];
NATMAP, BANKMAP: TSPSArea;
procedure declarePlayers;
begin
WriteLn('Declaring players');
setLength(players, 1);
with players[0] do
begin
loginName := MY_LOGINNAME;
password := MY_PASSWORD;
bankPin := '';
world := WORLD;
isActive := true;
isMember := true;
end
currentPlayer := 0;
end;
procedure logUsIn;
begin
WriteLn('Logging in');
if not isLoggedIn then
begin
players[currentPlayer].login();
exitTreasure();
minimap.clickCompass();
mainscreen.setangle(MS_ANGLE_HIGH);
mainscreen.setZoom(true);
TabBackpack.open();
exitTreasure();
end;
end;
procedure TeleAltar;
begin
lodestoneScreen.teleportTo(LOCATION_KARAMJA);
wait(12000);
wait(randomRange(250, 1000));
if lodestonescreen.isopen() then TeleAltar();
end;
procedure TeleBank;
begin
lodestoneScreen.teleportTo(LOCATION_TAVERLEY);
wait(randomRange(250, 1000));
wait(12000);
if lodestonescreen.isopen() then TeleBank();
end;
procedure WalkAltar;
begin
WriteLn('walking to the nature altar');
NATMAP.debugPlayerPos();
if NATMAP.walkPath(PALTAR) then
minimap.waitPlayerMoving()
else TeleAltar;
end;
procedure WalkBank;
begin
WriteLn('walking to the nature altar');
if BANKMAP.walkPath(PBANK) then
minimap.waitPlayerMoving()
end;
procedure Bank();
var
I := Random(600);
begin
bankScreen.quickDeposit(QUICK_DEPOSIT_INVENTORY);
bankScreen.withdraw(1, WITHDRAW_AMOUNT_ALL, ['ure']);
bankScreen.close;
tabBackpack.waitWhileLocked;
end;
procedure OpenBank;
begin
bankScreen.open(BANK_NPC_BLUE);
wait(randomRange(500, 1000));
if bankScreen.isOpen then
Bank()
else
WriteLn('bank not opened')
end;
procedure EnterAltar;
var
x, y: integer;
begin
if mainscreen.findObject(x, y, 5109159, 19, ['nter'], MOUSE_LEFT) then
wait(randomRange(4500, 5500))
else
WriteLn('Didn"t enter the altar')
end;
procedure MakeRunes;
var
x, y: integer;
begin
wait(1500);
if mainscreen.findObject(x, y, 5261389, 2, ['raft'], MOUSE_LEFT) then
wait(randomRange(5000, 7500));
end;
begin
addOnTerminate('scriptTerminate');
ClearDebug();
smartPlugins := ['d3d9.dll'];
smartEnableDrawing := true;
SetupSRL();
NATMAP.Setup('Natmap', 'Runescape_Surface\');
BANKMAP.setup('Bankmap', 'Runescape_Surface\');
NATMAP.debugPlayerPos();
repeat
if (not isLoggedIn()) then
begin
declarePlayers;
logUsIn;
end
TeleAltar;
WalkAltar;
EnterAltar;
MakeRunes;
TeleBank;
WalkBank;
OpenBank;
Bank;
Until(false);
End;
here are 2 maps I made the first one seems to work better ( it's also the one with the points setup right in the script above )
http://imgur.com/hsTPVhU,iZLwLXc#0
the correct size of the minimap on the left, and your WRONG size on the right.