hedgewars/hwengine.dpr
changeset 949 866729775535
parent 947 4e0c3ad89483
child 956 19003f7fc174
--- a/hedgewars/hwengine.dpr	Sat May 24 22:28:40 2008 +0000
+++ b/hedgewars/hwengine.dpr	Sun May 25 14:09:44 2008 +0000
@@ -85,6 +85,7 @@
               end;
      gsStart: begin
               InitPlaylistChunk(GetRandom(High(LongWord)));
+              AddClouds;
               AssignHHCoords;
               AddMiscGears;
               StoreLoad;
@@ -184,7 +185,7 @@
 {$ENDIF}
 
 case ParamCount of
-13: begin
+14: begin
      val(ParamStr(2), cScreenWidth);
      val(ParamStr(3), cScreenHeight);
      cBitsStr:= ParamStr(4);
@@ -198,9 +199,9 @@
      PathPrefix:= ParamStr(11);
      cShowFPS:= ParamStr(12) = '1';
      cAltDamage:= ParamStr(13) = '1';
+     UserNick:= DecodeBase64(ParamStr(14));
      for p:= Succ(Low(TPathType)) to High(TPathType) do
-         if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
-     AddClouds
+         if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]
      end;
   3: begin
      val(ParamStr(2), ipcPort);