equal
deleted
inserted
replaced
355 end; |
355 end; |
356 end; |
356 end; |
357 |
357 |
358 procedure AddDamageTag(X, Y, Damage: LongWord; Gear: PGear); |
358 procedure AddDamageTag(X, Y, Damage: LongWord; Gear: PGear); |
359 begin |
359 begin |
360 AddGear(X, Y, gtSmallDamage, Damage, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog; |
360 if cAltDamage then |
|
361 AddGear(X, Y, gtSmallDamage, Damage, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog; |
361 end; |
362 end; |
362 |
363 |
363 procedure ProcessGears; |
364 procedure ProcessGears; |
364 const delay: LongInt = cInactDelay; |
365 const delay: LongInt = cInactDelay; |
365 step: (stDelay, stChDmg, stChWin, stSpawn, stNTurn) = stDelay; |
366 step: (stDelay, stChDmg, stChWin, stSpawn, stNTurn) = stDelay; |