I have everything else set up for tanner but I need to know how to do the bluebutton part for tanning hides.
So far I have this:
procedure TanHides;
var
x, y: integer;
begin
if FindObj(x, y, 'ck Ov', 1983045, 5) then
Mouse(x, y, 1, 1, False);
ChooseOption('an hid')
Wait(1000 + Random(500));
end;


Reply With Quote
