equal
deleted
inserted
replaced
71 // proto.inc |
71 // proto.inc |
72 |
72 |
73 var isTerminated: boolean = false; |
73 var isTerminated: boolean = false; |
74 alsoShutdownFrontend: boolean = false; |
74 alsoShutdownFrontend: boolean = false; |
75 {$IFDEF HWLIBRARY} |
75 {$IFDEF HWLIBRARY} |
76 type arrayofpchar = array[0..7] of PChar; |
76 type arrayofpchar = array[0..8] of PChar; |
77 |
77 |
78 procedure initEverything; |
78 procedure initEverything; |
79 procedure freeEverything; |
79 procedure freeEverything; |
80 |
80 |
81 implementation |
81 implementation |
263 cAltDamage:= gameArgs[5] = '1'; |
263 cAltDamage:= gameArgs[5] = '1'; |
264 val(gameArgs[6], cScreenHeight); |
264 val(gameArgs[6], cScreenHeight); |
265 val(gameArgs[7], cScreenWidth); |
265 val(gameArgs[7], cScreenWidth); |
266 cInitHeight:= cScreenHeight; |
266 cInitHeight:= cScreenHeight; |
267 cInitWidth:= cScreenWidth; |
267 cInitWidth:= cScreenWidth; |
|
268 recordFileName:= gameArgs[8]; |
268 {$ENDIF} |
269 {$ENDIF} |
269 |
270 |
270 for p:= Succ(Low(TPathType)) to High(TPathType) do |
271 for p:= Succ(Low(TPathType)) to High(TPathType) do |
271 if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]; |
272 if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]; |
272 |
273 |