Nearly there, thanks btw
Simba Code:
Procedure DropOres;
var
x, y, OreDTM, I : Integer;
SlotBox : Tbox;
OrePattern : TIntegerArray;
begin
OreDTM := DTMFromString('m1gAAAHic42JgYMhmYmCIBeIsIK4G4nIgzgHiIiCuAuIkII4HYjZGBgZuIP4J1MMIpAWAWBSIfzNA5EB8ZiCeF20IFGEiiI0YsAMjNMxIJEYAAIbmCOg=');
OrePattern:=[1,5,9,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,28];
For I:=0 to 27 Do
Begin
SlotBox:=InvBox(OrePattern[I]);
If FindDTM(OreDTM,x,y,SlotBox.X1,SlotBox.Y1, SlotBox.X2, SlotBox.Y2)
Then
Begin
MouseItem(OrePattern[I],2);
WaitOption('Drop', 500);
end;
FreeDTM(OreDTM);
end;
end;
thats how far ive got, i just keep getting this error?
"Error: Exception: The given DTM Index[2] doesn't exist at line 128
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]"