so i manged to do this....
this is what i made so far
program Whine_Grabber;
{$I SRL-6/SRL.simba} // Be sure to add this to ALL your scripts!
Procedure Whine_Grabber
Var
Wine_Of_Zamorak :Integer;
X, y:Integer;
begin
//This is the DTM of the wine
Wine_Of_Zamorak:= DTMFromString('m1gAAAHic42JgYGhlZGBoBOJeIO4D4n4g7g LiOiAuBeJiIK4A4plAte1A3AXEE4F4BhAvBeJlQDwXiKcA8QQg 1lJTY8hOTGBwtrVliAgIYGirrGSwMTNj4GRnZxAWFGQwNzRkSI mOZhABqiUGMxKJEQAA3+kTVA==');
if
FindDTM(Wine_Of_Zamorak, x, y, 332, 120, 438, 195) then // Looking Location of the wine
// starting this when we find the wine
Begin
mouse(point(x, y), MOUSE_MOVE, MOUSE_HUMAN); //Moving to wine
mouse(point(x, y), MOUSE_Left, MOUSE_HUMAN); //Clicking on the wine
wait(random(3400, 5020)); //Random wait between a and b ms
mouse(point(692, 277), MOUSE_MOVE, MOUSE_HUMAN); //Moving to telegrab Icon I WHANT TO CLICK RANDOMLY TO THIS SO I DONT CLICK ALWAYS ON THE SAME PIXEL
Wait(random(1200, 1600)); //Random wait between a and b ms
mouse(point(692, 277), MOUSE_Left, MOUSE_HUMAN); //Clicking on telegrab Icon I WHANT TO CLICK RANDOMLY TO THIS SO I DONT CLICK ALWAYS ON THE SAME PIXEL
Wait(random(1200, 1600)); //Random wait between a and b ms
mouse(point(379, 185), MOUSE_MOVE, MOUSE_HUMAN); //Moving back to the spawn location of the wine
FreeDTM(Wine_Of_Zamorak); // freeDTM so idk why this is needed.....
end;
end;
Begin
Repeat
Whine_Grabber;
until(False);
end.