
Originally Posted by
i luffs yeww
You'd want to have a loop that calls ChooseOption, passing the next loot each time.
Simba Code:
Loots := ['owhide', 'aw beef', 'ones']; // Loots is a TStringArray, and I added 'ones' (bones) just to make it clear, hopefully, what's happening.
for i := 0 to High(Loots) do
begin
Mouse(x, y, 0, 0, False); // Right click where the mouse is to get the ChooseOption menu opened.
ChooseOption(Loots[i]); // Choose each option, in order, according to Loots (defined above).
end;
This will do what you've asked.

This is not a good solution. If it cant find 'owhide', it will move the mouse away, right click again on the spot, look for 'aw beef' ...
You should do something like this:
Simba Code:
procedure Loot(X,Y : Integer);
var
i, j : Integer;
Box : TBox;
Loots : Array of String;
Options : Array of TOptions;
begin
Loots := ['owhide', 'aw beef', 'ones'];
Mouse(X,Y,0,0,mouse_right);
Options := GetChooseOptions('action');
for i := 0 to High(Loots) do
for j := 0 to High(Options) do
begin
if Pos('Take ' + Loots[i],Options[j].Str) > 0 Then
begin
Box := Options[j].Bounds;
GetMousePos(X,Y);
if PointInBox(Point(X,Y),Box) then
ClickMouse2(mouse_left)
else
MouseBox(Box.x1,Box.y1,Box.x2,Box.y2,5,mouse_left);
end;
end;
end;