I see where it messed up, in the Potion system, I didn't string it. Thank you for your help.
EDIT: Now, it says THIS code doesn't work. Please Help.
Rem Project: Final Dragon
Rem Created: Sunday, July 11, 2010
Rem ***** Main Source File *****
buy1=1
print "Hello there, what is your name?"
input "",name$
print "Hello there, "+name$+". I am here to guide you throughout your quest"
print "If the text will not continue, or you are prompted to do so, press any key"
wait key
print "Well done, "+name$+""
wait key
print "Now, to choose a race. Elves are excellent archers, while Drakkens, or"
print "Half-Dragons, are great fighters and usually hold their own in a battle."
print "One of each will join your party later in the game. Now, type if you want to"
print "be an Elf or a Drakken"
input "",race$
Racecheck;
if race$="Elf" then goto Elfrace
if race$="Drakken" then goto Drakkenrace
goto Wrongrace
Drakkenrace;
cls
ArcheryWeapon$="Basic Throwing Knives"
MeleeWeapon$="Basic Sword"
Armor$="Light Leather Armor"
currenthealth=1
maxhealth=50
defense=10
archery=0
melee=5
print "Good choice. My name is Alice and I am Elven. Jason, whom you shall meet"
print "later is Drakken. Welcome to the Tutorial, "+name$+" the "+race$+""
wait key
goto TutorialCell1
Elfrace;
cls
ArcheryWeapon$="Basic Bow"
MeleeWeapon$="None"
Armor$="Clothes"
currenthealth=1
maxhealth=20
defense=5
archery=10
melee=5
print "Good choice. My name is Alice and I am Elven. Jason, whom you shall meet"
print "later is Drakken. Welcome to the Tutorial, "+name$+" the "+race$+""
wait key
goto TutorialCell1
Wrongrace;
cls
print "I am sorry, I did not understand that. Try again."
input "",race$
goto Racecheck
TutorialCell1;
cls
print "Alice: Dear lord, it looks like you were hurt. Quick, drink this Potion of Full Heal."
print "To drink a potion, type drink fullheal."
fullhealpotion=fullhealpotion+buy1
input "",actiontutorialcell1$
if actiontutorialcell1$="drink fullheal"
currenthealth=maxhealth
fullhealpotion=fullhealpotion-buy1
goto TutorialCell2
endif
if actiontutorialcell1$<"drink fullheal"
goto misunderstoodtutorialcell1
endif
misunderstoodtutorialcell1;
cls
print "Try Again"
input "",actiontutorialcell1$
if actiontutorialcell1$="drink fullheal"
currenthealth=maxhealth
fullhealpotion=fullhealpotion-buy1
goto TutorialCell2
endif
if actiontutorialcell1$<"drink fullheal"
goto misunderstoodtutorialcell1
endif
TutorialCell2;
print "Now, type check to check stats"
input "",actiontutorialcell2$
goto checktutorialcell2
checktutorialcell2;
if actiontutorialcell2$="check"
goto checkstatsanditemstutorialcell2
endif
if actiontutorialcell2$<"check"
goto misunderstoodtutorialcell2
endif
misunderstoodtutorialcell2;
cls
print "I did not understand. Try again"
goto checktutorialcell2
checkstatsanditemstutorialcell2;
cls
print "Melee Weapon:"
print MeleeWeapon$
print "Archery Weapon:"
print ArcheryWeapon$
print "Armor:"
print Armor$
print "HP:"
print currenthealth
print "Max HP:"
print maxhealth
print "Defense:"
print defense
print "Archery Strength:"
print archery
print "Melee Strength:"
print melee
print "Heal Items:"
print "Potions:"
print normalpotion
print "Half-Heal Potions:"
print halfhealpotion
print "Full-Heal Potions:"
print fullhealpotion
wait key
goto tutorialcell3
tutorialcell3;
cls
print "Alice: Now for the final part. I will join your party and help you kill something."
print "I shall guide you through it."
wait key
print "Alice joined the party! You may now check her stats using check outside of"
print "the tutorial"
print "Alice: Type 'look' to look for monsters."
aliceHP=20
alicemax=20
alicedefense=5
alicearchery=10
alicemelee=5
input "",action$
if action$="look"
goto lookformonsterstutorialcell3
endif
misunderstoodtutorialcell3;
cls
print "Try that command again"
input "",action$
if action$="look" then goto lookformonsterstutorialcell3
if action$<"look" then goto misunderstoodtutorialcell3
lookformonsterstutorialcell3;
cls
print "You see a hostile goblin in the area in front of you. Type 'forward' then 'attack goblin'"
print "to attack the goblin. Then, you can use Battle Commands to fight."
input "",action$
if action$="forward" then goto Tutorialcell4
Tutorialcell4;
cls
print "Alice: Now! Attack the goblin!"
input "",action$
if action$="attack goblin" then goto TutorialLastCell
misunderstoodtutorialcell4;
cls
print "Alice: No! Type 'attack goblin' now!
input "",action$
if action$="attack goblin" then goto TutorialLastCell
if action$<"attack goblin" then goto misunderstoodtutorialcell4
TutorialLastCell;
cls
Enemy1Health=25
EnemyStrength=1
print "Alice: Use the on-screen commands to fight!
print name$+"HP"+HP
print "Alice HP"+aliceHP
print "You are fighting a goblin"
input "Battle Commands(attack, archery)",battlecommands$
if battlecommands$="attack"
gosub AttackTutorial
endif
if battlecommands="archery"
gosub ArcheryTutorial
AttackTutorial;
cls
if MeleeWeapon$="Basic Sword"
yourdamage=melee+rnd(melee)
print "You slash at your opponent and deal"+yourdamage+"damage!"
Enemy1Health=Enemy1Health-yourdamage
yourdamage=0
wait key
if EnemyHealth=0
goto tutorialend
endif
gosub TutorialEnemyTurn
ArcheryTutorial;
cls
if ArcheryWeapon="Basic Bow"
yourdamage=archery+rnd(archery)
print "You shoot an arrow and deal"+yourdamage+"damage!"
Enemy1Health=Enemy1Health-yourdamage
yourdamage=0
if ArcheryWeapon="Basic Throwing Knives"
yourdamage=archery+rnd(archery)
print "You throw a knife and deal"+yourdamage+"damage!"
Enemy1Health=Enemy1Health-yourdamage
yourdamage=0
wait key
if EnemyHealth=0
goto tutorialend
endif
gosub TutorialEnemyTurn
TutorialEnemyTurn;
EnemyDamage=EnemyStrength+rnd(EnemyStrength)
WhosAttacked=1+rnd(1)
if WhosAttacked=1
HP=HP-EnemyDamage
print "The enemy attacks you and deals"+EnemyDamage+"damage!"
endif
if WhosAttacked=2
aliceHP=aliceHP-EnemyDamage
print "The enemy attacks Alice and deals"+EnemyDamage+"damage!"
endif
goto TutorialLastCell
tutorialend;
cls
print "You have finished the demo. Press any key to exit"
wait key
