equal
deleted
inserted
replaced
100 |
100 |
101 |
101 |
102 procedure ProcessKbd; |
102 procedure ProcessKbd; |
103 var i, j, k: LongInt; |
103 var i, j, k: LongInt; |
104 s: shortstring; |
104 s: shortstring; |
105 pkbd: PByteArray; |
|
106 Trusted: boolean; |
105 Trusted: boolean; |
|
106 {$IFNDEF IPHONEOS}pkbd: PByteArray;{$ENDIF} |
107 begin |
107 begin |
108 hideAmmoMenu:= false; |
108 hideAmmoMenu:= false; |
109 Trusted:= (CurrentTeam <> nil) |
109 Trusted:= (CurrentTeam <> nil) |
110 and (not CurrentTeam^.ExtDriven) |
110 and (not CurrentTeam^.ExtDriven) |
111 and (CurrentHedgehog^.BotLevel = 0); |
111 and (CurrentHedgehog^.BotLevel = 0); |
113 // move cursor/camera |
113 // move cursor/camera |
114 // TODO: Scale on screen dimensions and/or axis value (game controller)? |
114 // TODO: Scale on screen dimensions and/or axis value (game controller)? |
115 movecursor(5 * CursorMovementX, 5 * CursorMovementY); |
115 movecursor(5 * CursorMovementX, 5 * CursorMovementY); |
116 |
116 |
117 k:= SDL_GetMouseState(nil, nil); |
117 k:= SDL_GetMouseState(nil, nil); |
|
118 |
|
119 {$IFDEF IPHONEOS} |
|
120 SDL_GetKeyState(@j); |
|
121 {$ELSE} |
118 pkbd:= SDL_GetKeyState(@j); |
122 pkbd:= SDL_GetKeyState(@j); |
119 |
|
120 {$IFNDEF IPHONEOS} |
|
121 for i:= 6 to pred(j) do // first 6 will be overwritten |
123 for i:= 6 to pred(j) do // first 6 will be overwritten |
122 tkbdn[i]:= pkbd^[i]; |
124 tkbdn[i]:= pkbd^[i]; |
123 {$ENDIF} |
125 {$ENDIF} |
124 |
126 |
125 // mouse buttons |
127 // mouse buttons |
185 end |
187 end |
186 end; |
188 end; |
187 |
189 |
188 procedure ResetKbd; |
190 procedure ResetKbd; |
189 var i, j, k, t: LongInt; |
191 var i, j, k, t: LongInt; |
190 pkbd: PByteArray; |
192 {$IFNDEF IPHONEOS}pkbd: PByteArray;{$ENDIF} |
191 begin |
193 begin |
192 |
194 |
193 k:= SDL_GetMouseState(nil, nil); |
195 k:= SDL_GetMouseState(nil, nil); |
194 pkbd:= SDL_GetKeyState(@j); |
196 {$IFNDEF IPHONEOS}pkbd:={$ENDIF}SDL_GetKeyState(@j); |
195 |
197 |
196 TryDo(j < cKeyMaxIndex, 'SDL keys number is more than expected (' + inttostr(j) + ')', true); |
198 TryDo(j < cKeyMaxIndex, 'SDL keys number is more than expected (' + inttostr(j) + ')', true); |
197 |
199 |
198 {$IFNDEF IPHONEOS} |
200 {$IFNDEF IPHONEOS} |
199 for i:= 1 to pred(j) do |
201 for i:= 1 to pred(j) do |