Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '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())
- if key = "A" then
- 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 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())
- if key = "A" then
- color 13:print "The " ;: color 10:print "button " ;: color 13:print "works!"
- goto door_open
- elseif 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 100, 1
- loop
- sleep 1000
- door_open: color 13:print "You escaped your " ;: color 10:print "home" ;: color 13:print "!"
- sleep 3000
- cls
- SLEEP
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement