X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_input.pas;h=83508f3ae090329f44ee33599377eceb31c9e6c1;hb=843ef00143d2dd922eaa56362d4afbeb41aa54bf;hp=1c27249fc44465151cf00dc129c9bf85fa6a5f51;hpb=271f8f040cb0bd53be1ee6f682a346101f578491;p=d2df-sdl.git diff --git a/src/engine/e_input.pas b/src/engine/e_input.pas index 1c27249..83508f3 100644 --- a/src/engine/e_input.pas +++ b/src/engine/e_input.pas @@ -46,6 +46,7 @@ const IK_RETURN = SDL_SCANCODE_RETURN; IK_KPRETURN= SDL_SCANCODE_KP_ENTER; IK_ENTER = SDL_SCANCODE_RETURN; + IK_KPINSERT = SDL_SCANCODE_KP_0; IK_UP = SDL_SCANCODE_UP; IK_KPUP = SDL_SCANCODE_KP_8; IK_DOWN = SDL_SCANCODE_DOWN; @@ -61,11 +62,50 @@ const IK_SPACE = SDL_SCANCODE_SPACE; IK_CONTROL = SDL_SCANCODE_LCTRL; IK_SHIFT = SDL_SCANCODE_LSHIFT; + IK_ALT = SDL_SCANCODE_LALT; IK_TAB = SDL_SCANCODE_TAB; IK_PAGEUP = SDL_SCANCODE_PAGEUP; IK_KPPAGEUP= SDL_SCANCODE_KP_9; IK_PAGEDN = SDL_SCANCODE_PAGEDOWN; IK_KPPAGEDN= SDL_SCANCODE_KP_3; + IK_KP5 = SDL_SCANCODE_KP_5; + IK_NUMLOCK = SDL_SCANCODE_NUMLOCKCLEAR; + IK_KPDIVIDE= SDL_SCANCODE_KP_DIVIDE; + IK_KPMULTIPLE= SDL_SCANCODE_KP_MULTIPLY; + IK_KPMINUS = SDL_SCANCODE_KP_MINUS; + IK_KPPLUS = SDL_SCANCODE_KP_PLUS; + IK_KPENTER = SDL_SCANCODE_KP_ENTER; + IK_KPDOT = SDL_SCANCODE_KP_PERIOD; + IK_CAPSLOCK= SDL_SCANCODE_CAPSLOCK; + IK_RSHIFT = SDL_SCANCODE_RSHIFT; + IK_CTRL = SDL_SCANCODE_LCTRL; + IK_RCTRL = SDL_SCANCODE_RCTRL; + IK_RALT = SDL_SCANCODE_RALT; + IK_WIN = SDL_SCANCODE_LGUI; + IK_RWIN = SDL_SCANCODE_RGUI; + IK_MENU = SDL_SCANCODE_MENU; + IK_PRINTSCR= SDL_SCANCODE_PRINTSCREEN; + IK_SCROLLLOCK= SDL_SCANCODE_SCROLLLOCK; + IK_LBRACKET= SDL_SCANCODE_LEFTBRACKET; + IK_RBRACKET= SDL_SCANCODE_RIGHTBRACKET; + IK_SEMICOLON= SDL_SCANCODE_SEMICOLON; + IK_QUOTE = SDL_SCANCODE_APOSTROPHE; + IK_BACKSLASH= SDL_SCANCODE_BACKSLASH; + IK_SLASH = SDL_SCANCODE_SLASH; + IK_COMMA = SDL_SCANCODE_COMMA; + IK_DOT = SDL_SCANCODE_PERIOD; + IK_EQUALS = SDL_SCANCODE_EQUALS; + IK_0 = SDL_SCANCODE_0; + IK_1 = SDL_SCANCODE_1; + IK_2 = SDL_SCANCODE_2; + IK_3 = SDL_SCANCODE_3; + IK_4 = SDL_SCANCODE_4; + IK_5 = SDL_SCANCODE_5; + IK_6 = SDL_SCANCODE_6; + IK_7 = SDL_SCANCODE_7; + IK_8 = SDL_SCANCODE_8; + IK_9 = SDL_SCANCODE_9; + IK_F1 = SDL_SCANCODE_F1; IK_F2 = SDL_SCANCODE_F2; IK_F3 = SDL_SCANCODE_F3; IK_F4 = SDL_SCANCODE_F4; @@ -75,6 +115,8 @@ const IK_F8 = SDL_SCANCODE_F8; IK_F9 = SDL_SCANCODE_F9; IK_F10 = SDL_SCANCODE_F10; + IK_F11 = SDL_SCANCODE_F11; + IK_F12 = SDL_SCANCODE_F12; IK_END = SDL_SCANCODE_END; IK_KPEND = SDL_SCANCODE_KP_1; IK_BACKSPACE = SDL_SCANCODE_BACKSPACE; @@ -83,6 +125,17 @@ const IK_PAUSE = SDL_SCANCODE_PAUSE; IK_Y = SDL_SCANCODE_Y; IK_N = SDL_SCANCODE_N; + IK_W = SDL_SCANCODE_W; + IK_A = SDL_SCANCODE_A; + IK_S = SDL_SCANCODE_S; + IK_D = SDL_SCANCODE_D; + IK_Q = SDL_SCANCODE_Q; + IK_E = SDL_SCANCODE_E; + IK_H = SDL_SCANCODE_H; + IK_J = SDL_SCANCODE_J; + IK_T = SDL_SCANCODE_T; + IK_Z = SDL_SCANCODE_Z; + IK_MINUS = SDL_SCANCODE_MINUS; // TODO: think of something better than this shit IK_LASTKEY = SDL_NUM_SCANCODES-1; @@ -121,6 +174,8 @@ const VK_LSTRAFE = VK_FIRSTKEY + 31; VK_RSTRAFE = VK_FIRSTKEY + 32; VK_PRINTSCR = VK_FIRSTKEY + 33; + VK_SHOWKBD = VK_FIRSTKEY + 34; + VK_HIDEKBD = VK_FIRSTKEY + 35; VK_LASTKEY = e_MaxKbdKeys + e_MaxJoys*e_MaxJoyKeys + e_MaxVirtKeys - 1; AX_MINUS = 0; @@ -148,12 +203,26 @@ procedure e_SetKeyState(key: Word; state: Integer); procedure e_UnpressAllKeys (); procedure e_KeyUpDown (key: Word; down: Boolean); +type + TJoystick = record + ID: Byte; + Handle: PSDL_Joystick; + Axes: Byte; + Buttons: Byte; + Hats: Byte; + ButtBuf: array [0..e_MaxJoyBtns] of Boolean; + AxisBuf: array [0..e_MaxJoyAxes] of Integer; + AxisZero: array [0..e_MaxJoyAxes] of Integer; + HatBuf: array [0..e_MaxJoyHats] of array [HAT_LEFT..HAT_DOWN] of Boolean; + end; + var {e_MouseInfo: TMouseInfo;} e_EnableInput: Boolean = False; e_JoysticksAvailable: Byte = 0; e_JoystickDeadzones: array [0..e_MaxJoys-1] of Integer = (8192, 8192, 8192, 8192); e_KeyNames: array [0..e_MaxInputKeys] of String; + Joysticks: array of TJoystick = nil; implementation @@ -170,23 +239,10 @@ const VIRT_BEG = JOYH_END; VIRT_END = VIRT_BEG + e_MaxVirtKeys; -type - TJoystick = record - ID: Byte; - Handle: PSDL_Joystick; - Axes: Byte; - Buttons: Byte; - Hats: Byte; - ButtBuf: array [0..e_MaxJoyBtns] of Boolean; - AxisBuf: array [0..e_MaxJoyAxes] of Integer; - AxisZero: array [0..e_MaxJoyAxes] of Integer; - HatBuf: array [0..e_MaxJoyHats] of array [HAT_LEFT..HAT_DOWN] of Boolean; - end; - var KeyBuffer: array [0..e_MaxKbdKeys] of Boolean; + JoyBuffer: array [JOYK_BEG..JOYH_END] of Boolean; VirtBuffer: array [0..e_MaxVirtKeys] of Boolean; - Joysticks: array of TJoystick = nil; function OpenJoysticks(): Byte; var @@ -240,6 +296,7 @@ var i: Integer; begin for i := 0 to High(KeyBuffer) do KeyBuffer[i] := False; + for i := JOYK_BEG to JOYH_END do JoyBuffer[i] := False; for i := 0 to High(VirtBuffer) do VirtBuffer[i] := False; end; @@ -247,6 +304,7 @@ end; procedure e_KeyUpDown (key: Word; down: Boolean); begin if (key > 0) and (key < Length(KeyBuffer)) then KeyBuffer[key] := down + else if (key >= JOYK_BEG) and (key < JOYH_END) then JoyBuffer[key] := down else if (key >= VIRT_BEG) and (key < VIRT_END) then VirtBuffer[key - VIRT_BEG] := down end; @@ -302,8 +360,89 @@ var i, j, k: LongWord; begin // keyboard key names - for i := 0 to IK_LASTKEY do - e_KeyNames[i] := SDL_GetScancodeName(i); + e_KeyNames[IK_0] := '0'; + e_KeyNames[IK_1] := '1'; + e_KeyNames[IK_2] := '2'; + e_KeyNames[IK_3] := '3'; + e_KeyNames[IK_4] := '4'; + e_KeyNames[IK_5] := '5'; + e_KeyNames[IK_6] := '6'; + e_KeyNames[IK_7] := '7'; + e_KeyNames[IK_8] := '8'; + e_KeyNames[IK_9] := '9'; + for i := IK_A to IK_Z do + e_KeyNames[i] := '' + chr(ord('a') + (i - IK_a)); + e_KeyNames[IK_ESCAPE] := 'ESCAPE'; + e_KeyNames[IK_ENTER] := 'ENTER'; + e_KeyNames[IK_TAB] := 'TAB'; + e_KeyNames[IK_BACKSPACE] := 'BACKSPACE'; + e_KeyNames[IK_SPACE] := 'SPACE'; + e_KeyNames[IK_UP] := 'UP'; + e_KeyNames[IK_LEFT] := 'LEFT'; + e_KeyNames[IK_RIGHT] := 'RIGHT'; + e_KeyNames[IK_DOWN] := 'DOWN'; + e_KeyNames[IK_INSERT] := 'INSERT'; + e_KeyNames[IK_DELETE] := 'DELETE'; + e_KeyNames[IK_HOME] := 'HOME'; + e_KeyNames[IK_END] := 'END'; + e_KeyNames[IK_PAGEUP] := 'PGUP'; + e_KeyNames[IK_PAGEDN] := 'PGDOWN'; + e_KeyNames[IK_KPINSERT] := 'PAD0'; + e_KeyNames[IK_KPEND] := 'PAD1'; + e_KeyNames[IK_KPDOWN] := 'PAD2'; + e_KeyNames[IK_KPPAGEDN] := 'PAD3'; + e_KeyNames[IK_KPLEFT] := 'PAD4'; + e_KeyNames[IK_KP5] := 'PAD5'; + e_KeyNames[IK_KPRIGHT] := 'PAD6'; + e_KeyNames[IK_KPHOME] := 'PAD7'; + e_KeyNames[IK_KPUP] := 'PAD8'; + e_KeyNames[IK_KPPAGEUP] := 'PAD9'; + e_KeyNames[IK_NUMLOCK] := 'NUM'; + e_KeyNames[IK_KPDIVIDE] := 'PAD/'; + e_KeyNames[IK_KPMULTIPLE] := 'PAD*'; + e_KeyNames[IK_KPMINUS] := 'PAD-'; + e_KeyNames[IK_KPPLUS] := 'PAD+'; + e_KeyNames[IK_KPENTER] := 'PADENTER'; + e_KeyNames[IK_KPDOT] := 'PAD.'; + e_KeyNames[IK_CAPSLOCK] := 'CAPS'; + e_KeyNames[IK_BACKQUOTE] := 'BACKQUOTE'; + e_KeyNames[IK_F1] := 'F1'; + e_KeyNames[IK_F2] := 'F2'; + e_KeyNames[IK_F3] := 'F3'; + e_KeyNames[IK_F4] := 'F4'; + e_KeyNames[IK_F5] := 'F5'; + e_KeyNames[IK_F6] := 'F6'; + e_KeyNames[IK_F7] := 'F7'; + e_KeyNames[IK_F8] := 'F8'; + e_KeyNames[IK_F9] := 'F9'; + e_KeyNames[IK_F10] := 'F10'; + e_KeyNames[IK_F11] := 'F11'; + e_KeyNames[IK_F12] := 'F12'; + e_KeyNames[IK_SHIFT] := 'LSHIFT'; + e_KeyNames[IK_RSHIFT] := 'RSHIFT'; + e_KeyNames[IK_CTRL] := 'LCTRL'; + e_KeyNames[IK_RCTRL] := 'RCTRL'; + e_KeyNames[IK_ALT] := 'LALT'; + e_KeyNames[IK_RALT] := 'RALT'; + e_KeyNames[IK_WIN] := 'LWIN'; + e_KeyNames[IK_RWIN] := 'RWIN'; + e_KeyNames[IK_MENU] := 'MENU'; + e_KeyNames[IK_PRINTSCR] := 'PSCRN'; + e_KeyNames[IK_SCROLLLOCK] := 'SCROLL'; + e_KeyNames[IK_PAUSE] := 'PAUSE'; + e_KeyNames[IK_LBRACKET] := '['; + e_KeyNames[IK_RBRACKET] := ']'; + e_KeyNames[IK_SEMICOLON] := ';'; + e_KeyNames[IK_QUOTE] := ''''; + e_KeyNames[IK_BACKSLASH] := '\'; + e_KeyNames[IK_SLASH] := '/'; + e_KeyNames[IK_COMMA] := ','; + e_KeyNames[IK_DOT] := '.'; + e_KeyNames[IK_MINUS] := '-'; + e_KeyNames[IK_EQUALS] := '='; + + //for i := 0 to IK_LASTKEY do + // e_KeyNames[i] := SDL_GetScancodeName(i); // joysticks for j := 0 to e_MaxJoys-1 do @@ -311,28 +450,28 @@ begin k := JOYK_BEG + j * e_MaxJoyBtns; // buttons for i := 0 to e_MaxJoyBtns-1 do - e_KeyNames[k + i] := Format('JOY%d B%d', [j, i]); + e_KeyNames[k + i] := Format('JOY%dB%d', [j, i]); k := JOYA_BEG + j * e_MaxJoyAxes * 2; // axes for i := 0 to e_MaxJoyAxes-1 do begin - e_KeyNames[k + i*2 ] := Format('JOY%d A%d+', [j, i]); - e_KeyNames[k + i*2 + 1] := Format('JOY%d A%d-', [j, i]); + e_KeyNames[k + i*2 ] := Format('JOY%dA%d+', [j, i]); + e_KeyNames[k + i*2 + 1] := Format('JOY%dA%d-', [j, i]); end; k := JOYH_BEG + j * e_MaxJoyHats * 4; // hats for i := 0 to e_MaxJoyHats-1 do begin - e_KeyNames[k + i*4 ] := Format('JOY%d D%dL', [j, i]); - e_KeyNames[k + i*4 + 1] := Format('JOY%d D%dU', [j, i]); - e_KeyNames[k + i*4 + 2] := Format('JOY%d D%dR', [j, i]); - e_KeyNames[k + i*4 + 3] := Format('JOY%d D%dD', [j, i]); + e_KeyNames[k + i*4 ] := Format('JOY%dD%dL', [j, i]); + e_KeyNames[k + i*4 + 1] := Format('JOY%dD%dU', [j, i]); + e_KeyNames[k + i*4 + 2] := Format('JOY%dD%dR', [j, i]); + e_KeyNames[k + i*4 + 3] := Format('JOY%dD%dD', [j, i]); end; end; // vitrual keys for i := 0 to e_MaxVirtKeys-1 do - e_KeyNames[VIRT_BEG + i] := 'VIRTUAL ' + IntToStr(i); + e_KeyNames[VIRT_BEG + i] := 'VIRTUAL' + IntToStr(i); end; function e_InitInput(): Boolean; @@ -358,6 +497,11 @@ var begin for i := Low(KeyBuffer) to High(KeyBuffer) do KeyBuffer[i] := False; + for i := JOYK_BEG to JOYH_END do + JoyBuffer[i] := False; + for i := Low(VirtBuffer) to High(VirtBuffer) do + VirtBuffer[i] := False; +(*** if (Joysticks = nil) or (e_JoysticksAvailable = 0) then for i := Low(Joysticks) to High(Joysticks) do begin @@ -369,8 +513,7 @@ begin for d := Low(Joysticks[i].HatBuf[j]) to High(Joysticks[i].HatBuf[j]) do Joysticks[i].HatBuf[j, d] := False; end; - for i := Low(VirtBuffer) to High(VirtBuffer) do - VirtBuffer[i] := False; +***) end; { @@ -393,10 +536,13 @@ begin if (Key = IK_INVALID) or (Key = 0) then Exit; if (Key < KBRD_END) then - begin // Keyboard buttons/keys - Result := KeyBuffer[Key]; - end + Result := KeyBuffer[Key] + else if (Key >= JOYK_BEG) and (Key < JOYH_END) then + Result := JoyBuffer[Key] + else if (Key >= VIRT_BEG) and (Key < VIRT_END) then + Result := VirtBuffer[Key - VIRT_BEG] +(*** else if (Key >= JOYK_BEG) and (Key < JOYK_END) then begin // Joystick buttons JoyI := (Key - JOYK_BEG) div e_MaxJoyBtns; @@ -439,9 +585,7 @@ begin Result := Joysticks[JoyI].HatBuf[Key div 4, dir]; end; end - - else if (Key >= VIRT_BEG) and (Key < VIRT_END) then - Result := VirtBuffer[Key - VIRT_BEG] +***) end; procedure e_SetKeyState(key: Word; state: Integer); @@ -451,10 +595,13 @@ begin if (Key = IK_INVALID) or (Key = 0) then Exit; if (Key < KBRD_END) then - begin // Keyboard buttons/keys - keyBuffer[key] := (state <> 0); - end + keyBuffer[key] := (state <> 0) + else if (Key >= JOYK_BEG) and (Key <= JOYH_END) then + JoyBuffer[key] := (state <> 0) + else if (Key >= VIRT_BEG) and (Key <= VIRT_END) then + VirtBuffer[Key - VIRT_BEG] := (state <> 0) +(*** else if (Key >= JOYK_BEG) and (Key < JOYK_END) then begin // Joystick buttons JoyI := (Key - JOYK_BEG) div e_MaxJoyBtns; @@ -491,9 +638,7 @@ begin Joysticks[JoyI].HatBuf[Key div 4, dir] := (state <> 0); end; end - - else if (Key >= VIRT_BEG) and (Key < VIRT_END) then - VirtBuffer[Key - VIRT_BEG] := (state <> 0) +***) end; function e_AnyKeyPressed(): Boolean; @@ -548,22 +693,23 @@ end; function e_JoyButtonToKey(id: Word; btn: Byte): Word; begin Result := 0; - if id >= Length(Joysticks) then Exit; + if id >= e_MaxJoys then Exit; Result := JOYK_BEG + id*e_MaxJoyBtns + btn; end; function e_JoyAxisToKey(id: Word; ax: Byte; dir: Byte): Word; begin Result := 0; - if id >= Length(Joysticks) then Exit; + if id >= e_MaxJoys then Exit; Result := JOYA_BEG + id*e_MaxJoyAxes*2 + ax*2 + dir; end; function e_JoyHatToKey(id: Word; hat: Byte; dir: Byte): Word; begin Result := 0; - if id >= Length(Joysticks) then Exit; + if id >= e_MaxJoys then Exit; Result := JOYH_BEG + id*e_MaxJoyHats*4 + hat*4 + dir; end; + end.