equal
deleted
inserted
replaced
503 end; |
503 end; |
504 Rewrite(f); |
504 Rewrite(f); |
505 {$I+} |
505 {$I+} |
506 {$ENDIF} |
506 {$ENDIF} |
507 |
507 |
|
508 //mobile stuff |
|
509 mobileRecord.getScreenDPI:= @getScreenDPI; //TODO: define external function. |
|
510 {$IFDEF IPHONEOS} |
|
511 mobileRecord.PerformRumble:= @AudioServicesPlaySystemSound; |
|
512 mobileRecord.GameLoading:= @startLoadingIndicator; |
|
513 mobileRecord.GameLoaded:= @stopLoadingIndicator; |
|
514 mobileRecord.SaveLoadingEnded:= @saveFinishedSynching; |
|
515 {$ELSE} |
|
516 mobileRecord.PerformRumble:= nil; |
|
517 mobileRecord.GameLoading:= nil; |
|
518 mobileRecord.GameLoaded:= nil; |
|
519 mobileRecord.SaveLoadingEnded:= nil; |
|
520 {$ENDIF} |
|
521 |
508 end; |
522 end; |
509 |
523 |
510 procedure freeModule; |
524 procedure freeModule; |
511 begin |
525 begin |
512 {$IFDEF DEBUGFILE} |
526 {$IFDEF DEBUGFILE} |