4098 cHHRadius - 14 - hh^.HealthTagTex^.h, hh^.HealthTagTex); |
4098 cHHRadius - 14 - hh^.HealthTagTex^.h, hh^.HealthTagTex); |
4099 (*DrawCircle(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Radius, 1.5, 0, 0, $FF, |
4099 (*DrawCircle(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Radius, 1.5, 0, 0, $FF, |
4100 $FF);*) |
4100 $FF);*) |
4101 |
4101 |
4102 doStepHedgehogMoving(hh^.Gear); |
4102 doStepHedgehogMoving(hh^.Gear); |
|
4103 hh^.Gear^.Y := Gear^.Y; |
4103 |
4104 |
4104 if ((Gear^.Message and gmUp) <> 0) then |
4105 if ((Gear^.Message and gmUp) <> 0) then |
4105 begin |
4106 begin |
4106 if (GameTicks and $F) <> 0 then exit; |
4107 if (GameTicks and $F) <> 0 then exit; |
4107 end |
4108 end |
4108 else if (GameTicks and $1FF) <> 0 then exit; |
4109 else if (GameTicks and $1FF) <> 0 then exit; |
4109 |
4110 |
|
4111 if Gear^.Power < 45 then begin |
|
4112 inc(Gear^.Power); |
|
4113 Gear^.Y := Gear^.Y - _1; |
|
4114 end; |
4110 |
4115 |
4111 graves := GearsNear(hh^.Gear, gtGrave, Gear^.Radius); |
4116 graves := GearsNear(hh^.Gear, gtGrave, Gear^.Radius); |
4112 |
4117 |
4113 if Length(graves) = 0 then |
4118 if Length(graves) = 0 then |
4114 begin |
4119 begin |
4146 FreeTexture(PHedgehog(resgear^.Hedgehog)^.HatTex); |
4151 FreeTexture(PHedgehog(resgear^.Hedgehog)^.HatTex); |
4147 PHedgehog(resgear^.Hedgehog)^.HatTex := Surface2Tex( |
4152 PHedgehog(resgear^.Hedgehog)^.HatTex := Surface2Tex( |
4148 LoadImage(Pathz[ptHats] + '/Reserved/Zombie', ifNone), |
4153 LoadImage(Pathz[ptHats] + '/Reserved/Zombie', ifNone), |
4149 True); |
4154 True); |
4150 end; |
4155 end; |
|
4156 |
|
4157 hh^.Gear^.dY := _0; |
4151 StopSound(Gear^.SoundChannel); |
4158 StopSound(Gear^.SoundChannel); |
4152 Gear^.Timer := 250; |
4159 Gear^.Timer := 250; |
4153 Gear^.doStep := @doStepIdle; |
4160 Gear^.doStep := @doStepIdle; |
4154 end; |
4161 end; |
4155 //if hh^.Gear^.Health = 0 then doStepHedgehogFree(hh^.Gear); |
4162 //if hh^.Gear^.Health = 0 then doStepHedgehogFree(hh^.Gear); |