Sorry your browser is not supported!

begin:
cls
center text screen width()/2,10,"Welcome to the BloodBane"
paste image 1,1,1:paste image 1,724,1

center text screen width()/2,100,"You are a lonely traveler."
center text screen width()/2,130,"Your only goal in live is to find the ancient BloodBane stone."
center text screen width()/2,160,"The BloodBane stone was fought over for many centuries"
center text screen width()/2,190,"becuase of its power to heal anyone it touches."
center text screen width()/2,220,"You have 8 days to find the BloodBane before you die."
center text screen width()/2,250,"May luck be with you, as you will need it."
paste image 2,350,300
center text screen width()/2,550,"Press any key."
wait key
cls
`main



gosub setup




gosub part1








part1:
print "Alexander:"
print "Hello ";name$;"!"
print "May I offer you this bread?"
input cho$
if cho$="y"
print "You got food poisoning!"
print "You lose one day as you were sick!"
print "Press any key."
day=day+1
endif
if cho$="n"
print "Very well then. Good-bye!"
print "Press any key."
endif
wait key
cls
gosub part2

part2:
print "You continue your travels toward the BloodBane"
print "But as you are walking you see a man, fairly tall with a stout moustach and just standing there."
print "You are puzzled and are drawn closer to his razor sharp eyes."
print "The Man:"
print "Now what, do you want a peice of me!!"
print "Will you accept his challenge?"
input cho$
if cho$="y"
print "I like your style, i'll show you a short-cut to what you seek."
print "You have just lost 1 day of travel time with this short-cut."
print "You thank the man and continue your travels."
print "Press any key."
day=day-1
endif
if cho$="n"
print "Good, now scram!"
print "Press any key."
endif
wait key
cls
gosub part3


part3:
print "You see a petite shop in the far horizon, but it is off from your destination."
print "Will you head to the shop?"
input cho$
if cho$="y"
print "You set a course for the shop."
print "You thank the man and continue your travels."
print "1 day has passed."
print "Press any key."
day=day+1
wait key
gosub part4a
endif
if cho$="n"
print "You continue towards the BloodBane."
print "1 day has passed."
day=day+1
print "Press any key."
wait key
cls
gosub part5
endif


part4a:
print "Shop-keeper:"
print "Welcome to the potion shop"
print " *Mumble* All your potion needs at one low cost. *Mumble* "
print "You then walk over to an cracked old sign that reads:"
print "Solve this riddle for one free potion"

print "It's more powerful than God."
print "It's more evil than the devil."
print "The poor have it."
print "The rich need it."
print "If you eat it, you'll die."
print "What am I?"
input answer$
if answer$="nothing"
print "You tell the shop-keeper your answer and she says you are correct."
print "You drink the potion and get warped into the closer to the BloodBane than ever."
print "Press any key."
wait key
cls
gosub part10
else
print "You tell the shop-keeper your answer and she says you are wrong."
print "You head back to your travels not wanting to waste anymore time."
print "You lose 1 day getting back on course."
print "Press any key."
day=day+1
wait key
cls
gosub part5
endif

part5:
print "You pass by your hometown of ";place$;"."
print "You stop seeking food and water."
print "In ";place$;" you meet a fish monger who seems having trouble with buisness."
print "Will you help him?"
input cho$
if cho$="y"
print "You work long and hard all day."
print "Fish Monger:"
print "Thank you lad."
print "Suddenly the Fish monger dies because of a heart attack."
print "The villagers do not know what to think of it and exile you from ";place$
print "You never get your reward and loose 1 day."
print "Press any key."
day=day+1
wait key
cls
gosub part6
endif
if cho$="n"
print "You continue your journeys to BloodBane."
print "Press any key."
cls
gosub part6
endif


part6:
print "It is just the brink of dawn and you see a rather round cave entrance."
print "Will you go in the cave?"
input cho$

if cho$="y"
print "You walk towards the cave and it is eerily quiet."
print "Sundenlly you spot a old stone tablet with markings on it."
print "The markings are as follows:"
print "het honecs eon"
print "You are puzzled and look and look at it over and over again."
print "What does this mean?"
input answer$
if answer$="the chosen one"
print "You say your answer aloud and there is a creepy echo."
print "Suddenly the cave collapses and you barely escape."
print "You continue your travels."
print "Press any key."

wait key
cls

gosub part7

else

print "You say your answer aloud and there is a creepy echo."
print "Suddenly the cave collapses and you you are crushed by hundreds of stones."
print "You lose 1 day because you had to haul rocks of you with your arms."
print "You continue your travels."
print "Press any key."
day=day+1
wait key
cls

gosub part7

endif
endif


if cho$="n"
print "You continue your travels."
wait key
cls
gosub part7
endif

part7:
print "For this day there is no surprises."
print "You continue you travels."
day=day+1
print "Press any key"
wait key
gosub part8

part8:
print "You enter a mountanuos region and you are sercumed to the bueaty of the rolling slopes and snow covered peaks."
print "You finally see something in the sky, you do not know what to make of it as it plumits to the ground."
print "It is the fairy of hope."
print "The fairy says:"
print "Hello, ";name$
print "Since I am hope I will offer you a challenge, if you lose you will die."
print "But if you win, I will take you to BloodBare. This will not be easy and is totaly optional."
print "Will you accept the fairy's challenge?"
input cho$
if cho$="y"
print "The challenge is:"
print "How many animals of each species did Moses take on the ark?"
input answer$
if answer$="none"
print "Wow. your good!!!"
print "Well as promised I will take you to BloodBare."
print "One wave of her wond and poof!!! You were at BloodBare."
print "Press any key"
wait key
cls
gosub BB

else

print "Wow. your good!!!"
print "but not good enough."
print "One wave of her wond and poof!!! You were at Dead on the ground, lifeless."
print "Press any key"
wait key
cls
goto begin

endif
endif

if cho$="n"
print "Very well then."
print " 'Gday ";name$;"."
print "Press any key."
wait key
cls
gosub part9
endif

part9:
print "You have stoped to overthink what you have been through for the past ";day;"s"
print "You rest all day and lose 2 days."
day=day+2
print "Press any key."
wait key
cls
check(day)
gosub part10




part10:
print "You stumble upon a huge statue on your journey."
print "Both hands on the statue are pointed right."
print "You notice a dile on the base of he statue."
print "Will you turn it right or left?"
input cho$
if cho$="r"
print "The statue explodes and you are uncounscois for to days."
print "You lose 2 turns."
day=day+2
print "Press any key."
cls
wait key
check(day)
gosub part11:
endif

if cho$="l"
print "The statue moans and you continue to BloodBare."
print "Press any key."
wait key
cls
gosub part11:
endif


part11:
print "There is a huge monument in front of you, for it holds the BloodBare."
print "You approach quickly and touch the ancient marvel."
print "Press any key."
wait key
cls
gosub BB



BB:
paste image 2,350,300
center text screen width()/2,220,"May luck has been with you, as you hav succesfully navigated puzzles,riddles,dungeons and more!!!."
center text screen width()/2,250,"Press any key to goto main menu."
wait key
goto begin

setup:
print "What is your name new traveler?"
input name$
print "What is your age ";name$
input age
print "Where are you from?"
input place$
print "Thank you ";name$;" of ";place$;" at age ";age
wait 2500
cls
return

function check(day)
if day=>8
cls
print "You did not get to BloodBare fast enough."
print "Press any key to goto the main menu."
wait key
goto begin
endif
endfunction