equal
deleted
inserted
replaced
98 var t: LongInt; |
98 var t: LongInt; |
99 weap: TAmmoType; |
99 weap: TAmmoType; |
100 Hedgehog: PHedgehog; |
100 Hedgehog: PHedgehog; |
101 s: boolean; |
101 s: boolean; |
102 begin |
102 begin |
|
103 s:= false; |
|
104 |
103 weap:= TAmmoType(Gear^.MsgParam); |
105 weap:= TAmmoType(Gear^.MsgParam); |
104 Hedgehog:= Gear^.Hedgehog; |
106 Hedgehog:= Gear^.Hedgehog; |
105 |
107 |
106 if Hedgehog^.Team^.Clan^.TurnNumber <= Ammoz[weap].SkipTurns then exit; // weapon is not activated yet |
108 if Hedgehog^.Team^.Clan^.TurnNumber <= Ammoz[weap].SkipTurns then exit; // weapon is not activated yet |
107 |
109 |
400 if (Gear^.Timer mod frametime) = 0 then inc(Gear^.Pos) |
402 if (Gear^.Timer mod frametime) = 0 then inc(Gear^.Pos) |
401 end else |
403 end else |
402 if Gear^.Timer = 1 then |
404 if Gear^.Timer = 1 then |
403 begin |
405 begin |
404 Gear^.State:= Gear^.State or gstNoDamage; |
406 Gear^.State:= Gear^.State or gstNoDamage; |
405 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound); |
407 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, CurrentHedgehog, EXPLAutoSound); |
406 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog; |
408 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog; |
407 DeleteGear(Gear); |
409 DeleteGear(Gear); |
408 SetAllToActive |
410 SetAllToActive |
409 end else // Gear^.Timer = 0 |
411 end else // Gear^.Timer = 0 |
410 begin |
412 begin |