-
GEBuyAt
The function below got an infinit loop.
function GEBuyAt(spot: integer): boolean;
var
TB: TBox;
x, y: integer;
begin
if not InGE then
begin
writeln('not in ge include');
exit;
end;
if not GEIsSpotFree(spot) then
begin
writeln('space is not free!');
exit;
end;
writeln('start');
TB := GESpotToTBox(spot);
MouseBox(TB.x1 + 35, TB.y1 + 50, TB.x1 + 65, TB.y1 + 80, 3);
wait(150+Random(75));
if IsUpText('Buy') then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, true);
end;
while not GEBuyMenu do
begin
writeln('not ge buy menu') <--- get spammed over and over
wait(150);
end;
Result := GEBuyMenu;
end;