equal
deleted
inserted
replaced
402 if (Gear^.Timer mod frametime) = 0 then inc(Gear^.Pos) |
402 if (Gear^.Timer mod frametime) = 0 then inc(Gear^.Pos) |
403 end else |
403 end else |
404 if Gear^.Timer = 1 then |
404 if Gear^.Timer = 1 then |
405 begin |
405 begin |
406 Gear^.State:= Gear^.State or gstNoDamage; |
406 Gear^.State:= Gear^.State or gstNoDamage; |
407 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, Gear, EXPLAutoSound); |
407 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, CurrentHedgehog, EXPLAutoSound); |
408 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; |
409 DeleteGear(Gear); |
409 DeleteGear(Gear); |
410 SetAllToActive |
410 SetAllToActive |
411 end else // Gear^.Timer = 0 |
411 end else // Gear^.Timer = 0 |
412 begin |
412 begin |