src/game/g_holmes.pas

   1 (* Copyright (C)  DooM 2D:Forever Developers
   2  *
   3  * This program is free software: you can redistribute it and/or modify
   4  * it under the terms of the GNU General Public License as published by
   5  * the Free Software Foundation, either version 3 of the License, or
   6  * (at your option) any later version.
   7  *
   8  * This program is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License
  14  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15  *)
  16 {$INCLUDE ../shared/a_modes.inc}
  17 unit g_holmes;
  18
  19 interface
  20
  21 uses
  22   mempool, geom,
  23   e_log, e_input,
  24   g_textures, g_basic, e_graphics, g_phys, g_grid, g_player, g_monsters,
  25   g_window, g_map, g_triggers, g_items, g_game, g_panel, g_console, g_gfx,
  26   xprofiler;
  27
  28
  29 type
  30   THMouseEvent = record
  31   public
  32     const
  33       // both for but and for bstate
  34       Left = $0001;
  35       Right = $0002;
  36       Middle = $0004;
  37       WheelUp = $0008;
  38       WheelDown = $0010;
  39
  40       // event types
  41       Release = 0;
  42       Press = 1;
  43       Motion = 2;
  44
  45   public
  46     kind: Byte; // motion, press, release
  47     x, y: Integer;
  48     dx, dy: Integer; // for wheel this is wheel motion, otherwise this is relative mouse motion
  49     but: Word; // current pressed/released button, or 0 for motion
  50     bstate: Word; // button state
  51     kstate: Word; // keyboard state (see THKeyEvent);
  52   end;
  53
  54   THKeyEvent = record
  55   public
  56     const
  57       // modifiers
  58       ModCtrl = $0001;
  59       ModAlt = $0002;
  60       ModShift = $0004;
  61
  62       // event types
  63       Release = 0;
  64       Press = 1;
  65
  66   public
  67     kind: Byte;
  68     scan: Word; // SDL_SCANCODE_XXX
  69     sym: Word; // SDLK_XXX
  70     bstate: Word; // button state
  71     kstate: Word; // keyboard state
  72
  73   public
  74   end;
  75
  76 procedure g_Holmes_VidModeChanged ();
  77 procedure g_Holmes_WindowFocused ();
  78 procedure g_Holmes_WindowBlured ();
  79
  80 procedure g_Holmes_Draw ();
  81 procedure g_Holmes_DrawUI ();
  82
  83 function g_Holmes_MouseEvent (var ev: THMouseEvent): Boolean; // returns `true` if event was eaten
  84 function g_Holmes_KeyEvent (var ev: THKeyEvent): Boolean; // returns `true` if event was eaten
  85
  86 // hooks for player
  87 procedure g_Holmes_plrViewPos (viewPortX, viewPortY: Integer);
  88 procedure g_Holmes_plrViewSize (viewPortW, viewPortH: Integer);
  89 procedure g_Holmes_plrLaser (ax0, ay0, ax1, ay1: Integer);
  90
  91
  92 operator = (constref ev: THKeyEvent; const s: AnsiString): Boolean;
  93 operator = (const s: AnsiString; constref ev: THKeyEvent): Boolean;
  94
  95 operator = (constref ev: THMouseEvent; const s: AnsiString): Boolean;
  96 operator = (const s: AnsiString; constref ev: THMouseEvent): Boolean;
  97
  98
  99 var
 100   g_holmes_enabled: Boolean = {$IF DEFINED(D2F_DEBUG)}true{$ELSE}false{$ENDIF};
 101   g_holmes_ui_scale: Single = 1.0;
 102
 103
 104 implementation
 105
 106 uses
 107   {rttiobj,} typinfo, e_texture,
 108   SysUtils, Classes, GL, SDL2,
 109   MAPDEF, g_main, g_options,
 110   utils, hashtable, xparser;
 111
 112
 113 var
 114   //globalInited: Boolean = false;
 115   msX: Integer = -666;
 116   msY: Integer = -666;
 117   msB: Word = 0; // button state
 118   kbS: Word = 0; // keyboard modifiers state
 119   showGrid: Boolean = {$IF DEFINED(D2F_DEBUG)}false{$ELSE}false{$ENDIF};
 120   showMonsInfo: Boolean = false;
 121   showMonsLOS2Plr: Boolean = false;
 122   showAllMonsCells: Boolean = false;
 123   showMapCurPos: Boolean = false;
 124   showLayersWindow: Boolean = false;
 125   showOutlineWindow: Boolean = false;
 126   showTriggers: Boolean = {$IF DEFINED(D2F_DEBUG)}false{$ELSE}false{$ENDIF};
 127   showTraceBox: Boolean = {$IF DEFINED(D2F_DEBUG)}false{$ELSE}false{$ENDIF};
 128
 129
 130 // ////////////////////////////////////////////////////////////////////////// //
 131 {$INCLUDE g_holmes.inc}
 132 {$INCLUDE g_holmes_ui.inc}
 133 {$INCLUDE g_holmes_ol.inc} // outliner
 134
 135
 136 // ////////////////////////////////////////////////////////////////////////// //
 137 // any mods = 255: nothing was defined
 138 function parseModKeys (const s: AnsiString; out kmods: Byte; out mbuts: Byte): AnsiString;
 139 var
 140   pos, epos: Integer;
 141 begin
 142   kmods := 255;
 143   mbuts := 255;
 144   pos := 1;
 145   //while (pos <= Length(s)) and (s[pos] <= ' ') do Inc(pos);
 146   if (pos < Length(s)) and ((s[pos] = '+') or (s[pos] = '-') or (s[pos] = '*')) then Inc(pos);
 147   while (pos < Length(s)) do
 148   begin
 149     if (Length(s)-pos >= 2) and (s[pos+1] = '-') then
 150     begin
 151       case s[pos] of
 152         'C', 'c': begin if (kmods = 255) then kmods := 0; kmods := kmods or THKeyEvent.ModCtrl; Inc(pos, 2); continue; end;
 153         'M', 'm': begin if (kmods = 255) then kmods := 0; kmods := kmods or THKeyEvent.ModAlt; Inc(pos, 2); continue; end;
 154         'S', 's': begin if (kmods = 255) then kmods := 0; kmods := kmods or THKeyEvent.ModShift; Inc(pos, 2); continue; end;
 155       end;
 156       break;
 157     end;
 158     if (Length(s)-pos >= 4) and ((s[pos+1] = 'M') or (s[pos+1] = 'm')) and ((s[pos+2] = 'B') or (s[pos+1] = 'b')) and (s[pos+3] = '-') then
 159     begin
 160       case s[pos] of
 161         'L', 'l': begin if (mbuts = 255) then mbuts := 0; mbuts := mbuts or THMouseEvent.Left; Inc(pos, 4); continue; end;
 162         'R', 'r': begin if (mbuts = 255) then mbuts := 0; mbuts := mbuts or THMouseEvent.Right; Inc(pos, 4); continue; end;
 163         'M', 'm': begin if (mbuts = 255) then mbuts := 0; mbuts := mbuts or THMouseEvent.Middle; Inc(pos, 4); continue; end;
 164       end;
 165       break;
 166     end;
 167     break;
 168   end;
 169   epos := Length(s)+1;
 170   while (epos > pos) and (s[epos-1] <= ' ') do Dec(epos);
 171   if (epos > pos) then result := Copy(s, pos, epos-pos) else result := '';
 172 end;
 173
 174
 175 operator = (constref ev: THKeyEvent; const s: AnsiString): Boolean;
 176 var
 177   f: Integer;
 178   kmods: Byte = 255;
 179   mbuts: Byte = 255;
 180   kname: AnsiString;
 181 begin
 182   result := false;
 183   if (Length(s) > 0) then
 184   begin
 185          if (s[1] = '+') then begin if (ev.kind <> ev.Press) then exit; end
 186     else if (s[1] = '-') then begin if (ev.kind <> ev.Release) then exit; end
 187     else if (s[1] = '*') then begin end
 188     else if (ev.kind <> ev.Press) then exit;
 189   end;
 190   kname := parseModKeys(s, kmods, mbuts);
 191   if (kmods = 255) then kmods := 0;
 192   if (ev.kstate <> kmods) then exit;
 193   if (mbuts <> 255) and (ev.bstate <> mbuts) then exit;
 194   for f := 1 to High(e_KeyNames) do
 195   begin
 196     if (CompareText(kname, e_KeyNames[f]) = 0) then
 197     begin
 198       result := (ev.scan = f);
 199       exit;
 200     end;
 201   end;
 202 end;
 203
 204
 205 operator = (const s: AnsiString; constref ev: THKeyEvent): Boolean;
 206 begin
 207   result := (ev = s);
 208 end;
 209
 210
 211 operator = (constref ev: THMouseEvent; const s: AnsiString): Boolean;
 212 var
 213   kmods: Byte = 255;
 214   mbuts: Byte = 255;
 215   kname: AnsiString;
 216   but: Integer = -1;
 217 begin
 218   result := false;
 219
 220   if (Length(s) > 0) then
 221   begin
 222          if (s[1] = '+') then begin if (ev.kind <> ev.Press) then exit; end
 223     else if (s[1] = '-') then begin if (ev.kind <> ev.Release) then exit; end
 224     else if (s[1] = '*') then begin if (ev.kind <> ev.Motion) then exit; end
 225     else if (ev.kind <> ev.Press) then exit;
 226   end;
 227
 228   kname := parseModKeys(s, kmods, mbuts);
 229        if (CompareText(kname, 'LMB') = 0) then but := THMouseEvent.Left
 230   else if (CompareText(kname, 'RMB') = 0) then but := THMouseEvent.Right
 231   else if (CompareText(kname, 'MMB') = 0) then but := THMouseEvent.Middle
 232   else if (CompareText(kname, 'None') = 0) then but := 0
 233   else exit;
 234
 235   //conwritefln('s=[%s]; kname=[%s]; kmods=%s; mbuts=%s; but=%s', [s, kname, kmods, mbuts, but]);
 236
 237   if (mbuts = 255) then mbuts := 0;
 238   if (kmods = 255) then kmods := 0;
 239   if (ev.kstate <> kmods) then exit;
 240
 241        if (ev.kind = ev.Press) then mbuts := mbuts or but
 242   else if (ev.kind = ev.Release) then mbuts := mbuts and (not but);
 243
 244   //conwritefln('  ev.bstate=%s; ev.but=%s; mbuts=%s', [ev.bstate, ev.but, mbuts]);
 245
 246   result := (ev.bstate = mbuts) and (ev.but = but);
 247 end;
 248
 249
 250 operator = (const s: AnsiString; constref ev: THMouseEvent): Boolean;
 251 begin
 252   result := (ev = s);
 253 end;
 254
 255
 256 // ////////////////////////////////////////////////////////////////////////// //
 257 function typeKind2Str (t: TTypeKind): AnsiString;
 258 begin
 259   case t of
 260     tkUnknown: result := 'Unknown';
 261     tkInteger: result := 'Integer';
 262     tkChar: result := 'Char';
 263     tkEnumeration: result := 'Enumeration';
 264     tkFloat: result := 'Float';
 265     tkSet: result := 'Set';
 266     tkMethod: result := 'Method';
 267     tkSString: result := 'SString';
 268     tkLString: result := 'LString';
 269     tkAString: result := 'AString';
 270     tkWString: result := 'WString';
 271     tkVariant: result := 'Variant';
 272     tkArray: result := 'Array';
 273     tkRecord: result := 'Record';
 274     tkInterface: result := 'Interface';
 275     tkClass: result := 'Class';
 276     tkObject: result := 'Object';
 277     tkWChar: result := 'WChar';
 278     tkBool: result := 'Bool';
 279     tkInt64: result := 'Int64';
 280     tkQWord: result := 'QWord';
 281     tkDynArray: result := 'DynArray';
 282     tkInterfaceRaw: result := 'InterfaceRaw';
 283     tkProcVar: result := 'ProcVar';
 284     tkUString: result := 'UString';
 285     tkUChar: result := 'UChar';
 286     tkHelper: result := 'Helper';
 287     tkFile: result := 'File';
 288     tkClassRef: result := 'ClassRef';
 289     tkPointer: result := 'Pointer';
 290     else result := '<unknown>';
 291   end;
 292 end;
 293
 294
 295 procedure dumpPublishedProperties (obj: TObject);
 296 var
 297   pt: PTypeData;
 298   pi: PTypeInfo;
 299   i, j: Integer;
 300   pp: PPropList;
 301 begin
 302   if (obj = nil) then exit;
 303   e_LogWritefln('Object of type ''%s'':', [obj.ClassName]);
 304   pi := obj.ClassInfo;
 305   pt := GetTypeData(pi);
 306   e_LogWritefln('property count: %s', [pt.PropCount]);
 307   GetMem(pp, pt^.PropCount*sizeof(Pointer));
 308   try
 309     j := GetPropList(pi, [tkInteger, tkBool, tkSString, tkLString, tkAString, tkSet, tkEnumeration], pp);
 310     //e_LogWritefln('ordinal property count: %s', [j]);
 311     for i := 0 to j-1 do
 312     begin
 313       if (typinfo.PropType(obj, pp^[i].name) in [tkSString, tkLString, tkAString]) then
 314       begin
 315         e_LogWritefln('  #%s: <%s>; type: %s; value: <%s>', [i+1, pp^[i].name, typeKind2Str(typinfo.PropType(obj, pp^[i].name)), GetStrProp(obj, pp^[i])]);
 316       end
 317       else if (typinfo.PropType(obj, pp^[i].name) = tkSet) then
 318       begin
 319         e_LogWritefln('  #%s: <%s>; type: %s; value: %s', [i+1, pp^[i].name, typeKind2Str(typinfo.PropType(obj, pp^[i].name)), GetSetProp(obj, pp^[i], true)]);
 320       end
 321       else if (typinfo.PropType(obj, pp^[i].name) = tkEnumeration) then
 322       begin
 323         e_LogWritefln('  #%s: <%s>; type: %s; value: <%s>', [i+1, pp^[i].name, typeKind2Str(typinfo.PropType(obj, pp^[i].name)), GetEnumProp(obj, pp^[i])]);
 324       end
 325       else
 326       begin
 327         e_LogWritefln('  #%s: <%s>; type: %s; value: %s', [i+1, pp^[i].name, typeKind2Str(typinfo.PropType(obj, pp^[i].name)), GetOrdProp(obj, pp^[i])]);
 328       end;
 329     end;
 330   finally
 331     FreeMem(pp);
 332   end;
 333 end;
 334
 335
 336 //FIXME: autogenerate
 337 function trigType2Str (ttype: Integer): AnsiString;
 338 begin
 339   result := '<unknown>';
 340   case ttype of
 341     TRIGGER_NONE: result := 'none';
 342     TRIGGER_EXIT: result := 'exit';
 343     TRIGGER_TELEPORT: result := 'teleport';
 344     TRIGGER_OPENDOOR: result := 'opendoor';
 345     TRIGGER_CLOSEDOOR: result := 'closedoor';
 346     TRIGGER_DOOR: result := 'door';
 347     TRIGGER_DOOR5: result := 'door5';
 348     TRIGGER_CLOSETRAP: result := 'closetrap';
 349     TRIGGER_TRAP: result := 'trap';
 350     TRIGGER_PRESS: result := 'press';
 351     TRIGGER_SECRET: result := 'secret';
 352     TRIGGER_LIFTUP: result := 'liftup';
 353     TRIGGER_LIFTDOWN: result := 'liftdown';
 354     TRIGGER_LIFT: result := 'lift';
 355     TRIGGER_TEXTURE: result := 'texture';
 356     TRIGGER_ON: result := 'on';
 357     TRIGGER_OFF: result := 'off';
 358     TRIGGER_ONOFF: result := 'onoff';
 359     TRIGGER_SOUND: result := 'sound';
 360     TRIGGER_SPAWNMONSTER: result := 'spawnmonster';
 361     TRIGGER_SPAWNITEM: result := 'spawnitem';
 362     TRIGGER_MUSIC: result := 'music';
 363     TRIGGER_PUSH: result := 'push';
 364     TRIGGER_SCORE: result := 'score';
 365     TRIGGER_MESSAGE: result := 'message';
 366     TRIGGER_DAMAGE: result := 'damage';
 367     TRIGGER_HEALTH: result := 'health';
 368     TRIGGER_SHOT: result := 'shot';
 369     TRIGGER_EFFECT: result := 'effect';
 370     TRIGGER_SCRIPT: result := 'script';
 371   end;
 372 end;
 373
 374 // ////////////////////////////////////////////////////////////////////////// //
 375 {$INCLUDE g_holmes_cmd.inc}
 376 procedure holmesInitCommands (); forward;
 377 procedure holmesInitBinds (); forward;
 378
 379
 380 // ////////////////////////////////////////////////////////////////////////// //
 381 var
 382   g_ol_nice: Boolean = false;
 383   g_ol_fill_walls: Boolean = false;
 384   g_ol_rlayer_back: Boolean = false;
 385   g_ol_rlayer_step: Boolean = false;
 386   g_ol_rlayer_wall: Boolean = false;
 387   g_ol_rlayer_door: Boolean = false;
 388   g_ol_rlayer_acid1: Boolean = false;
 389   g_ol_rlayer_acid2: Boolean = false;
 390   g_ol_rlayer_water: Boolean = false;
 391   g_ol_rlayer_fore: Boolean = false;
 392
 393
 394 // ////////////////////////////////////////////////////////////////////////// //
 395 var
 396   winHelp: THTopWindow = nil;
 397   winOptions: THTopWindow = nil;
 398   winLayers: THTopWindow = nil;
 399   winOutlines: THTopWindow = nil;
 400
 401
 402 procedure createHelpWindow (); forward;
 403 procedure createOptionsWindow (); forward;
 404 procedure createLayersWindow (); forward;
 405 procedure createOutlinesWindow (); forward;
 406
 407
 408 procedure toggleLayersWindowCB (me: THControl; checked: Integer);
 409 begin
 410   if showLayersWindow then
 411   begin
 412     if (winLayers = nil) then createLayersWindow();
 413     uiAddWindow(winLayers);
 414   end
 415   else
 416   begin
 417     uiRemoveWindow(winLayers);
 418   end;
 419 end;
 420
 421
 422 procedure toggleOutlineWindowCB (me: THControl; checked: Integer);
 423 begin
 424   if showOutlineWindow then
 425   begin
 426     if (winOutlines = nil) then createOutlinesWindow();
 427     uiAddWindow(winOutlines);
 428   end
 429   else
 430   begin
 431     uiRemoveWindow(winOutlines);
 432   end;
 433 end;
 434
 435
 436 procedure createHelpWindow ();
 437 var
 438   llb: THCtlSimpleText;
 439   slist: array of AnsiString = nil;
 440   cmd: PHolmesCommand;
 441   bind: THolmesBinding;
 442   f, maxkeylen: Integer;
 443   s: AnsiString;
 444 begin
 445   for cmd in cmdlist do cmd.helpmark := false;
 446
 447   maxkeylen := 0;
 448   for bind in keybinds do
 449   begin
 450     if (Length(bind.key) = 0) then continue;
 451     if cmdlist.get(bind.cmdName, cmd) then
 452     begin
 453       if (Length(cmd.help) > 0) then
 454       begin
 455         cmd.helpmark := true;
 456         if (maxkeylen < Length(bind.key)) then maxkeylen := Length(bind.key);
 457       end;
 458     end;
 459   end;
 460
 461   for cmd in cmdlist do
 462   begin
 463     if not cmd.helpmark then continue;
 464     if (Length(cmd.help) = 0) then continue;
 465     f := 0;
 466     while (f < Length(slist)) and (CompareText(slist[f], cmd.section) <> 0) do Inc(f);
 467     if (f = Length(slist)) then
 468     begin
 469       SetLength(slist, Length(slist)+1);
 470       slist[High(slist)] := cmd.section;
 471     end;
 472   end;
 473
 474   llb := THCtlSimpleText.Create(0, 0);
 475   for f := 0 to High(slist) do
 476   begin
 477     if (f > 0) then llb.appendItem('');
 478     llb.appendItem(slist[f], true, true);
 479     for cmd in cmdlist do
 480     begin
 481       if not cmd.helpmark then continue;
 482       if (CompareText(cmd.section, slist[f]) <> 0) then continue;
 483       for bind in keybinds do
 484       begin
 485         if (Length(bind.key) = 0) then continue;
 486         if (cmd.name = bind.cmdName) then
 487         begin
 488           s := bind.key;
 489           while (Length(s) < maxkeylen) do s += ' ';
 490           s := '  '+s+' -- '+cmd.help;
 491           llb.appendItem(s);
 492         end;
 493       end;
 494     end;
 495   end;
 496
 497   maxkeylen := 0;
 498   for bind in msbinds do
 499   begin
 500     if (Length(bind.key) = 0) then continue;
 501     if cmdlist.get(bind.cmdName, cmd) then
 502     begin
 503       if (Length(cmd.help) > 0) then
 504       begin
 505         cmd.helpmark := true;
 506         if (maxkeylen < Length(bind.key)) then maxkeylen := Length(bind.key);
 507       end;
 508     end;
 509   end;
 510
 511   llb.appendItem('');
 512   llb.appendItem('mouse', true, true);
 513   for bind in msbinds do
 514   begin
 515     if (Length(bind.key) = 0) then continue;
 516     if cmdlist.get(bind.cmdName, cmd) then
 517     begin
 518       if (Length(cmd.help) > 0) then
 519       begin
 520         s := bind.key;
 521         while (Length(s) < maxkeylen) do s += ' ';
 522         s := '  '+s+' -- '+cmd.help;
 523         llb.appendItem(s);
 524       end;
 525     end;
 526   end;
 527
 528   winHelp := THTopWindow.Create('Holmes Help', 10, 10);
 529   winHelp.escClose := true;
 530   winHelp.appendChild(llb);
 531   winHelp.centerInScreen();
 532 end;
 533
 534
 535 procedure winLayersClosed (me: THControl; dummy: Integer); begin showLayersWindow := false; end;
 536 procedure winOutlinesClosed (me: THControl; dummy: Integer); begin showOutlineWindow := false; end;
 537
 538 procedure createLayersWindow ();
 539 var
 540   llb: THCtlCBListBox;
 541 begin
 542   llb := THCtlCBListBox.Create(0, 0);
 543   llb.appendItem('background', @g_rlayer_back);
 544   llb.appendItem('steps', @g_rlayer_step);
 545   llb.appendItem('walls', @g_rlayer_wall);
 546   llb.appendItem('doors', @g_rlayer_door);
 547   llb.appendItem('acid1', @g_rlayer_acid1);
 548   llb.appendItem('acid2', @g_rlayer_acid2);
 549   llb.appendItem('water', @g_rlayer_water);
 550   llb.appendItem('foreground', @g_rlayer_fore);
 551   winLayers := THTopWindow.Create('layers', 10, 10);
 552   winLayers.escClose := true;
 553   winLayers.appendChild(llb);
 554   winLayers.closeCB := winLayersClosed;
 555 end;
 556
 557
 558 procedure createOutlinesWindow ();
 559 var
 560   llb: THCtlCBListBox;
 561 begin
 562   llb := THCtlCBListBox.Create(0, 0);
 563   llb.appendItem('background', @g_ol_rlayer_back);
 564   llb.appendItem('steps', @g_ol_rlayer_step);
 565   llb.appendItem('walls', @g_ol_rlayer_wall);
 566   llb.appendItem('doors', @g_ol_rlayer_door);
 567   llb.appendItem('acid1', @g_ol_rlayer_acid1);
 568   llb.appendItem('acid2', @g_ol_rlayer_acid2);
 569   llb.appendItem('water', @g_ol_rlayer_water);
 570   llb.appendItem('foreground', @g_ol_rlayer_fore);
 571   llb.appendItem('OPTIONS', nil);
 572   llb.appendItem('fill walls', @g_ol_fill_walls);
 573   llb.appendItem('contours', @g_ol_nice);
 574   winOutlines := THTopWindow.Create('outlines', 100, 10);
 575   winOutlines.escClose := true;
 576   winOutlines.appendChild(llb);
 577   winOutlines.closeCB := winOutlinesClosed;
 578 end;
 579
 580
 581 procedure createOptionsWindow ();
 582 var
 583   llb: THCtlCBListBox;
 584 begin
 585   llb := THCtlCBListBox.Create(0, 0);
 586   llb.appendItem('map grid', @showGrid);
 587   llb.appendItem('cursor position on map', @showMapCurPos);
 588   llb.appendItem('monster info', @showMonsInfo);
 589   llb.appendItem('monster LOS to player', @showMonsLOS2Plr);
 590   llb.appendItem('monster cells (SLOW!)', @showAllMonsCells);
 591   llb.appendItem('draw triggers (SLOW!)', @showTriggers);
 592   llb.appendItem('WINDOWS', nil);
 593   llb.appendItem('layers window', @showLayersWindow, toggleLayersWindowCB);
 594   llb.appendItem('outline window', @showOutlineWindow, toggleOutlineWindowCB);
 595   winOptions := THTopWindow.Create('Holmes Options', 100, 100);
 596   winOptions.escClose := true;
 597   winOptions.appendChild(llb);
 598   winOptions.centerInScreen();
 599 end;
 600
 601
 602 procedure toggleLayersWindow (arg: Integer=-1);
 603 begin
 604   showLayersWindow := not showLayersWindow;
 605   toggleLayersWindowCB(nil, 0);
 606 end;
 607
 608 procedure toggleOutlineWindow (arg: Integer=-1);
 609 begin
 610   showOutlineWindow := not showOutlineWindow;
 611   toggleOutlineWindowCB(nil, 0);
 612 end;
 613
 614 procedure toggleHelpWindow (arg: Integer=-1);
 615 begin
 616   if (winHelp = nil) then createHelpWindow();
 617   if not uiVisibleWindow(winHelp) then uiAddWindow(winHelp) else uiRemoveWindow(winHelp);
 618 end;
 619
 620 procedure toggleOptionsWindow (arg: Integer=-1);
 621 begin
 622   if (winOptions = nil) then createOptionsWindow();
 623   if not uiVisibleWindow(winOptions) then uiAddWindow(winOptions) else uiRemoveWindow(winOptions);
 624 end;
 625
 626
 627 // ////////////////////////////////////////////////////////////////////////// //
 628 procedure g_Holmes_VidModeChanged ();
 629 begin
 630   e_WriteLog(Format('Holmes: videomode changed: %dx%d', [gScreenWidth, gScreenHeight]), TMsgType.Notify);
 631   // texture space is possibly lost here, idc
 632   curtexid := 0;
 633   font6texid := 0;
 634   font8texid := 0;
 635   prfont6texid := 0;
 636   prfont8texid := 0;
 637   //createCursorTexture();
 638 end;
 639
 640 procedure g_Holmes_WindowFocused ();
 641 begin
 642   msB := 0;
 643   kbS := 0;
 644 end;
 645
 646 procedure g_Holmes_WindowBlured ();
 647 begin
 648 end;
 649
 650
 651 // ////////////////////////////////////////////////////////////////////////// //
 652 var
 653   vpSet: Boolean = false;
 654   vpx, vpy: Integer;
 655   vpw, vph: Integer;
 656   laserSet: Boolean = false;
 657   laserX0, laserY0, laserX1, laserY1: Integer;
 658   monMarkedUID: Integer = -1;
 659   platMarkedGUID: Integer = -1;
 660
 661
 662 procedure g_Holmes_plrViewPos (viewPortX, viewPortY: Integer);
 663 begin
 664   vpSet := true;
 665   vpx := viewPortX;
 666   vpy := viewPortY;
 667 end;
 668
 669 procedure g_Holmes_plrViewSize (viewPortW, viewPortH: Integer);
 670 begin
 671   vpSet := true;
 672   vpw := viewPortW;
 673   vph := viewPortH;
 674 end;
 675
 676 procedure g_Holmes_plrLaser (ax0, ay0, ax1, ay1: Integer);
 677 begin
 678   laserSet := true;
 679   laserX0 := ax0;
 680   laserY0 := ay0;
 681   laserX1 := ax1;
 682   laserY1 := ay1;
 683   laserSet := laserSet; // shut up, fpc!
 684 end;
 685
 686
 687 function pmsCurMapX (): Integer; inline; begin result := round(msX/g_dbg_scale)+vpx; end;
 688 function pmsCurMapY (): Integer; inline; begin result := round(msY/g_dbg_scale)+vpy; end;
 689
 690
 691 procedure plrDebugMouse (var ev: THMouseEvent);
 692 begin
 693   //e_WriteLog(Format('mouse: x=%d; y=%d; but=%d; bstate=%d', [msx, msy, but, bstate]), MSG_NOTIFY);
 694   if (gPlayer1 = nil) or not vpSet then exit;
 695   //if (ev.kind <> THMouseEvent.Press) then exit;
 696   //e_WriteLog(Format('mev: %d', [Integer(ev.kind)]), MSG_NOTIFY);
 697   msbindExecute(ev);
 698 end;
 699
 700
 701 {$IFDEF HOLMES_OLD_OUTLINES}
 702 var
 703   edgeBmp: array of Byte = nil;
 704
 705
 706 procedure drawOutlines ();
 707 var
 708   r, g, b: Integer;
 709
 710   procedure clearEdgeBmp ();
 711   begin
 712     SetLength(edgeBmp, (gWinSizeX+4)*(gWinSizeY+4));
 713     FillChar(edgeBmp[0], Length(edgeBmp)*sizeof(edgeBmp[0]), 0);
 714   end;
 715
 716   procedure drawPanel (pan: TPanel);
 717   var
 718     sx, len, y0, y1: Integer;
 719   begin
 720     if (pan = nil) or (pan.Width < 1) or (pan.Height < 1) then exit;
 721     if (pan.X+pan.Width <= vpx-1) or (pan.Y+pan.Height <= vpy-1) then exit;
 722     if (pan.X >= vpx+vpw+1) or (pan.Y >= vpy+vph+1) then exit;
 723     if g_ol_nice or g_ol_fill_walls then
 724     begin
 725       sx := pan.X-(vpx-1);
 726       len := pan.Width;
 727       if (len > gWinSizeX+4) then len := gWinSizeX+4;
 728       if (sx < 0) then begin len += sx; sx := 0; end;
 729       if (sx+len > gWinSizeX+4) then len := gWinSizeX+4-sx;
 730       if (len < 1) then exit;
 731       assert(sx >= 0);
 732       assert(sx+len <= gWinSizeX+4);
 733       y0 := pan.Y-(vpy-1);
 734       y1 := y0+pan.Height;
 735       if (y0 < 0) then y0 := 0;
 736       if (y1 > gWinSizeY+4) then y1 := gWinSizeY+4;
 737       while (y0 < y1) do
 738       begin
 739         FillChar(edgeBmp[y0*(gWinSizeX+4)+sx], len*sizeof(edgeBmp[0]), 1);
 740         Inc(y0);
 741       end;
 742     end
 743     else
 744     begin
 745       drawRect(pan.X, pan.Y, pan.Width, pan.Height, r, g, b);
 746     end;
 747   end;
 748
 749 var
 750   lsx: Integer = -1;
 751   lex: Integer = -1;
 752   lsy: Integer = -1;
 753
 754   procedure flushLine ();
 755   begin
 756     if (lsy > 0) and (lsx > 0) then
 757     begin
 758       if (lex = lsx) then
 759       begin
 760         glBegin(GL_POINTS);
 761           glVertex2f(lsx-1+vpx+0.37, lsy-1+vpy+0.37);
 762         glEnd();
 763       end
 764       else
 765       begin
 766         glBegin(GL_LINES);
 767           glVertex2f(lsx-1+vpx+0.37, lsy-1+vpy+0.37);
 768           glVertex2f(lex-0+vpx+0.37, lsy-1+vpy+0.37);
 769         glEnd();
 770       end;
 771     end;
 772     lsx := -1;
 773     lex := -1;
 774   end;
 775
 776   procedure startLine (y: Integer);
 777   begin
 778     flushLine();
 779     lsy := y;
 780   end;
 781
 782   procedure putPixel (x: Integer);
 783   begin
 784     if (x < 1) then exit;
 785     if (lex+1 <> x) then flushLine();
 786     if (lsx < 0) then lsx := x;
 787     lex := x;
 788   end;
 789
 790   procedure drawEdges ();
 791   var
 792     x, y: Integer;
 793     a: PByte;
 794   begin
 795     glDisable(GL_BLEND);
 796     glDisable(GL_TEXTURE_2D);
 797     glLineWidth(1);
 798     glPointSize(1);
 799     glDisable(GL_LINE_SMOOTH);
 800     glDisable(GL_POLYGON_SMOOTH);
 801     glColor4f(r/255.0, g/255.0, b/255.0, 1.0);
 802     for y := 1 to vph do
 803     begin
 804       a := @edgeBmp[y*(gWinSizeX+4)+1];
 805       startLine(y);
 806       for x := 1 to vpw do
 807       begin
 808         if (a[0] <> 0) then
 809         begin
 810           if (a[-1] = 0) or (a[1] = 0) or (a[-(gWinSizeX+4)] = 0) or (a[gWinSizeX+4] = 0) or
 811              (a[-(gWinSizeX+4)-1] = 0) or (a[-(gWinSizeX+4)+1] = 0) or
 812              (a[gWinSizeX+4-1] = 0) or (a[gWinSizeX+4+1] = 0) then
 813           begin
 814             putPixel(x);
 815           end;
 816         end;
 817         Inc(a);
 818       end;
 819       flushLine();
 820     end;
 821   end;
 822
 823   procedure drawFilledWalls ();
 824   var
 825     x, y: Integer;
 826     a: PByte;
 827   begin
 828     glDisable(GL_BLEND);
 829     glDisable(GL_TEXTURE_2D);
 830     glLineWidth(1);
 831     glPointSize(1);
 832     glDisable(GL_LINE_SMOOTH);
 833     glDisable(GL_POLYGON_SMOOTH);
 834     glColor4f(r/255.0, g/255.0, b/255.0, 1.0);
 835     for y := 1 to vph do
 836     begin
 837       a := @edgeBmp[y*(gWinSizeX+4)+1];
 838       startLine(y);
 839       for x := 1 to vpw do
 840       begin
 841         if (a[0] <> 0) then putPixel(x);
 842         Inc(a);
 843       end;
 844       flushLine();
 845     end;
 846   end;
 847
 848   procedure doWallsOld (parr: array of TPanel; ptype: Word; ar, ag, ab: Integer);
 849   var
 850     f: Integer;
 851     pan: TPanel;
 852   begin
 853     r := ar;
 854     g := ag;
 855     b := ab;
 856     if g_ol_nice or g_ol_fill_walls then clearEdgeBmp();
 857     for f := 0 to High(parr) do
 858     begin
 859       pan := parr[f];
 860       if (pan = nil) or not pan.Enabled or (pan.Width < 1) or (pan.Height < 1) then continue;
 861       if ((pan.PanelType and ptype) = 0) then continue;
 862       drawPanel(pan);
 863     end;
 864     if g_ol_nice then drawEdges();
 865     if g_ol_fill_walls then drawFilledWalls();
 866   end;
 867
 868 var
 869   xptag: Word;
 870
 871   function doWallCB (pan: TPanel; tag: Integer): Boolean;
 872   begin
 873     result := false; // don't stop
 874     //if (pan = nil) or not pan.Enabled or (pan.Width < 1) or (pan.Height < 1) then exit;
 875     if ((pan.PanelType and xptag) = 0) then exit;
 876     drawPanel(pan);
 877   end;
 878
 879   procedure doWalls (parr: array of TPanel; ptype: Word; ar, ag, ab: Integer);
 880   begin
 881     r := ar;
 882     g := ag;
 883     b := ab;
 884     xptag := ptype;
 885     if ((ptype and (PANEL_WALL or PANEL_OPENDOOR or PANEL_CLOSEDOOR)) <> 0) then ptype := GridTagWall or GridTagDoor
 886     else panelTypeToTag(ptype);
 887     if g_ol_nice or g_ol_fill_walls then clearEdgeBmp();
 888     mapGrid.forEachInAABB(vpx-1, vpy-1, vpw+2, vph+2, doWallCB, ptype);
 889     if g_ol_nice then drawEdges();
 890     if g_ol_fill_walls then drawFilledWalls();
 891   end;
 892
 893 begin
 894   if g_ol_rlayer_back then doWallsOld(gRenderBackgrounds, PANEL_BACK, 255, 127, 0);
 895   if g_ol_rlayer_step then doWallsOld(gSteps, PANEL_STEP, 192, 192, 192);
 896   if g_ol_rlayer_wall then doWallsOld(gWalls, PANEL_WALL, 255, 255, 255);
 897   if g_ol_rlayer_door then doWallsOld(gWalls, PANEL_OPENDOOR or PANEL_CLOSEDOOR, 0, 255, 0);
 898   if g_ol_rlayer_acid1 then doWallsOld(gAcid1, PANEL_ACID1, 255, 0, 0);
 899   if g_ol_rlayer_acid2 then doWallsOld(gAcid2, PANEL_ACID2, 198, 198, 0);
 900   if g_ol_rlayer_water then doWallsOld(gWater, PANEL_WATER, 0, 255, 255);
 901   if g_ol_rlayer_fore then doWallsOld(gRenderForegrounds, PANEL_FORE, 210, 210, 210);
 902 end;
 903
 904 {$ELSE}
 905 var
 906   oliner: TOutliner = nil;
 907
 908 procedure drawOutlines ();
 909 var
 910   r, g, b: Integer;
 911
 912   procedure clearOliner ();
 913   begin
 914     //if (oliner <> nil) and ((oliner.height <> vph+2) or (oliner.width <> vpw+2)) then begin oliner.Free(); oliner := nil; end;
 915     if (oliner = nil) then oliner := TOutliner.Create(vpw+2, vph+2) else oliner.setup(vpw+2, vph+2);
 916   end;
 917
 918   procedure drawOutline (ol: TOutliner; sx, sy: Integer);
 919     procedure xline (x0, x1, y: Integer);
 920     var
 921       x: Integer;
 922     begin
 923       if (g_dbg_scale < 1.0) then
 924       begin
 925         glBegin(GL_POINTS);
 926           for x := x0 to x1 do glVertex2f(sx+x+0.375, sy+y+0.375);
 927         glEnd();
 928       end
 929       else
 930       begin
 931         glBegin(GL_QUADS);
 932           glVertex2f(sx+x0+0, sy+y+0);
 933           glVertex2f(sx+x1+1, sy+y+0);
 934           glVertex2f(sx+x1+1, sy+y+1);
 935           glVertex2f(sx+x0+0, sy+y+1);
 936         glEnd();
 937       end;
 938     end;
 939   var
 940     y: Integer;
 941     sp: TOutliner.TSpanX;
 942   begin
 943     if (ol = nil) then exit;
 944     glPointSize(1);
 945     glDisable(GL_POINT_SMOOTH);
 946     for y := 0 to ol.height-1 do
 947     begin
 948       for sp in ol.eachSpanAtY(y) do
 949       begin
 950         if (g_dbg_scale <= 1.0) then
 951         begin
 952           glBegin(GL_POINTS);
 953             glVertex2f(sx+sp.x0+0.375, sy+y+0.375);
 954             glVertex2f(sx+sp.x1+0.375, sy+y+0.375);
 955           glEnd();
 956         end
 957         else
 958         begin
 959           glBegin(GL_QUADS);
 960             glVertex2f(sx+sp.x0+0, sy+y+0);
 961             glVertex2f(sx+sp.x0+1, sy+y+0);
 962             glVertex2f(sx+sp.x0+1, sy+y+1);
 963             glVertex2f(sx+sp.x0+0, sy+y+1);
 964
 965             glVertex2f(sx+sp.x1+0, sy+y+0);
 966             glVertex2f(sx+sp.x1+1, sy+y+0);
 967             glVertex2f(sx+sp.x1+1, sy+y+1);
 968             glVertex2f(sx+sp.x1+0, sy+y+1);
 969           glEnd();
 970         end;
 971       end;
 972       for sp in ol.eachSpanEdgeAtY(y, -1) do
 973       begin
 974         xline(sp.x0, sp.x1, y);
 975         {
 976         glBegin(GL_QUADS);
 977           glVertex2f(sx+sp.x0+0, sy+y+0);
 978           glVertex2f(sx+sp.x1+1, sy+y+0);
 979           glVertex2f(sx+sp.x1+1, sy+y+1);
 980           glVertex2f(sx+sp.x0+0, sy+y+1);
 981         glEnd();
 982         }
 983       end;
 984       for sp in ol.eachSpanEdgeAtY(y, +1) do
 985       begin
 986         xline(sp.x0, sp.x1, y);
 987         {
 988         glBegin(GL_QUADS);
 989           glVertex2f(sx+sp.x0+0, sy+y+0);
 990           glVertex2f(sx+sp.x1+1, sy+y+0);
 991           glVertex2f(sx+sp.x1+1, sy+y+1);
 992           glVertex2f(sx+sp.x0+0, sy+y+1);
 993         glEnd();
 994         }
 995       end;
 996     end;
 997   end;
 998
 999   procedure doWallsOld (parr: array of TPanel; ptype: Word; ar, ag, ab: Integer);
