X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_holmes.pas;h=7d4259c061c6e3a2a0408460e77d51ed426791b7;hb=8d79811e816ea0947f369f2cbb2e8226447ec412;hp=d7ab6bfec15ac5484115a67a40a23b0f22d30b24;hpb=1f2ea3a9df39acfd47b880dc954789a73b2c4656;p=d2df-sdl.git

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