hedgewars/hwengine.pas
changeset 3612 b50215a8a43d
parent 3611 ed00aa2b339e
child 3613 cfd3c6536a09
equal deleted inserted replaced
3611:ed00aa2b339e 3612:b50215a8a43d
   371         uGears.initModule;
   371         uGears.initModule;
   372         uKeys.initModule;
   372         uKeys.initModule;
   373         //uLandGraphics does not need initialization
   373         //uLandGraphics does not need initialization
   374         //uLandObjects does not need initialization
   374         //uLandObjects does not need initialization
   375         //uLandTemplates does not need initialization
   375         //uLandTemplates does not need initialization
   376         //uLandTexture does not need initialization
   376         uLandTexture.initModule;
   377         //uLocale does not need initialization
   377         //uLocale does not need initialization
   378         uRandom.initModule; 
   378         uRandom.initModule; 
   379         //uSHA is initialized internally
   379         //uSHA is initialized internally
   380         uScript.initModule;
   380         uScript.initModule;
   381         uSound.initModule;
   381         uSound.initModule;
   400         uScript.freeModule;
   400         uScript.freeModule;
   401         //uSHA does not need to be freed
   401         //uSHA does not need to be freed
   402         uRandom.freeModule;         //stub
   402         uRandom.freeModule;         //stub
   403         //uLocale does not need to be freed
   403         //uLocale does not need to be freed
   404         //uLandTemplates does not need to be freed
   404         //uLandTemplates does not need to be freed
   405         //uLandTexture does not need to be freed
   405         uLandTexture.freeModule;
   406         //uLandObjects does not need to be freed
   406         //uLandObjects does not need to be freed
   407         //uLandGraphics does not need to be freed
   407         //uLandGraphics does not need to be freed
   408         uKeys.freeModule;           //stub
   408         uKeys.freeModule;           //stub
   409         uGears.freeModule;
   409         uGears.freeModule;
   410         //uGame does not need to be freed
   410         //uGame does not need to be freed
   493             cAltDamage:= ParamStr(15) = '1';
   493             cAltDamage:= ParamStr(15) = '1';
   494             UserNick:= DecodeBase64(ParamStr(16));
   494             UserNick:= DecodeBase64(ParamStr(16));
   495             isMusicEnabled:= ParamStr(17) = '1';
   495             isMusicEnabled:= ParamStr(17) = '1';
   496 
   496 
   497             if (ParamStr(18) = '1') then        //HACK
   497             if (ParamStr(18) = '1') then        //HACK
   498                 cReducedQuality:= $FFFFFFFF
   498                 cReducedQuality:= $FFFFFFFF xor rqLowRes
   499             else
   499             else
   500                 val(ParamStr(18), cReducedQuality);
   500                 val(ParamStr(18), cReducedQuality);
   501         end;
   501         end;
   502         3: begin
   502         3: begin
   503             val(ParamStr(2), ipcPort);
   503             val(ParamStr(2), ipcPort);
   574                 cFullScreen:= ParamStr(11) = '1';
   574                 cFullScreen:= ParamStr(11) = '1';
   575                 cAltDamage:= ParamStr(12) = '1';
   575                 cAltDamage:= ParamStr(12) = '1';
   576                 cShowFPS:= ParamStr(13) = '1';
   576                 cShowFPS:= ParamStr(13) = '1';
   577                 val(ParamStr(14), cTimerInterval);
   577                 val(ParamStr(14), cTimerInterval);
   578                 if (ParamStr(15) = '1') then        //HACK
   578                 if (ParamStr(15) = '1') then        //HACK
   579                     cReducedQuality:= $FFFFFFFF
   579                     cReducedQuality:=  $FFFFFFFF xor rqLowRes
   580                 else
   580                 else
   581                     val(ParamStr(15), cReducedQuality);
   581                     val(ParamStr(15), cReducedQuality);
   582             end
   582             end
   583             else GameType:= gmtSyntax;
   583             else GameType:= gmtSyntax;
   584         end;
   584         end;