hedgewars/uLand.pas
changeset 3038 4e48c276a468
parent 3017 4a52e0705011
child 3045 41732f986b4f
--- a/hedgewars/uLand.pas	Sun Mar 21 18:42:34 2010 +0000
+++ b/hedgewars/uLand.pas	Sun Mar 21 19:02:03 2010 +0000
@@ -41,8 +41,8 @@
     playHeight, playWidth, leftX, rightX, topY, MaxHedgehogs: Longword;  // idea is that a template can specify height/width.  Or, a map, a height/width by the dimensions of the image.  If the map has pixels near top of image, it triggers border.
     LandBackSurface: PSDL_Surface;
 
-procedure init_uLand;
-procedure free_uLand;
+procedure initModule;
+procedure freeModule;
 procedure GenMap;
 function  GenPreview: TPreview;
 procedure CheckLandDigest(s: shortstring);
@@ -342,7 +342,7 @@
     end;
     SDL_FreeSurface(tmpsurf);
 
-    // freed in free_uLand() below
+    // freed in freeModule() below
     LandBackSurface:= LoadImage(Pathz[ptCurrTheme] + '/LandBackTex', ifIgnoreCaps or ifTransparent);
 
     tmpsurf:= LoadImage(Pathz[ptCurrTheme] + '/Border', ifCritical or ifIgnoreCaps or ifTransparent);
@@ -854,12 +854,12 @@
 GenPreview:= Preview
 end;
 
-procedure init_uLand;
+procedure initModule;
 begin
     LandBackSurface:= nil;
 end;
 
-procedure free_uLand;
+procedure freeModule;
 begin
     FillChar(LandPixels, sizeof(TLandArray), 0);
     if LandBackSurface <> nil then