Simba Code:
Procedure EmptyPouches;
Var
SP,MP,LP,GP: TInvItem;
begin
if (R_ItemExists(5508,SP) Or (R_ItemExists(5509,SP))) then
begin
R_ClickItem(SP.slot,'Empty');
Wait(RandomRange(550,650));
end;
if (R_ItemExists(5510,MP) Or (R_ItemExists(5511,MP))) then
begin
R_ClickItem(MP.slot,'Empty');
Wait(RandomRange(550,650));
end;
if (R_ItemExists(5512,LP) Or (R_ItemExists(5513,LP))) then
begin
R_ClickItem(LP.slot,'Empty');
Wait(RandomRange(550,650));
end;
if (R_ItemExists(5514,GP) Or (R_ItemExists(5515,GP))) then
begin
R_ClickItem(GP.slot,'Empty');
Wait(RandomRange(550,650));
end;
end;
Procedure FillPouches;
Var
SP,MP,LP,GP: TInvItem;
begin
if R_ItemExists(5508,SP) then
begin
R_ClickItem(SP.slot,'Fill');
Wait(RandomRange(550,650));
end;
if R_ItemExists(5510,MP) then
begin
R_ClickItem(MP.slot,'Fill');
Wait(RandomRange(550,650));
end;
if R_ItemExists(5512,LP) then
begin
R_ClickItem(LP.slot,'Fill');
Wait(RandomRange(550,650));
end;
if R_ItemExists(5514,GP) then
begin
R_ClickItem(GP.slot,'Fill');
Wait(RandomRange(550,650));
end;
end;