1000   var
1001     f: Integer;
1002     pan: TPanel;
1003   begin
1004     r := ar;
1005     g := ag;
1006     b := ab;
1007     if g_ol_nice then clearOliner();
1008     for f := 0 to High(parr) do
1009     begin
1010       pan := parr[f];
1011       if (pan = nil) or not pan.Enabled or (pan.Width < 1) or (pan.Height < 1) then continue;
1012       if ((pan.PanelType and ptype) = 0) then continue;
1013       if (pan.X > vpx+vpw+41) or (pan.Y > vpy+vph+41) then continue;
1014       if (pan.X+pan.Width < vpx-41) then continue;
1015       if (pan.Y+pan.Height < vpy-41) then continue;
1016       if g_ol_nice then
1017       begin
1018         oliner.addRect(pan.X-(vpx+1), pan.Y-(vpy+1), pan.Width, pan.Height);
1019       end;
1020       if g_ol_fill_walls then
1021       begin
1022         fillRect(pan.X, pan.Y, pan.Width, pan.Height, r, g, b);
1023       end
1024       else if not g_ol_nice then
1025       begin
1026         drawRect(pan.X, pan.Y, pan.Width, pan.Height, r, g, b);
1027       end;
1028     end;
1029     if g_ol_nice then
1030     begin
1031       glColor4f(r/255.0, g/255.0, b/255.0, 1.0);
1032       drawOutline(oliner, vpx+1, vpy+1);
1033     end;
1034   end;
1035
1036 begin
1037   if (vpw < 2) or (vph < 2) then exit;
1038   if g_ol_rlayer_back then doWallsOld(gRenderBackgrounds, PANEL_BACK, 255, 127, 0);
1039   if g_ol_rlayer_step then doWallsOld(gSteps, PANEL_STEP, 192, 192, 192);
1040   if g_ol_rlayer_wall then doWallsOld(gWalls, PANEL_WALL, 255, 255, 255);
1041   if g_ol_rlayer_door then doWallsOld(gWalls, PANEL_OPENDOOR or PANEL_CLOSEDOOR, 0, 255, 0);
1042   if g_ol_rlayer_acid1 then doWallsOld(gAcid1, PANEL_ACID1, 255, 0, 0);
1043   if g_ol_rlayer_acid2 then doWallsOld(gAcid2, PANEL_ACID2, 198, 198, 0);
1044   if g_ol_rlayer_water then doWallsOld(gWater, PANEL_WATER, 0, 255, 255);
1045   if g_ol_rlayer_fore then doWallsOld(gRenderForegrounds, PANEL_FORE, 210, 210, 210);
1046 end;
1047 {$ENDIF}
1048
1049
1050 procedure plrDebugDraw ();
1051   procedure drawTileGrid ();
1052   var
1053     x, y: Integer;
1054   begin
1055     for y := 0 to (mapGrid.gridHeight div mapGrid.tileSize) do
1056     begin
1057       drawLine(mapGrid.gridX0, mapGrid.gridY0+y*mapGrid.tileSize, mapGrid.gridX0+mapGrid.gridWidth, mapGrid.gridY0+y*mapGrid.tileSize, 96, 96, 96, 255);
1058     end;
1059
1060     for x := 0 to (mapGrid.gridWidth div mapGrid.tileSize) do
1061     begin
1062       drawLine(mapGrid.gridX0+x*mapGrid.tileSize, mapGrid.gridY0, mapGrid.gridX0+x*mapGrid.tileSize, mapGrid.gridY0+y*mapGrid.gridHeight, 96, 96, 96, 255);
1063     end;
1064   end;
1065
1066   procedure drawAwakeCells ();
1067   var
1068     x, y: Integer;
1069   begin
1070     for y := 0 to (mapGrid.gridHeight div mapGrid.tileSize) do
1071     begin
1072       for x := 0 to (mapGrid.gridWidth div mapGrid.tileSize) do
1073       begin
1074         if awmIsSetHolmes(x*mapGrid.tileSize+mapGrid.gridX0+1, y*mapGrid.tileSize++mapGrid.gridY0+1) then
1075         begin
1076           fillRect(x*mapGrid.tileSize++mapGrid.gridX0, y*mapGrid.tileSize++mapGrid.gridY0, monsGrid.tileSize, monsGrid.tileSize, 128, 0, 128, 64);
1077         end;
1078       end;
1079     end;
1080   end;
1081
1082   procedure drawTraceBox ();
1083   var
1084     plr: TPlayer;
1085     px, py, pw, ph: Integer;
1086     pdx, pdy: Integer;
1087     ex, ey: Integer;
1088     pan: TPanel;
1089   begin
1090     if (Length(gPlayers) < 1) then exit;
1091     plr := gPlayers[0];
1092     if (plr = nil) then exit;
1093     plr.getMapBox(px, py, pw, ph);
1094     drawRect(px, py, pw, ph, 255, 0, 255, 200);
1095     pdx := pmsCurMapX-(px+pw div 2);
1096     pdy := pmsCurMapY-(py+ph div 2);
1097     drawLine(px+pw div 2, py+ph div 2, px+pw div 2+pdx, py+ph div 2+pdy, 255, 0, 255, 200);
1098     pan := mapGrid.traceBox(ex, ey, px, py, pw, ph, pdx, pdy, nil, GridTagObstacle);
1099     if (pan = nil) then
1100     begin
1101       drawRect(px+pdx, py+pdy, pw, ph, 255, 255, 255, 180);
1102     end
1103     else
1104     begin
1105       drawRect(px+pdx, py+pdy, pw, ph, 255, 255, 0, 180);
1106     end;
1107     drawRect(ex, ey, pw, ph, 255, 127, 0, 180);
1108   end;
1109
1110   procedure hilightCell (cx, cy: Integer);
1111   begin
1112     fillRect(cx, cy, monsGrid.tileSize, monsGrid.tileSize, 0, 128, 0, 64);
1113   end;
1114
1115   procedure hilightCell1 (cx, cy: Integer);
1116   begin
1117     //e_WriteLog(Format('h1: (%d,%d)', [cx, cy]), MSG_NOTIFY);
1118     cx := cx and (not (monsGrid.tileSize-1));
1119     cy := cy and (not (monsGrid.tileSize-1));
1120     fillRect(cx, cy, monsGrid.tileSize, monsGrid.tileSize, 255, 255, 0, 92);
1121   end;
1122
1123   function hilightWallTrc (pan: TPanel; tag: Integer; x, y, prevx, prevy: Integer): Boolean;
1124   begin
1125     result := false; // don't stop
1126     if (pan = nil) then exit; // cell completion, ignore
1127     //e_WriteLog(Format('h1: (%d,%d)', [cx, cy]), MSG_NOTIFY);
1128     fillRect(pan.X, pan.Y, pan.Width, pan.Height, 0, 128, 128, 64);
1129   end;
1130
1131   function monsCollector (mon: TMonster; tag: Integer): Boolean;
1132   var
1133     ex, ey: Integer;
1134     mx, my, mw, mh: Integer;
1135   begin
1136     result := false;
1137     mon.getMapBox(mx, my, mw, mh);
1138     e_DrawQuad(mx, my, mx+mw-1, my+mh-1, 255, 255, 0, 96);
1139     if lineAABBIntersects(laserX0, laserY0, laserX1, laserY1, mx, my, mw, mh, ex, ey) then
1140     begin
1141       e_DrawPoint(8, ex, ey, 0, 255, 0);
1142     end;
1143   end;
1144
1145   procedure drawMonsterInfo (mon: TMonster);
1146   var
1147     mx, my, mw, mh: Integer;
1148
1149     procedure drawMonsterTargetLine ();
1150     var
1151       emx, emy, emw, emh: Integer;
1152       enemy: TMonster;
1153       eplr: TPlayer;
1154       ex, ey: Integer;
1155     begin
1156       if (g_GetUIDType(mon.MonsterTargetUID) = UID_PLAYER) then
1157       begin
1158         eplr := g_Player_Get(mon.MonsterTargetUID);
1159         if (eplr <> nil) then eplr.getMapBox(emx, emy, emw, emh) else exit;
1160       end
1161       else if (g_GetUIDType(mon.MonsterTargetUID) = UID_MONSTER) then
1162       begin
1163         enemy := g_Monsters_ByUID(mon.MonsterTargetUID);
1164         if (enemy <> nil) then enemy.getMapBox(emx, emy, emw, emh) else exit;
1165       end
1166       else
1167       begin
1168         exit;
1169       end;
1170       mon.getMapBox(mx, my, mw, mh);
1171       drawLine(mx+mw div 2, my+mh div 2, emx+emw div 2, emy+emh div 2, 255, 0, 0, 255);
1172       if (g_Map_traceToNearestWall(mx+mw div 2, my+mh div 2, emx+emw div 2, emy+emh div 2, @ex, @ey) <> nil) then
1173       begin
1174         drawLine(mx+mw div 2, my+mh div 2, ex, ey, 0, 255, 0, 255);
1175       end;
1176     end;
1177
1178     procedure drawLOS2Plr ();
1179     var
1180       emx, emy, emw, emh: Integer;
1181       eplr: TPlayer;
1182       ex, ey: Integer;
1183     begin
1184       eplr := gPlayers[0];
1185       if (eplr = nil) then exit;
1186       eplr.getMapBox(emx, emy, emw, emh);
1187       mon.getMapBox(mx, my, mw, mh);
1188       drawLine(mx+mw div 2, my+mh div 2, emx+emw div 2, emy+emh div 2, 255, 0, 0, 255);
1189       {$IF DEFINED(D2F_DEBUG)}
1190       mapGrid.dbgRayTraceTileHitCB := hilightCell1;
1191       {$ENDIF}
1192       if (g_Map_traceToNearestWall(mx+mw div 2, my+mh div 2, emx+emw div 2, emy+emh div 2, @ex, @ey) <> nil) then
1193       //if (mapGrid.traceRay(ex, ey, mx+mw div 2, my+mh div 2, emx+emw div 2, emy+emh div 2, hilightWallTrc, (GridTagWall or GridTagDoor)) <> nil) then
1194       begin
1195         drawLine(mx+mw div 2, my+mh div 2, ex, ey, 0, 255, 0, 255);
1196       end;
1197       {$IF DEFINED(D2F_DEBUG)}
1198       mapGrid.dbgRayTraceTileHitCB := nil;
1199       {$ENDIF}
1200     end;
1201
1202   begin
1203     if (mon = nil) then exit;
1204     mon.getMapBox(mx, my, mw, mh);
1205     //mx += mw div 2;
1206
1207     monsGrid.forEachBodyCell(mon.proxyId, hilightCell);
1208
1209     if showMonsInfo then
1210     begin
1211       //fillRect(mx-4, my-7*8-6, 110, 7*8+6, 0, 0, 94, 250);
1212       darkenRect(mx-4, my-7*8-6, 110, 7*8+6, 128);
1213       my -= 8;
1214       my -= 2;
1215
1216       // type
1217       drawText6(mx, my, Format('%s(U:%u)', [monsTypeToString(mon.MonsterType), mon.UID]), 255, 127, 0); my -= 8;
1218       // beh
1219       drawText6(mx, my, Format('Beh: %s', [monsBehToString(mon.MonsterBehaviour)]), 255, 127, 0); my -= 8;
1220       // state
1221       drawText6(mx, my, Format('State:%s (%d)', [monsStateToString(mon.MonsterState), mon.MonsterSleep]), 255, 127, 0); my -= 8;
1222       // health
1223       drawText6(mx, my, Format('Health:%d', [mon.MonsterHealth]), 255, 127, 0); my -= 8;
1224       // ammo
1225       drawText6(mx, my, Format('Ammo:%d', [mon.MonsterAmmo]), 255, 127, 0); my -= 8;
1226       // target
1227       drawText6(mx, my, Format('TgtUID:%u', [mon.MonsterTargetUID]), 255, 127, 0); my -= 8;
1228       drawText6(mx, my, Format('TgtTime:%d', [mon.MonsterTargetTime]), 255, 127, 0); my -= 8;
1229     end;
1230
1231     drawMonsterTargetLine();
1232     if showMonsLOS2Plr then drawLOS2Plr();
1233     {
1234     property MonsterRemoved: Boolean read FRemoved write FRemoved;
1235     property MonsterPain: Integer read FPain write FPain;
1236     property MonsterAnim: Byte read FCurAnim write FCurAnim;
1237     }
1238   end;
1239
1240   function highlightAllMonsterCells (mon: TMonster): Boolean;
1241   begin
1242     result := false; // don't stop
1243     monsGrid.forEachBodyCell(mon.proxyId, hilightCell);
1244   end;
1245
1246   procedure drawSelectedPlatformCells ();
1247   var
1248     pan: TPanel;
1249   begin
1250     if not showGrid then exit;
1251     pan := g_Map_PanelByGUID(platMarkedGUID);
1252     if (pan = nil) then exit;
1253     mapGrid.forEachBodyCell(pan.proxyId, hilightCell);
1254     drawRect(pan.x, pan.y, pan.width, pan.height, 0, 200, 0, 200);
1255   end;
1256
1257   procedure drawTrigger (var trig: TTrigger);
1258
1259     procedure drawPanelDest (pguid: Integer);
1260     var
1261       pan: TPanel;
1262     begin
1263       pan := g_Map_PanelByGUID(pguid);
1264       if (pan = nil) then exit;
1265       drawLine(
1266         trig.trigCenter.x, trig.trigCenter.y,
1267         pan.x+pan.width div 2, pan.y+pan.height div 2,
1268         255, 0, 255, 220);
1269     end;
1270
1271   var
1272     tts: AnsiString;
1273     tx: Integer;
1274   begin
1275     fillRect(trig.x, trig.y, trig.width, trig.height, 255, 0, 255, 96);
1276     tts := trigType2Str(trig.TriggerType);
1277     tx := trig.x+(trig.width-Length(tts)*6) div 2;
1278     darkenRect(tx-2, trig.y-10, Length(tts)*6+4, 10, 64);
1279     drawText6(tx, trig.y-9, tts, 255, 127, 0);
1280     tx := trig.x+(trig.width-Length(trig.mapId)*6) div 2;
1281     darkenRect(tx-2, trig.y-20, Length(trig.mapId)*6+4, 10, 64);
1282     drawText6(tx, trig.y-19, trig.mapId, 255, 255, 0);
1283     drawPanelDest(trig.trigPanelGUID);
1284     case trig.TriggerType of
1285       TRIGGER_NONE: begin end;
1286       TRIGGER_EXIT: begin end;
1287       TRIGGER_TELEPORT: begin end;
1288       TRIGGER_OPENDOOR: begin end;
1289       TRIGGER_CLOSEDOOR: begin end;
1290       TRIGGER_DOOR: begin end;
1291       TRIGGER_DOOR5: begin end;
1292       TRIGGER_CLOSETRAP: begin end;
1293       TRIGGER_TRAP: begin end;
1294       TRIGGER_SECRET: begin end;
1295       TRIGGER_LIFTUP: begin end;
1296       TRIGGER_LIFTDOWN: begin end;
1297       TRIGGER_LIFT: begin end;
1298       TRIGGER_TEXTURE: begin end;
1299       TRIGGER_ON, TRIGGER_OFF, TRIGGER_ONOFF, TRIGGER_PRESS:
1300         begin
1301           if (trig.trigDataRec.trigTWidth > 0) and (trig.trigDataRec.trigTHeight > 0) then
1302           begin
1303             fillRect(
1304               trig.trigDataRec.trigTX, trig.trigDataRec.trigTY,
1305               trig.trigDataRec.trigTWidth, trig.trigDataRec.trigTHeight,
1306               0, 255, 255, 42);
1307             drawLine(
1308               trig.trigCenter.x, trig.trigCenter.y,
1309               trig.trigDataRec.trigTX+trig.trigDataRec.trigTWidth div 2,
1310               trig.trigDataRec.trigTY+trig.trigDataRec.trigTHeight div 2,
1311               255, 0, 255, 220);
1312           end;
1313         end;
1314       TRIGGER_SOUND: begin end;
1315       TRIGGER_SPAWNMONSTER: begin end;
1316       TRIGGER_SPAWNITEM: begin end;
1317       TRIGGER_MUSIC: begin end;
1318       TRIGGER_PUSH: begin end;
1319       TRIGGER_SCORE: begin end;
1320       TRIGGER_MESSAGE: begin end;
1321       TRIGGER_DAMAGE: begin end;
1322       TRIGGER_HEALTH: begin end;
1323       TRIGGER_SHOT: begin end;
1324       TRIGGER_EFFECT: begin end;
1325       TRIGGER_SCRIPT: begin end;
1326     end;
1327     //trigType2Str
1328     //trigPanelId: Integer;
1329   end;
1330
1331   procedure drawTriggers ();
1332   var
1333     f: Integer;
1334   begin
1335     for f := 0 to High(gTriggers) do drawTrigger(gTriggers[f]);
1336   end;
1337
1338   procedure drawGibsBoxes ();
1339   var
1340     f: Integer;
1341     px, py, pw, ph: Integer;
1342     gib: PGib;
1343   begin
1344     for f := 0 to High(gGibs) do
1345     begin
1346       gib := @gGibs[f];
1347       if gib.alive then
1348       begin
1349         gib.getMapBox(px, py, pw, ph);
1350         drawRect(px, py, pw, ph, 255, 0, 255);
1351       end;
1352     end;
1353   end;
1354
1355 var
1356   scisave: TScissorSave;
1357   mon: TMonster;
1358   mx, my, mw, mh: Integer;
1359   //pan: TPanel;
1360   //ex, ey: Integer;
1361 begin
1362   if (gPlayer1 = nil) then exit;
1363
1364   scisave.save(true); // enable scissoring
1365   glPushMatrix();
1366   try
1367     //glScissor(0, gWinSizeY-gPlayerScreenSize.Y-1, vpw, vph);
1368     glScissor(0, gScreenHeight-gPlayerScreenSize.Y-1, gPlayerScreenSize.X, gPlayerScreenSize.Y);
1369
1370     glScalef(g_dbg_scale, g_dbg_scale, 1.0);
1371     glTranslatef(-vpx, -vpy, 0);
1372
1373     if (showGrid) then drawTileGrid();
1374     drawOutlines();
1375
1376     if (laserSet) then g_Mons_AlongLine(laserX0, laserY0, laserX1, laserY1, monsCollector, true);
1377
1378     if (monMarkedUID <> -1) then
1379     begin
1380       mon := g_Monsters_ByUID(monMarkedUID);
1381       if (mon <> nil) then
1382       begin
1383         mon.getMapBox(mx, my, mw, mh);
1384         e_DrawQuad(mx, my, mx+mw-1, my+mh-1, 255, 0, 0, 30);
1385         drawMonsterInfo(mon);
1386       end;
1387     end;
1388
1389     if showAllMonsCells and showGrid then g_Mons_ForEach(highlightAllMonsterCells);
1390     if showTriggers then drawTriggers();
1391     if showGrid then drawSelectedPlatformCells();
1392
1393     //drawAwakeCells();
1394
1395     if showTraceBox then drawTraceBox();
1396
1397     //drawGibsBoxes();
1398
1399
1400     //pan := g_Map_traceToNearest(16, 608, 16, 8, (GridTagObstacle or GridTagLiquid), @ex, @ey);
1401     (*
1402     {$IF DEFINED(D2F_DEBUG)}
1403     mapGrid.dbgRayTraceTileHitCB := hilightCell1;
1404     {$ENDIF}
1405     pan := mapGrid.traceRay(ex, ey, 16, 608, 16, 8, nil, (GridTagObstacle or GridTagLiquid));
1406     if (pan <> nil) then writeln('end=(', ex, ',', ey, ')');
1407     {$IF DEFINED(D2F_DEBUG)}
1408     mapGrid.dbgRayTraceTileHitCB := nil;
1409     {$ENDIF}
1410
1411     pan := g_Map_PanelAtPoint(16, 608, (GridTagObstacle or GridTagLiquid));
1412     if (pan <> nil) then writeln('hit!');
1413     *)
1414
1415   finally
1416     glPopMatrix();
1417     scisave.restore();
1418   end;
1419
1420   if showMapCurPos then drawText8(4, gWinSizeY-10, Format('mappos:(%d,%d)', [pmsCurMapX, pmsCurMapY]), 255, 255, 0);
1421 end;
1422
1423
1424 // ////////////////////////////////////////////////////////////////////////// //
1425 function g_Holmes_MouseEvent (var ev: THMouseEvent): Boolean;
1426 var
1427   he: THMouseEvent;
1428 begin
1429   if g_Game_IsNet then begin result := false; exit; end;
1430   holmesInitCommands();
1431   holmesInitBinds();
1432   result := true;
1433   msX := trunc(ev.x/g_holmes_ui_scale);
1434   msY := trunc(ev.y/g_holmes_ui_scale);
1435   msB := ev.bstate;
1436   kbS := ev.kstate;
1437   msB := msB;
1438   he := ev;
1439   he.x := trunc(he.x/g_holmes_ui_scale);
1440   he.y := trunc(he.y/g_holmes_ui_scale);
1441   if not uiMouseEvent(he) then plrDebugMouse(he);
1442 end;
1443
1444
1445 // ////////////////////////////////////////////////////////////////////////// //
1446 function g_Holmes_KeyEvent (var ev: THKeyEvent): Boolean;
1447 {$IF DEFINED(D2F_DEBUG)}
1448 var
1449   pan: TPanel;
1450   ex, ey: Integer;
1451   dx, dy: Integer;
1452 {$ENDIF}
1453
1454   procedure dummyWallTrc (cx, cy: Integer);
1455   begin
1456   end;
1457
1458 begin
1459   if g_Game_IsNet then begin result := false; exit; end;
1460   holmesInitCommands();
1461   holmesInitBinds();
1462   result := false;
1463   msB := ev.bstate;
1464   kbS := ev.kstate;
1465   case ev.scan of
1466     SDL_SCANCODE_LCTRL, SDL_SCANCODE_RCTRL,
1467     SDL_SCANCODE_LALT, SDL_SCANCODE_RALT,
1468     SDL_SCANCODE_LSHIFT, SDL_SCANCODE_RSHIFT:
1469       result := true;
1470   end;
1471   if uiKeyEvent(ev) then begin result := true; exit; end;
1472   if keybindExecute(ev) then begin result := true; exit; end;
1473   // press
1474   if (ev.kind = THKeyEvent.Press) then
1475   begin
1476     {$IF DEFINED(D2F_DEBUG)}
1477     // C-UP, C-DOWN, C-LEFT, C-RIGHT: trace 10 pixels from cursor in the respective direction
1478     if ((ev.scan = SDL_SCANCODE_UP) or (ev.scan = SDL_SCANCODE_DOWN) or (ev.scan = SDL_SCANCODE_LEFT) or (ev.scan = SDL_SCANCODE_RIGHT)) and
1479        ((ev.kstate and THKeyEvent.ModCtrl) <> 0) then
1480     begin
1481       result := true;
1482       dx := pmsCurMapX;
1483       dy := pmsCurMapY;
1484       case ev.scan of
1485         SDL_SCANCODE_UP: dy -= 120;
1486         SDL_SCANCODE_DOWN: dy += 120;
1487         SDL_SCANCODE_LEFT: dx -= 120;
1488         SDL_SCANCODE_RIGHT: dx += 120;
1489       end;
1490       {$IF DEFINED(D2F_DEBUG)}
1491       //mapGrid.dbgRayTraceTileHitCB := dummyWallTrc;
1492       mapGrid.dbgShowTraceLog := true;
1493       {$ENDIF}
1494       pan := g_Map_traceToNearest(pmsCurMapX, pmsCurMapY, dx, dy, (GridTagWall or GridTagDoor or GridTagStep or GridTagAcid1 or GridTagAcid2 or GridTagWater), @ex, @ey);
1495       {$IF DEFINED(D2F_DEBUG)}
1496       //mapGrid.dbgRayTraceTileHitCB := nil;
1497       mapGrid.dbgShowTraceLog := false;
1498       {$ENDIF}
1499       e_LogWritefln('v-trace: (%d,%d)-(%d,%d); end=(%d,%d); hit=%d', [pmsCurMapX, pmsCurMapY, dx, dy, ex, ey, (pan <> nil)]);
1500       exit;
1501     end;
1502     {$ENDIF}
1503   end;
1504 end;
1505
1506
1507 // ////////////////////////////////////////////////////////////////////////// //
1508 procedure g_Holmes_Draw ();
1509 begin
1510   if g_Game_IsNet then exit;
1511   {$IF not DEFINED(HEADLESS)}
1512   holmesInitCommands();
1513   holmesInitBinds();
1514
1515   glColorMask(GL_TRUE, GL_TRUE, GL_TRUE, GL_TRUE); // modify color buffer
1516   glDisable(GL_STENCIL_TEST);
1517   glDisable(GL_BLEND);
1518   glDisable(GL_SCISSOR_TEST);
1519   glDisable(GL_TEXTURE_2D);
1520
1521   if gGameOn then plrDebugDraw();
1522   {$ENDIF}
1523
1524   laserSet := false;
1525 end;
1526
1527
1528 procedure g_Holmes_DrawUI ();
1529 begin
1530   if g_Game_IsNet then exit;
1531   {$IF not DEFINED(HEADLESS)}
1532   glPushMatrix();
1533   glScalef(g_holmes_ui_scale, g_holmes_ui_scale, 1.0);
1534   uiDraw();
1535   drawCursor();
1536   glPopMatrix();
1537   {$ENDIF}
1538 end;
1539
1540
1541 // ////////////////////////////////////////////////////////////////////////// //
1542 procedure bcOneMonsterThinkStep (); begin gmon_debug_think := false; gmon_debug_one_think_step := true; end;
1543 procedure bcOneMPlatThinkStep (); begin g_dbgpan_mplat_active := false; g_dbgpan_mplat_step := true; end;
1544 procedure bcMPlatToggle (); begin g_dbgpan_mplat_active := not g_dbgpan_mplat_active; end;
1545
1546 procedure bcToggleMonsterInfo (arg: Integer=-1); begin if (arg < 0) then showMonsInfo := not showMonsInfo else showMonsInfo := (arg > 0); end;
1547 procedure bcToggleMonsterLOSPlr (arg: Integer=-1); begin if (arg < 0) then showMonsLOS2Plr := not showMonsLOS2Plr else showMonsLOS2Plr := (arg > 0); end;
1548 procedure bcToggleMonsterCells (arg: Integer=-1); begin if (arg < 0) then showAllMonsCells := not showAllMonsCells else showAllMonsCells := (arg > 0); end;
1549 procedure bcToggleDrawTriggers (arg: Integer=-1); begin if (arg < 0) then showTriggers := not showTriggers else showTriggers := (arg > 0); end;
1550
1551 procedure bcToggleCurPos (arg: Integer=-1); begin if (arg < 0) then showMapCurPos := not showMapCurPos else showMapCurPos := (arg > 0); end;
1552 procedure bcToggleGrid (arg: Integer=-1); begin if (arg < 0) then showGrid := not showGrid else showGrid := (arg > 0); end;
1553
1554 procedure bcMonsterSpawn (s: AnsiString);
1555 var
1556   mon: TMonster;
1557 begin
1558   if not gGameOn or g_Game_IsClient then
1559   begin
1560     conwriteln('cannot spawn monster in this mode');
1561     exit;
1562   end;
1563   mon := g_Mons_SpawnAt(s, pmsCurMapX, pmsCurMapY);
1564   if (mon = nil) then begin conwritefln('unknown monster id: ''%s''', [s]); exit; end;
1565   monMarkedUID := mon.UID;
1566 end;
1567
1568 procedure bcMonsterWakeup ();
1569 var
1570   mon: TMonster;
1571 begin
1572   if (monMarkedUID <> -1) then
1573   begin
1574     mon := g_Monsters_ByUID(monMarkedUID);
1575     if (mon <> nil) then mon.WakeUp();
1576   end;
1577 end;
1578
1579 procedure bcPlayerTeleport ();
1580 var
1581   x, y, w, h: Integer;
1582 begin
1583   //e_WriteLog(Format('TELEPORT: (%d,%d)', [pmsCurMapX, pmsCurMapY]), MSG_NOTIFY);
1584   if (gPlayers[0] <> nil) then
1585   begin
1586     gPlayers[0].getMapBox(x, y, w, h);
1587     gPlayers[0].TeleportTo(pmsCurMapX-w div 2, pmsCurMapY-h div 2, true, 69); // 69: don't change dir
1588   end;
1589 end;
1590
1591 procedure dbgToggleTraceBox (arg: Integer=-1); begin if (arg < 0) then showTraceBox := not showTraceBox else showTraceBox := (arg > 0); end;
1592
1593 procedure dbgToggleHolmesPause (arg: Integer=-1); begin if (arg < 0) then g_Game_HolmesPause(not gPauseHolmes) else g_Game_HolmesPause(arg > 0); end;
1594
1595 procedure cbAtcurSelectMonster ();
1596   function monsAtDump (mon: TMonster; tag: Integer): Boolean;
1597   begin
1598     result := true; // stop
1599     e_WriteLog(Format('monster #%d (UID:%u) (proxyid:%d)', [mon.arrIdx, mon.UID, mon.proxyId]), TMsgType.Notify);
1600     monMarkedUID := mon.UID;
1601     dumpPublishedProperties(mon);
1602   end;
1603 var
1604   plr: TPlayer;
1605   x, y, w, h: Integer;
1606 begin
1607   monMarkedUID := -1;
1608   if (Length(gPlayers) > 0) then
1609   begin
1610     plr := gPlayers[0];
1611     if (plr <> nil) then
1612     begin
1613       plr.getMapBox(x, y, w, h);
1614       if (pmsCurMapX >= x) and (pmsCurMapY >= y) and (pmsCurMapX < x+w) and (pmsCurMapY < y+h) then
1615       begin
1616         dumpPublishedProperties(plr);
1617       end;
1618     end;
1619   end;
1620   //e_WriteLog('===========================', MSG_NOTIFY);
1621   monsGrid.forEachAtPoint(pmsCurMapX, pmsCurMapY, monsAtDump);
1622   //e_WriteLog('---------------------------', MSG_NOTIFY);
1623 end;
1624
1625 procedure cbAtcurDumpMonsters ();
1626   function monsAtDump (mon: TMonster; tag: Integer): Boolean;
1627   begin
1628     result := false; // don't stop
1629     e_WriteLog(Format('monster #%d (UID:%u) (proxyid:%d)', [mon.arrIdx, mon.UID, mon.proxyId]), TMsgType.Notify);
1630   end;
1631 begin
1632   e_WriteLog('===========================', TMsgType.Notify);
1633   monsGrid.forEachAtPoint(pmsCurMapX, pmsCurMapY, monsAtDump);
1634   e_WriteLog('---------------------------', TMsgType.Notify);
1635 end;
1636
1637 procedure cbAtcurDumpWalls ();
1638   function wallToggle (pan: TPanel; tag: Integer): Boolean;
1639   begin
1640     result := false; // don't stop
1641     if (platMarkedGUID = -1) then platMarkedGUID := pan.guid;
1642     e_LogWritefln('wall ''%s'' #%d(%d); enabled=%d (%d); (%d,%d)-(%d,%d)', [pan.mapId, pan.arrIdx, pan.proxyId, Integer(pan.Enabled), Integer(mapGrid.proxyEnabled[pan.proxyId]), pan.X, pan.Y, pan.Width, pan.Height]);
1643     dumpPublishedProperties(pan);
1644   end;
1645 var
1646   hasTrigs: Boolean = false;
1647   f: Integer;
1648   trig: PTrigger;
1649 begin
1650   platMarkedGUID := -1;
1651   e_WriteLog('=== TOGGLE WALL ===', TMsgType.Notify);
1652   mapGrid.forEachAtPoint(pmsCurMapX, pmsCurMapY, wallToggle, (GridTagWall or GridTagDoor));
1653   e_WriteLog('--- toggle wall ---', TMsgType.Notify);
1654   if showTriggers then
1655   begin
1656     for f := 0 to High(gTriggers) do
1657     begin
1658       trig := @gTriggers[f];
1659       if (pmsCurMapX >= trig.x) and (pmsCurMapY >= trig.y) and (pmsCurMapX < trig.x+trig.width) and (pmsCurMapY < trig.y+trig.height) then
1660       begin
1661         if not hasTrigs then begin writeln('=== TRIGGERS ==='); hasTrigs := true; end;
1662         writeln('trigger ''', trig.mapId, ''' of type ''', trigType2Str(trig.TriggerType), '''');
1663       end;
1664     end;
1665     if hasTrigs then writeln('--- triggers ---');
1666   end;
1667 end;
1668
1669 procedure cbAtcurToggleWalls ();
1670   function wallToggle (pan: TPanel; tag: Integer): Boolean;
1671   begin
1672     result := false; // don't stop
1673     //e_WriteLog(Format('wall #%d(%d); enabled=%d (%d); (%d,%d)-(%d,%d)', [pan.arrIdx, pan.proxyId, Integer(pan.Enabled), Integer(mapGrid.proxyEnabled[pan.proxyId]), pan.X, pan.Y, pan.Width, pan.Height]), MSG_NOTIFY);
1674     if pan.Enabled then g_Map_DisableWallGUID(pan.guid) else g_Map_EnableWallGUID(pan.guid);
1675   end;
1676 begin
1677   //e_WriteLog('=== TOGGLE WALL ===', MSG_NOTIFY);
1678   mapGrid.forEachAtPoint(pmsCurMapX, pmsCurMapY, wallToggle, (GridTagWall or GridTagDoor));
1679   //e_WriteLog('--- toggle wall ---', MSG_NOTIFY);
1680 end;
1681
1682
1683 // ////////////////////////////////////////////////////////////////////////// //
1684 procedure holmesInitCommands ();
1685 begin
1686   if (cmdlist <> nil) then exit;
1687   cmdAdd('win_layers', toggleLayersWindow, 'toggle layers window', 'window control');
1688   cmdAdd('win_outline', toggleOutlineWindow, 'toggle outline window', 'window control');
1689   cmdAdd('win_help', toggleHelpWindow, 'toggle help window', 'window control');
1690   cmdAdd('win_options', toggleOptionsWindow, 'toggle options window', 'window control');
1691
1692   cmdAdd('mon_think_step', bcOneMonsterThinkStep, 'one monster think step', 'monster control');
1693   cmdAdd('mon_info', bcToggleMonsterInfo, 'toggle monster info', 'monster control');
1694   cmdAdd('mon_los_plr', bcToggleMonsterLOSPlr, 'toggle monster LOS to player', 'monster control');
1695   cmdAdd('mon_cells', bcToggleMonsterCells, 'toggle "show all cells occupied by monsters" (SLOW!)', 'monster control');
1696   cmdAdd('mon_wakeup', bcMonsterWakeup, 'wake up selected monster', 'monster control');
1697
1698   cmdAdd('mon_spawn', bcMonsterSpawn, 'spawn monster', 'monster control');
1699
1700   cmdAdd('mplat_step', bcOneMPlatThinkStep, 'one mplat think step', 'mplat control');
1701   cmdAdd('mplat_toggle', bcMPlatToggle, 'activate/deactivate moving platforms', 'mplat control');
1702
1703   cmdAdd('plr_teleport', bcPlayerTeleport, 'teleport player', 'player control');
1704
1705   cmdAdd('dbg_curpos', bcToggleCurPos, 'toggle "show cursor position on the map"', 'various');
1706   cmdAdd('dbg_grid', bcToggleGrid, 'toggle grid', 'various');
1707   cmdAdd('dbg_triggers', bcToggleDrawTriggers, 'show/hide triggers (SLOW!)', 'various');
1708
1709   cmdAdd('atcur_select_monster', cbAtcurSelectMonster, 'select monster to operate', 'monster control');
1710   cmdAdd('atcur_dump_monsters', cbAtcurDumpMonsters, 'dump monsters in cell', 'monster control');
1711   cmdAdd('atcur_dump_walls', cbAtcurDumpWalls, 'dump walls in cell', 'wall control');
1712   cmdAdd('atcur_disable_walls', cbAtcurToggleWalls, 'disable walls', 'wall control');
1713
1714   cmdAdd('dbg_tracebox', dbgToggleTraceBox, 'test traceBox()', 'player control');
1715
1716   cmdAdd('hlm_pause', dbgToggleHolmesPause, '"Holmes" pause mode', 'game control');
1717 end;
1718
1719
1720 procedure holmesInitBinds ();
1721 var
1722   st: TStream = nil;
1723   pr: TTextParser = nil;
1724   s, kn, v: AnsiString;
1725   kmods: Byte;
1726   mbuts: Byte;
1727 begin
1728   kbS := kbS;
1729   if not keybindsInited then
1730   begin
1731     // keyboard
1732     keybindAdd('F1', 'win_help');
1733     keybindAdd('M-F1', 'win_options');
1734     keybindAdd('C-O', 'win_outline');
1735     keybindAdd('C-L', 'win_layers');
1736
1737     keybindAdd('M-M', 'mon_think_step');
1738     keybindAdd('M-I', 'mon_info');
1739     keybindAdd('M-L', 'mon_los_plr');
1740     keybindAdd('M-G', 'mon_cells');
1741     keybindAdd('M-A', 'mon_wakeup');
1742
1743     keybindAdd('M-P', 'mplat_step');
1744     keybindAdd('M-O', 'mplat_toggle');
1745
1746     keybindAdd('C-T', 'plr_teleport');
1747     keybindAdd('M-T', 'dbg_tracebox');
1748
1749     keybindAdd('C-P', 'dbg_curpos');
1750     keybindAdd('C-G', 'dbg_grid');
1751     keybindAdd('C-X', 'dbg_triggers');
1752
1753     keybindAdd('C-1', 'mon_spawn zombie');
1754
1755     keybindAdd('C-S-P', 'hlm_pause');
1756
1757     // mouse
1758     msbindAdd('LMB', 'atcur_select_monster');
1759     msbindAdd('M-LMB', 'atcur_dump_monsters');
1760     msbindAdd('RMB', 'atcur_dump_walls');
1761     msbindAdd('M-RMB', 'atcur_disable_walls');
1762
1763     // load bindings from file
1764     try
1765       st := openDiskFileRO(GameDir+'holmes.rc');
1766       pr := TFileTextParser.Create(st);
1767       conwriteln('parsing "holmes.rc"...');
1768       while (pr.tokType <> pr.TTEOF) do
1769       begin
1770         s := pr.expectId();
1771              if (s = 'stop') then break
1772         else if (s = 'unbind_keys') then keybinds := nil
1773         else if (s = 'unbind_mouse') then msbinds := nil
1774         else if (s = 'bind') then
1775         begin
1776                if (pr.tokType = pr.TTStr) then s := pr.expectStr(false)
1777           else if (pr.tokType = pr.TTInt) then s := Format('%d', [pr.expectInt()])
1778           else s := pr.expectId();
1779
1780                if (pr.tokType = pr.TTStr) then v := pr.expectStr(false)
1781           else if (pr.tokType = pr.TTInt) then v := Format('%d', [pr.expectInt()])
1782           else v := pr.expectId();
1783
1784           kn := parseModKeys(s, kmods, mbuts);
1785           if (CompareText(kn, 'lmb') = 0) or (CompareText(kn, 'rmb') = 0) or (CompareText(kn, 'mmb') = 0) or (CompareText(kn, 'None') = 0) then
1786           begin
1787             msbindAdd(s, v);
1788           end
1789           else
1790           begin
1791             keybindAdd(s, v);
1792           end;
1793         end;
1794       end;
1795     except on e: Exception do // sorry
1796       if (pr <> nil) then conwritefln('Holmes config parse error at (%s,%s): %s', [pr.tokLine, pr.tokCol, e.message]);
1797     end;
1798     if (pr <> nil) then pr.Free() else st.Free(); // ownership
1799   end;
1800 end;
1801
1802
1803 begin
1804   conRegVar('hlm_ui_scale', @g_holmes_ui_scale, 0.01, 5.0, 'Holmes UI scale', '', false);
1805 end.