moved FlexUI fonts to "flexui.wad"

[d2df-sdl.git] / src / game / g_holmes.pas

diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas
index bcb2cfadb4ed56f09d3816b4121e313213a34b49..5f1cb3e71055523efb7483cecd4748dbce5a54e8 100644 (file)
--- a/src/game/g_holmes.pas
+++ b/src/game/g_holmes.pas
@@ -42,6 +42,7 @@ procedure g_Holmes_plrLaser (ax0, ay0, ax1, ay1: Integer);
 
 
 var
+  g_holmes_imfunctional: Boolean = false;
   g_holmes_enabled: Boolean = {$IF DEFINED(D2F_DEBUG)}true{$ELSE}false{$ENDIF};
 
 
@@ -1322,6 +1323,7 @@ var
 begin
   if g_Game_IsNet then exit;
   if not g_holmes_enabled then exit;
+  if g_holmes_imfunctional then exit;
 
   holmesInitCommands();
   holmesInitBinds();
@@ -1356,6 +1358,7 @@ var
 begin
   if g_Game_IsNet then exit;
   if not g_holmes_enabled then exit;
+  if g_holmes_imfunctional then exit;
 
   holmesInitCommands();
   holmesInitBinds();
@@ -1433,6 +1436,7 @@ procedure g_Holmes_DrawUI ();
 begin
   if g_Game_IsNet then exit;
   if not g_holmes_enabled then exit;
+  if g_holmes_imfunctional then exit;
   {$IF not DEFINED(HEADLESS)}
   gGfxDoClear := false;
   //if assigned(prerenderFrameCB) then prerenderFrameCB();
@@ -1714,12 +1718,14 @@ end;
 procedure onMouseEvent (var ev: THMouseEvent);
 begin
   if not g_holmes_enabled then exit;
+  if g_holmes_imfunctional then exit;
   g_Holmes_MouseEvent(ev);
 end;
 
 procedure onKeyEvent (var ev: THKeyEvent);
 begin
   if not g_holmes_enabled then exit;
+  if g_holmes_imfunctional then exit;
   g_Holmes_KeyEvent(ev);
 end;
 
@@ -1727,6 +1733,7 @@ end;
 begin
   evMouseCB := onMouseEvent;
   evKeyCB := onKeyEvent;
+  //uiContext.font := 'win14';
 
   conRegVar('hlm_ui_scale', @fuiRenderScale, 0.01, 5.0, 'Holmes UI scale', '', false);
 end.