199 {$ELSE}

   199 {$ELSE}

   200 procedure Game;

   200 procedure Game;

   201 {$ENDIF}

   201 {$ENDIF}

   202 var p: TPathType;

   202 var p: TPathType;

   203     s: shortstring;

   203     s: shortstring;

   205     i: LongInt;

   204     i: LongInt;

   207 begin

   205 begin

   208 {$IFDEF HWLIBRARY}

   206 {$IFDEF HWLIBRARY}

   209     cBits:= 32;

   207     cBits:= 32;

   210     cFullScreen:= false;

   208     cFullScreen:= false;

   211     cTimerInterval:= 8;

   209     cTimerInterval:= 8;

   231 

   229 

   232     cLogfileBase:= 'game';

   230     cLogfileBase:= 'game';

   233     initEverything(true);

   231     initEverything(true);

   234 

   232 

   235     WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');

   233     WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');

   237     AddFileLog('Prefix: "' + PathPrefix +'"');

   234     AddFileLog('Prefix: "' + PathPrefix +'"');

   238     for i:= 0 to ParamCount do

   235     for i:= 0 to ParamCount do

   239         AddFileLog(inttostr(i) + ': ' + ParamStr(i));

   236         AddFileLog(inttostr(i) + ': ' + ParamStr(i));

   241 

   237 

   242     for p:= Succ(Low(TPathType)) to High(TPathType) do

   238     for p:= Succ(Low(TPathType)) to High(TPathType) do

   243         if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];

   239         if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];

   244 

   240 

   245     WriteToConsole('Init SDL... ');

   241     WriteToConsole('Init SDL... ');