hedgewars/uWorld.pas
changeset 198 6f00e0f4cb88
parent 191 a03c2d037e24
child 203 0ee86f9d9ba6
equal deleted inserted replaced
197:8a7123b84d1b 198:6f00e0f4cb88
   228                      begin
   228                      begin
   229                      if bShowFinger
   229                      if bShowFinger
   230                         and ((Gear.State and gstHHDriven) <> 0) then DrawSprite(sprFinger, round(Gear.X) - 16 + WorldDx, round(Gear.Y) - 64 + WorldDy, RealTicks div 32 mod 16, Surface);
   230                         and ((Gear.State and gstHHDriven) <> 0) then DrawSprite(sprFinger, round(Gear.X) - 16 + WorldDx, round(Gear.Y) - 64 + WorldDy, RealTicks div 32 mod 16, Surface);
   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                            DrawCaption(Round(Gear.X + hwSign(Gear.dX) * Sin(Gear.Angle*pi/cMaxAngle)*60) + WorldDx,
   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 - 4,
   237                                           Round(Gear.Y - Cos(Gear.Angle*pi/cMaxAngle)*60) + WorldDy - 12,
   238                                        Team.CrossHairRect, Surface)
   238                                           24, 0,
       
   239                                           Team.CrosshairSurf, Surface);
   239                      end;
   240                      end;
   240       team:= team.Next
   241       team:= team.Next
   241       end;
   242       end;
   242    end;
   243    end;
   243 
   244