equal
deleted
inserted
replaced
245 2: with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do |
245 2: with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do |
246 begin |
246 begin |
247 tdx:= hwSign(Gear^.dX) * Sin(Gear^.Angle * Pi / cMaxAngle); |
247 tdx:= hwSign(Gear^.dX) * Sin(Gear^.Angle * Pi / cMaxAngle); |
248 tdy:= - Cos(Gear^.Angle * Pi / cMaxAngle); |
248 tdy:= - Cos(Gear^.Angle * Pi / cMaxAngle); |
249 for i:= (Gear^.Power * 24) div cPowerDivisor downto 0 do |
249 for i:= (Gear^.Power * 24) div cPowerDivisor downto 0 do |
250 DrawSprite(sprPower, Gear^.X.Round + system.round(WorldDx + tdx * (24 + i * 2)) - 16, |
250 DrawSprite(sprPower, hwRound(Gear^.X) + system.round(WorldDx + tdx * (24 + i * 2)) - 16, |
251 Gear^.Y.Round + system.round(WorldDy + tdy * (24 + i * 2)) - 12, |
251 hwRound(Gear^.Y) + system.round(WorldDy + tdy * (24 + i * 2)) - 12, |
252 i, Surface) |
252 i, Surface) |
253 end |
253 end |
254 end; |
254 end; |
255 |
255 |
256 // Target |
256 // Target |