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 {$ENDIF} |
33 {$ENDIF} |
34 function isPhone: Boolean; |
34 function isPhone: Boolean; inline; |
35 procedure doRumble; |
35 procedure doRumble; inline; |
36 procedure perfExt_AddProgress; |
36 procedure perfExt_AddProgress; inline; |
37 procedure perfExt_FinishProgress; |
37 procedure perfExt_FinishProgress; inline; |
38 procedure perfExt_AmmoUpdate; |
38 procedure perfExt_AmmoUpdate; // don't inline |
39 procedure perfExt_NewTurnBeginning; |
39 procedure perfExt_NewTurnBeginning; inline; |
40 procedure perfExt_SaveBeganSynching; |
40 procedure perfExt_SaveBeganSynching; inline; |
41 procedure perfExt_SaveFinishedSynching; |
41 procedure perfExt_SaveFinishedSynching; inline; |
42 |
42 |
43 implementation |
43 implementation |
44 uses uTeams; |
44 uses uTeams; |
45 |
45 |
46 function isPhone: Boolean; |
46 function isPhone: Boolean; inline; |
47 begin |
47 begin |
48 {$IFDEF IPHONEOS} |
48 {$IFDEF IPHONEOS} |
49 exit(isApplePhone()); |
49 exit(isApplePhone()); |
50 {$ENDIF} |
50 {$ENDIF} |
51 exit(false); |
51 exit(false); |
52 end; |
52 end; |
53 |
53 |
54 procedure doRumble; |
54 procedure doRumble; inline; |
55 begin |
55 begin |
56 // fill me! |
56 // fill me! |
57 end; |
57 end; |
58 |
58 |
59 procedure perfExt_AddProgress; |
59 procedure perfExt_AddProgress; inline; |
60 begin |
60 begin |
61 {$IFDEF IPHONEOS} |
61 {$IFDEF IPHONEOS} |
62 startSpinning(); |
62 startSpinning(); |
63 {$ENDIF} |
63 {$ENDIF} |
64 end; |
64 end; |
65 |
65 |
66 procedure perfExt_FinishProgress; |
66 procedure perfExt_FinishProgress; inline; |
67 begin |
67 begin |
68 {$IFDEF IPHONEOS} |
68 {$IFDEF IPHONEOS} |
69 stopSpinning(); |
69 stopSpinning(); |
70 {$ENDIF} |
70 {$ENDIF} |
71 end; |
71 end; |
72 |
72 |
73 procedure perfExt_AmmoUpdate; |
73 procedure perfExt_AmmoUpdate; // don't inline |
74 begin |
74 begin |
75 {$IFDEF IPHONEOS} |
75 {$IFDEF IPHONEOS} |
76 if (CurrentTeam^.ExtDriven) or (CurrentTeam^.Hedgehogs[0].BotLevel <> 0) then |
76 if (CurrentTeam^.ExtDriven) or (CurrentTeam^.Hedgehogs[0].BotLevel <> 0) then |
77 exit(); // the other way around throws a compiler error |
77 exit(); // the other way around throws a compiler error |
78 updateVisualsNewTurn(); |
78 updateVisualsNewTurn(); |
79 {$ENDIF} |
79 {$ENDIF} |
80 end; |
80 end; |
81 |
81 |
82 procedure perfExt_NewTurnBeginning; |
82 procedure perfExt_NewTurnBeginning; inline; |
83 begin |
83 begin |
84 {$IFDEF IPHONEOS} |
84 {$IFDEF IPHONEOS} |
85 clearView(); |
85 clearView(); |
86 updateVisualsNewTurn(); |
86 perfExt_AmmoUpdate(); |
87 {$ENDIF} |
87 {$ENDIF} |
88 end; |
88 end; |
89 |
89 |
90 procedure perfExt_SaveBeganSynching; |
90 procedure perfExt_SaveBeganSynching; inline; |
91 begin |
91 begin |
92 {$IFDEF IPHONEOS} |
92 {$IFDEF IPHONEOS} |
93 replayBegan(); |
93 replayBegan(); |
94 {$ENDIF} |
94 {$ENDIF} |
95 end; |
95 end; |
96 |
96 |
97 procedure perfExt_SaveFinishedSynching; |
97 procedure perfExt_SaveFinishedSynching; inline; |
98 begin |
98 begin |
99 {$IFDEF IPHONEOS} |
99 {$IFDEF IPHONEOS} |
100 replayFinished(); |
100 replayFinished(); |
101 {$ENDIF} |
101 {$ENDIF} |
102 end; |
102 end; |