29 procedure replayBegan; cdecl; external; |
29 procedure replayBegan; cdecl; external; |
30 procedure replayFinished; cdecl; external; |
30 procedure replayFinished; cdecl; external; |
31 procedure setGameRunning(arg: boolean); cdecl; external; |
31 procedure setGameRunning(arg: boolean); cdecl; external; |
32 procedure updateVisualsNewTurn; cdecl; external; |
32 procedure updateVisualsNewTurn; cdecl; external; |
33 function isApplePhone: Boolean; cdecl; external; |
33 function isApplePhone: Boolean; cdecl; external; |
34 function isAppleDeviceMuted: Boolean; cdecl; external; |
|
35 procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external; |
34 procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external; |
36 {$ENDIF} |
35 {$ENDIF} |
37 function isPhone: Boolean; inline; |
36 function isPhone: Boolean; inline; |
38 function isDeviceMute: Boolean; inline; |
|
39 procedure performRumble; inline; |
37 procedure performRumble; inline; |
40 procedure perfExt_AddProgress; inline; |
38 procedure perfExt_AddProgress; inline; |
41 procedure perfExt_FinishProgress; inline; |
39 procedure perfExt_FinishProgress; inline; |
42 procedure perfExt_AmmoUpdate; // don't inline |
40 procedure perfExt_AmmoUpdate; // don't inline |
43 procedure perfExt_NewTurnBeginning; inline; |
41 procedure perfExt_NewTurnBeginning; inline; |
45 procedure perfExt_SaveFinishedSynching; inline; |
43 procedure perfExt_SaveFinishedSynching; inline; |
46 |
44 |
47 implementation |
45 implementation |
48 uses uVariables; |
46 uses uVariables; |
49 |
47 |
|
48 const kSystemSoundID_Vibrate = $00000FFF; |
|
49 |
50 function isPhone: Boolean; inline; |
50 function isPhone: Boolean; inline; |
51 begin |
51 begin |
52 {$IFDEF IPHONEOS} |
52 {$IFDEF IPHONEOS} |
53 exit(isApplePhone()); |
53 exit(isApplePhone()); |
54 {$ENDIF} |
54 {$ENDIF} |
55 exit(false); |
55 exit(false); |
56 end; |
56 end; |
57 |
57 |
58 function isDeviceMute: Boolean; inline; |
|
59 begin |
|
60 {$IFDEF IPHONEOS} |
|
61 // exit(isAppleDeviceMuted()); |
|
62 {$ENDIF} |
|
63 exit(false); |
|
64 end; |
|
65 |
|
66 procedure performRumble; inline; |
58 procedure performRumble; inline; |
67 begin |
59 begin |
68 {$IFDEF IPHONEOS} |
60 {$IFDEF IPHONEOS} |
69 // kSystemSoundID_Vibrate = $00000FFF |
61 AudioServicesPlaySystemSound(kSystemSoundID_Vibrate); |
70 AudioServicesPlaySystemSound($00000FFF); |
|
71 {$ENDIF} |
62 {$ENDIF} |
72 end; |
63 end; |
73 |
64 |
74 procedure perfExt_AddProgress; inline; |
65 procedure perfExt_AddProgress; inline; |
75 begin |
66 begin |