thanks, but ive found another way. I show it here, so if any1 wants to use the procedure its fine (just remember to credit!!!)
IM NOT 100% SURE ITS WORKING AS IT SHOULD BE, IM STILL TESTING!
SCAR Code:
Procedure avoidfire;
var avoided : boolean;
dx, dy, num : integer;
begin
repeat
dy := (msy2-100)-(msy1+100); //chords are like this, so it doesnt go too far
dx := (msx2-100)-(msx1+100);
x := 100+random(dx);
y := 100+random(dy);
num := 1 or 2 or 3 or 4 or 5 or 6 or 7 or 8 or 9 or 10;
MMouse(x, y, 0, 0);
if IsUpText('alk here') and not IsUpText('alk here / '+IntToStr(num)+'more options') then
begin
avoided := true;
Mouse(x, y, 0, 0, true);
wait(3000+random(1000));
end;
until(avoided=true);
end;
EDIT : now its correct. Now i think its pretty damn good