equal
deleted
inserted
replaced
863 // Target |
863 // Target |
864 if (TargetPoint.X <> NoPointX) and (CurrentTeam <> nil) and (CurrentHedgehog <> nil) then |
864 if (TargetPoint.X <> NoPointX) and (CurrentTeam <> nil) and (CurrentHedgehog <> nil) then |
865 begin |
865 begin |
866 with PHedgehog(CurrentHedgehog)^ do |
866 with PHedgehog(CurrentHedgehog)^ do |
867 begin |
867 begin |
868 if (CurAmmoType = amBee) then |
868 if CurAmmoType = amBee then |
869 DrawRotatedF(sprTargetBee, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
869 DrawRotatedF(sprTargetBee, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
870 else |
870 else |
871 DrawRotatedF(sprTargetP, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360); |
871 DrawRotatedF(sprTargetP, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
872 end; |
872 end |
873 end; |
873 end; |
874 {$WARNINGS ON} |
874 {$WARNINGS ON} |
875 |
875 |
876 // this scale is used to keep the various widgets at the same dimension at all zoom levels |
876 // this scale is used to keep the various widgets at the same dimension at all zoom levels |
877 SetScale(cDefaultZoomLevel); |
877 SetScale(cDefaultZoomLevel); |
1142 if not bShowAmmoMenu then |
1142 if not bShowAmmoMenu then |
1143 begin |
1143 begin |
1144 with CurrentHedgehog^ do |
1144 with CurrentHedgehog^ do |
1145 if (Gear <> nil) and ((Gear^.State and gstHHChooseTarget) <> 0) then |
1145 if (Gear <> nil) and ((Gear^.State and gstHHChooseTarget) <> 0) then |
1146 begin |
1146 begin |
|
1147 if CurAmmoType = amNapalm then |
|
1148 DrawLine(-3000, topY-300, 7000, topY-300, 3.0, (Team^.Clan^.Color shr 16), (Team^.Clan^.Color shr 8) and $FF, Team^.Clan^.Color and $FF, $FF); |
1147 i:= GetAmmoEntry(CurrentHedgehog^)^.Pos; |
1149 i:= GetAmmoEntry(CurrentHedgehog^)^.Pos; |
1148 with Ammoz[CurAmmoType] do |
1150 with Ammoz[CurAmmoType] do |
1149 if PosCount > 1 then |
1151 if PosCount > 1 then |
1150 DrawSprite(PosSprite, CursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - CursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
1152 DrawSprite(PosSprite, CursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - CursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
1151 end; |
1153 end; |