Here is an example of how to do it with out bitmaps. so full color/tboxes. Add still have randomness =p
Simba Code:
program default;
{$i srl-6/srl.simba}
var
BackgroundOFOptionMenu:TPointArray;
function IsOptionMenuOpen:boolean;
var
ShopBounds:Tbox;
begin
ShopBounds:= intToBox(20, 24,502, 322);
if FindColorsTolerance(BackgroundOFOptionMenu, 4674653,ShopBounds, 0, colorSetting(0, 0, 0)) then result:= true;
end;
procedure SelectOption(Option:integer);
var
FullOptionMenu:Tbox;
Options:TboxArray;
begin
FullOptionMenu:= BackgroundOFOptionMenu.getBounds;
Options:= FullOptionMenu.split(FullOptionMenu.getwidth,round(FullOptionMenu.getHeight/5)-1);
mousebox(Options[Option],MOUSE_LEFT);//mouse moves in box randomly
wait(RandomRange(400,600));//wait to buy
//options0 = vale 1= buy 1 2= buy 5 3= buy 10 4= examine 5= cancel
end;
procedure Buyitem(PointTobuy:Tpoint; HowManyTimesToBuy:integer);
var
i:integer;
begin
for i:= 1 to HowManyTimesToBuy do
begin
mouse(PointTobuy,MOUSE_RIGHT,MOUSE_ACCURATE);
waitfunc(@IsOptionMenuOpen,50,5000);
SelectOption(3);
end;
end;
begin
activateClient();
Buyitem(point(96, 81).rand(-5,5),3);
end.