equal
deleted
inserted
replaced
36 GameState : TGameState = Low(TGameState); |
36 GameState : TGameState = Low(TGameState); |
37 GameType : TGameType = gmtLocal; |
37 GameType : TGameType = gmtLocal; |
38 GameFlags : Longword = 0; |
38 GameFlags : Longword = 0; |
39 TurnTimeLeft : Longword = 0; |
39 TurnTimeLeft : Longword = 0; |
40 cSuddenDTurns : LongInt = 15; |
40 cSuddenDTurns : LongInt = 15; |
|
41 cDamagePercent : LongInt = 100; |
41 cTemplateFilter : LongInt = 0; |
42 cTemplateFilter : LongInt = 0; |
42 |
43 |
43 cHedgehogTurnTime: Longword = 45000; |
44 cHedgehogTurnTime: Longword = 45000; |
44 cMaxAIThinkTime : Longword = 9000; |
45 cMaxAIThinkTime : Longword = 9000; |
45 |
46 |
405 FreeMem(p) |
406 FreeMem(p) |
406 end; |
407 end; |
407 |
408 |
408 function modifyDamage(dmg: Longword): Longword; |
409 function modifyDamage(dmg: Longword): Longword; |
409 begin |
410 begin |
410 ModifyDamage:= hwRound(int2HwFloat(dmg) * cDamageModifier) |
411 ModifyDamage:= hwRound(_0_01 * cDamageModifier * dmg * cDamagePercent) |
411 end; |
412 end; |
412 |
413 |
413 {$IFDEF DEBUGFILE} |
414 {$IFDEF DEBUGFILE} |
414 procedure AddFileLog(s: shortstring); |
415 procedure AddFileLog(s: shortstring); |
415 begin |
416 begin |