Aaaaand...phew.
I got all of the HUD, except the Captain's Log, and parts of the player logic done.
Making the HUD was quite the arduous process. In fact, it was such an arduous process, I have to show off the code for the HUD because there's just so much drawing code in there. It's
and I still haven't added the Captain's Log.
function hud()
drawset(201, 1, 142)
drawtile(0, 0)
drawset(187, 1, 142)
drawtile(39, 0)
drawset(188, 1, 142)
drawtile(39, 39)
drawset(200, 1, 142)
drawtile(0, 39)
drawset(205, 1, 142)
drawline(1, 0, 22, 0)
drawline(24, 0, 38, 0)
drawline(1, 17, 11, 17)
drawline(13, 17, 22, 17)
drawline(24, 17, 38, 17)
drawline(1, 30, 11, 30)
drawline(13, 30, 23, 30)
drawline(25, 30, 38, 30)
drawline(1, 39, 11, 39)
drawline(13, 39, 23, 39)
drawline(25, 39, 38, 39)
drawset(186, 1, 142)
drawline(0, 1, 0, 16)
drawline(23, 1, 23, 16)
drawline(39, 1, 39, 16)
drawline(0, 18, 0, 29)
drawline(12, 18, 12, 29)
drawline(39, 18, 39, 29)
drawline(0, 31, 0, 38)
drawline(12, 31, 12, 38)
drawline(24, 31, 24, 38)
drawline(39, 31, 39, 38)
drawset(203, 1, 142)
drawtile(23, 0)
drawtile(12, 17)
drawtile(24, 30)
drawset(202, 1, 142)
drawtile(23, 17)
drawtile(12, 39)
drawtile(24, 39)
drawset(185, 1, 142)
drawtile(39, 17)
drawtile(39, 30)
drawset(204, 1, 142)
drawtile(0, 17)
drawtile(0, 30)
drawset(206, 1, 142)
drawtile(12, 30)
drawset(0, 1, 142)
fillrect(1, 1, 22, 16)
fillrect(1, 18, 11, 12)
fillrect(13, 18, 26, 12)
fillrect(1, 31, 11, 8)
fillrect(13, 31, 11, 8)
fillrect(25, 31, 14, 8)
drawtext(6, 3, "CAPTAINS LOG")
drawtext(4, 20, "DEPTH")
drawtext(23, 20, "STATUS")
drawtext(15, 22, "HULL")
drawtext(30, 22, "CREW")
drawtext(3, 33, "HEADING")
drawtext(16, 33, "SPEED")
drawtext(29, 33, "TORPS.")
if keydown(65) then
drawset(27, 142, 1)
else
drawset(27, 1, 142)
end
drawtile(3, 36)
if keydown(68) then
drawset(26, 142, 1)
else
drawset(26, 1, 142)
end
drawtile(9, 36)
if heading == 0 then
drawset(78, 1, 142)
elseif heading == 1 then
drawset(69, 1, 142)
elseif heading == 2 then
drawset(83, 1, 142)
elseif heading == 3 then
drawset(87, 1, 142)
end
drawtile(6, 36)
if keydown(81) then
drawset(27, 142, 1)
else
drawset(27, 1, 142)
end
drawtile(15, 36)
if keydown(69) then
drawset(26, 142, 1)
else
drawset(26, 1, 142)
end
drawtile(21, 36)
drawset(219, 1, 142)
drawline(17, 36, 19, 36)
drawset(8, 1, 142)
if spd == 0 then
drawtile(17, 36)
elseif spd == 1 then
drawtile(18, 36)
elseif spd == 2 then
drawtile(19, 36)
end
if keydown(87) then
drawset(24, 142, 1)
else
drawset(24, 1, 142)
end
drawtile(6, 22)
if keydown(83) then
drawset(25, 142, 1)
else
drawset(25, 1, 142)
end
drawtile(6, 27)
drawset(219, 1, 142)
drawline(6, 23, 6, 26)
drawset(8, 1, 142)
if depth == 0 then
drawtile(6, 23)
elseif depth == 1 then
drawtile(6, 24)
elseif depth == 2 then
drawtile(6, 25)
elseif depth == 3 then
drawtile(6, 26)
end
drawtext(20, 22, hull)
drawtext(35, 22, crew)
if hull < 20 then
drawset(219, 1, 142)
drawtile(16, 24)
drawset(176, 1, 142)
drawline(17, 24, 20, 24)
elseif (hull >= 20 and hull < 40) then
drawset(219, 1, 142)
drawline(16, 24, 17, 24)
drawset(176, 1, 142)
drawline(18, 24, 20, 24)
elseif (hull >= 40 and hull < 60) then
drawset(219, 1, 142)
drawline(16, 24, 18, 24)
drawset(176, 1, 142)
drawline(19, 24, 20, 24)
elseif (hull >= 60 and hull < 80) then
drawset(219, 1, 142)
drawline(16, 24, 19, 24)
drawset(176, 1, 142)
drawtile(20, 24)
elseif hull >= 80 then
drawset(219, 1, 142)
drawline(16, 24, 20, 24)
end
if crew < 20 then
drawset(219, 1, 142)
drawtile(31, 24)
drawset(176, 1, 142)
drawline(32, 24, 35, 24)
elseif (crew >= 20 and crew < 40) then
drawset(219, 1, 142)
drawline(31, 24, 32, 24)
drawset(176, 1, 142)
drawline(33, 24, 35, 24)
elseif (crew >= 40 and crew < 60) then
drawset(219, 1, 142)
drawline(31, 24, 33, 24)
drawset(176, 1, 142)
drawline(34, 24, 35, 24)
elseif (crew >= 60 and crew < 80) then
drawset(219, 1, 142)
drawline(31, 24, 34, 24)
drawset(176, 1, 142)
drawtile(35, 24)
elseif crew >= 80 then
drawset(219, 1, 142)
drawline(31, 24, 35, 24)
end
if torpedo1 == true then
drawset(49, 1, 142)
drawtile(27, 36)
else
drawset(49, 142, 1)
drawtile(27, 36)
end
if torpedo2 == true then
drawset(50, 1, 142)
drawtile(30, 36)
else
drawset(50, 142, 1)
drawtile(30, 36)
end
if torpedo3 == true then
drawset(51, 1, 142)
drawtile(33, 36)
else
drawset(51, 142, 1)
drawtile(33, 36)
end
if torpedo4 == true then
drawset(52, 1, 142)
drawtile(36, 36)
else
drawset(52, 142, 1)
drawtile(36, 36)
end
end