hedgewars/uWorld.pas
changeset 39 b78e7185ed13
parent 23 16322d14f068
child 47 8daf1ee0b9a3
equal deleted inserted replaced
38:c1ec4b15d70e 39:b78e7185ed13
   140                         if (Gear.State and gstHHThinking) <> 0 then
   140                         if (Gear.State and gstHHThinking) <> 0 then
   141                            DrawGear(sQuestion, Round(Gear.X)  - 10 + WorldDx, Round(Gear.Y) - cHHHalfHeight - 34 + WorldDy, Surface)
   141                            DrawGear(sQuestion, Round(Gear.X)  - 10 + WorldDx, Round(Gear.Y) - cHHHalfHeight - 34 + WorldDy, Surface)
   142                         else
   142                         else
   143                         if ShowCrosshair then
   143                         if ShowCrosshair then
   144                            DrawCaption(Round(Gear.X + Sign(Gear.dX) * Sin(Gear.Angle*pi/cMaxAngle)*60) + WorldDx,
   144                            DrawCaption(Round(Gear.X + Sign(Gear.dX) * Sin(Gear.Angle*pi/cMaxAngle)*60) + WorldDx,
   145                                        Round(Gear.Y - Cos(Gear.Angle*pi/cMaxAngle)*60) + WorldDy - 5,
   145                                        Round(Gear.Y - Cos(Gear.Angle*pi/cMaxAngle)*60) + WorldDy - 4,
   146                                        Team.CrossHairRect, Surface)
   146                                        Team.CrossHairRect, Surface)
   147                      end;
   147                      end;
   148       team:= team.Next
   148       team:= team.Next
   149       end;
   149       end;
   150 
   150