22 interface |
22 interface |
23 |
23 |
24 {$IFDEF IPHONEOS} |
24 {$IFDEF IPHONEOS} |
25 (* iOS calls written in ObjcExports.m *) |
25 (* iOS calls written in ObjcExports.m *) |
26 procedure clearView; cdecl; external; |
26 procedure clearView; cdecl; external; |
27 procedure startSpinning; cdecl; external; |
27 procedure startSpinningProgress; cdecl; external; |
28 procedure stopSpinning; cdecl; external; |
28 procedure stopSpinningProgress; cdecl; external; |
29 procedure replayBegan; cdecl; external; |
29 procedure saveBeganSynching; cdecl; external; |
30 procedure replayFinished; cdecl; external; |
30 procedure saveFinishedSynching; 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 procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external; |
34 procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external; |
35 {$ENDIF} |
35 {$ENDIF} |
36 function isPhone: Boolean; inline; |
36 function isPhone: Boolean; inline; |
37 procedure performRumble; inline; |
37 procedure performRumble; inline; |
38 |
38 |
39 procedure AddProgress; inline; |
39 procedure GameLoading; inline; |
40 procedure FinishProgress; inline; |
40 procedure GameLoaded; inline; |
41 procedure AmmoUpdate; // don't inline |
41 procedure AmmoUpdate; // don't inline |
42 procedure NewTurnBeginning; inline; |
42 procedure NewTurnBeginning; inline; |
43 procedure SaveBeganSynching; inline; |
43 procedure SaveBegan; inline; |
44 procedure SaveFinishedSynching; inline; |
44 procedure SaveFinished; inline; |
45 |
45 |
46 implementation |
46 implementation |
47 uses uVariables; |
47 uses uVariables; |
48 |
48 |
49 function isPhone: Boolean; inline; |
49 function isPhone: Boolean; inline; |
60 {$IFDEF IPHONEOS} |
60 {$IFDEF IPHONEOS} |
61 AudioServicesPlaySystemSound(kSystemSoundID_Vibrate); |
61 AudioServicesPlaySystemSound(kSystemSoundID_Vibrate); |
62 {$ENDIF} |
62 {$ENDIF} |
63 end; |
63 end; |
64 |
64 |
65 procedure AddProgress; inline; |
65 procedure GameLoading; inline; |
66 begin |
66 begin |
67 {$IFDEF IPHONEOS} |
67 {$IFDEF IPHONEOS} |
68 startSpinning(); |
68 startSpinningProgress(); |
69 {$ENDIF} |
69 {$ENDIF} |
70 end; |
70 end; |
71 |
71 |
72 procedure FinishProgress; inline; |
72 procedure GameLoaded; inline; |
73 begin |
73 begin |
74 {$IFDEF IPHONEOS} |
74 {$IFDEF IPHONEOS} |
75 stopSpinning(); |
75 stopSpinningProgress(); |
76 {$ENDIF} |
76 {$ENDIF} |
77 end; |
77 end; |
78 |
78 |
79 procedure AmmoUpdate; // don't inline |
79 procedure AmmoUpdate; // don't inline |
80 begin |
80 begin |