Simba Code:
procedure Typeofjewlery;
begin
//Gold
if WhatJewl = 'Gold' then
begin
items := 28;
Jewl := Bar;
end;
if WhatJewl = 'Gold' then
begin
if Item = 'Bracelet' then
begin
MPoint := Point(130, 290);
end else
if Item = 'Ring' then
begin
MPoint := Point(117, 106);
end else
if Item = 'Necklace' then
begin
MPoint := Point(136, 167);
end else
if Item = 'Amulet' then
begin
MPoint := Point(130, 230);
end;
items := 28;
end else
//Sapphire
if WhatJewl = 'Sapphire' then
begin
items := 14;
Jewl := Sapphire;
end;
if WhatJewl = 'Sapphire' then
begin
if Item = 'Bracelet' then
begin
MPoint := Point(182, 287);
end else
if Item = 'Ring' then
begin
MPoint := Point(166, 102);
end else
if Item = 'Necklace' then
begin
MPoint := Point(181, 166);
end else
if Item = 'Amulet' then
begin
MPoint := Point(182, 226);
end;
end else
//Emerald
if WhatJewl = 'Emerald' then
begin
items := 14;
Jewl := Emerald;
end;
if WhatJewl = 'Emerald' then
begin
if Item = 'Bracelet' then
begin
MPoint := Point(232, 287);
end;
if Item = 'Ring' then
begin
MPoint := Point(205, 101);
end else
if Item = 'Necklace' then
begin
MPoint := Point(231, 164);
end else
if Item = 'Amulet' then
begin
MPoint := Point(232, 226);
end;
items := 14;
end else
//Ruby
if WhatJewl = 'Ruby' then
begin
items := 14;
Jewl := Ruby
end;
if WhatJewl = 'Ruby' then
begin
if Item = 'Bracelet' then
begin
MPoint := Point(282, 288);
end else
if Item = 'Ring' then
begin
MPoint := Point(256, 102);
end else
if Item = 'Necklace' then
begin
MPoint := Point(281, 166);
end else
if Item = 'Amulet' then
begin
MPoint := Point(280, 226);
end else
items := 14;
end else
//Diamond
if WhatJewl = 'Diamond' then
begin
items := 14;
Jewl := Diamond;
end;
if WhatJewl = 'Diamond' then
Begin
if Item = 'Bracelet' then
begin
MPoint := Point(332, 288);
end else
if Item = 'Ring' then
begin
MPoint := Point(300, 102);
end else
if Item = 'Necklace' then
begin
MPoint := Point(333, 166);
end else
if Item = 'Amulet' then
begin
MPoint := Point(332, 226);
end;
items := 14;
end else
end;
Simba Code:
procedure Itemwithdrawal;
var
x,y,x2,y2:Integer;
Inv1,Inv2,Inv3:Integer;
begin
//if CraftMenu then
//exit;
if not bankscreen then
exit;
if bankscreen then
begin
wait(1000);
DepositAll;
Inv1 := InvCount;
begin
if whatjewl = 'Gold' then
begin
if FindDTM(bar,x,y,MBX1,MBy1,MBX2,MBY2) then
begin
repeat
humanmmouse(x,y,1,1);
clickmouse2(false);
WaitOptionMulti(['Withdraw-all', 'w-A'], 300)
wait(1500);
if (invcount > 28) then
begin
depositall;
itemwithdrawal;
exit;
end;
until(invcount = 28);
inv2 := Invcount;
end;
end else
if FindDTM(bar,x,y,MBX1,MBy1,MBX2,MBY2) then
begin
humanmmouse(x,y,1,1);
clickmouse2(false);
WaitOptionMulti(['Withdraw-14'], 300)
wait(1500);
if (invcount > 14) then
begin
depositall;
itemwithdrawal;
exit;
end;
inv2 := Invcount;
if invcount = 14 then
begin
FindDTM(jewl,x2,y2,MBX1,MBy1,MBX2,MBY2);
humanmmouse(x2,y2,1,1);
clickmouse2(false);
WaitOptionMulti(['Withdraw-14'], 300)
wait(1000);
Inv3 := InvCount;
WaitFunc(@InvFull, 1500, 6000);
end;
end;
end;
if not invfull then
Itemwithdrawal;
if invfull then
begin
closebank;
end;
end;
end;
Simba Code:
procedure Bank;
var
x,y,t:Integer;
Inv1,Inv2:Integer;
begin
//if FindChest(x,y) then //TPA's are buggy
if FindObjCustom(x,y,['Use', 'ank', 'Chest'],[2117995,7368821],2) then
begin
GetMousePos(x,y);
Mouse(x,y,1,1,True);
if DidRedClick then
begin
MarkTime(t);
repeat
wait(100);
if TimeFromMark(t) > 7000 then
begin
Bank;
exit;
end;
until(PinScreen or BankScreen);
end;
if PinScreen then
begin
InPin(Players[CurrentPlayer].Pin);
end;
if BankScreen then
begin
wait(1000);
DepositAll;
Inv1 := InvCount;
if WhatType = 'Gold' then
begin
if FindDTM(Bar,x,y,MBX1,MBy1,MBX2,MBY2) then
begin
Mouse(x,y,1,1,False);
ChooseOption('All');
repeat
wait(100);
Inv2 := InvCount;
until(Inv2 > Inv1);
end;
end;
if WhatType = 'Ruby' then
begin
if FindDTM(Ruby,x,y,MBX1,MBY1,MBX2,MBY2) then
begin
Mouse(x,y,2,2,False);
ChooseOption('14');
end;
if FindDTM(Bar,x,y,MBX1,MBY1,MBX2,MBY2) then
begin
Mouse(x,y,2,2,False);
ChooseOption('14');
end;
end;
if WhatType = 'Emerald' then
begin
if FindDTM(Emerald,x,y,MBX1,MBY1,MBX2,MBY2) then
begin
Mouse(x,y,2,2,False);
ChooseOption('14');
end;
if FindDTM(Bar,x,y,MBX1,MBY1,MBX2,MBY2) then
begin
Mouse(x,y,2,2,False);
ChooseOption('14');
end;
end;
if WhatType = 'Diamond' then
begin
if FindDTM(Diamond,x,y,MBX1,MBY1,MBX2,MBY2) then
begin
Mouse(x,y,2,2,False);
ChooseOption('14');
end;
if FindDTM(Bar,x,y,MBX1,MBY1,MBX2,MBY2) then
begin
Mouse(x,y,2,2,False);
ChooseOption('14');
end;
end;
if WhatType = 'Sapphire' then
begin
if FindDTM(Sapphire,x,y,MBX1,MBY1,MBX2,MBY2) then
begin
Mouse(x,y,2,2,False);
ChooseOption('14');
end;
if FindDTM(Bar,x,y,MBX1,MBY1,MBX2,MBY2) then
begin
Mouse(x,y,2,2,False);
ChooseOption('14');
end;
end;
CloseBank;
end;
end;
SPS_WalkToPos(Point(1219, 1393));
wait(1000 + random(200));
repeat
wait(500);
until(Not IsMoving);
end;