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);