--RCA's HUD
--Please use cracker64's script manager
--VER 13 UPDATE {Not Available At Current Time}

--Version 13

print("RCA's HUD")
print("Version XIII")
print("Have Fun!")

local turquoiseOnScript = MANAGER.getsetting("RCA", "turquoiseOn")

local rclr, gclr, bclr = 0, 255, 165
local rSlider, gSlider, bSlider, rtext, btext, gtext
local defaultc, purplec, turquoisec, realisticCheck
local coloruw

if not tpt.version.jacob1s_mod then --support jacob1's mod (jacob1 edit)
--Windows
local window1 = Window:new(-1, -1, 611, 383)
local creditw = Window:new(-1, -1, 611, 383)
local infow = Window:new(-1, -1, 611, 383)
colourw = Window:new(-1, -1, 611, 383)
local messagew = Window:new(-1, -1, 611, 383)
local realisticw = Window:new(-1, -1, 611, 383)

--Texts
local creditsttl = Label:new(270, 1, 50, 15, "CREDITS")
local creditstxt = Label:new(1, 20, 611, 15, "Jacob1, Cracker 64, and the knowledge gained from all Lua programmers in TPT.")
local infotxt = Label:new(1, 20, 611, 15, "How to use RCA's HUD (XIII V.2):")
local instructions = Label:new(1, 40, 611, 15, "To turn the HUD on or off, use the H key on your keyboard.")
local instructions2 = Label:new(1, 60, 611, 15, "To turn on or off the extra level of the HUD (TMP2, VX, VY) use the D key.")
local instructions3 = Label:new(1, 80, 611, 15, "Pressing the M key will engage Realistic Mode. Every five frames WTRV is turned into DSTW")
local instructions4 = Label:new(1, 90, 611, 15, "and all pixels are reset to normal temp. Press M again to turn off.")
local rca = Label:new(500, 5, 100, 15, "RCA Production (2014)")
rtext = Label:new(275, 10, 50, 15)
rtext:text("0")
gtext = Label:new(275, 40, 50, 15)
gtext:text("255")
btext = Label:new(275, 70, 50, 15)
btext:text("165")
local redl = Label:new(325, 10, 50, 15, "Red")
local greenl = Label:new(325, 40, 50, 15, "Green")
local bluel = Label:new(325, 70, 50, 15, "Blue")
local messageText = Label:new(5, 5, 611, 15, "Hallo Sam. Jeg elsker deg... Du er veldig vakker... Jeg er forelsket.")
local messageQuote1 = Label:new(5, 25, 611, 15, "Never get tired of doin' little things for others. Sometimes those little things occupy")
local messageQuote2 = Label:new(5, 40, 611, 15, "the biggest part of their hearts. -lostfox")

--Red Slider
rSlider = Slider:new(10, 10, 255, 15, 255)
rSlider:value(0)
--Green Slider
gSlider = Slider:new(10, 40, 255, 15, 255)
gSlider:value(255)
--Blue Slider
bSlider = Slider:new(10, 70, 255, 15, 255)
bSlider:value(165)

rSlider:onValueChanged(function() rclr = rSlider:value() rtext:text(rclr) end)
gSlider:onValueChanged(function() gclr = gSlider:value() gtext:text(gclr) end)
bSlider:onValueChanged(function() bclr = bSlider:value() btext:text(bclr) end)

--Checkbox Default
defaultc = Checkbox:new(10, 100, 10, 10, "Default")
--Checkbox Purple
purplec = Checkbox:new(10, 120, 10, 10, "Purple")
--Checkbox Turquoise
turquoisec = Checkbox:new(10, 140, 10, 10, "Turquoise")
if turquoisec:checked() == false then
    turquoisec:checked(turquoiseOnScript)
    end
--Realistic Checkbox (Turns realistic ability off)
realisticCheck = Checkbox:new(10, 10, 10, 10, "Disable Realistic Mode")
realisticCheck:checked(false)

