equal
deleted
inserted
replaced
53 leftKey: boolean = false; |
53 leftKey: boolean = false; |
54 |
54 |
55 backspaceKey: boolean = false; |
55 backspaceKey: boolean = false; |
56 spaceKey: boolean = false; |
56 spaceKey: boolean = false; |
57 enterKey: boolean = false; |
57 enterKey: boolean = false; |
58 isAttacking:boolean = false; |
58 |
|
59 isAttacking: boolean = false; |
|
60 isWalking: boolean = false; |
59 |
61 |
60 {$ENDIF} |
62 {$ENDIF} |
61 ControllerNumControllers: Integer; |
63 ControllerNumControllers: Integer; |
62 ControllerEnabled: Integer; |
64 ControllerEnabled: Integer; |
63 ControllerNumAxes: array[0..5] of Integer; |
65 ControllerNumAxes: array[0..5] of Integer; |
134 tkbdn[3]:= ord(rightClick); |
136 tkbdn[3]:= ord(rightClick); |
135 leftClick:= false; |
137 leftClick:= false; |
136 middleClick:= false; |
138 middleClick:= false; |
137 rightClick:= false; |
139 rightClick:= false; |
138 |
140 |
139 //sdl1.3 for these keys is messed up |
141 tkbdn[23]:= ord(upKey); |
140 //tkbdn[MYCONST]:= ord(upKey); |
142 tkbdn[24]:= ord(downKey); |
141 //tkbdn[MYCONST + 1]:= ord(downKey); |
143 tkbdn[25]:= ord(leftKey); |
142 //tkbdn[MYCONST + 2]:= ord(rightKey); |
144 tkbdn[26]:= ord(rightKey); |
143 //tkbdn[MYCONST + 3]:= ord(leftKey); |
|
144 |
145 |
145 tkbdn[ 8]:= ord(backspaceKey); |
146 tkbdn[ 8]:= ord(backspaceKey); |
146 tkbdn[13]:= ord(enterKey); |
147 tkbdn[13]:= ord(enterKey); |
147 tkbdn[32]:= ord(spaceKey); |
148 tkbdn[32]:= ord(spaceKey); |
148 |
149 |
149 upKey:= false; |
150 upKey:= false; |
150 downKey:= false; |
151 downKey:= false; |
151 rightKey:= false; |
152 if isWalking = false then rightKey:= false; |
152 leftKey:= false; |
153 if isWalking = false then leftKey:= false; |
153 |
154 |
154 if isAttacking = false then spaceKey:= false; |
155 if isAttacking = false then spaceKey:= false; |
155 enterKey:= false; |
156 enterKey:= false; |
156 backspaceKey:= false; |
157 backspaceKey:= false; |
157 |
158 |
240 tkbdn[3]:= ord(rightClick); |
241 tkbdn[3]:= ord(rightClick); |
241 leftClick:= false; |
242 leftClick:= false; |
242 middleClick:= false; |
243 middleClick:= false; |
243 rightClick:= false; |
244 rightClick:= false; |
244 |
245 |
245 //sdl1.3 for these keys is messed up |
246 tkbdn[23]:= ord(upKey); |
246 //tkbdn[MYCONST]:= ord(upKey); |
247 tkbdn[24]:= ord(downKey); |
247 //tkbdn[MYCONST + 1]:= ord(downKey); |
248 tkbdn[25]:= ord(leftKey); |
248 //tkbdn[MYCONST + 2]:= ord(rightKey); |
249 tkbdn[26]:= ord(rightKey); |
249 //tkbdn[MYCONST + 3]:= ord(leftKey); |
|
250 |
250 |
251 tkbdn[ 8]:= ord(backspaceKey); |
251 tkbdn[ 8]:= ord(backspaceKey); |
252 tkbdn[13]:= ord(enterKey); |
252 tkbdn[13]:= ord(enterKey); |
253 tkbdn[32]:= ord(spaceKey); |
253 tkbdn[32]:= ord(spaceKey); |
254 |
254 |
255 upKey:= false; |
255 upKey:= false; |
256 downKey:= false; |
256 downKey:= false; |
257 rightKey:= false; |
257 if isWalking = false then rightKey:= false; |
258 leftKey:= false; |
258 if isWalking = false then leftKey:= false; |
259 |
259 |
260 if isAttacking = false then spaceKey:= false; |
260 if isAttacking = false then spaceKey:= false; |
261 enterKey:= false; |
261 enterKey:= false; |
262 backspaceKey:= false; |
262 backspaceKey:= false; |
263 {$ENDIF} |
263 {$ENDIF} |
342 keynames[k]:= 'j' + inttostr(j) + 'b' + inttostr(i); |
342 keynames[k]:= 'j' + inttostr(j) + 'b' + inttostr(i); |
343 inc(k, 1); |
343 inc(k, 1); |
344 end; |
344 end; |
345 end; |
345 end; |
346 {$IFDEF IPHONEOS} |
346 {$IFDEF IPHONEOS} |
347 |
347 DefaultBinds[ 1]:= '/put'; |
348 DefaultBinds[ 3]:= 'ammomenu'; |
348 DefaultBinds[ 3]:= 'ammomenu'; |
349 DefaultBinds[ 8]:= 'hjump'; |
349 DefaultBinds[ 8]:= 'hjump'; |
350 DefaultBinds[ 13]:= 'ljump'; |
350 DefaultBinds[ 13]:= 'ljump'; |
351 DefaultBinds[ 32]:= '+attack'; |
351 DefaultBinds[ 32]:= '+attack'; |
352 |
352 |
|
353 DefaultBinds[ 23]:= '+up'; |
|
354 DefaultBinds[ 24]:= '+down'; |
|
355 DefaultBinds[ 25]:= '+left'; |
|
356 DefaultBinds[ 26]:= '+right'; |
353 {$ENDIF} |
357 {$ENDIF} |
354 |
358 |
355 DefaultBinds[ 27]:= 'quit'; |
359 DefaultBinds[ 27]:= 'quit'; |
356 DefaultBinds[ 96]:= 'history'; |
360 DefaultBinds[ 96]:= 'history'; |
357 DefaultBinds[127]:= 'rotmask'; |
361 DefaultBinds[127]:= 'rotmask'; |