equal
deleted
inserted
replaced
114 end; |
114 end; |
115 end; |
115 end; |
116 |
116 |
117 SDL_GL_SwapBuffers(); |
117 SDL_GL_SwapBuffers(); |
118 {$IFNDEF IPHONEOS} |
118 {$IFNDEF IPHONEOS} |
119 //not going to make captures on the iPhone |
119 // not going to make captures on the iPhone |
120 if flagMakeCapture then |
120 if flagMakeCapture then |
121 begin |
121 begin |
122 flagMakeCapture:= false; |
122 flagMakeCapture:= false; |
123 s:= 'hw_' + cSeed + '_' + inttostr(GameTicks) + '.tga'; |
123 s:= 'hw_' + cSeed + '_' + inttostr(GameTicks) + '.tga'; |
124 WriteLnToConsole('Saving ' + s); |
124 WriteLnToConsole('Saving ' + s); |
314 axis 1 = up and down; |
314 axis 1 = up and down; |
315 axis 2 = back and forth; *} |
315 axis 2 = back and forth; *} |
316 |
316 |
317 WriteLnToConsole('********************************************* accelerometer'); |
317 WriteLnToConsole('********************************************* accelerometer'); |
318 |
318 |
319 tiltValue:= SDL_JoystickGetAxis(uKeys.theJoystick,≤ 0); |
319 tiltValue:= SDL_JoystickGetAxis(uKeys.theJoystick, 0); |
320 |
320 |
321 if (CurrentTeam <> nil) then |
321 if (CurrentTeam <> nil) then |
322 begin |
322 begin |
323 {$IFDEF DEBUGFILE} |
323 {$IFDEF DEBUGFILE} |
324 AddFileLog('Joystick: 0; Axis: 0; Value: ' + inttostr(tiltValue)); |
324 AddFileLog('Joystick: 0; Axis: 0; Value: ' + inttostr(tiltValue)); |
539 {$IFDEF DEBUGFILE} |
539 {$IFDEF DEBUGFILE} |
540 AddFileLog('Prefix: "' + PathPrefix +'"'); |
540 AddFileLog('Prefix: "' + PathPrefix +'"'); |
541 for i:= 0 to ParamCount do |
541 for i:= 0 to ParamCount do |
542 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
542 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
543 {$IFDEF IPHONEOS} |
543 {$IFDEF IPHONEOS} |
544 WriteLnToConsole('Saving debug file at: ' + get_documents_path()); |
544 WriteLnToConsole('Saving debug file at: ' + get_documents_path()); |
545 {$ENDIF} |
545 {$ENDIF} |
546 {$ENDIF} |
546 {$ENDIF} |
547 end; |
547 end; |
548 |
548 |
549 ///////////////////////// |
549 ///////////////////////// |
550 procedure ShowMainWindow; |
550 procedure ShowMainWindow; |
551 begin |
551 begin |
552 if cFullScreen then ParseCommand('fullscr 1', true) |
552 if cFullScreen then ParseCommand('fullscr 1', true) |
553 else ParseCommand('fullscr 0', true); |
553 else ParseCommand('fullscr 0', true); |
554 SDL_ShowCursor(0) |
554 SDL_ShowCursor(0) |
555 end; |
555 end; |
556 |
556 |
557 /////////////// |
557 /////////////// |
558 procedure Game; |
558 procedure Game; |
559 var s: shortstring; |
559 var s: shortstring; |