X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_netmaster.pas;h=a1b9b6feda29f39b78307cbedc888586d0b81529;hb=89d242f641ed8a2ccd6b1935f64db62dc9bcf154;hp=57d53c989550f8f3f53ba0b2bf255d736f5cea82;hpb=88ce644db1b40111bdb380f4357fa59bdb5173be;p=d2df-sdl.git diff --git a/src/game/g_netmaster.pas b/src/game/g_netmaster.pas index 57d53c9..a1b9b6f 100644 --- a/src/game/g_netmaster.pas +++ b/src/game/g_netmaster.pas @@ -526,7 +526,7 @@ begin if SL = nil then Exit; - if e_KeyPressed(IK_RETURN) then + if e_KeyPressed(IK_RETURN) or e_KeyPressed(IK_KPRETURN) then begin if not slReturnPressed then begin @@ -550,7 +550,7 @@ begin else slReturnPressed := False; - if e_KeyPressed(IK_DOWN) then + if e_KeyPressed(IK_DOWN) or e_KeyPressed(IK_KPDOWN) then begin if not slDirPressed then begin @@ -559,8 +559,8 @@ begin slDirPressed := True; end; end; - - if e_KeyPressed(IK_UP) then + + if e_KeyPressed(IK_UP) or e_KeyPressed(IK_KPUP) then begin if not slDirPressed then begin @@ -571,7 +571,7 @@ begin end; end; - if (not e_KeyPressed(IK_DOWN)) and (not e_KeyPressed(IK_UP)) then + if (not e_KeyPressed(IK_DOWN)) and (not e_KeyPressed(IK_UP)) and (not e_KeyPressed(IK_KPDOWN)) and (not e_KeyPressed(IK_KPUP)) then slDirPressed := False; end;