rj
2013-02-02 23:26:30
In my script, it mines copper near falador, then walks to bank, looks for bank booth (sometimes sits inside of bank for 8 seconds before looking for bank booth) and then opens up the bank. It stores the ores. Now here is were the problem is, the bot then turns the compass north like it's supposed to to start walking to the mine, but it just sits there and does not walk. But then, if I start the script next to the bank with the inventory full, it opens the bank, banks the ore and then walks to mine like it's supposed to.
Here is the procedure:
Here is the procedure that calls that:
What am I doing wrong here lol?
Here is the procedure:
procedure ToMine;
var
ToMineVar: TPointArray;
begin
MakeCompass(360 - Random(15));
Status := ('Walking to mine via SPS');
WriteProgress;
ToMineVar:=[Point(3846,3174),Point(3846,3163),Point(3844,3155),Point(3838,3151),
Point(3828,3152),Point(3822,3162),Point(3818,3172),Point(3818,3181),
Point(3820,3190),Point(3821,3198),Point(3822,3206),Point(3823,3216),
Point(3823,3226),Point(3823,3236),Point(3823,3246),Point(3824,3256),
Point(3822,3267),Point(3821,3278),Point(3818,3287),Point(3819,3295),
Point(3821,3302),Point(3821,3314),Point(3821,3326),Point(3821,3340),
Point(3822,3356),Point(3821,3366),Point(3819,3374),Point(3817,3384),
Point(3814,3398),Point(3814,3412),Point(3812,3424),Point(3813,3436),
Point(3816,3447),Point(3818,3460),Point(3815,3471),Point(3811,3487),
Point(3801,3496),Point(3789,3502),Point(3778,3506),Point(3765,3513),
Point(3754,3518),Point(3741,3521),Point(3728,3522),Point(3717,3525),
Point(3704,3533),Point(3696,3546),Point(3696,3556),Point(3692,3574),
Point(3688,3585),Point(3688,3593),Point(3687,3603),Point(3686,3613),
Point(3683,3624),Point(3684,3634),Point(3677,3642),Point(3669,3653)];
if SPS_WalkPath(ToMineVar) then
Wait(RandomRange(800, 1000));
Exit;
end;Here is the procedure that calls that:
Procedure StoreOre;
var
NotFull:Tbox;
begin
PrintSmart;
NotFull := IntToBox(552, 212, 731, 461);
SMART_DrawBoxEx(False, False, NotFull, COLINV);
If BankScreen Then
begin
Deposit(2, 28, True);
Wait(RandomRange(800, 2000));
ToMine;
end;
Wait(RandomRange(800, 2000));
StoreOre;
end;What am I doing wrong here lol?