I'm trying to make a script which moves to a DTM, right clicks and drop the item. (I'm using this method as I cannot find a DropInv procedure that works on a RSPS.)
The script executes as it should, it moves the mouse to the Iron ore. However, if I place Iron ore in the first 4 horizontal inventory slots, the mouse doesn't pick up the item.
Suggestions? Thanks.
Code:program new; {$i SRL/SRL.Simba} var x, y, IronOre, IronBit:Integer; procedure DropInv; begin If FindBitmapToleranceIn(IronBit, x, y, MIX1, MIY1, MIX2, MIY2, 30) then begin MoveMouse(x, y); WriteLn('We Found Iron'); end; end; begin SetupSRL; IronOre := DTMFromString('mrAAAAHic42BgYGhgZWCoBeIuIO4D4jYgrgbiIiAuA+JtjAwMR4F4FxBvAOLVULwZiPcBsb2aLNAURjwYP8CnE1k3AHZxCnQ='); IronBit := BitmapFromString(12, 9, 'meJxdkMEGw0AURdNlF1mULCKMxKi' + 'RRUXIpnQxtDRUS2n0CyJfUfrrPXF5RrlGzDvuO5Pr/BmX7ybLlG1e' + '7cq28kfXXvb9k/jurlHT9IQPgLIeXIgCwvDiPN0mAefHGyZtAFC4Z' + 'yqA1IfRpiagRZx54Sn5uzcHM1kXhcguA+hHxpjCdZJZE6I5pAzPUQ' + '9KSqoqBkA9/BAFeYn9AIFQLDs='); DropInv; FreeDTM(IronOre); FreeBitmap(IronBit); end.


Reply With Quote









