dim sel
dim life
dim fight1sel
dim fight2sel
dim afight1sel
dim afight2sel
dim bosslife
dim mana as int
dim name [8] as char
dim hpp as int
dim lives as int
life=40
lives=2
bosslife=60
mana=30
sub boss
cls
Print "You wander about the"
Print "dark cave, lazily burning"
Print "anyone or anything that"
Print "gets in you way."
wait 60
cls
Print "Finally, you see light."
Print "Your exit the cave, and,"
Print "as your eyes adjust, you"
Print "see what you dont want"
Print "to see. "
wait 50
Print "  Miners, lots of them."
wait 60
cls
Print "The miner overseer steps"
Print "in front of you with a "
Print "pipe in his hand."
Wait 45
cls
Print "Overseer: Well well."
Print "Where'd you come from?"
wait 30
cls
Print "     ATTACKED BY:"
Print "    MINER OVERSEER"
wait 45
for fight3=1 to 1 step 0
cls
Print "What do ya want to do?"
Print "1. Attack him"
Print "2. Let rage take over"
Print "3. Look for a way out"
Print "4. Run"
Print "5. Check stats"
input afight2sel
If afight2sel<1 or afight2sel>5 then
Print "Invalid Selection."
wait 20
cls
end if
if afight2sel=1 then
cls
Print "With new courage, you"
Print "viciously attack. You"
Print "do 5 damage to his ",bosslife
Print "life and he does 10"
Print "to your ",life,"."
waot 60
wait 20
end if
If afight2sel=2 then
cls
Print "You close your eyes."
wait 10
Print "Suddenly, greg crawls"
Print "out of the mine and"
Print "shouts: LOOK OUT GUYS!"
Print "HE'S GONNA BLOW FIRE!"
wait 50
Print "Your attack misses, and"
Print "greg weakly attacks you"
Print "for 4 damage."
life=life-4
mana=mana-5
wait 60
end if
If afight2sel=3 then
cls
Print "You obviously know you"
Print "can't fight all of them."
Print "Frantically, you look"
Print "for a way out. While"
Print "you were doing so, the"
Print "feel of cold metal, and"
Print "then dirt, reaches you."
wait 60
wait 50
cls
Print "You awake in a cage on a"
Print "small freight train. Rain"
Print "pours down on you, making"
Print "you cough and sputter."
wait 60
wait 40
Print "You decide to sleep."
wait 30
Print "=-END OF CHAPTER 1-="
Print "If available, please"
Print "run chapter 2. Press"
Print "    ESC to exit."
Print "=-=-=-=-=-=-=-=-=-=-"
cls
end if
if afight2sel=4 then
cls
Print "You can't. Your surrou-"
Print "nded, remeber?"
wait 40
end if
If afight2sel=5 then
cls
Print "Life: ",life
Print "Mana: ",mana
Print "Lives: ",lives
Print "Name: ",name
Print "Returning in 10"
Print " seconds."
wait 60
wait 40
end if
if life<=0 then
cls
Print "You took one too many"
Print "hits. Your frail body"
Print "falls to the ground,"
Print "and the last thing"
Print "you hear is laugh-"
Print "ter. THE END."
wait 60
cls
Print "You lost a life."
lives=lives-1
life=40
Print lives," lives left."
wait 60
cls
if lives<=0 then
cls
wait 60
Print "You have no lives."
Print "Your saga ends."
Print "Press ESC to exit."
wait 60
input sel
cls
end if
end if
next
end sub
sub winfight1
cls
Print "You close your scaly"
Print "eyes, your throat starts"
Print "to itch. Suddenly, you "
Print "fall backward. The"
Print "smell of burnt flesh"
Print "lingers in the air."
life=life+5
mana=mana-5
if life>40 then
life=40
end if
wait 60
wait 40
cls
Print "Bob passed away."
Print "Greg coughs on smoke."
Print "5 life was recovered."
Print "5 mana was lost."
wait 60
for fight2=1 to 1 step 0
cls
Print "What do ya want to do?"
Print "1. Check on Greg"
Print "2. Step past them"
Print "3. Burn them again"
Print "Enter # Selection."
input afight1sel
If afight1sel<1 or afight1sel>3 then
Print "Invalid Selection."
wait 20
cls
end if
If afight1sel=1 then
cls
Print "You slowly approach"
Print "greg. From a distance,"
Print "he appears to be a"
Print "large huddle of"
Print "coal. He sees you.."
wait 60
cls
Print "Greg: No! PLEASE!"
Print "No more! Spare me!"
wait 60
cls
end if
If afight1sel=2 then
call boss
end if
if afight1sel=3 then
cls
Print "Your eyes close again."
Print "The smell of burnt"
Print "flesh is more prominent"
Print "now."
wait 60
cls
end if
NEXT
end sub
cls
for main=1 to 1 step 0 
Beep 1
wait 20
beep 1
wait 20
beep 2
beep 1
wait 10
beep 3
beep 3
beep 3
Print "    BREATH OF FIRE"
Print "     ____________"
Print "    |_   _   _   _|"
Print "      |  | |  | |  |"
Print "      |  | |  | |  |"
Print "     _|  | |  | |  |_"
Print "    |____________|"
wait 30
Print "Text Version Ported By:"
Print "       Ian Moore"
Print "    idea@airmail.net"
wait 60
Print "A mysterious power..."
wait 10
Print " An unlikely hero..."
wait 10
Print "  A Classic Adventure..."
wait 30
Print "Press any key.."
for i=1 to 2 step 0
if key<>0 then
exit for
end if
for menu=1 to 1 step 0
cls
Print "Welcome to BOF III."
Print "What would ya like to do?"
wait 10
Print "1. Begin The Game"
Print "2. Instructions"
Print "3. Exit"
Print "Enter # Selection"
input sel
if sel>3 or sel<1 then
print "Invalid Selection."
wait 20
End if
If sel>=1 then 
If sel=1 then
cls
Print "In an ancient cave, large,"
Print "blue, sparkling crystals"
Print "are skattered about the "
Print "mine they call Dauna Mine."
wait 60
wait 60
Print "2 miners approach a"
Print "crystal."
print
Print "Bob: Aww damnit. Is that"
Print "what I think it is?"
Print "Greg: Looks like.. yea."
Print "Lets make sure it's "
Print "smashed, just like the"
Print "others."
wait 60
wait 40
cls
Print "The miners approach the"
Print "crystal that seems like"
Print "it embodies a small"
Print "creature in it."
wait 60
cls
Print
Print
Print "      a Dragon."
wait 30
print
wait 5
print
wait 5
print
wait 5
Print
cls
Print "Suddenly, the crystal"
Print "glows bright purple,"
Print "and shatters. With a"
Print "primal scream the"
Print "baby dragon emerges."
wait 45
Print "       You."
wait 60
cls
Print "  What is your name?"
Print "[Make sure it's correct]"
Print "  [Max 8 charecters]"
input name
cls
wait 20
Print "HISSSS! ",name,"!! ARGGH!"
wait 20
cls
Print "     ATTACKED BY:"
Print "     BOB AND GREG"
wait 20
for fight=1 to 1 step 0
Print "What do you want to do?"
Print "1.Attack Them"
Print "2.Let rage take over"
Print "3.Run"
Print "4.Check Stats"
Print "Enter # Selection."
input fight1sel
If fight1sel<1 or fight1sel>4 then
Print "Invalid Selection."
wait 20
cls
end if
If fight1sel=1 then
cls
Print "You attack them, but"
Print "your frail claws barely"
Print "scratch them. They"
Print "laugh and hit you with"
Print "a club for 5 damage."
life=life-5
wait 60
end if
If fight1sel=2 then
call winfight1
end if
If fight1sel=3 then
cls
Print "The only way out is"
Print "through the two men."
Print "While you hesitated,"
Print "Greg smacks you for"
Print "5 damage. Returning"
Print " in 10 seconds."
life=life-5
wait 60
wait 40
end if
If fight1sel=4 then
cls
Print "Life: ",life
Print "Mana: ",mana
Print "Lives: ",lives
Print "Name: ",name
wait 60
wait 30
end if
if life<=0 then
cls
Print "You took one too many"
Print "hits. Your frail body"
Print "falls to the ground,"
Print "and the last thing"
Print "you hear is laugh-"
Print "ter. THE END."
wait 60
cls
Print "You lost a life."
lives=lives-1
life=40
Print lives," lives left."
wait 60
cls
if lives<=0 then
cls
wait 60
Print "You have no lives."
Print "Your saga ends."
Print "Press ESC to Exit."
wait 60
input sel
cls
end if
end if
next
END IF
If sel=2 then
cls
Print "Breath of Fire III is a"
Print "text-based RPG game.."
wait 45
cls
Print "All you do is follow the"
Print "story and make choices."
Print "Should you have any"
Print "questions, email me."
Wait 60
print "Press any key to return"
Print "to menu."
for j=1 to 2 step 0
if key<>0 then
exit for
end if
next
end if
if sel=3 then
cls
Print "Thank you for playing"
Print " BREATH OF FIRE III"
wait
Print " © 2000 Ian Moore"
wait
Print "Press ESC to Exit."
input sel
end if
end if
next 
next
next