Dropping

Can someone help me write a dropping procedure. Credits will be given, its for iron ores.


Procedure DropOre;
Var
X, Y, OreDTM, I:Integer;
Slotbox:Tbox;
OrePattern:TIntegerArray;

Begin
If InvFull then
Begin
MarkTime(TooLong);
OreDTM := DTMFromString('mrAAAAHic42BgYHBmYmCwB2IvIA4GYj8gdgBiYyA2AeLHQDVXgfgmEN8H4tdA/AmI3wDxQyA2kRcHkkx4MG7wH4gZCWAYAAAOhgrG');
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,24,28];
StatsGuise('Dropping Ore:' + IntToStr(I));
For I:=0 To 27 Do
Repeat
Begin
SlotBox:=InvBox(OrePattern);
If FindDTm(OreDTM, X, Y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
Begin
FindNormalRandoms;
MMouseItem(OrePattern);
Mouse(X, Y, 2, 2, mouse_Right);
ChooseOption('Dro');
End;
End;
Until(InvEmpty);
MarkTime(TooLong);
End;
End;

That is what I have right now, but it does not drop any of the ore.

 

Hope this helps!
Always check out the documentation http://docs.villavu.com/srl-5/inventory.html#invcount

 

Are you sure the DTM of the iron ore is correct?

 

Mine is working for iron ore in one's inventory tested it myself.

 

Yes my DTM was correct I have gotten it to work thanks guys I ended up writing a different procedure.

 

No problem... was mine of any use just out of curiosity?

 

I'm not sure I didn't test it as I had already written another one, but the code looks fine, sorry it took me so long to reply.

 

Its all good... glad you figured everything out!