equal
deleted
inserted
replaced
49 {$ELSE} |
49 {$ELSE} |
50 procedure preInitEverything(); forward; |
50 procedure preInitEverything(); forward; |
51 procedure initEverything(complete:boolean); forward; |
51 procedure initEverything(complete:boolean); forward; |
52 procedure freeEverything(complete:boolean); forward; |
52 procedure freeEverything(complete:boolean); forward; |
53 {$ENDIF} |
53 {$ENDIF} |
54 |
|
55 function read1stLn(filePath: shortstring): shortstring; |
|
56 var f: pfsFile; |
|
57 begin |
|
58 read1stLn:= ''; |
|
59 if pfsExists(filePath) then |
|
60 begin |
|
61 f:= pfsOpenRead(filePath); |
|
62 if (not pfsEOF(f)) and allOK then |
|
63 pfsReadLn(f, read1stLn); |
|
64 pfsClose(f); |
|
65 f:= nil; |
|
66 end; |
|
67 end; |
|
68 |
54 |
69 // TODO localization support |
55 // TODO localization support |
70 procedure ShowCredits(); |
56 procedure ShowCredits(); |
71 var themeCredits, mapCredits: shortstring; |
57 var themeCredits, mapCredits: shortstring; |
72 begin |
58 begin |