diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas
index d7ab6bfec15ac5484115a67a40a23b0f22d30b24..7d4259c061c6e3a2a0408460e77d51ed426791b7 100644 (file)
--- a/src/game/g_holmes.pas
+++ b/src/game/g_holmes.pas
function g_Holmes_KeyEvent (var ev: THKeyEvent): Boolean;
var
mon: TMonster;
+ x, y, w, h: Integer;
begin
result := false;
msB := ev.bstate;
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;
end;
end;