Jump to content
rsutton

InvItemsSingle - New Function

Recommended Posts

Just in case someone wants to use it before wanted puts it in osi. This will catch the WHOLE inventory 27 slots. Will right click each item and perform the task given in the text field (searches options). You can easly do MANY things with this function by changing it around a bit which is what Wanted is doing ( yes im lazy ) But Im using this for my script right now so go ahead and use.

 

{Useage Example InvItemSingle(['Bury'],600,1000); }

{Useage Example InvItemSingle(['Use'],600,1000); }

{Useage Example InvItemSingle(['Drop'],600,1000); }

{Useage Example InvItemSingle(['Craft'],600,1000); }

 

 

 

Function InvItemSingle(Options: TStringArray; WaitTimeMin,WaitTimeMax: LongInt): Boolean; Var

Slot: Array[0..27] of TBox;

begin

for I := 0 to 27 do begin

Slot := GetItemBounds(i);

MouseBox(Slot.X1, Slot.Y1, Slot.X2, Slot.Y2, ClickRight);

ChooseOptionMultiEx(Options, ClickLeft);

WaitRR(WaitTimeMin, WaitTimeMax);

end;

 

end;

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
  • Create New...