TLOH

'The Lengend of Honeydew
'by DigiDuncan

dim shared as integer TitleLine

declare sub Intro()
declare function UpdateTitleWhileWaiting(Amount as integer,RestorePos as integer=1) as integer

Intro()

function UpdateTitleWhileWaiting(Amount as integer,RestorePos as integer=1) as integer
    dim as integer OldLine = csrlin() 'saving the line position
    dim as integer OldCol = pos() 'saving the column position
    dim as double TMR = timer 'get current time (in seconds)
    function = 0

    while (timer-TMR) < (Amount/1000)
        locate TitleLine,1,0: color rnd*16
        print "The legend of Honeydew"
        dim as string Key = inkey$()
        if ucase(Key) = "S" then function=-1:exit while
        if Key <> "" then exit while
        sleep 100,1
    wend

    if RestorePos then
        locate OldLine,OldCol
    end if

end function

sub Intro()
    #macro WaitOrExit(TimeAmount)
    sleep TimeAmount: if ucase(inkey()) = "S" then exit sub
    #endmacro

    PRINT "The Lengend of Honeydew"
    PRINT " By DigiDuncan"
    PRINT "       With help from Mysoft"
    WaitorExit(2000)

    PRINT "A game by DigiGames, Inc.!"
    WaitOrExit(1000)

    PRINT "PRESS S TO SKIP"
    WaitOrExit(1000)

    TitleLine = csrlin()

    UpdateTitleWhileWaiting(2000,0)
    color 7:PRINT "A long time ago..."
    if UpdateTitleWhileWaiting(2000) = -1 then exit sub
    color 7:PRINT "In the world of Kazmohdan..."
    if UpdateTitleWhileWaiting(1000) = -1 then exit sub
    color 7:PRINT "A baby dwarf was born..."
    if UpdateTitleWhileWaiting(1000) = -1 then exit sub
    color 7:PRINT "And this dwarf was named..."
    if UpdateTitleWhileWaiting(1000) = -1 then exit sub
    color 7:PRINT "Honeydew."
    if UpdateTitleWhileWaiting(1000) = -1 then exit sub
    color 7:PRINT "And one day..."
    if UpdateTitleWhileWaiting(1000) = -1 then exit sub
    color 7:PRINT "Something terrible happened."
    if UpdateTitleWhileWaiting(1000) = -1 then exit sub
    color 7:PRINT "A terrible invasion of green rectangular devils overtook Kazmodhan."
    if UpdateTitleWhileWaiting(1000) = -1 then exit sub
    color 7:PRINT "Honeydew's world was in peril."
    if UpdateTitleWhileWaiting(1000) = -1 then exit sub
    color 7:PRINT "Then, a space man came to Kazmohdan."
    if UpdateTitleWhileWaiting(1000) = -1 then exit sub
    color 7:PRINT "And his name was...."
    if UpdateTitleWhileWaiting(1000) = -1 then exit sub
    color 7:PRINT "Xephos."
    if UpdateTitleWhileWaiting(1000) = -1 then exit sub
    color 7:PRINT "Together, Honeydew and Xephos saved Minecraftia, and became heroes!"
    if UpdateTitleWhileWaiting(1000) = -1 then exit sub
    color 7:PRINT "And from that day on, they were the best of friends...."
    if UpdateTitleWhileWaiting(1000) = -1 then exit sub

end sub
SLEEP 3000
cls
SLEEP 1000
color 7:PRINT "The Legend of Honeydew"
SLEEP 2000
color 7:PRINT "PRESS C TO COUNTINUE"
do
    sleep 10,1
loop until ucase(inkey)="C"
color 10:PRINT "Game start!"
SLEEP 5000
color 14:PRINT "You awake on the Yogiverse server with your friend" ;: color 11:PRINT " Xephos " ;: color 14:PRINT "at your side."
SLEEP 2000
color 13:PRINT "A wild " ;: color 10:PRINT "Creeper " ;: color 13:PRINT "approches!"
SLEEP 1000
color 13:PRINT "Do you...?"
PRINT"  A: hit with " ;: color 11:PRINT "diamond sword?"
color 13:PRINT"  B: Push out door, then close door?"
color 13:PRINT "Select A or B."

