diff --git a/mmbn5m.lpi b/mmbn5m.lpi
index 07689a1..6ac1b86 100644
--- a/mmbn5m.lpi
+++ b/mmbn5m.lpi
@@ -18,7 +18,7 @@
-
+
diff --git a/mmbn5m.lps b/mmbn5m.lps
index 63957db..aa61f45 100644
--- a/mmbn5m.lps
+++ b/mmbn5m.lps
@@ -59,8 +59,8 @@
-
-
+
+
diff --git a/mmbn5m.res b/mmbn5m.res
index b7b63f4..e129932 100644
Binary files a/mmbn5m.res and b/mmbn5m.res differ
diff --git a/rooms.ini b/rooms.ini
index 99b69b6..fe62670 100644
--- a/rooms.ini
+++ b/rooms.ini
@@ -119,6 +119,7 @@
1414=Undernet 4
653=Tree Comp
3469=Message Comp
+394=Prologue Room
[Spoils]
397=RegUP2,1000z
diff --git a/unit1.pas b/unit1.pas
index a7bd40c..835e94c 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -337,7 +337,7 @@ end;
procedure TForm1.WMHotKey(var MSG: TWMHotKey);
begin
fullscreen_map := not fullscreen_map;
- Form1.Caption := (BoolToStr(fullscreen_map));
+
Form1.Visible := False;
if (fullscreen_map = True) then
begin
@@ -345,6 +345,7 @@ begin
y := Form1.top;
w := Form1.Width;
h := Form1.Height;
+ Application.ProcessMessages;
state := Form1.WindowState;
Form1.FormStyle := fsStayOnTop;
Form1.BorderStyle := bsNone;
@@ -355,13 +356,16 @@ begin
end
else
begin
+ Form1.WindowState := state;
Form1.FormStyle := fsNormal;
- Form1.BorderStyle := bsSingle;
+ Form1.BorderStyle := bsSizeable;
+ Application.ProcessMessages;
+ Form1.Position:=poDesigned;
Form1.Left := x;
Form1.Top := y;
form1.Width := w;
Form1.Height := h;
- Form1.WindowState := state;
+
end;
Form1.Visible := True;
RegisterHotKey(Handle, 111000, MOD_WIN, VK_Y);