equal
deleted
inserted
replaced
77 tabKey: boolean; |
77 tabKey: boolean; |
78 |
78 |
79 chatAction: boolean; |
79 chatAction: boolean; |
80 pauseAction: boolean; |
80 pauseAction: boolean; |
81 switchAction: boolean; |
81 switchAction: boolean; |
82 |
|
83 theJoystick: PSDL_Joystick; |
|
84 |
82 |
85 cursorUp: boolean; |
83 cursorUp: boolean; |
86 cursorDown: boolean; |
84 cursorDown: boolean; |
87 cursorLeft: boolean; |
85 cursorLeft: boolean; |
88 cursorRight: boolean; |
86 cursorRight: boolean; |
371 CurrentBinds:= DefaultBinds; |
369 CurrentBinds:= DefaultBinds; |
372 end; |
370 end; |
373 |
371 |
374 {$IFDEF IPHONEOS} |
372 {$IFDEF IPHONEOS} |
375 procedure setiPhoneBinds; |
373 procedure setiPhoneBinds; |
376 // set to false the keys that only need one stoke |
374 begin |
377 begin |
375 tkbdn[ 1]:= ord(leftClick); |
378 tkbdn[1]:= ord(leftClick); |
376 tkbdn[ 2]:= ord(middleClick); |
379 tkbdn[2]:= ord(middleClick); |
377 tkbdn[ 3]:= ord(rightClick); |
380 tkbdn[3]:= ord(rightClick); |
|
381 |
378 |
382 tkbdn[23]:= ord(upKey); |
379 tkbdn[23]:= ord(upKey); |
383 tkbdn[24]:= ord(downKey); |
380 tkbdn[24]:= ord(downKey); |
384 tkbdn[25]:= ord(leftKey); |
381 tkbdn[25]:= ord(leftKey); |
385 tkbdn[26]:= ord(rightKey); |
382 tkbdn[26]:= ord(rightKey); |
396 tkbdn[66]:= ord(cursorUp); |
393 tkbdn[66]:= ord(cursorUp); |
397 tkbdn[67]:= ord(cursorDown); |
394 tkbdn[67]:= ord(cursorDown); |
398 tkbdn[68]:= ord(cursorLeft); |
395 tkbdn[68]:= ord(cursorLeft); |
399 tkbdn[69]:= ord(cursorRight); |
396 tkbdn[69]:= ord(cursorRight); |
400 |
397 |
|
398 // set to false the keys that only need one stoke |
401 leftClick:= false; |
399 leftClick:= false; |
402 middleClick:= false; |
400 middleClick:= false; |
403 rightClick:= false; |
401 rightClick:= false; |
404 |
402 |
405 tabKey:= false; |
403 tabKey:= false; |
476 // enable event generation/controller updating |
474 // enable event generation/controller updating |
477 SDL_JoystickEventState(1); |
475 SDL_JoystickEventState(1); |
478 end |
476 end |
479 else |
477 else |
480 WriteLnToConsole('Not using any game controller'); |
478 WriteLnToConsole('Not using any game controller'); |
481 {$IFDEF IPHONEOS} |
|
482 theJoystick:= Controller[0]; |
|
483 {$ENDIF} |
|
484 end; |
479 end; |
485 |
480 |
486 procedure ControllerClose; |
481 procedure ControllerClose; |
487 var j: Integer; |
482 var j: Integer; |
488 begin |
483 begin |