do
    dim as string key = ucase(inkey())
    color 13:print "The " ;: color 10:PRINT "Creeper " ;: color 13:print "sizzles."
    color 13:print "Do you...?"
    PRINT"  A: hit again?"
    PRINT"  B: leave it there?"
    color 13:PRINT "Select A or B."
    do
        dim as string key = ucase(inkey())
        if key = "A" then
            color 13:print "The " ;: color 10:PRINT "Creeper " ;: color 13:print "dies! Collect " ;: color 6:PRINT"1 " ;: color 2:PRINT"gunpowder."
            goto creeper_win
        elseif key = "B" then
            color 13:print "The " ;: color 10:PRINT "Creeper " ;: color 13:print "explodes! Luckily, your house is bedrock."
            goto creeper_win
            exit do
        end if
        sleep 100, 1

    loop
if key = "B" then
    color 13:print "The " ;: color 10:PRINT "Creeper " ;: color 13:print "stares at you through the iron door, then promtly explodes. Luckily, your house is bedrock."
    goto creeper_win
endif
sleep 100, 1

loop
sleep 1000
creeper_win: color 13:PRINT "You defeated the " ;: color 10:PRINT "Creeper" ;: color 13:PRINT "!"
SLEEP 3000
cls
color 10:PRINT "--CUT SCENE BEGIN--"
color 11:PRINT "Xephos:"
sleep 2000
color 7:print " Good job, Honeydew!"
sleep 2000
print " I got word from " ;: color 11:PRINT "Knight_Peculier" ;: color 7:print " that a new adventure awaits us to the east, beyond the mountains!"
SLEEP 2000
color 11:PRINT " Professor Grizwald " ;: color 7:PRINT "wants us to participate in his latest expedition!"
SLEEP 2000
PRINT " Into the largest seam of redstone in all of Minecraftia!"
SLEEP 2000
color 11:PRINT "Honeydew:"
SLEEP 2000
color 7:print " I already have too much of the bloody stuff. Why would I need more?"
SLEEP 2000
color 11:print "Xephos:"
SLEEP 2000
color 7:print " Not for us, for " ;: color 11:PRINT "Captain_Sparklez" ;: color 7:print "'s latest project: *THE ZORK*!"
SLEEP 2000
color 11:print "Honeydew:"
SLEEP 2000
color 7:print " Give me coffee and a jaffa, and lets do this!!"
SLEEP 2000
color 10:PRINT "--CUT SCENE END--"
SLEEP 1000
color 6:PRINT "Press C to Continue"
do
    sleep 10,1
loop until ucase(inkey)="C"
cls
SLEEP 2000
color 13:PRINT "Do you...?"
PRINT"  A: Eat your " ;: color 11:PRINT "jaffa?"
color 13:PRINT "Select A"

do
    sleep 10,1
loop until ucase(inkey)="A"
color 13:PRINT "Your " ;: color 10:PRINT "energy " ;: color 13:PRINT "is now full!"
SLEEP 3000
cls
SLEEP 2000
color 13:PRINT "Your" ;: color 10:PRINT "iron door " ;: color 13:PRINT "wont open!!"
SLEEP 1000
color 13:PRINT "Do you...?"
PRINT"  A: Craft a " ;: color 11:PRINT "button?"
color 13:PRINT"  B: /give honeydew 46 1?"
color 13:PRINT "Select A or B."
dim key as string
do
    key = ucase(inkey())
    color 13:print "The " ;: color 10:PRINT "button " ;: color 13:print "works!"
    goto door_open
        sleep 100, 1

    loop
if key = "B" then
    color 13:print "The " ;: color 10:PRINT "TNT" ;: color 13:print "explodes! The door is now 'open'."
    goto door_open
end if

sleep 1000
door_open: color 13:PRINT "You escaped your " ;: color 10:PRINT "home" ;: color 13:PRINT "!"
SLEEP 3000
cls