tigerkungfu
2013-03-25 23:32:58
Hey I have been running a script and for some reason it keeps on depositing my pick axe.. The bank code is here
procedure BankEssence;
var
CTS, I, x, y: Integer;
TPA: TPointArray;
ATPA: array of TPointArray;
begin
if P07_BankScreen then
begin
P07_Deposit(randomrange(5,20), 28, TRUE);
exit;
end;
P07_MakeCompassNorth;
P07_MakeCameraAngleHigh;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.06, 0.91);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6188918, MSX1, MSY1, MSX2, MSY2, 5);
ColorToleranceSpeed(CTS);
wait(100);
SMART_DrawDotsEx(false, TPA, clred);
ATPA := SplitTPA(TPA, 3);
for I := 0 to High(ATPA) do
begin
MiddleTPAEx(ATPA[i], x, y);
SMART_DrawBoxEx(false, false, getTPABounds(ATPA[i]), clBlue);
MMouse(x, y, 2, 2);
wait(50);
if (P07_IsUpTextMultiCustom(['sence'])) then
begin
MouseBox(7, 350, 500, 470, mouse_left);
exit;
end;
if (P07_IsUpTextMultiCustom(['se', 'ooth'])) then
begin
clickMouse2(MOUSE_LEFT);
wait(700);
if P07_ChooseOptionMulti(['ank']) then
begin
wait(1000);
P07_Deposit(randomrange(5,20), 28, TRUE);
if P07_invCount-PicInInvent=0 then begin
banked := banked + 28 - PicInInvent;
Stats_IncVariable('Iron Ore(Mined)', 28 - PicInInvent);
debugstr(' [INFO] updated banked ore log');
end;
end;
Break;
end;
wait(100);
end;
Mouse(P07_MMCX, P07_MMCY + 10, 2, 2, mouse_left);
wait(300);
end;
end;