hedgewars/hwengine.dpr
changeset 1128 9b3f42bf4eef
parent 1127 7e1b94a0fc1f
child 1524 5a652a465559
equal deleted inserted replaced
1127:7e1b94a0fc1f 1128:9b3f42bf4eef
   182 for i:= 0 to ParamCount do
   182 for i:= 0 to ParamCount do
   183     AddFileLog(inttostr(i) + ': ' + ParamStr(i));
   183     AddFileLog(inttostr(i) + ': ' + ParamStr(i));
   184 {$ENDIF}
   184 {$ENDIF}
   185 
   185 
   186 case ParamCount of
   186 case ParamCount of
   187 14: begin
   187 15: begin
   188      val(ParamStr(2), cScreenWidth);
   188      val(ParamStr(2), cScreenWidth);
   189      val(ParamStr(3), cScreenHeight);
   189      val(ParamStr(3), cScreenHeight);
   190      cInitWidth:= cScreenWidth;
   190      cInitWidth:= cScreenWidth;
   191      cInitHeight:= cScreenHeight;
   191      cInitHeight:= cScreenHeight;
   192      cBitsStr:= ParamStr(4);
   192      cBitsStr:= ParamStr(4);
   199      val(ParamStr(10), cTimerInterval);
   199      val(ParamStr(10), cTimerInterval);
   200      PathPrefix:= ParamStr(11);
   200      PathPrefix:= ParamStr(11);
   201      cShowFPS:= ParamStr(12) = '1';
   201      cShowFPS:= ParamStr(12) = '1';
   202      cAltDamage:= ParamStr(13) = '1';
   202      cAltDamage:= ParamStr(13) = '1';
   203      UserNick:= DecodeBase64(ParamStr(14));
   203      UserNick:= DecodeBase64(ParamStr(14));
       
   204      isMusicEnabled:= ParamStr(15) = '1';
   204      for p:= Succ(Low(TPathType)) to High(TPathType) do
   205      for p:= Succ(Low(TPathType)) to High(TPathType) do
   205          if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]
   206          if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]
   206      end;
   207      end;
   207   3: begin
   208   3: begin
   208      val(ParamStr(2), ipcPort);
   209      val(ParamStr(2), ipcPort);