39 procedure perfExt_NewTurnBeginning;

    39 procedure perfExt_NewTurnBeginning;

    40 procedure perfExt_SaveBeganSynching;

    40 procedure perfExt_SaveBeganSynching;

    41 procedure perfExt_SaveFinishedSynching;

    41 procedure perfExt_SaveFinishedSynching;

    42 

    42 

    43 implementation

    43 implementation

    44 

    45 

    45 function isPhone: Boolean;

    46 function isPhone: Boolean;

    46 begin

    47 begin

    47 {$IFDEF IPHONEOS}

    48 {$IFDEF IPHONEOS}

    48     exit(isApplePhone());

    49     exit(isApplePhone());

    70 end;

    71 end;

    71 

    72 

    72 procedure perfExt_AmmoUpdate;

    73 procedure perfExt_AmmoUpdate;

    73 begin

    74 begin

    74 {$IFDEF IPHONEOS}

    75 {$IFDEF IPHONEOS}

    75     updateVisualsNewTurn();

    78     updateVisualsNewTurn();

    76 {$ENDIF}

    79 {$ENDIF}

    77 end;

    80 end;

    78 

    81 

    79 procedure perfExt_NewTurnBeginning;

    82 procedure perfExt_NewTurnBeginning;