changeset 15003 | d84136589c04 |
parent 14911 | 938e67bc08ac |
child 15006 | f81b46f584c7 |
15002:3ed1cbd31754 | 15003:d84136589c04 |
---|---|
58 procedure ControllerAxisEvent(joy, axis: Byte; value: Integer); |
58 procedure ControllerAxisEvent(joy, axis: Byte; value: Integer); |
59 procedure ControllerHatEvent(joy, hat, value: Byte); |
59 procedure ControllerHatEvent(joy, hat, value: Byte); |
60 procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean); |
60 procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean); |
61 |
61 |
62 implementation |
62 implementation |
63 uses uKeyNames, uConsole, uCommands, uVariables, uConsts, uUtils, uDebug, uPhysFSLayer, uCursor, uScript; |
63 uses uKeyNames, uConsole, uCommands, uVariables, uConsts, uUtils, uDebug, uPhysFSLayer, uCursor; |
64 |
64 |
65 const |
65 const |
66 LSHIFT = $0200; |
66 LSHIFT = $0200; |
67 RSHIFT = $0400; |
67 RSHIFT = $0400; |
68 LALT = $0800; |
68 LALT = $0800; |
249 begin |
249 begin |
250 LocalMessage:= LocalMessage or gmPrecise; |
250 LocalMessage:= LocalMessage or gmPrecise; |
251 updateVolumeDelta(true); |
251 updateVolumeDelta(true); |
252 updateCursorMovementDelta(true, CursorMovementX, CursorMovementX); |
252 updateCursorMovementDelta(true, CursorMovementX, CursorMovementX); |
253 updateCursorMovementDelta(true, CursorMovementY, CursorMovementY); |
253 updateCursorMovementDelta(true, CursorMovementY, CursorMovementY); |
254 ScriptCall('onPreciseLocal'); |
|
255 end; |
254 end; |
256 |
255 |
257 ParseCommand(CurrentBinds.binds[CurrentBinds.indices[code]], Trusted); |
256 ParseCommand(CurrentBinds.binds[CurrentBinds.indices[code]], Trusted); |
258 if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then |
257 if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then |
259 ParseCommand('gencmd R', true) |
258 ParseCommand('gencmd R', true) |