equal
deleted
inserted
replaced
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; |
35 procedure doRumble; |
35 procedure doRumble; |
36 procedure doSomethingWhen_AddProgress; |
36 procedure perfExt_AddProgress; |
37 procedure doSomethingWhen_FinishProgress; |
37 procedure perfExt_FinishProgress; |
38 procedure doSomethingWhen_NewTurnBeginning; |
38 procedure perfExt_AmmoUpdate; |
39 procedure doSomethingWhen_SaveBeganSynching; |
39 procedure perfExt_NewTurnBeginning; |
40 procedure doSomethingWhen_SaveFinishedSynching; |
40 procedure perfExt_SaveBeganSynching; |
|
41 procedure perfExt_SaveFinishedSynching; |
41 |
42 |
42 implementation |
43 implementation |
43 |
44 |
44 function isPhone: Boolean; |
45 function isPhone: Boolean; |
45 begin |
46 begin |
52 procedure doRumble; |
53 procedure doRumble; |
53 begin |
54 begin |
54 // fill me! |
55 // fill me! |
55 end; |
56 end; |
56 |
57 |
57 procedure doSomethingWhen_AddProgress; |
58 procedure perfExt_AddProgress; |
58 begin |
59 begin |
59 {$IFDEF IPHONEOS} |
60 {$IFDEF IPHONEOS} |
60 startSpinning(); |
61 startSpinning(); |
61 {$ENDIF} |
62 {$ENDIF} |
62 end; |
63 end; |
63 |
64 |
64 procedure doSomethingWhen_FinishProgress; |
65 procedure perfExt_FinishProgress; |
65 begin |
66 begin |
66 {$IFDEF IPHONEOS} |
67 {$IFDEF IPHONEOS} |
67 stopSpinning(); |
68 stopSpinning(); |
68 {$ENDIF} |
69 {$ENDIF} |
69 end; |
70 end; |
70 |
71 |
71 procedure doSomethingWhen_NewTurnBeginning; |
72 procedure perfExt_AmmoUpdate; |
|
73 begin |
|
74 {$IFDEF IPHONEOS} |
|
75 updateVisualsNewTurn(); |
|
76 {$ENDIF} |
|
77 end; |
|
78 |
|
79 procedure perfExt_NewTurnBeginning; |
72 begin |
80 begin |
73 {$IFDEF IPHONEOS} |
81 {$IFDEF IPHONEOS} |
74 clearView(); |
82 clearView(); |
75 updateVisualsNewTurn(); |
83 updateVisualsNewTurn(); |
76 {$ENDIF} |
84 {$ENDIF} |
77 end; |
85 end; |
78 |
86 |
79 procedure doSomethingWhen_SaveBeganSynching; |
87 procedure perfExt_SaveBeganSynching; |
80 begin |
88 begin |
81 {$IFDEF IPHONEOS} |
89 {$IFDEF IPHONEOS} |
82 replayBegan(); |
90 replayBegan(); |
83 {$ENDIF} |
91 {$ENDIF} |
84 end; |
92 end; |
85 |
93 |
86 procedure doSomethingWhen_SaveFinishedSynching; |
94 procedure perfExt_SaveFinishedSynching; |
87 begin |
95 begin |
88 {$IFDEF IPHONEOS} |
96 {$IFDEF IPHONEOS} |
89 replayFinished(); |
97 replayFinished(); |
90 {$ENDIF} |
98 {$ENDIF} |
91 end; |
99 end; |