equal
deleted
inserted
replaced
4109 end; |
4109 end; |
4110 |
4110 |
4111 graves := GearsNear(hh^.Gear, gtGrave, Gear^.Radius); |
4111 graves := GearsNear(hh^.Gear, gtGrave, Gear^.Radius); |
4112 |
4112 |
4113 if Length(graves) = 0 then begin |
4113 if Length(graves) = 0 then begin |
|
4114 StopSound(Gear^.SoundChannel); |
4114 Gear^.Timer := 250; |
4115 Gear^.Timer := 250; |
4115 Gear^.doStep := @doStepIdle; |
4116 Gear^.doStep := @doStepIdle; |
4116 exit; |
4117 exit; |
4117 end; |
4118 end; |
4118 |
4119 |
4138 DeleteGear(graves[i]); |
4139 DeleteGear(graves[i]); |
4139 RenderHealth(PHedgehog(resgear^.Hedgehog)^); |
4140 RenderHealth(PHedgehog(resgear^.Hedgehog)^); |
4140 RecountTeamHealth(Phedgehog(resgear^.Hedgehog)^.Team); |
4141 RecountTeamHealth(Phedgehog(resgear^.Hedgehog)^.Team); |
4141 end; |
4142 end; |
4142 end; |
4143 end; |
|
4144 StopSound(Gear^.SoundChannel); |
4143 Gear^.Timer := 250; |
4145 Gear^.Timer := 250; |
4144 Gear^.doStep := @doStepIdle; |
4146 Gear^.doStep := @doStepIdle; |
4145 end; |
4147 end; |
4146 end; |
4148 end; |
4147 |
4149 |
4160 PHedgehog(graves[i]^.Hedgehog)^.Gear := nil; |
4162 PHedgehog(graves[i]^.Hedgehog)^.Gear := nil; |
4161 graves[i]^.Health := 0; |
4163 graves[i]^.Health := 0; |
4162 end; |
4164 end; |
4163 Gear^.doStep := @doStepResurrectorWork; |
4165 Gear^.doStep := @doStepResurrectorWork; |
4164 end else begin |
4166 end else begin |
|
4167 StopSound(Gear^.SoundChannel); |
4165 Gear^.Timer := 250; |
4168 Gear^.Timer := 250; |
4166 Gear^.doStep := @doStepIdle; |
4169 Gear^.doStep := @doStepIdle; |
4167 end; |
4170 end; |
4168 end; |
4171 end; |
4169 |
4172 |