28 procedure stopSpinning; cdecl; external;

    28 procedure stopSpinning; cdecl; external;

    29 procedure replayBegan; cdecl; external;

    29 procedure replayBegan; cdecl; external;

    30 procedure replayFinished; cdecl; external;

    30 procedure replayFinished; cdecl; external;

    31 procedure updateVisualsNewTurn; cdecl; external;

    31 procedure updateVisualsNewTurn; cdecl; external;

    32 function  isApplePhone: Boolean; cdecl; external;

    32 function  isApplePhone: Boolean; cdecl; external;

    33 procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external;

    34 procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external;

    34 {$ENDIF}

    35 {$ENDIF}

    35 function  isPhone: Boolean; inline;

    36 function  isPhone: Boolean; inline;

    36 procedure performRumble; inline;

    38 procedure performRumble; inline;

    37 procedure perfExt_AddProgress; inline;

    39 procedure perfExt_AddProgress; inline;

    38 procedure perfExt_FinishProgress; inline;

    40 procedure perfExt_FinishProgress; inline;

    39 procedure perfExt_AmmoUpdate; // don't inline

    41 procedure perfExt_AmmoUpdate; // don't inline

    40 procedure perfExt_NewTurnBeginning; inline;

    42 procedure perfExt_NewTurnBeginning; inline;

    46 

    48 

    47 function isPhone: Boolean; inline;

    49 function isPhone: Boolean; inline;

    48 begin

    50 begin

    49 {$IFDEF IPHONEOS}

    51 {$IFDEF IPHONEOS}

    50     exit(isApplePhone());

    52     exit(isApplePhone());

    51 {$ENDIF}

    61 {$ENDIF}

    52     exit(false);

    62     exit(false);

    53 end;

    63 end;

    54 

    64 

    55 procedure performRumble; inline;

    65 procedure performRumble; inline;