hedgewars/uMobile.pas
changeset 3935 5ca27a0e9a63
parent 3928 2560731c860d
child 3940 cc29628976cc
--- a/hedgewars/uMobile.pas	Sat Oct 09 05:57:46 2010 +0200
+++ b/hedgewars/uMobile.pas	Sat Oct 09 18:00:53 2010 +0200
@@ -33,11 +33,12 @@
 {$ENDIF}
 function  isPhone: Boolean;
 procedure doRumble;
-procedure doSomethingWhen_AddProgress;
-procedure doSomethingWhen_FinishProgress;
-procedure doSomethingWhen_NewTurnBeginning;
-procedure doSomethingWhen_SaveBeganSynching;
-procedure doSomethingWhen_SaveFinishedSynching;
+procedure perfExt_AddProgress;
+procedure perfExt_FinishProgress;
+procedure perfExt_AmmoUpdate;
+procedure perfExt_NewTurnBeginning;
+procedure perfExt_SaveBeganSynching;
+procedure perfExt_SaveFinishedSynching;
 
 implementation
 
@@ -54,21 +55,28 @@
     // fill me!
 end;
 
-procedure doSomethingWhen_AddProgress;
+procedure perfExt_AddProgress;
 begin
 {$IFDEF IPHONEOS}
     startSpinning();
 {$ENDIF}
 end;
 
-procedure doSomethingWhen_FinishProgress;
+procedure perfExt_FinishProgress;
 begin
 {$IFDEF IPHONEOS}
     stopSpinning();
 {$ENDIF}
 end;
 
-procedure doSomethingWhen_NewTurnBeginning;
+procedure perfExt_AmmoUpdate;
+begin
+{$IFDEF IPHONEOS}
+    updateVisualsNewTurn();
+{$ENDIF}
+end;
+
+procedure perfExt_NewTurnBeginning;
 begin
 {$IFDEF IPHONEOS}
     clearView();
@@ -76,14 +84,14 @@
 {$ENDIF}
 end;
 
-procedure doSomethingWhen_SaveBeganSynching;
+procedure perfExt_SaveBeganSynching;
 begin
 {$IFDEF IPHONEOS}
     replayBegan();
 {$ENDIF}
 end;
 
-procedure doSomethingWhen_SaveFinishedSynching;
+procedure perfExt_SaveFinishedSynching;
 begin
 {$IFDEF IPHONEOS}
     replayFinished();