FLOH

'The Lengend of Honeydew
'by DigiDuncan

'DIMs
dim shared as integer TitleLine
dim as string key 'put the dim here not in the do loop in line 107

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
   dim as string Key

    while (timer-TMR) < (Amount/1000)
        locate TitleLine,1,0: color rnd*16
        print "The legend of Honeydew"
        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
    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."
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