X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_holmes.pas;h=cf6a2bdbca084623e91ff9c2a06968f4746a6604;hb=ceef3cf5ed716aab604357b2805a978cb9c6bab6;hp=9b0055c839ff42b9f9229fbcdebc0913b0cd1efe;hpb=d886132bbe3ba73ffaa0be8c6525c19f0179440e;p=d2df-sdl.git diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas index 9b0055c..cf6a2bd 100644 --- a/src/game/g_holmes.pas +++ b/src/game/g_holmes.pas @@ -19,62 +19,14 @@ unit g_holmes; interface uses - e_log, + {$IFDEF USE_MEMPOOL}mempool,{$ENDIF} geom, + e_log, e_input, g_textures, g_basic, e_graphics, g_phys, g_grid, g_player, g_monsters, - g_window, g_map, g_triggers, g_items, g_game, g_panel, g_console, - xprofiler; - - -type - THMouseEvent = record - public - const - // both for but and for bstate - Left = $0001; - Right = $0002; - Middle = $0004; - WheelUp = $0008; - WheelDown = $0010; - - // event types - Release = 0; - Press = 1; - Motion = 2; - - public - kind: Byte; // motion, press, release - x, y: Integer; - dx, dy: Integer; // for wheel this is wheel motion, otherwise this is relative mouse motion - but: Word; // current pressed/released button, or 0 for motion - bstate: Word; // button state - kstate: Word; // keyboard state (see THKeyEvent); - end; - - THKeyEvent = record - public - const - // modifiers - ModCtrl = $0001; - ModAlt = $0002; - ModShift = $0004; - - // event types - Release = 0; - Press = 1; - - public - kind: Byte; - scan: Word; // SDL_SCANCODE_XXX - sym: Word; // SDLK_XXX - bstate: Word; // button state - kstate: Word; // keyboard state - end; + g_window, g_map, g_triggers, g_items, g_game, g_panel, g_console, g_gfx, + xprofiler, + sdlcarcass, glgfx, gh_ui; -procedure g_Holmes_VidModeChanged (); -procedure g_Holmes_WindowFocused (); -procedure g_Holmes_WindowBlured (); - procedure g_Holmes_Draw (); procedure g_Holmes_DrawUI (); @@ -82,7 +34,8 @@ function g_Holmes_MouseEvent (var ev: THMouseEvent): Boolean; // returns `true` function g_Holmes_KeyEvent (var ev: THKeyEvent): Boolean; // returns `true` if event was eaten // hooks for player -procedure g_Holmes_plrView (viewPortX, viewPortY, viewPortW, viewPortH: Integer); +procedure g_Holmes_plrViewPos (viewPortX, viewPortY: Integer); +procedure g_Holmes_plrViewSize (viewPortW, viewPortH: Integer); procedure g_Holmes_plrLaser (ax0, ay0, ax1, ay1: Integer); @@ -93,8 +46,10 @@ var implementation uses - SysUtils, GL, SDL2, - MAPDEF, g_options; + {rttiobj,} typinfo, e_texture, + SysUtils, Classes, GL, SDL2, + MAPDEF, g_main, g_options, + utils, hashtable, xparser; var @@ -103,17 +58,26 @@ var msY: Integer = -666; msB: Word = 0; // button state kbS: Word = 0; // keyboard modifiers state - showGrid: Boolean = true; + showGrid: Boolean = {$IF DEFINED(D2F_DEBUG)}false{$ELSE}false{$ENDIF}; showMonsInfo: Boolean = false; showMonsLOS2Plr: Boolean = false; showAllMonsCells: Boolean = false; showMapCurPos: Boolean = false; showLayersWindow: Boolean = false; showOutlineWindow: Boolean = false; + showTriggers: Boolean = {$IF DEFINED(D2F_DEBUG)}false{$ELSE}false{$ENDIF}; + showTraceBox: Boolean = {$IF DEFINED(D2F_DEBUG)}false{$ELSE}false{$ENDIF}; + // ////////////////////////////////////////////////////////////////////////// // {$INCLUDE g_holmes.inc} -{$INCLUDE g_holmes_ui.inc} +{$INCLUDE g_holmes_ol.inc} // outliner + + +// ////////////////////////////////////////////////////////////////////////// // +{$INCLUDE g_holmes_cmd.inc} +procedure holmesInitCommands (); forward; +procedure holmesInitBinds (); forward; // ////////////////////////////////////////////////////////////////////////// // @@ -132,53 +96,153 @@ var // ////////////////////////////////////////////////////////////////////////// // var - winHelp: THTopWindow = nil; - winOptions: THTopWindow = nil; - winLayers: THTopWindow = nil; - winOutlines: THTopWindow = nil; + winHelp: TUITopWindow = nil; + winOptions: TUITopWindow = nil; + winLayers: TUITopWindow = nil; + winOutlines: TUITopWindow = nil; + + +procedure createHelpWindow (); forward; +procedure createOptionsWindow (); forward; +procedure createLayersWindow (); forward; +procedure createOutlinesWindow (); forward; + + +procedure toggleLayersWindowCB (me: TUIControl; checked: Integer); +begin + if showLayersWindow then + begin + if (winLayers = nil) then createLayersWindow(); + uiAddWindow(winLayers); + end + else + begin + uiRemoveWindow(winLayers); + end; +end; + + +procedure toggleOutlineWindowCB (me: TUIControl; checked: Integer); +begin + if showOutlineWindow then + begin + if (winOutlines = nil) then createOutlinesWindow(); + uiAddWindow(winOutlines); + end + else + begin + uiRemoveWindow(winOutlines); + end; +end; procedure createHelpWindow (); var - llb: THCtlSimpleText; + llb: TUISimpleText; + slist: array of AnsiString = nil; + cmd: PHolmesCommand; + bind: THolmesBinding; + f, maxkeylen: Integer; + s: AnsiString; begin - llb := THCtlSimpleText.Create(0, 0); - llb.appendItem('common keys', true, true); - llb.appendItem(' F1 -- toggle this window'); - llb.appendItem(' M-F1 -- toggle options window'); - llb.appendItem(''); - llb.appendItem('control keys', true, true); - llb.appendItem(' M-M -- one monster think step'); - llb.appendItem(' M-I -- toggle monster info'); - llb.appendItem(' M-K -- toggle monster LOS to player'); - llb.appendItem(' M-G -- toggle "show all cells occupied by monsters" (SLOW!)'); - llb.appendItem(' M-A -- wake up monster'); - llb.appendItem(' C-T -- teleport player'); - llb.appendItem(' C-P -- show cursor position on the map'); - llb.appendItem(' C-G -- toggle grid'); - llb.appendItem(' C-L -- toggle layers window'); - llb.appendItem(' C-O -- toggle outlines window'); + for cmd in cmdlist do cmd.helpmark := false; + + maxkeylen := 0; + for bind in keybinds do + begin + if (Length(bind.key) = 0) then continue; + if cmdlist.get(bind.cmdName, cmd) then + begin + if (Length(cmd.help) > 0) then + begin + cmd.helpmark := true; + if (maxkeylen < Length(bind.key)) then maxkeylen := Length(bind.key); + end; + end; + end; + + for cmd in cmdlist do + begin + if not cmd.helpmark then continue; + if (Length(cmd.help) = 0) then continue; + f := 0; + while (f < Length(slist)) and (CompareText(slist[f], cmd.section) <> 0) do Inc(f); + if (f = Length(slist)) then + begin + SetLength(slist, Length(slist)+1); + slist[High(slist)] := cmd.section; + end; + end; + + llb := TUISimpleText.Create(0, 0); + for f := 0 to High(slist) do + begin + if (f > 0) then llb.appendItem(''); + llb.appendItem(slist[f], true, true); + for cmd in cmdlist do + begin + if not cmd.helpmark then continue; + if (CompareText(cmd.section, slist[f]) <> 0) then continue; + for bind in keybinds do + begin + if (Length(bind.key) = 0) then continue; + if (cmd.name = bind.cmdName) then + begin + s := bind.key; + while (Length(s) < maxkeylen) do s += ' '; + s := ' '+s+' -- '+cmd.help; + llb.appendItem(s); + end; + end; + end; + end; + + maxkeylen := 0; + for bind in msbinds do + begin + if (Length(bind.key) = 0) then continue; + if cmdlist.get(bind.cmdName, cmd) then + begin + if (Length(cmd.help) > 0) then + begin + cmd.helpmark := true; + if (maxkeylen < Length(bind.key)) then maxkeylen := Length(bind.key); + end; + end; + end; + llb.appendItem(''); llb.appendItem('mouse', true, true); - llb.appendItem(' LMB -- select monster'); - llb.appendItem(' M-LMB -- dump monsters in cell (to log)'); - llb.appendItem(' RMB -- dump wall info to log'); - llb.appendItem(' M-LMB -- disable wall'); - winHelp := THTopWindow.Create('Holmes Help', 10, 10); + for bind in msbinds do + begin + if (Length(bind.key) = 0) then continue; + if cmdlist.get(bind.cmdName, cmd) then + begin + if (Length(cmd.help) > 0) then + begin + s := bind.key; + while (Length(s) < maxkeylen) do s += ' '; + s := ' '+s+' -- '+cmd.help; + llb.appendItem(s); + end; + end; + end; + + winHelp := TUITopWindow.Create('Holmes Help', 10, 10); winHelp.escClose := true; winHelp.appendChild(llb); winHelp.centerInScreen(); end; -procedure winLayersClosed (me: THControl; dummy: Integer); begin showLayersWindow := false; end; -procedure winOutlinesClosed (me: THControl; dummy: Integer); begin showOutlineWindow := false; end; +procedure winLayersClosed (me: TUIControl; dummy: Integer); begin showLayersWindow := false; end; +procedure winOutlinesClosed (me: TUIControl; dummy: Integer); begin showOutlineWindow := false; end; procedure createLayersWindow (); var - llb: THCtlCBListBox; + llb: TUICBListBox; begin - llb := THCtlCBListBox.Create(0, 0); + llb := TUICBListBox.Create(0, 0); llb.appendItem('background', @g_rlayer_back); llb.appendItem('steps', @g_rlayer_step); llb.appendItem('walls', @g_rlayer_wall); @@ -187,7 +251,7 @@ begin llb.appendItem('acid2', @g_rlayer_acid2); llb.appendItem('water', @g_rlayer_water); llb.appendItem('foreground', @g_rlayer_fore); - winLayers := THTopWindow.Create('visible', 10, 10); + winLayers := TUITopWindow.Create('layers', 10, 10); winLayers.escClose := true; winLayers.appendChild(llb); winLayers.closeCB := winLayersClosed; @@ -196,9 +260,9 @@ end; procedure createOutlinesWindow (); var - llb: THCtlCBListBox; + llb: TUICBListBox; begin - llb := THCtlCBListBox.Create(0, 0); + llb := TUICBListBox.Create(0, 0); llb.appendItem('background', @g_ol_rlayer_back); llb.appendItem('steps', @g_ol_rlayer_step); llb.appendItem('walls', @g_ol_rlayer_wall); @@ -210,82 +274,60 @@ begin llb.appendItem('OPTIONS', nil); llb.appendItem('fill walls', @g_ol_fill_walls); llb.appendItem('contours', @g_ol_nice); - winOutlines := THTopWindow.Create('outlines', 100, 10); + winOutlines := TUITopWindow.Create('outlines', 100, 10); winOutlines.escClose := true; winOutlines.appendChild(llb); winOutlines.closeCB := winOutlinesClosed; end; -procedure toggleLayersWindow (me: THControl; checked: Integer); -begin - if showLayersWindow then - begin - if (winLayers = nil) then createLayersWindow(); - uiAddWindow(winLayers); - end - else - begin - uiRemoveWindow(winLayers); - end; -end; - - -procedure toggleOutlineWindow (me: THControl; checked: Integer); -begin - if showOutlineWindow then - begin - if (winOutlines = nil) then createOutlinesWindow(); - uiAddWindow(winOutlines); - end - else - begin - uiRemoveWindow(winOutlines); - end; -end; - - procedure createOptionsWindow (); var - llb: THCtlCBListBox; + llb: TUICBListBox; begin - llb := THCtlCBListBox.Create(0, 0); + llb := TUICBListBox.Create(0, 0); llb.appendItem('map grid', @showGrid); llb.appendItem('cursor position on map', @showMapCurPos); llb.appendItem('monster info', @showMonsInfo); llb.appendItem('monster LOS to player', @showMonsLOS2Plr); llb.appendItem('monster cells (SLOW!)', @showAllMonsCells); + llb.appendItem('draw triggers (SLOW!)', @showTriggers); llb.appendItem('WINDOWS', nil); - llb.appendItem('layers window', @showLayersWindow, toggleLayersWindow); - llb.appendItem('outline window', @showOutlineWindow, toggleOutlineWindow); - winOptions := THTopWindow.Create('Holmes Options', 100, 100); + llb.appendItem('layers window', @showLayersWindow, toggleLayersWindowCB); + llb.appendItem('outline window', @showOutlineWindow, toggleOutlineWindowCB); + winOptions := TUITopWindow.Create('Holmes Options', 100, 100); winOptions.escClose := true; winOptions.appendChild(llb); winOptions.centerInScreen(); end; -// ////////////////////////////////////////////////////////////////////////// // -procedure g_Holmes_VidModeChanged (); +procedure toggleLayersWindow (arg: Integer=-1); begin - e_WriteLog(Format('Holmes: videomode changed: %dx%d', [gScreenWidth, gScreenHeight]), MSG_NOTIFY); - // texture space is possibly lost here, idc - curtexid := 0; - font6texid := 0; - font8texid := 0; - prfont6texid := 0; - prfont8texid := 0; - //createCursorTexture(); + if (arg < 0) then showLayersWindow := not showLayersWindow else showLayersWindow := (arg > 0); + toggleLayersWindowCB(nil, 0); end; -procedure g_Holmes_WindowFocused (); +procedure toggleOutlineWindow (arg: Integer=-1); begin - msB := 0; - kbS := 0; + if (arg < 0) then showOutlineWindow := not showOutlineWindow else showOutlineWindow := (arg > 0); + toggleOutlineWindowCB(nil, 0); end; -procedure g_Holmes_WindowBlured (); +procedure toggleHelpWindow (arg: Integer=-1); begin + if (winHelp = nil) then createHelpWindow(); + if (arg < 0) then begin if not uiVisibleWindow(winHelp) then uiAddWindow(winHelp) else uiRemoveWindow(winHelp); end + else if (arg = 0) then begin if uiVisibleWindow(winHelp) then uiRemoveWindow(winHelp); end + else begin if not uiVisibleWindow(winHelp) then uiAddWindow(winHelp); end +end; + +procedure toggleOptionsWindow (arg: Integer=-1); +begin + if (winOptions = nil) then createOptionsWindow(); + if (arg < 0) then begin if not uiVisibleWindow(winOptions) then uiAddWindow(winOptions) else uiRemoveWindow(winOptions); end + else if (arg = 0) then begin if uiVisibleWindow(winOptions) then uiRemoveWindow(winOptions); end + else begin if not uiVisibleWindow(winOptions) then uiAddWindow(winOptions); end end; @@ -297,13 +339,19 @@ var laserSet: Boolean = false; laserX0, laserY0, laserX1, laserY1: Integer; monMarkedUID: Integer = -1; + platMarkedGUID: Integer = -1; -procedure g_Holmes_plrView (viewPortX, viewPortY, viewPortW, viewPortH: Integer); +procedure g_Holmes_plrViewPos (viewPortX, viewPortY: Integer); begin vpSet := true; vpx := viewPortX; vpy := viewPortY; +end; + +procedure g_Holmes_plrViewSize (viewPortW, viewPortH: Integer); +begin + vpSet := true; vpw := viewPortW; vph := viewPortH; end; @@ -319,73 +367,21 @@ begin end; -function pmsCurMapX (): Integer; inline; begin result := msX+vpx; end; -function pmsCurMapY (): Integer; inline; begin result := msY+vpy; end; +function pmsCurMapX (): Integer; inline; begin result := round(msX/g_dbg_scale)+vpx; end; +function pmsCurMapY (): Integer; inline; begin result := round(msY/g_dbg_scale)+vpy; end; procedure plrDebugMouse (var ev: THMouseEvent); - - function wallToggle (pan: TPanel; tag: Integer): Boolean; - begin - result := false; // don't stop - 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); - if (kbS = THKeyEvent.ModAlt) then - begin - if pan.Enabled then g_Map_DisableWall(pan.arrIdx) else g_Map_EnableWall(pan.arrIdx); - end; - end; - - function monsAtDump (mon: TMonster; tag: Integer): Boolean; - begin - result := false; // don't stop - e_WriteLog(Format('monster #%d; UID=%d', [mon.arrIdx, mon.UID]), MSG_NOTIFY); - monMarkedUID := mon.UID; - //if pan.Enabled then g_Map_DisableWall(pan.arrIdx) else g_Map_EnableWall(pan.arrIdx); - end; - - function monsInCell (mon: TMonster; tag: Integer): Boolean; - begin - result := false; // don't stop - e_WriteLog(Format('monster #%d (UID:%u) (proxyid:%d)', [mon.arrIdx, mon.UID, mon.proxyId]), MSG_NOTIFY); - end; - begin //e_WriteLog(Format('mouse: x=%d; y=%d; but=%d; bstate=%d', [msx, msy, but, bstate]), MSG_NOTIFY); if (gPlayer1 = nil) or not vpSet then exit; - if (ev.kind <> THMouseEvent.Press) then exit; - - e_WriteLog(Format('mev: %d', [Integer(ev.kind)]), MSG_NOTIFY); - - if (ev.but = THMouseEvent.Right) then - begin - // dump/toggle wall - e_WriteLog('=== TOGGLE WALL ===', MSG_NOTIFY); - mapGrid.forEachAtPoint(pmsCurMapX, pmsCurMapY, wallToggle, (GridTagWall or GridTagDoor)); - e_WriteLog('--- toggle wall ---', MSG_NOTIFY); - exit; - end; - - if (ev.but = THMouseEvent.Left) then - begin - if (kbS = THKeyEvent.ModAlt) then - begin - // dump monsters in cell - e_WriteLog('===========================', MSG_NOTIFY); - monsGrid.forEachInCell(pmsCurMapX, pmsCurMapY, monsInCell); - e_WriteLog('---------------------------', MSG_NOTIFY); - end - else if (kbS = 0) then - begin - monMarkedUID := -1; - e_WriteLog('===========================', MSG_NOTIFY); - monsGrid.forEachAtPoint(pmsCurMapX, pmsCurMapY, monsAtDump); - e_WriteLog('---------------------------', MSG_NOTIFY); - end; - exit; - end; + //if (ev.kind <> THMouseEvent.Press) then exit; + //e_WriteLog(Format('mev: %d', [Integer(ev.kind)]), MSG_NOTIFY); + msbindExecute(ev); end; +{$IFDEF HOLMES_OLD_OUTLINES} var edgeBmp: array of Byte = nil; @@ -588,33 +584,223 @@ begin if g_ol_rlayer_fore then doWallsOld(gRenderForegrounds, PANEL_FORE, 210, 210, 210); end; +{$ELSE} +var + oliner: TOutliner = nil; -procedure plrDebugDraw (); +procedure drawOutlines (); +var + r, g, b: Integer; + procedure clearOliner (); + begin + //if (oliner <> nil) and ((oliner.height <> vph+2) or (oliner.width <> vpw+2)) then begin oliner.Free(); oliner := nil; end; + if (oliner = nil) then oliner := TOutliner.Create(vpw+2, vph+2) else oliner.setup(vpw+2, vph+2); + end; + + procedure drawOutline (ol: TOutliner; sx, sy: Integer); + procedure xline (x0, x1, y: Integer); + var + x: Integer; + begin + if (g_dbg_scale < 1.0) then + begin + glBegin(GL_POINTS); + for x := x0 to x1 do glVertex2f(sx+x+0.375, sy+y+0.375); + glEnd(); + end + else + begin + glBegin(GL_QUADS); + glVertex2f(sx+x0+0, sy+y+0); + glVertex2f(sx+x1+1, sy+y+0); + glVertex2f(sx+x1+1, sy+y+1); + glVertex2f(sx+x0+0, sy+y+1); + glEnd(); + end; + end; + var + y: Integer; + sp: TOutliner.TSpanX; + begin + if (ol = nil) then exit; + glPointSize(1); + glDisable(GL_POINT_SMOOTH); + for y := 0 to ol.height-1 do + begin + for sp in ol.eachSpanAtY(y) do + begin + if (g_dbg_scale <= 1.0) then + begin + glBegin(GL_POINTS); + glVertex2f(sx+sp.x0+0.375, sy+y+0.375); + glVertex2f(sx+sp.x1+0.375, sy+y+0.375); + glEnd(); + end + else + begin + glBegin(GL_QUADS); + glVertex2f(sx+sp.x0+0, sy+y+0); + glVertex2f(sx+sp.x0+1, sy+y+0); + glVertex2f(sx+sp.x0+1, sy+y+1); + glVertex2f(sx+sp.x0+0, sy+y+1); + + glVertex2f(sx+sp.x1+0, sy+y+0); + glVertex2f(sx+sp.x1+1, sy+y+0); + glVertex2f(sx+sp.x1+1, sy+y+1); + glVertex2f(sx+sp.x1+0, sy+y+1); + glEnd(); + end; + end; + for sp in ol.eachSpanEdgeAtY(y, -1) do + begin + xline(sp.x0, sp.x1, y); + { + glBegin(GL_QUADS); + glVertex2f(sx+sp.x0+0, sy+y+0); + glVertex2f(sx+sp.x1+1, sy+y+0); + glVertex2f(sx+sp.x1+1, sy+y+1); + glVertex2f(sx+sp.x0+0, sy+y+1); + glEnd(); + } + end; + for sp in ol.eachSpanEdgeAtY(y, +1) do + begin + xline(sp.x0, sp.x1, y); + { + glBegin(GL_QUADS); + glVertex2f(sx+sp.x0+0, sy+y+0); + glVertex2f(sx+sp.x1+1, sy+y+0); + glVertex2f(sx+sp.x1+1, sy+y+1); + glVertex2f(sx+sp.x0+0, sy+y+1); + glEnd(); + } + end; + end; + end; + + procedure doWallsOld (parr: array of TPanel; ptype: Word; ar, ag, ab: Integer); + var + f: Integer; + pan: TPanel; + begin + r := ar; + g := ag; + b := ab; + if g_ol_nice then clearOliner(); + for f := 0 to High(parr) do + begin + pan := parr[f]; + if (pan = nil) or not pan.Enabled or (pan.Width < 1) or (pan.Height < 1) then continue; + if ((pan.PanelType and ptype) = 0) then continue; + if (pan.X > vpx+vpw+41) or (pan.Y > vpy+vph+41) then continue; + if (pan.X+pan.Width < vpx-41) then continue; + if (pan.Y+pan.Height < vpy-41) then continue; + if g_ol_nice then + begin + oliner.addRect(pan.X-(vpx+1), pan.Y-(vpy+1), pan.Width, pan.Height); + end; + if g_ol_fill_walls then + begin + fillRect(pan.X, pan.Y, pan.Width, pan.Height, TGxRGBA.Create(r, g, b)); + end + else if not g_ol_nice then + begin + drawRect(pan.X, pan.Y, pan.Width, pan.Height, TGxRGBA.Create(r, g, b)); + end; + end; + if g_ol_nice then + begin + glColor4f(r/255.0, g/255.0, b/255.0, 1.0); + drawOutline(oliner, vpx+1, vpy+1); + end; + end; + +begin + if (vpw < 2) or (vph < 2) then exit; + if g_ol_rlayer_back then doWallsOld(gRenderBackgrounds, PANEL_BACK, 255, 127, 0); + if g_ol_rlayer_step then doWallsOld(gSteps, PANEL_STEP, 192, 192, 192); + if g_ol_rlayer_wall then doWallsOld(gWalls, PANEL_WALL, 255, 255, 255); + if g_ol_rlayer_door then doWallsOld(gWalls, PANEL_OPENDOOR or PANEL_CLOSEDOOR, 0, 255, 0); + if g_ol_rlayer_acid1 then doWallsOld(gAcid1, PANEL_ACID1, 255, 0, 0); + if g_ol_rlayer_acid2 then doWallsOld(gAcid2, PANEL_ACID2, 198, 198, 0); + if g_ol_rlayer_water then doWallsOld(gWater, PANEL_WATER, 0, 255, 255); + if g_ol_rlayer_fore then doWallsOld(gRenderForegrounds, PANEL_FORE, 210, 210, 210); +end; +{$ENDIF} + + +procedure plrDebugDraw (); procedure drawTileGrid (); var x, y: Integer; begin for y := 0 to (mapGrid.gridHeight div mapGrid.tileSize) do begin - drawLine(mapGrid.gridX0, mapGrid.gridY0+y*mapGrid.tileSize, mapGrid.gridX0+mapGrid.gridWidth, mapGrid.gridY0+y*mapGrid.tileSize, 96, 96, 96, 255); + drawLine(mapGrid.gridX0, mapGrid.gridY0+y*mapGrid.tileSize, mapGrid.gridX0+mapGrid.gridWidth, mapGrid.gridY0+y*mapGrid.tileSize, TGxRGBA.Create(96, 96, 96)); end; for x := 0 to (mapGrid.gridWidth div mapGrid.tileSize) do begin - drawLine(mapGrid.gridX0+x*mapGrid.tileSize, mapGrid.gridY0, mapGrid.gridX0+x*mapGrid.tileSize, mapGrid.gridY0+y*mapGrid.gridHeight, 96, 96, 96, 255); + drawLine(mapGrid.gridX0+x*mapGrid.tileSize, mapGrid.gridY0, mapGrid.gridX0+x*mapGrid.tileSize, mapGrid.gridY0+y*mapGrid.gridHeight, TGxRGBA.Create(96, 96, 96)); end; end; + procedure drawAwakeCells (); + var + x, y: Integer; + begin + for y := 0 to (mapGrid.gridHeight div mapGrid.tileSize) do + begin + for x := 0 to (mapGrid.gridWidth div mapGrid.tileSize) do + begin + if awmIsSetHolmes(x*mapGrid.tileSize+mapGrid.gridX0+1, y*mapGrid.tileSize++mapGrid.gridY0+1) then + begin + fillRect(x*mapGrid.tileSize++mapGrid.gridX0, y*mapGrid.tileSize++mapGrid.gridY0, monsGrid.tileSize, monsGrid.tileSize, TGxRGBA.Create(128, 0, 128, 64)); + end; + end; + end; + end; + + procedure drawTraceBox (); + var + plr: TPlayer; + px, py, pw, ph: Integer; + pdx, pdy: Integer; + ex, ey: Integer; + pan: TPanel; + begin + if (Length(gPlayers) < 1) then exit; + plr := gPlayers[0]; + if (plr = nil) then exit; + plr.getMapBox(px, py, pw, ph); + drawRect(px, py, pw, ph, TGxRGBA.Create(255, 0, 255, 200)); + pdx := pmsCurMapX-(px+pw div 2); + pdy := pmsCurMapY-(py+ph div 2); + drawLine(px+pw div 2, py+ph div 2, px+pw div 2+pdx, py+ph div 2+pdy, TGxRGBA.Create(255, 0, 255, 200)); + pan := mapGrid.traceBox(ex, ey, px, py, pw, ph, pdx, pdy, nil, GridTagObstacle); + if (pan = nil) then + begin + drawRect(px+pdx, py+pdy, pw, ph, TGxRGBA.Create(255, 255, 255, 180)); + end + else + begin + drawRect(px+pdx, py+pdy, pw, ph, TGxRGBA.Create(255, 255, 0, 180)); + end; + drawRect(ex, ey, pw, ph, TGxRGBA.Create(255, 127, 0, 180)); + end; + procedure hilightCell (cx, cy: Integer); begin - fillRect(cx, cy, monsGrid.tileSize, monsGrid.tileSize, 0, 128, 0, 64); + fillRect(cx, cy, monsGrid.tileSize, monsGrid.tileSize, TGxRGBA.Create(0, 128, 0, 64)); end; procedure hilightCell1 (cx, cy: Integer); begin //e_WriteLog(Format('h1: (%d,%d)', [cx, cy]), MSG_NOTIFY); - fillRect(cx, cy, monsGrid.tileSize, monsGrid.tileSize, 255, 255, 0, 92); + cx := cx and (not (monsGrid.tileSize-1)); + cy := cy and (not (monsGrid.tileSize-1)); + fillRect(cx, cy, monsGrid.tileSize, monsGrid.tileSize, TGxRGBA.Create(255, 255, 0, 92)); end; function hilightWallTrc (pan: TPanel; tag: Integer; x, y, prevx, prevy: Integer): Boolean; @@ -622,7 +808,7 @@ procedure plrDebugDraw (); result := false; // don't stop if (pan = nil) then exit; // cell completion, ignore //e_WriteLog(Format('h1: (%d,%d)', [cx, cy]), MSG_NOTIFY); - fillRect(pan.X, pan.Y, pan.Width, pan.Height, 0, 128, 128, 64); + fillRect(pan.X, pan.Y, pan.Width, pan.Height, TGxRGBA.Create(0, 128, 128, 64)); end; function monsCollector (mon: TMonster; tag: Integer): Boolean; @@ -665,10 +851,10 @@ procedure plrDebugDraw (); exit; end; mon.getMapBox(mx, my, mw, mh); - drawLine(mx+mw div 2, my+mh div 2, emx+emw div 2, emy+emh div 2, 255, 0, 0, 255); + drawLine(mx+mw div 2, my+mh div 2, emx+emw div 2, emy+emh div 2, TGxRGBA.Create(255, 0, 0)); if (g_Map_traceToNearestWall(mx+mw div 2, my+mh div 2, emx+emw div 2, emy+emh div 2, @ex, @ey) <> nil) then begin - drawLine(mx+mw div 2, my+mh div 2, ex, ey, 0, 255, 0, 255); + drawLine(mx+mw div 2, my+mh div 2, ex, ey, TGxRGBA.Create(0, 255, 0)); end; end; @@ -682,17 +868,17 @@ procedure plrDebugDraw (); if (eplr = nil) then exit; eplr.getMapBox(emx, emy, emw, emh); mon.getMapBox(mx, my, mw, mh); - drawLine(mx+mw div 2, my+mh div 2, emx+emw div 2, emy+emh div 2, 255, 0, 0, 255); + drawLine(mx+mw div 2, my+mh div 2, emx+emw div 2, emy+emh div 2, TGxRGBA.Create(255, 0, 0)); {$IF DEFINED(D2F_DEBUG)} - //mapGrid.dbgRayTraceTileHitCB := hilightCell1; + mapGrid.dbgRayTraceTileHitCB := hilightCell1; {$ENDIF} if (g_Map_traceToNearestWall(mx+mw div 2, my+mh div 2, emx+emw div 2, emy+emh div 2, @ex, @ey) <> nil) then //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 begin - drawLine(mx+mw div 2, my+mh div 2, ex, ey, 0, 255, 0, 255); + drawLine(mx+mw div 2, my+mh div 2, ex, ey, TGxRGBA.Create(0, 255, 0)); end; {$IF DEFINED(D2F_DEBUG)} - //mapGrid.dbgRayTraceTileHitCB := nil; + mapGrid.dbgRayTraceTileHitCB := nil; {$ENDIF} end; @@ -711,18 +897,18 @@ procedure plrDebugDraw (); my -= 2; // type - drawText6(mx, my, Format('%s(U:%u)', [monsTypeToString(mon.MonsterType), mon.UID]), 255, 127, 0); my -= 8; + drawText6(mx, my, Format('%s(U:%u)', [monsTypeToString(mon.MonsterType), mon.UID]), TGxRGBA.Create(255, 127, 0)); my -= 8; // beh - drawText6(mx, my, Format('Beh: %s', [monsBehToString(mon.MonsterBehaviour)]), 255, 127, 0); my -= 8; + drawText6(mx, my, Format('Beh: %s', [monsBehToString(mon.MonsterBehaviour)]), TGxRGBA.Create(255, 127, 0)); my -= 8; // state - drawText6(mx, my, Format('State:%s (%d)', [monsStateToString(mon.MonsterState), mon.MonsterSleep]), 255, 127, 0); my -= 8; + drawText6(mx, my, Format('State:%s (%d)', [monsStateToString(mon.MonsterState), mon.MonsterSleep]), TGxRGBA.Create(255, 127, 0)); my -= 8; // health - drawText6(mx, my, Format('Health:%d', [mon.MonsterHealth]), 255, 127, 0); my -= 8; + drawText6(mx, my, Format('Health:%d', [mon.MonsterHealth]), TGxRGBA.Create(255, 127, 0)); my -= 8; // ammo - drawText6(mx, my, Format('Ammo:%d', [mon.MonsterAmmo]), 255, 127, 0); my -= 8; + drawText6(mx, my, Format('Ammo:%d', [mon.MonsterAmmo]), TGxRGBA.Create(255, 127, 0)); my -= 8; // target - drawText6(mx, my, Format('TgtUID:%u', [mon.MonsterTargetUID]), 255, 127, 0); my -= 8; - drawText6(mx, my, Format('TgtTime:%d', [mon.MonsterTargetTime]), 255, 127, 0); my -= 8; + drawText6(mx, my, Format('TgtUID:%u', [mon.MonsterTargetUID]), TGxRGBA.Create(255, 127, 0)); my -= 8; + drawText6(mx, my, Format('TgtTime:%d', [mon.MonsterTargetTime]), TGxRGBA.Create(255, 127, 0)); my -= 8; end; drawMonsterTargetLine(); @@ -740,70 +926,226 @@ procedure plrDebugDraw (); monsGrid.forEachBodyCell(mon.proxyId, hilightCell); end; + procedure drawSelectedPlatformCells (); + var + pan: TPanel; + begin + if not showGrid then exit; + pan := g_Map_PanelByGUID(platMarkedGUID); + if (pan = nil) then exit; + mapGrid.forEachBodyCell(pan.proxyId, hilightCell); + drawRect(pan.x, pan.y, pan.width, pan.height, TGxRGBA.Create(0, 200, 0, 200)); + end; + + procedure drawTrigger (var trig: TTrigger); + + procedure drawPanelDest (pguid: Integer); + var + pan: TPanel; + begin + pan := g_Map_PanelByGUID(pguid); + if (pan = nil) then exit; + drawLine( + trig.trigCenter.x, trig.trigCenter.y, + pan.x+pan.width div 2, pan.y+pan.height div 2, + TGxRGBA.Create(255, 0, 255, 220)); + end; + + var + tts: AnsiString; + tx: Integer; + begin + fillRect(trig.x, trig.y, trig.width, trig.height, TGxRGBA.Create(255, 0, 255, 96)); + tts := trigType2Str(trig.TriggerType); + tx := trig.x+(trig.width-Length(tts)*6) div 2; + darkenRect(tx-2, trig.y-10, Length(tts)*6+4, 10, 64); + drawText6(tx, trig.y-9, tts, TGxRGBA.Create(255, 127, 0)); + tx := trig.x+(trig.width-Length(trig.mapId)*6) div 2; + darkenRect(tx-2, trig.y-20, Length(trig.mapId)*6+4, 10, 64); + drawText6(tx, trig.y-19, trig.mapId, TGxRGBA.Create(255, 255, 0)); + drawPanelDest(trig.trigPanelGUID); + case trig.TriggerType of + TRIGGER_NONE: begin end; + TRIGGER_EXIT: begin end; + TRIGGER_TELEPORT: begin end; + TRIGGER_OPENDOOR: begin end; + TRIGGER_CLOSEDOOR: begin end; + TRIGGER_DOOR: begin end; + TRIGGER_DOOR5: begin end; + TRIGGER_CLOSETRAP: begin end; + TRIGGER_TRAP: begin end; + TRIGGER_SECRET: begin end; + TRIGGER_LIFTUP: begin end; + TRIGGER_LIFTDOWN: begin end; + TRIGGER_LIFT: begin end; + TRIGGER_TEXTURE: begin end; + TRIGGER_ON, TRIGGER_OFF, TRIGGER_ONOFF, TRIGGER_PRESS: + begin + if (trig.trigDataRec.trigTWidth > 0) and (trig.trigDataRec.trigTHeight > 0) then + begin + fillRect( + trig.trigDataRec.trigTX, trig.trigDataRec.trigTY, + trig.trigDataRec.trigTWidth, trig.trigDataRec.trigTHeight, + TGxRGBA.Create(0, 255, 255, 42)); + drawLine( + trig.trigCenter.x, trig.trigCenter.y, + trig.trigDataRec.trigTX+trig.trigDataRec.trigTWidth div 2, + trig.trigDataRec.trigTY+trig.trigDataRec.trigTHeight div 2, + TGxRGBA.Create(255, 0, 255, 220)); + end; + end; + TRIGGER_SOUND: begin end; + TRIGGER_SPAWNMONSTER: begin end; + TRIGGER_SPAWNITEM: begin end; + TRIGGER_MUSIC: begin end; + TRIGGER_PUSH: begin end; + TRIGGER_SCORE: begin end; + TRIGGER_MESSAGE: begin end; + TRIGGER_DAMAGE: begin end; + TRIGGER_HEALTH: begin end; + TRIGGER_SHOT: begin end; + TRIGGER_EFFECT: begin end; + TRIGGER_SCRIPT: begin end; + end; + //trigType2Str + //trigPanelId: Integer; + end; + + procedure drawTriggers (); + var + f: Integer; + begin + for f := 0 to High(gTriggers) do drawTrigger(gTriggers[f]); + end; + + procedure drawGibsBoxes (); + var + f: Integer; + px, py, pw, ph: Integer; + gib: PGib; + begin + for f := 0 to High(gGibs) do + begin + gib := @gGibs[f]; + if gib.alive then + begin + gib.getMapBox(px, py, pw, ph); + drawRect(px, py, pw, ph, TGxRGBA.Create(255, 0, 255)); + end; + end; + end; + var + scisave: TScissorSave; mon: TMonster; mx, my, mw, mh: Integer; + //pan: TPanel; + //ex, ey: Integer; begin if (gPlayer1 = nil) then exit; - glEnable(GL_SCISSOR_TEST); - glScissor(0, gWinSizeY-gPlayerScreenSize.Y-1, vpw, vph); - + scisave.save(true); // enable scissoring glPushMatrix(); - glTranslatef(-vpx, -vpy, 0); + try + //glScissor(0, gWinSizeY-gPlayerScreenSize.Y-1, vpw, vph); + glScissor(0, gScreenHeight-gPlayerScreenSize.Y-1, gPlayerScreenSize.X, gPlayerScreenSize.Y); - if (showGrid) then drawTileGrid(); - drawOutlines(); + glScalef(g_dbg_scale, g_dbg_scale, 1.0); + glTranslatef(-vpx, -vpy, 0); - if (laserSet) then g_Mons_AlongLine(laserX0, laserY0, laserX1, laserY1, monsCollector, true); + if (showGrid) then drawTileGrid(); + drawOutlines(); - if (monMarkedUID <> -1) then - begin - mon := g_Monsters_ByUID(monMarkedUID); - if (mon <> nil) then + if (laserSet) then g_Mons_AlongLine(laserX0, laserY0, laserX1, laserY1, monsCollector, true); + + if (monMarkedUID <> -1) then begin - mon.getMapBox(mx, my, mw, mh); - e_DrawQuad(mx, my, mx+mw-1, my+mh-1, 255, 0, 0, 30); - drawMonsterInfo(mon); + mon := g_Monsters_ByUID(monMarkedUID); + if (mon <> nil) then + begin + mon.getMapBox(mx, my, mw, mh); + e_DrawQuad(mx, my, mx+mw-1, my+mh-1, 255, 0, 0, 30); + drawMonsterInfo(mon); + end; end; - end; - if showAllMonsCells then g_Mons_ForEach(highlightAllMonsterCells); + if showAllMonsCells and showGrid then g_Mons_ForEach(highlightAllMonsterCells); + if showTriggers then drawTriggers(); + if showGrid then drawSelectedPlatformCells(); - glPopMatrix(); + //drawAwakeCells(); - glDisable(GL_SCISSOR_TEST); + if showTraceBox then drawTraceBox(); + + //drawGibsBoxes(); + + + //pan := g_Map_traceToNearest(16, 608, 16, 8, (GridTagObstacle or GridTagLiquid), @ex, @ey); + (* + {$IF DEFINED(D2F_DEBUG)} + mapGrid.dbgRayTraceTileHitCB := hilightCell1; + {$ENDIF} + pan := mapGrid.traceRay(ex, ey, 16, 608, 16, 8, nil, (GridTagObstacle or GridTagLiquid)); + if (pan <> nil) then writeln('end=(', ex, ',', ey, ')'); + {$IF DEFINED(D2F_DEBUG)} + mapGrid.dbgRayTraceTileHitCB := nil; + {$ENDIF} - if showMapCurPos then drawText8(4, gWinSizeY-10, Format('mappos:(%d,%d)', [pmsCurMapX, pmsCurMapY]), 255, 255, 0); + pan := g_Map_PanelAtPoint(16, 608, (GridTagObstacle or GridTagLiquid)); + if (pan <> nil) then writeln('hit!'); + *) + + finally + glPopMatrix(); + scisave.restore(); + end; + + if showMapCurPos then drawText8(4, gWinSizeY-10, Format('mappos:(%d,%d)', [pmsCurMapX, pmsCurMapY]), TGxRGBA.Create(255, 255, 0)); end; // ////////////////////////////////////////////////////////////////////////// // function g_Holmes_MouseEvent (var ev: THMouseEvent): Boolean; +var + he: THMouseEvent; begin + if g_Game_IsNet then begin result := false; exit; end; + if not g_holmes_enabled then begin result := false; exit; end; + + holmesInitCommands(); + holmesInitBinds(); result := true; msX := ev.x; msY := ev.y; msB := ev.bstate; kbS := ev.kstate; msB := msB; - if not uiMouseEvent(ev) then plrDebugMouse(ev); + he := ev; + he.x := he.x; + he.y := he.y; + if not uiMouseEvent(he) then plrDebugMouse(he); end; +// ////////////////////////////////////////////////////////////////////////// // function g_Holmes_KeyEvent (var ev: THKeyEvent): Boolean; +{$IF DEFINED(D2F_DEBUG)} var - mon: TMonster; pan: TPanel; - x, y, w, h: Integer; ex, ey: Integer; dx, dy: Integer; +{$ENDIF} procedure dummyWallTrc (cx, cy: Integer); begin end; begin + if g_Game_IsNet then begin result := false; exit; end; + if not g_holmes_enabled then begin result := false; exit; end; + + holmesInitCommands(); + holmesInitBinds(); result := false; msB := ev.bstate; kbS := ev.kstate; @@ -814,107 +1156,10 @@ begin result := true; end; if uiKeyEvent(ev) then begin result := true; exit; end; + if keybindExecute(ev) then begin result := true; exit; end; // press - if (ev.kind = THKeyEvent.Press) then + if (ev.press) then begin - // M-M: one monster think step - if (ev.scan = SDL_SCANCODE_M) and ((ev.kstate and THKeyEvent.ModAlt) <> 0) then - begin - result := true; - gmon_debug_think := false; - gmon_debug_one_think_step := true; // do one step - exit; - end; - // M-I: toggle monster info - if (ev.scan = SDL_SCANCODE_I) and ((ev.kstate and THKeyEvent.ModAlt) <> 0) then - begin - result := true; - showMonsInfo := not showMonsInfo; - exit; - end; - // M-L: toggle monster LOS to player - if (ev.scan = SDL_SCANCODE_L) and ((ev.kstate and THKeyEvent.ModAlt) <> 0) then - begin - result := true; - showMonsLOS2Plr := not showMonsLOS2Plr; - exit; - end; - // M-G: toggle "show all cells occupied by monsters" - if (ev.scan = SDL_SCANCODE_G) and ((ev.kstate and THKeyEvent.ModAlt) <> 0) then - begin - result := true; - showAllMonsCells := not showAllMonsCells; - exit; - end; - // M-A: wake up monster - if (ev.scan = SDL_SCANCODE_A) and ((ev.kstate and THKeyEvent.ModAlt) <> 0) then - begin - result := true; - if (monMarkedUID <> -1) then - begin - mon := g_Monsters_ByUID(monMarkedUID); - if (mon <> nil) then mon.WakeUp(); - end; - exit; - end; - // C-T: teleport player - if (ev.scan = SDL_SCANCODE_T) and ((ev.kstate and THKeyEvent.ModCtrl) <> 0) then - begin - result := true; - //e_WriteLog(Format('TELEPORT: (%d,%d)', [pmsCurMapX, pmsCurMapY]), MSG_NOTIFY); - if (gPlayers[0] <> nil) then - begin - gPlayers[0].getMapBox(x, y, w, h); - gPlayers[0].TeleportTo(pmsCurMapX-w div 2, pmsCurMapY-h div 2, true, 69); // 69: don't change dir - end; - exit; - end; - // C-P: show cursor position on the map - if (ev.scan = SDL_SCANCODE_P) and ((ev.kstate and THKeyEvent.ModCtrl) <> 0) then - begin - result := true; - showMapCurPos := not showMapCurPos; - exit; - end; - // C-G: toggle grid - if (ev.scan = SDL_SCANCODE_G) and ((ev.kstate and THKeyEvent.ModCtrl) <> 0) then - begin - result := true; - showGrid := not showGrid; - exit; - end; - // C-L: toggle layers window - if (ev.scan = SDL_SCANCODE_L) and ((ev.kstate and THKeyEvent.ModCtrl) <> 0) then - begin - result := true; - showLayersWindow := not showLayersWindow; - toggleLayersWindow(nil, 0); - exit; - end; - // C-O: toggle outlines window - if (ev.scan = SDL_SCANCODE_O) and ((ev.kstate and THKeyEvent.ModCtrl) <> 0) then - begin - result := true; - showOutlineWindow := not showOutlineWindow; - toggleOutlineWindow(nil, 0); - exit; - end; - // F1: toggle options window - if (ev.scan = SDL_SCANCODE_F1) and (ev.kstate = 0) then - begin - result := true; - if (winHelp = nil) then createHelpWindow(); - if not uiVisibleWindow(winHelp) then uiAddWindow(winHelp) else uiRemoveWindow(winHelp); - exit; - end; - // M-F1: toggle options window - if (ev.scan = SDL_SCANCODE_F1) and (ev.kstate = THKeyEvent.ModAlt) then - begin - result := true; - if (winOptions = nil) then createOptionsWindow(); - if not uiVisibleWindow(winOptions) then uiAddWindow(winOptions) else uiRemoveWindow(winOptions); - exit; - end; {$IF DEFINED(D2F_DEBUG)} // C-UP, C-DOWN, C-LEFT, C-RIGHT: trace 10 pixels from cursor in the respective direction 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 @@ -949,16 +1194,20 @@ end; // ////////////////////////////////////////////////////////////////////////// // procedure g_Holmes_Draw (); begin + if g_Game_IsNet then exit; + + {$IF not DEFINED(HEADLESS)} + holmesInitCommands(); + holmesInitBinds(); + glColorMask(GL_TRUE, GL_TRUE, GL_TRUE, GL_TRUE); // modify color buffer glDisable(GL_STENCIL_TEST); glDisable(GL_BLEND); glDisable(GL_SCISSOR_TEST); glDisable(GL_TEXTURE_2D); - if gGameOn then - begin - plrDebugDraw(); - end; + if gGameOn then plrDebugDraw(); + {$ENDIF} laserSet := false; end; @@ -966,9 +1215,301 @@ end; procedure g_Holmes_DrawUI (); begin + if g_Game_IsNet then exit; + if not g_holmes_enabled then exit; + {$IF not DEFINED(HEADLESS)} + gGfxDoClear := false; + //if assigned(prerenderFrameCB) then prerenderFrameCB(); uiDraw(); - drawCursor(); + glMatrixMode(GL_MODELVIEW); + glPushMatrix(); + try + //glLoadIdentity(); + if assigned(postrenderFrameCB) then postrenderFrameCB(); + finally + glPopMatrix(); + end; + {$ENDIF} +end; + + +// ////////////////////////////////////////////////////////////////////////// // +procedure bcOneMonsterThinkStep (); begin gmon_debug_think := false; gmon_debug_one_think_step := true; end; +procedure bcOneMPlatThinkStep (); begin g_dbgpan_mplat_active := false; g_dbgpan_mplat_step := true; end; +procedure bcMPlatToggle (); begin g_dbgpan_mplat_active := not g_dbgpan_mplat_active; end; + +procedure bcToggleMonsterInfo (arg: Integer=-1); begin if (arg < 0) then showMonsInfo := not showMonsInfo else showMonsInfo := (arg > 0); end; +procedure bcToggleMonsterLOSPlr (arg: Integer=-1); begin if (arg < 0) then showMonsLOS2Plr := not showMonsLOS2Plr else showMonsLOS2Plr := (arg > 0); end; +procedure bcToggleMonsterCells (arg: Integer=-1); begin if (arg < 0) then showAllMonsCells := not showAllMonsCells else showAllMonsCells := (arg > 0); end; +procedure bcToggleDrawTriggers (arg: Integer=-1); begin if (arg < 0) then showTriggers := not showTriggers else showTriggers := (arg > 0); end; + +procedure bcToggleCurPos (arg: Integer=-1); begin if (arg < 0) then showMapCurPos := not showMapCurPos else showMapCurPos := (arg > 0); end; +procedure bcToggleGrid (arg: Integer=-1); begin if (arg < 0) then showGrid := not showGrid else showGrid := (arg > 0); end; + +procedure bcMonsterSpawn (s: AnsiString); +var + mon: TMonster; +begin + if not gGameOn or g_Game_IsClient then + begin + conwriteln('cannot spawn monster in this mode'); + exit; + end; + mon := g_Mons_SpawnAt(s, pmsCurMapX, pmsCurMapY); + if (mon = nil) then begin conwritefln('unknown monster id: ''%s''', [s]); exit; end; + monMarkedUID := mon.UID; end; +procedure bcMonsterWakeup (); +var + mon: TMonster; +begin + if (monMarkedUID <> -1) then + begin + mon := g_Monsters_ByUID(monMarkedUID); + if (mon <> nil) then mon.WakeUp(); + end; +end; + +procedure bcPlayerTeleport (); +var + x, y, w, h: Integer; +begin + //e_WriteLog(Format('TELEPORT: (%d,%d)', [pmsCurMapX, pmsCurMapY]), MSG_NOTIFY); + if (gPlayers[0] <> nil) then + begin + gPlayers[0].getMapBox(x, y, w, h); + gPlayers[0].TeleportTo(pmsCurMapX-w div 2, pmsCurMapY-h div 2, true, 69); // 69: don't change dir + end; +end; + +procedure dbgToggleTraceBox (arg: Integer=-1); begin if (arg < 0) then showTraceBox := not showTraceBox else showTraceBox := (arg > 0); end; + +procedure dbgToggleHolmesPause (arg: Integer=-1); begin if (arg < 0) then g_Game_HolmesPause(not gPauseHolmes) else g_Game_HolmesPause(arg > 0); end; + +procedure cbAtcurSelectMonster (); + function monsAtDump (mon: TMonster; tag: Integer): Boolean; + begin + result := true; // stop + e_WriteLog(Format('monster #%d (UID:%u) (proxyid:%d)', [mon.arrIdx, mon.UID, mon.proxyId]), TMsgType.Notify); + monMarkedUID := mon.UID; + dumpPublishedProperties(mon); + end; +var + plr: TPlayer; + x, y, w, h: Integer; +begin + monMarkedUID := -1; + if (Length(gPlayers) > 0) then + begin + plr := gPlayers[0]; + if (plr <> nil) then + begin + plr.getMapBox(x, y, w, h); + if (pmsCurMapX >= x) and (pmsCurMapY >= y) and (pmsCurMapX < x+w) and (pmsCurMapY < y+h) then + begin + dumpPublishedProperties(plr); + end; + end; + end; + //e_WriteLog('===========================', MSG_NOTIFY); + monsGrid.forEachAtPoint(pmsCurMapX, pmsCurMapY, monsAtDump); + //e_WriteLog('---------------------------', MSG_NOTIFY); +end; + +procedure cbAtcurDumpMonsters (); + function monsAtDump (mon: TMonster; tag: Integer): Boolean; + begin + result := false; // don't stop + e_WriteLog(Format('monster #%d (UID:%u) (proxyid:%d)', [mon.arrIdx, mon.UID, mon.proxyId]), TMsgType.Notify); + end; +begin + e_WriteLog('===========================', TMsgType.Notify); + monsGrid.forEachAtPoint(pmsCurMapX, pmsCurMapY, monsAtDump); + e_WriteLog('---------------------------', TMsgType.Notify); +end; + +procedure cbAtcurDumpWalls (); + function wallToggle (pan: TPanel; tag: Integer): Boolean; + begin + result := false; // don't stop + if (platMarkedGUID = -1) then platMarkedGUID := pan.guid; + 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]); + dumpPublishedProperties(pan); + end; +var + hasTrigs: Boolean = false; + f: Integer; + trig: PTrigger; +begin + platMarkedGUID := -1; + e_WriteLog('=== TOGGLE WALL ===', TMsgType.Notify); + mapGrid.forEachAtPoint(pmsCurMapX, pmsCurMapY, wallToggle, (GridTagWall or GridTagDoor)); + e_WriteLog('--- toggle wall ---', TMsgType.Notify); + if showTriggers then + begin + for f := 0 to High(gTriggers) do + begin + trig := @gTriggers[f]; + if (pmsCurMapX >= trig.x) and (pmsCurMapY >= trig.y) and (pmsCurMapX < trig.x+trig.width) and (pmsCurMapY < trig.y+trig.height) then + begin + if not hasTrigs then begin writeln('=== TRIGGERS ==='); hasTrigs := true; end; + writeln('trigger ''', trig.mapId, ''' of type ''', trigType2Str(trig.TriggerType), ''''); + end; + end; + if hasTrigs then writeln('--- triggers ---'); + end; +end; + +procedure cbAtcurToggleWalls (); + function wallToggle (pan: TPanel; tag: Integer): Boolean; + begin + result := false; // don't stop + //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); + if pan.Enabled then g_Map_DisableWallGUID(pan.guid) else g_Map_EnableWallGUID(pan.guid); + end; +begin + //e_WriteLog('=== TOGGLE WALL ===', MSG_NOTIFY); + mapGrid.forEachAtPoint(pmsCurMapX, pmsCurMapY, wallToggle, (GridTagWall or GridTagDoor)); + //e_WriteLog('--- toggle wall ---', MSG_NOTIFY); +end; + + +// ////////////////////////////////////////////////////////////////////////// // +procedure holmesInitCommands (); +begin + if (cmdlist <> nil) then exit; + cmdAdd('win_layers', toggleLayersWindow, 'toggle layers window', 'window control'); + cmdAdd('win_outline', toggleOutlineWindow, 'toggle outline window', 'window control'); + cmdAdd('win_help', toggleHelpWindow, 'toggle help window', 'window control'); + cmdAdd('win_options', toggleOptionsWindow, 'toggle options window', 'window control'); + + cmdAdd('mon_think_step', bcOneMonsterThinkStep, 'one monster think step', 'monster control'); + cmdAdd('mon_info', bcToggleMonsterInfo, 'toggle monster info', 'monster control'); + cmdAdd('mon_los_plr', bcToggleMonsterLOSPlr, 'toggle monster LOS to player', 'monster control'); + cmdAdd('mon_cells', bcToggleMonsterCells, 'toggle "show all cells occupied by monsters" (SLOW!)', 'monster control'); + cmdAdd('mon_wakeup', bcMonsterWakeup, 'wake up selected monster', 'monster control'); + + cmdAdd('mon_spawn', bcMonsterSpawn, 'spawn monster', 'monster control'); + + cmdAdd('mplat_step', bcOneMPlatThinkStep, 'one mplat think step', 'mplat control'); + cmdAdd('mplat_toggle', bcMPlatToggle, 'activate/deactivate moving platforms', 'mplat control'); + + cmdAdd('plr_teleport', bcPlayerTeleport, 'teleport player', 'player control'); + + cmdAdd('dbg_curpos', bcToggleCurPos, 'toggle "show cursor position on the map"', 'various'); + cmdAdd('dbg_grid', bcToggleGrid, 'toggle grid', 'various'); + cmdAdd('dbg_triggers', bcToggleDrawTriggers, 'show/hide triggers (SLOW!)', 'various'); + + cmdAdd('atcur_select_monster', cbAtcurSelectMonster, 'select monster to operate', 'monster control'); + cmdAdd('atcur_dump_monsters', cbAtcurDumpMonsters, 'dump monsters in cell', 'monster control'); + cmdAdd('atcur_dump_walls', cbAtcurDumpWalls, 'dump walls in cell', 'wall control'); + cmdAdd('atcur_disable_walls', cbAtcurToggleWalls, 'disable walls', 'wall control'); + + cmdAdd('dbg_tracebox', dbgToggleTraceBox, 'test traceBox()', 'player control'); + + cmdAdd('hlm_pause', dbgToggleHolmesPause, '"Holmes" pause mode', 'game control'); +end; + + +procedure holmesInitBinds (); +var + st: TStream = nil; + pr: TTextParser = nil; + s, kn, v: AnsiString; + kmods: Byte; + mbuts: Byte; +begin + kbS := kbS; + if not keybindsInited then + begin + // keyboard + keybindAdd('F1', 'win_help'); + keybindAdd('M-F1', 'win_options'); + keybindAdd('C-O', 'win_outline'); + keybindAdd('C-L', 'win_layers'); + + keybindAdd('M-M', 'mon_think_step'); + keybindAdd('M-I', 'mon_info'); + keybindAdd('M-L', 'mon_los_plr'); + keybindAdd('M-G', 'mon_cells'); + keybindAdd('M-A', 'mon_wakeup'); + + keybindAdd('M-P', 'mplat_step'); + keybindAdd('M-O', 'mplat_toggle'); + + keybindAdd('C-T', 'plr_teleport'); + keybindAdd('M-T', 'dbg_tracebox'); + + keybindAdd('C-P', 'dbg_curpos'); + keybindAdd('C-G', 'dbg_grid'); + keybindAdd('C-X', 'dbg_triggers'); + + keybindAdd('C-1', 'mon_spawn zombie'); + + keybindAdd('C-S-P', 'hlm_pause'); + + // mouse + msbindAdd('LMB', 'atcur_select_monster'); + msbindAdd('M-LMB', 'atcur_dump_monsters'); + msbindAdd('RMB', 'atcur_dump_walls'); + msbindAdd('M-RMB', 'atcur_disable_walls'); + + // load bindings from file + try + st := openDiskFileRO(GameDir+'holmes.rc'); + pr := TFileTextParser.Create(st); + conwriteln('parsing "holmes.rc"...'); + while (pr.tokType <> pr.TTEOF) do + begin + s := pr.expectId(); + if (s = 'stop') then break + else if (s = 'unbind_keys') then keybinds := nil + else if (s = 'unbind_mouse') then msbinds := nil + else if (s = 'bind') then + begin + if (pr.tokType = pr.TTStr) then s := pr.expectStr(false) + else if (pr.tokType = pr.TTInt) then s := Format('%d', [pr.expectInt()]) + else s := pr.expectId(); + + if (pr.tokType = pr.TTStr) then v := pr.expectStr(false) + else if (pr.tokType = pr.TTInt) then v := Format('%d', [pr.expectInt()]) + else v := pr.expectId(); + + kn := parseModKeys(s, kmods, mbuts); + if (CompareText(kn, 'lmb') = 0) or (CompareText(kn, 'rmb') = 0) or (CompareText(kn, 'mmb') = 0) or (CompareText(kn, 'None') = 0) then + begin + msbindAdd(s, v); + end + else + begin + keybindAdd(s, v); + end; + end; + end; + except on e: Exception do // sorry + if (pr <> nil) then conwritefln('Holmes config parse error at (%s,%s): %s', [pr.tokLine, pr.tokCol, e.message]); + end; + if (pr <> nil) then pr.Free() else st.Free(); // ownership + end; +end; + + +function onMouseEvent (var ev: THMouseEvent): Boolean; +begin + result := g_Holmes_MouseEvent(ev); +end; + +function onKeyEvent (var ev: THKeyEvent): Boolean; +begin + if not g_holmes_enabled then begin result := false; exit; end; + result := g_Holmes_keyEvent(ev); +end; + + +begin + evMouseCB := onMouseEvent; + evKeyCB := onKeyEvent; + conRegVar('hlm_ui_scale', @gh_ui_scale, 0.01, 5.0, 'Holmes UI scale', '', false); end.