53 cCloudsNumber : LongInt = 9; |
53 cCloudsNumber : LongInt = 9; |
54 cScreenWidth : LongInt = 1024; |
54 cScreenWidth : LongInt = 1024; |
55 cScreenHeight : LongInt = 768; |
55 cScreenHeight : LongInt = 768; |
56 cInitWidth : LongInt = 1024; |
56 cInitWidth : LongInt = 1024; |
57 cInitHeight : LongInt = 768; |
57 cInitHeight : LongInt = 768; |
58 cBits : LongInt = 16; |
58 cBits : LongInt = 32; |
59 cBitsStr : string[2] = '16'; |
59 cBitsStr : string[2] = '32'; |
60 cTagsMask : byte = 7; |
60 cTagsMask : byte = 7; |
61 |
61 |
62 cWaterLine : LongInt = LAND_HEIGHT; |
62 cWaterLine : LongInt = LAND_HEIGHT; |
63 cVisibleWater : LongInt = 128; |
63 cVisibleWater : LongInt = 128; |
64 cGearScrEdgesDist: LongInt = 240; |
64 cGearScrEdgesDist: LongInt = 240; |
71 cSkyColor : Longword = 0; |
71 cSkyColor : Longword = 0; |
72 cWhiteColor : Longword = $FFFFFFFF; |
72 cWhiteColor : Longword = $FFFFFFFF; |
73 cColorNearBlack : Longword = $FF000010; |
73 cColorNearBlack : Longword = $FF000010; |
74 cExplosionBorderColor : LongWord = $808080; |
74 cExplosionBorderColor : LongWord = $808080; |
75 |
75 |
76 cShowFPS : boolean = true; |
76 cShowFPS : boolean = false; |
77 cCaseFactor : Longword = 5; {0..9} |
77 cCaseFactor : Longword = 5; {0..9} |
78 cLandAdditions: Longword = 4; |
78 cLandAdditions: Longword = 4; |
79 cFullScreen : boolean = false; |
79 cFullScreen : boolean = false; |
80 cReducedQuality : boolean = false; |
80 cReducedQuality : boolean = false; |
81 cLocaleFName : shortstring = 'en.txt'; |
81 cLocaleFName : shortstring = 'en.txt'; |
82 cSeed : shortstring = ''; |
82 cSeed : shortstring = ''; |
83 cInitVolume : LongInt = 128; |
83 cInitVolume : LongInt = 128; |
84 cVolumeDelta : LongInt = 0; |
84 cVolumeDelta : LongInt = 0; |
85 cTimerInterval : Longword = 5; |
85 cTimerInterval : Longword = 8; |
86 cHasFocus : boolean = true; |
86 cHasFocus : boolean = true; |
87 cInactDelay : Longword = 1250; |
87 cInactDelay : Longword = 1250; |
88 |
88 |
89 bBetweenTurns: boolean = false; |
89 bBetweenTurns: boolean = false; |
90 cHealthDecrease: LongWord = 0; |
90 cHealthDecrease: LongWord = 0; |
549 cDamageModifier:= _1; |
549 cDamageModifier:= _1; |
550 cLaserSighting:= false; |
550 cLaserSighting:= false; |
551 |
551 |
552 {$IFDEF DEBUGFILE} |
552 {$IFDEF DEBUGFILE} |
553 {$I-} |
553 {$I-} |
554 if ParamCount > 0 then |
554 if ParamCount >= 0 then |
|
555 //this check prevents a crash in Mac OS X |
|
556 if ParamCount = 0 then |
|
557 begin |
|
558 Assign(f, '/tmp/debug.txt'); |
|
559 rewrite(f); |
|
560 end else |
|
561 begin |
555 for i:= 0 to 7 do |
562 for i:= 0 to 7 do |
556 begin |
563 begin |
557 Assign(f, ParamStr(1) + '/debug' + inttostr(i) + '.txt'); |
564 Assign(f, ParamStr(1) + '/debug' + inttostr(i) + '.txt'); |
558 rewrite(f); |
565 rewrite(f); |
559 if IOResult = 0 then break |
566 if IOResult = 0 then break |
560 end; |
567 end; |
|
568 end; |
561 {$I+} |
569 {$I+} |
562 |
570 |
563 finalization |
571 finalization |
564 //uRandom.DumpBuffer; |
572 //uRandom.DumpBuffer; |
565 writeln(f, '-= halt at ',GameTicks,' ticks =-'); |
573 writeln(f, '-= halt at ',GameTicks,' ticks =-'); |