equal
deleted
inserted
replaced
356 procedure GameRoutine; |
356 procedure GameRoutine; |
357 //var p: TPathType; |
357 //var p: TPathType; |
358 var s: shortstring; |
358 var s: shortstring; |
359 i: LongInt; |
359 i: LongInt; |
360 begin |
360 begin |
|
361 {$IFDEF PAS2C} |
|
362 AddFileLog('Generated using pas2c'); |
|
363 {$ENDIF} |
361 WriteLnToConsole('Hedgewars engine ' + cVersionString + '-r' + cRevisionString + |
364 WriteLnToConsole('Hedgewars engine ' + cVersionString + '-r' + cRevisionString + |
362 ' (' + cHashString + ') with protocol #' + inttostr(cNetProtoVersion)); |
365 ' (' + cHashString + ') with protocol #' + inttostr(cNetProtoVersion)); |
363 AddFileLog('Prefix: "' + shortstring(PathPrefix) +'"'); |
366 AddFileLog('Prefix: "' + shortstring(PathPrefix) +'"'); |
364 AddFileLog('UserPrefix: "' + shortstring(UserPathPrefix) +'"'); |
367 AddFileLog('UserPrefix: "' + shortstring(UserPathPrefix) +'"'); |
365 |
368 |