29 GL, |
29 GL, |
30 {$ENDIF} |
30 {$ENDIF} |
31 uLocale; |
31 uLocale; |
32 |
32 |
33 {$INCLUDE "proto.inc"} |
33 {$INCLUDE "proto.inc"} |
|
34 |
|
35 // typed const is a variable despite const qualifier |
|
36 // in freepascal you may actually use var for the same purpose |
34 |
37 |
35 type |
38 type |
36 |
39 |
37 TGameState = (gsLandGen, gsStart, gsGame, gsChat, gsConfirm, gsExit); |
40 TGameState = (gsLandGen, gsStart, gsGame, gsChat, gsConfirm, gsExit); |
38 |
41 |
160 errmsgUnknownCommand = 'Unknown command'; |
163 errmsgUnknownCommand = 'Unknown command'; |
161 errmsgUnknownVariable = 'Unknown variable'; |
164 errmsgUnknownVariable = 'Unknown variable'; |
162 errmsgIncorrectUse = 'Incorrect use'; |
165 errmsgIncorrectUse = 'Incorrect use'; |
163 errmsgShouldntRun = 'This program shouldn''t be run manually'; |
166 errmsgShouldntRun = 'This program shouldn''t be run manually'; |
164 errmsgWrongNumber = 'Wrong parameters number'; |
167 errmsgWrongNumber = 'Wrong parameters number'; |
165 errmsgSlotsOverflow = 'CurSlot overflowed'; |
168 errmsgSlotsOverflow = 'CurSlot overflowed'; |
166 |
169 |
167 msgLoading = 'Loading '; |
170 msgLoading = 'Loading '; |
168 msgOK = 'ok'; |
171 msgOK = 'ok'; |
169 msgFailed = 'failed'; |
172 msgFailed = 'failed'; |
170 msgFailedSize = 'failed due to size'; |
173 msgFailedSize = 'failed due to size'; |
406 'Graphics/AmmoMenu', // ptAmmoMenu |
409 'Graphics/AmmoMenu', // ptAmmoMenu |
407 'Graphics/Hedgehog', // ptHedgehog |
410 'Graphics/Hedgehog', // ptHedgehog |
408 'Sounds/voices', // ptVoices |
411 'Sounds/voices', // ptVoices |
409 'Graphics/Hats' // ptHats |
412 'Graphics/Hats' // ptHats |
410 ); |
413 ); |
411 |
414 (* |
|
415 PathzBackup: array[TPathType] of String = ( |
|
416 '', // ptNone |
|
417 '', // ptData |
|
418 'Graphics', // ptGraphics |
|
419 'Themes', // ptThemes |
|
420 'Themes/avematan', // ptCurrTheme |
|
421 'Teams', // ptTeams |
|
422 'Maps', // ptMaps |
|
423 '', // ptMapCurrent |
|
424 'Demos', // ptDemos |
|
425 'Sounds', // ptSounds |
|
426 'Graphics/Graves', // ptGraves |
|
427 'Fonts', // ptFonts |
|
428 'Forts', // ptForts |
|
429 'Locale', // ptLocale |
|
430 'Graphics/AmmoMenu', // ptAmmoMenu |
|
431 'Graphics/Hedgehog', // ptHedgehog |
|
432 'Sounds/voices', // ptVoices |
|
433 'Graphics/Hats' // ptHats |
|
434 ); |
|
435 *) |
412 SpritesData: array[TSprite] of record |
436 SpritesData: array[TSprite] of record |
413 FileName: String[14]; |
437 FileName: String[14]; |
414 Path, AltPath: TPathType; |
438 Path, AltPath: TPathType; |
415 Texture: PTexture; |
439 Texture: PTexture; |
416 Surface: PSDL_Surface; |
440 Surface: PSDL_Surface; |