--Credits Button
local credits = Button:new(5, 5, 50, 15, "Credits")
credits:action(function() ui.showWindow(creditw) end)
--Close Credits Button
local close2 = Button:new(508, 365, 100, 15, "Close Credits")
close2:action(function() ui.closeWindow(creditw) end)
--Info Button
local info = Button:new(5, 25, 50, 15, "Info")
info:action(function() ui.showWindow(infow) end)
--Close Info Button
local close3 = Button:new(508, 365, 100, 15, "Close Info")
close3:action(function() ui.closeWindow(infow) end)
--Colour Button
local colourButton = Button:new(5, 45, 50, 15, "Colours")
colourButton:action(function() ui.showWindow(colourw) end)
--Close Colour Window
local closeColour = Button:new(508, 365, 100, 15, "Close Colours")
closeColour:action(function() ui.closeWindow(colourw) end)
--Realistic Mode
local realisticb = Button:new(5, 65, 50, 15, "Realistic")
realisticb:action(function() ui.showWindow(realisticw) end)
--Close Realistic
local realisticc = Button:new(508, 365, 100, 15, "Close Realistic")
realisticc:action(function() ui.closeWindow(realisticw) end)
--Message
local message = Button:new(5, 85, 50, 15, "Message")
message:action(function() ui.showWindow(messagew) end)
--Close Message
local messagec = Button:new(508, 365, 100, 15, "Close Message")
messagec:action(function() ui.closeWindow(messagew) end)

--I Button
local infoButton = Button:new(597, 1, 15, 15, "I", "Info about RCA's HUD - Extras")
infoButton:visible(false)
infoButton:action(function() ui.showWindow(window1) end)
--Exit Button
local enterButton = Button:new(558, 365, 50, 15, "Exit")
enterButton:action(function() ui.closeWindow(window1) end)
--C Button
local closeButton = Button:new(597, 97, 15, 15, "C", "Close")
closeButton:visible(false)
closeButton:action(function() infoButton:visible(false) closeButton:visible(false) end)

--E Button
local extraButton = Button:new(613, 97, 15, 15, "E", "Extra Menu - Elements - Info")
extraButton:action(function() infoButton:visible(true) closeButton:visible(true) end)

window1:addComponent(rca)
window1:addComponent(enterButton)
window1:addComponent(credits)
window1:addComponent(info)
window1:addComponent(colourButton)
window1:addComponent(message)
window1:addComponent(realisticb)

creditw:addComponent(close2)
creditw:addComponent(creditsttl)
creditw:addComponent(creditstxt)

infow:addComponent(infotxt)
infow:addComponent(close3)
infow:addComponent(instructions)
infow:addComponent(instructions2)
infow:addComponent(instructions3)
infow:addComponent(instructions4)

colourw:addComponent(rSlider)
colourw:addComponent(rtext)
colourw:addComponent(closeColour)
colourw:addComponent(gSlider)
colourw:addComponent(bSlider)
colourw:addComponent(gtext)
colourw:addComponent(btext)
colourw:addComponent(redl)
colourw:addComponent(greenl)
colourw:addComponent(bluel)
colourw:addComponent(purplec)
colourw:addComponent(defaultc)
colourw:addComponent(turquoisec)

realisticw:addComponent(realisticc)
realisticw:addComponent(realisticCheck)

messagew:addComponent(messagec)
messagew:addComponent(messageText)
messagew:addComponent(messageQuote1)
messagew:addComponent(messageQuote2)

ui.addComponent(extraButton)
ui.addComponent(infoButton)
ui.addComponent(closeButton)
end

hudon = true
hudon2 = false

function keyclicky(key, nkey, modifier, event)
    if (key == "h" and event == 1) then
        hudon = not hudon
        hudon2 = false
    end
    if (key == "d" and event == 1) and hudon == true then
        hudon2 = not hudon2
    end
end

tpt.register_keypress(keyclicky)

function DrawHUD()

MANAGER.savesetting("RCA", "turqoiseOn", turquoisec:checked())