Simba Code:
Procedure DropInv;
var
i: integer;
DropArray: TIntegerArray;
begin
if PickInv then
DropArray := [5, 9, 13, 17, 21, 25, 26, 22, 18, 14, 10, 6, 2, 3, 7, 11, 15, 19, 23, 27, 28, 24, 20, 16, 12, 8, 4] //Is the inventory going down then up from the 5th slot.
else
DropArray := [1, 5, 9, 13, 17, 21, 25, 26, 22, 18, 14, 10, 6, 2, 3, 7, 11, 15, 19, 23, 27, 28, 24, 20, 16, 12, 8, 4]; //Is the inventory going down then up from the 1st slot.
if GameTab(TAB_INV) then
begin
KeyDown(32); // Press and holds down the shift key.
for i := low(DropArray) to high(DropArray) do //low(DropArray) is the lowest part of our array (in this case 1 or 5). high(DropArray) is the highest part of our array (in this case 4).
begin
if itemInSlot(DropArray[i]) then //DropArray[i] is the value of the integer. If we were 6 numbers into our array, i would be 6, but DropArray[i] would be 25 or 21, depending on the DropArray we use.
MouseBox(InvBox(DropArray[i]), MOUSE_LEFT); // Clicks the slot that has ore in it. The shift key is still held down.
end;
KeyUp(32); // Unpresses the shift key.
end;
Antiban();
CurrentTask := MINEORE;
end;