For the life of me I cannot seem to get this to work. I've recreated it from the scripting tuts but it never drops the inventory
Can anyone help out? It spams dropping a fish 28 times but never moves mouse to do any work.
Simba Code:
program New;
{$i SRL\SRL.scar}
Procedure DropFish;
Var
SeX, SeY, CrayDTM, I: Integer;
Slotbox:TBox;
CrayPattern:TIntegerArray;
Begin
CrayDTM := DTMFromString('mggAAAHicY2NgYFBlZGAwAWIlIFYBYhkg1gLiPiDuBuIWIJ4FxDOAuBWIM63lgboYMbAkA3aAqRKCIQAA5I4FMw==');
CrayPattern:= [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]
For I:=0 To 27 Do
Begin
Writeln('Dropping a Fish');
SlotBox:=InvBox(CrayPattern[I]);
If FindDtm(CrayDTM, SeX,SeY, Slotbox.X1,Slotbox.Y1,Slotbox.X2,Slotbox.Y2) Then
Begin
MouseItem(CrayPattern[I], False);
ChooseOption('Dro');
End;
End;
End;
begin
SetupSRL;
Dropfish;
end.