Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '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
- elseif 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
- end if
- 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
- 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
- loop
- sleep 1000
- door_open: color 13:PRINT "You escaped your " ;: color 10:PRINT "home" ;: color 13:PRINT "!"
- SLEEP 3000
- cls
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement