hedgewars/uWorld.pas
changeset 244 b37ca2295b73
parent 203 0ee86f9d9ba6
child 281 5b483aa9f2ab
equal deleted inserted replaced
243:556b40fbd28c 244:b37ca2295b73
   231                      if (Gear.State and (gstMoving or gstDrowning or gstFalling)) = 0 then
   231                      if (Gear.State and (gstMoving or gstDrowning or gstFalling)) = 0 then
   232                         if (Gear.State and gstHHThinking) <> 0 then
   232                         if (Gear.State and gstHHThinking) <> 0 then
   233                            DrawGear(sQuestion, Round(Gear.X) - 10 + WorldDx, Round(Gear.Y) - cHHRadius - 34 + WorldDy, Surface)
   233                            DrawGear(sQuestion, Round(Gear.X) - 10 + WorldDx, Round(Gear.Y) - cHHRadius - 34 + WorldDy, Surface)
   234                         else
   234                         else
   235                         if ShowCrosshair and ((Gear.State and gstAttacked) = 0) then
   235                         if ShowCrosshair and ((Gear.State and gstAttacked) = 0) then
   236                            DrawSurfSprite(Round(Gear.X + hwSign(Gear.dX) * Sin(Gear.Angle*pi/cMaxAngle)*60) + WorldDx - 8,
   236                            DrawSurfSprite(Round(Gear.X + hwSign(Gear.dX) * Sin(Gear.Angle*pi/cMaxAngle)*60) + WorldDx - 11,
   237                                           Round(Gear.Y - Cos(Gear.Angle*pi/cMaxAngle)*60) + WorldDy - 12,
   237                                           Round(Gear.Y - Cos(Gear.Angle*pi/cMaxAngle)*60) + WorldDy - 12,
   238                                           24, (18 + hwSign(Gear.dX) * integer(((Gear.Angle * 72 div cMaxAngle) + 1) div 2) mod 18) mod 18,
   238                                           24, (18 + hwSign(Gear.dX) * integer(((Gear.Angle * 72 div cMaxAngle) + 1) div 2) mod 18) mod 18,
   239                                           Team.CrosshairSurf, Surface);
   239                                           Team.CrosshairSurf, Surface);
   240                      end;
   240                      end;
   241       team:= team.Next
   241       team:= team.Next