hedgewars/uWorld.pas
changeset 203 0ee86f9d9ba6
parent 198 6f00e0f4cb88
child 244 b37ca2295b73
equal deleted inserted replaced
202:8603c0420461 203:0ee86f9d9ba6
   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 - 8,
   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, 0,
   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
   242       end;
   242       end;
   243    end;
   243    end;