SRL Archive - SRL Bugs

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;