| changeset 14897 | 6a928999fefd |
| parent 14896 | 63357ed39886 |
| child 14911 | 938e67bc08ac |
| 14896:63357ed39886 | 14897:6a928999fefd |
|---|---|
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; |
63 uses uKeyNames, uConsole, uCommands, uVariables, uConsts, uUtils, uDebug, uPhysFSLayer, uCursor, uScript; |
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'); |
|
254 end; |
255 end; |
255 |
256 |
256 ParseCommand(CurrentBinds.binds[CurrentBinds.indices[code]], Trusted); |
257 ParseCommand(CurrentBinds.binds[CurrentBinds.indices[code]], Trusted); |
257 if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then |
258 if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then |
258 ParseCommand('gencmd R', true) |
259 ParseCommand('gencmd R', true) |