equal
deleted
inserted
replaced
594 DrawLand(WorldDx, WorldDy); |
594 DrawLand(WorldDx, WorldDy); |
595 |
595 |
596 DrawWater(255, 0); |
596 DrawWater(255, 0); |
597 |
597 |
598 // Attack bar |
598 // Attack bar |
599 // TODO: Add weapon offset |
|
600 if CurrentTeam <> nil then |
599 if CurrentTeam <> nil then |
601 case AttackBar of |
600 case AttackBar of |
602 (* 1: begin |
601 (* 1: begin |
603 r:= StuffPoz[sPowerBar]; |
602 r:= StuffPoz[sPowerBar]; |
604 {$WARNINGS OFF} |
603 {$WARNINGS OFF} |
972 if isCursorVisible then |
971 if isCursorVisible then |
973 begin |
972 begin |
974 if not bShowAmmoMenu then |
973 if not bShowAmmoMenu then |
975 begin |
974 begin |
976 with CurrentHedgehog^ do |
975 with CurrentHedgehog^ do |
977 if (Gear^.State and gstHHChooseTarget) <> 0 then |
976 if (Gear <> nil) and ((Gear^.State and gstHHChooseTarget) <> 0) then |
978 begin |
977 begin |
979 i:= Ammo^[CurSlot, CurAmmo].Pos; |
978 i:= Ammo^[CurSlot, CurAmmo].Pos; |
980 with Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType] do |
979 with Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType] do |
981 if PosCount > 1 then |
980 if PosCount > 1 then |
982 DrawSprite(PosSprite, CursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - CursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
981 DrawSprite(PosSprite, CursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - CursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |