equal
deleted
inserted
replaced
59 cConsoleSplitterColor : Longword = $FF0000; |
59 cConsoleSplitterColor : Longword = $FF0000; |
60 cColorNearBlack : Longword = 16; |
60 cColorNearBlack : Longword = 16; |
61 cExplosionBorderColor : LongWord = $808080; |
61 cExplosionBorderColor : LongWord = $808080; |
62 |
62 |
63 cShowFPS : boolean = true; |
63 cShowFPS : boolean = true; |
64 cCaseFactor : Longword = 3; {1..10} |
64 cCaseFactor : Longword = 7; {1..10} |
65 cFullScreen : boolean = true; |
65 cFullScreen : boolean = true; |
66 cLocaleFName : shortstring = 'en.txt'; |
66 cLocaleFName : shortstring = 'en.txt'; |
67 cSeed : shortstring = ''; |
67 cSeed : shortstring = ''; |
68 cInitVolume : LongInt = 128; |
68 cInitVolume : LongInt = 128; |
69 cVolumeDelta : LongInt = 0; |
69 cVolumeDelta : LongInt = 0; |
209 end |
209 end |
210 end; |
210 end; |
211 |
211 |
212 procedure SetLittle(var r: hwFloat); |
212 procedure SetLittle(var r: hwFloat); |
213 begin |
213 begin |
214 if not r.isNegative then r:= cLittle else r:= - cLittle |
214 r:= SignAs(cLittle, r) |
215 end; |
215 end; |
216 |
216 |
217 procedure SendStat(sit: TStatInfoType; s: shortstring); |
217 procedure SendStat(sit: TStatInfoType; s: shortstring); |
218 const stc: array [TStatInfoType] of char = 'rDK'; |
218 const stc: array [TStatInfoType] of char = 'rDK'; |
219 begin |
219 begin |