--- a/hedgewars/hwengine.pas	Wed Apr 20 05:26:47 2011 +0200
+++ b/hedgewars/hwengine.pas	Thu Apr 21 07:41:24 2011 +0200
@@ -283,7 +283,7 @@
     else
         begin
         LoadRecordFromFile(recordFileName);
-        perfExt_SaveBeganSynching();
+        uMobile.SaveBeganSynching();
         end;
 
     ScriptOnGameInit;

--- a/hedgewars/uAmmos.pas	Wed Apr 20 05:26:47 2011 +0200
+++ b/hedgewars/uAmmos.pas	Thu Apr 21 07:41:24 2011 +0200
@@ -232,7 +232,7 @@
                 end
             end
     end;
-perfExt_AmmoUpdate;
+uMobile.AmmoUpdate;
 end;
 
 function  HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean;

--- a/hedgewars/uGame.pas	Wed Apr 20 05:26:47 2011 +0200
+++ b/hedgewars/uGame.pas	Thu Apr 21 07:41:24 2011 +0200
@@ -76,7 +76,7 @@
                         GameType:= gmtLocal;
                         AddVisualGear(0, 0, vgtTeamHealthSorter);
                         {$IFDEF IPHONEOS}InitIPC;{$ENDIF}
-                        perfExt_SaveFinishedSynching();
+                        uMobile.SaveFinishedSynching();
                         end;
                end
           else ProcessGears

--- a/hedgewars/uMobile.pas	Wed Apr 20 05:26:47 2011 +0200
+++ b/hedgewars/uMobile.pas	Thu Apr 21 07:41:24 2011 +0200
@@ -35,12 +35,13 @@
 {$ENDIF}
 function  isPhone: Boolean; inline;
 procedure performRumble; inline;
-procedure perfExt_AddProgress; inline;
-procedure perfExt_FinishProgress; inline;
-procedure perfExt_AmmoUpdate; // don't inline
-procedure perfExt_NewTurnBeginning; inline;
-procedure perfExt_SaveBeganSynching; inline;
-procedure perfExt_SaveFinishedSynching; inline;
+
+procedure AddProgress; inline;
+procedure FinishProgress; inline;
+procedure AmmoUpdate; // don't inline
+procedure NewTurnBeginning; inline;
+procedure SaveBeganSynching; inline;
+procedure SaveFinishedSynching; inline;
 
 implementation
 uses uVariables;
@@ -62,21 +63,21 @@
 {$ENDIF}
 end;
 
-procedure perfExt_AddProgress; inline;
+procedure AddProgress; inline;
 begin
 {$IFDEF IPHONEOS}
     startSpinning();
 {$ENDIF}
 end;
 
-procedure perfExt_FinishProgress; inline;
+procedure FinishProgress; inline;
 begin
 {$IFDEF IPHONEOS}
     stopSpinning();
 {$ENDIF}
 end;
 
-procedure perfExt_AmmoUpdate; // don't inline
+procedure AmmoUpdate; // don't inline
 begin
 {$IFDEF IPHONEOS}
     if (CurrentTeam = nil) or
@@ -87,22 +88,22 @@
 {$ENDIF}
 end;
 
-procedure perfExt_NewTurnBeginning; inline;
+procedure NewTurnBeginning; inline;
 begin
 {$IFDEF IPHONEOS}
     clearView();
-    perfExt_AmmoUpdate();
 {$ENDIF}
+    AmmoUpdate();
 end;
 
-procedure perfExt_SaveBeganSynching; inline;
+procedure SaveBeganSynching; inline;
 begin
 {$IFDEF IPHONEOS}
     replayBegan();
 {$ENDIF}
 end;
 
-procedure perfExt_SaveFinishedSynching; inline;
+procedure SaveFinishedSynching; inline;
 begin
 {$IFDEF IPHONEOS}
     replayFinished();

--- a/hedgewars/uStore.pas	Wed Apr 20 05:26:47 2011 +0200
+++ b/hedgewars/uStore.pas	Thu Apr 21 07:41:24 2011 +0200
@@ -672,7 +672,7 @@
         numsquares:= texsurf^.h div squaresize;
         SDL_FreeSurface(texsurf);
 
-        perfExt_AddProgress();
+        uMobile.AddProgress();
     end;
 
     TryDo(ProgrTex <> nil, 'Error - Progress Texure is nil!', true);
@@ -700,7 +700,7 @@
 begin
     WriteLnToConsole('Freeing progress surface... ');
     FreeTexture(ProgrTex);
-    perfExt_FinishProgress();
+    uMobile.FinishProgress();
 end;
 
 function RenderHelpWindow(caption, subcaption, description, extra: ansistring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture;

--- a/hedgewars/uTeams.pas	Wed Apr 20 05:26:47 2011 +0200
+++ b/hedgewars/uTeams.pas	Thu Apr 21 07:41:24 2011 +0200
@@ -272,7 +272,7 @@
     ReadyTimeLeft:= 0
     end;
 
-perfExt_NewTurnBeginning();
+uMobile.NewTurnBeginning();
 ScriptCall('onNewTurn');
 end;