equal
deleted
inserted
replaced
400 if (Gear^.Timer mod frametime) = 0 then inc(Gear^.Pos) |
400 if (Gear^.Timer mod frametime) = 0 then inc(Gear^.Pos) |
401 end else |
401 end else |
402 if Gear^.Timer = 1 then |
402 if Gear^.Timer = 1 then |
403 begin |
403 begin |
404 Gear^.State:= Gear^.State or gstNoDamage; |
404 Gear^.State:= Gear^.State or gstNoDamage; |
405 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound); |
405 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, Gear, EXPLAutoSound); |
406 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog; |
406 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog; |
407 DeleteGear(Gear); |
407 DeleteGear(Gear); |
408 SetAllToActive |
408 SetAllToActive |
409 end else // Gear^.Timer = 0 |
409 end else // Gear^.Timer = 0 |
410 begin |
410 begin |