equal
deleted
inserted
replaced
731 end; |
731 end; |
732 |
732 |
733 //////////////////////////////////////////////////////////////////////////////// |
733 //////////////////////////////////////////////////////////////////////////////// |
734 procedure doStepGrave(Gear: PGear); |
734 procedure doStepGrave(Gear: PGear); |
735 begin |
735 begin |
|
736 if Gear^.Timer = 0 then |
|
737 begin |
|
738 DeleteGear(Gear); |
|
739 exit |
|
740 end; |
736 AllInactive := false; |
741 AllInactive := false; |
737 if Gear^.dY.isNegative then |
742 if Gear^.dY.isNegative then |
738 if TestCollisionY(Gear, -1) then |
743 if TestCollisionY(Gear, -1) then |
739 Gear^.dY := _0; |
744 Gear^.dY := _0; |
740 |
745 |
5088 begin |
5093 begin |
5089 resgear := AddGear(hwRound(graves.ar^[i]^.X), hwRound(graves.ar^[i]^.Y), gtHedgehog, gstWait, _0, _0, 0); |
5094 resgear := AddGear(hwRound(graves.ar^[i]^.X), hwRound(graves.ar^[i]^.Y), gtHedgehog, gstWait, _0, _0, 0); |
5090 resgear^.Hedgehog := graves.ar^[i]^.Hedgehog; |
5095 resgear^.Hedgehog := graves.ar^[i]^.Hedgehog; |
5091 resgear^.Health := graves.ar^[i]^.Health; |
5096 resgear^.Health := graves.ar^[i]^.Health; |
5092 PHedgehog(graves.ar^[i]^.Hedgehog)^.Gear := resgear; |
5097 PHedgehog(graves.ar^[i]^.Hedgehog)^.Gear := resgear; |
5093 DeleteGear(graves.ar^[i]); |
5098 graves.ar^[i]^.Timer:= 0; |
5094 RenderHealth(resgear^.Hedgehog^); |
5099 RenderHealth(resgear^.Hedgehog^); |
5095 RecountTeamHealth(resgear^.Hedgehog^.Team); |
5100 RecountTeamHealth(resgear^.Hedgehog^.Team); |
5096 resgear^.Hedgehog^.Effects[heResurrected]:= 1; |
5101 resgear^.Hedgehog^.Effects[heResurrected]:= 1; |
5097 // only make hat-less hedgehogs look like zombies, preserve existing hats |
5102 // only make hat-less hedgehogs look like zombies, preserve existing hats |
5098 |
5103 |