Sorry your browser is not supported!

Rem Project: Final Dragon
Rem Created: Sunday, July 11, 2010

Rem ***** Main Source File *****

Begin:
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
alicemeleeweapon$="Basic Bow"
alicearcheryweapon$="None"
alicearmor$="Clothes"
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 "Your HP:"
print currenthealth
print "Alice HP:"
print aliceHP
print "You are fighting a goblin"
input "Battle Commands(attack, archery)",battlecommands$
if battlecommands$="attack" 
goto AttackTutorial
endif
if battlecommands$="archery" 
goto ArcheryTutorial
endif
AttackTutorial:
cls
if MeleeWeapon$="Basic Sword"
yourdamage#=melee+rnd(melee)
print "You slash at your opponent and deal":print yourdamage#:print "Damage!"
Enemy1Health=Enemy1Health-yourdamage
yourdamage#=0
wait key
endif
if MeleeWeapon$="None"
print "You cannot do that!"
wait key
goto TutorialEnemyTurn
endif
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":print yourdamage#:print "Damage!"
Enemy1Health=Enemy1Health-yourdamage
yourdamage#=0
endif
if ArcheryWeapon$="Basic Throwing Knives"
yourdamage#=archery+rnd(archery)
print "You throw a knife and deal":print yourdamage#:print "Damage!"
Enemy1Health=Enemy1Health-yourdamage
yourdamage#=0
wait key
endif
if EnemyHealth=0
goto tutorialend
endif
gosub TutorialEnemyTurn
TutorialEnemyTurn:
EnemyDamage#=EnemyStrength+rnd(EnemyStrength)
WhosAttacked=1+rnd(1)
if WhosAttacked=1
currenthealth=currenthealth-EnemyDamage#
print "The enemy attacks you and deals":print EnemyDamage#:print "damage!"
endif
if WhosAttacked=2
aliceHP=aliceHP-EnemyDamage#
print "The enemy attacks Alice and deals":print EnemyDamage#:print "damage!"
endif
if currenthealth=0
print "You Are Dead."
wait key
end
endif
if aliceHP=0
print "Alice has died in battle..."
wait key
goto TutorialLastCell
endif
if currenthealth<0
print "You Are Dead."
wait key
end
endif
if aliceHP<0
print "Alice has died in battle..."
goto TutorialLastCell
endif
goto TutorialAliceTurn
TutorialAliceTurn:
cls
print "Alice: Use the on-screen commands to fight!"
print "Your HP:"
print currenthealth
print "Alice HP:"
print aliceHP
print "You are fighting a goblin"
input "Alice's Turn! Battle Commands(attack, archery)",battlecommands$
if battlecommands$="attack"
goto AliceAttackTutorial
endif
if battlecommands$="archery"
goto AliceArcheryTutorial
endif
AliceAttackTutorial:
cls
if alicemeleeweapon$="Basic Sword"
yourdamage#=melee+rnd(melee)
print "Alice slashs at your opponent and deals":print yourdamage#:print "Damage!"
Enemy1Health=Enemy1Health-yourdamage
yourdamage#=0
wait key
endif
if alicemeleeweapon$="None"
print "You cannot do that!"
wait key
goto TutorialLastCell
endif
if Enemy1Health=0
goto tutorialend
endif
goto TutorialEnemyTurn
AliceArcheryTutorial:
cls
if alicearcheryweapon$="Basic Bow"
yourdamage#=archery+rnd(archery)
print "Alice shoots an arrow and deals":print yourdamage#:print "Damage!"
Enemy1Health=Enemy1Health-yourdamage
yourdamage#=0
endif
if alicearcheryweapon$="Basic Throwing Knives"
yourdamage#=archery+rnd(archery)
print "Alice throws a knife and deals":print yourdamage#:print "Damage!"
Enemy1Health=Enemy1Health-yourdamage
yourdamage#=0
wait key
endif
if Enemy1Health=0
goto tutorialend
endif
goto TutorialLastCell
tutorialend:
cls
print "You have finished the demo. Press any key to exit"
wait key

Joined: Thu Jul 15th 2010
Location: Cyberspace
	
Posted: 5th Aug 2010 14:03     Edited: 5th Aug 2010 16:38 	    | link | toggle
If we do a Text Adventure you can use the text battle system I made:
+ Code Snippet

Rem Project: Text Game
Rem Created: 7/16/2010 12:37:38 AM

Rem ***** Main Source File *****
Global Potion as Integer
sw = screen width()
set text font "Ariel"
set text size 15
fighting: ` make the main program first
Potion = 1
EnStr$ = "Your enemy's health is "
Attack$ = ""
EAttack$ = ""
Ehealth# = rnd(200)+350
Gosub Weapons
Gosub Enemy
Gosub Armor
Do
  Done = 0
  CLS
  Box 10,340,200,440, rgb(255,0,0), rgb(255,0,0), rgb(255,0,0), rgb(255,0,0)
  Box 600,320,790,400, rgb(0,255,0), rgb(0,255,0), rgb(0,255,0), rgb(0,255,0)
  Box 10,50,50,200
  Box 10,10,Yhealth/2, 20, rgb(255,0,0), rgb(255,0,0), rgb (0,255,0), rgb(0,255,0)
  Box Yhealth/2, 10 , 210, 20, rgb(0,0,0), rgb(0,0,0), rgb(0,0,0), rgb(0,0,0)
  box sw - Ehealth#/2,10,sw-10,20, rgb(255,0,0), rgb(255,0,0), rgb(0,255,0), rgb(0,255,0)
  box sw-Ehealth#/2,10,sw-Ehealth#/2,20, rgb(0,0,0), rgb(0,0,0), rgb(0,0,0), rgb(0,0,0)
  EDefence = 0
  Block = 0 ` so there arent lots of these words below clogging up memory and space
  Center Text 320, 290,"The Enemy is "+Enemy$
  Center Text 320, 270,"You are equiped with a "+Weapon$
  Center Text 320, 250,"Your armor set is "+Armor$
  Center Text 320, 230,EnStr$ + str$(Ehealth#)
  Center Text 320, 210,"Your health is "+str$(Yhealth)
  Center Text 320, 190,Attack$
  Center Text 320, 170,EAttack$
  Center Text 320, 150,"Click red button to do a charge and attack.Press Green button to do a block with your shield and then shield slam."
  If Potion = 1
    Center Text 320, 130,"Click white button to drink a Health Potion"
  endif
  Gosub GUI
loop


Weapons:
  WeaponSR = rnd(5)+1 ` randomize for the results
  DIM Weapons#(6) ` make an array(IDK why?)
  If WeaponSR = 1 `makin the weapons
    Weapon$ ="Axe"
  ENdif
  If WeaponSR = 2
    Weapon$= "Gladius"
  Endif
  If WeaponSR = 3
    Weapon$= "Spear"
  Endif
  If WeaponSR = 4
    Weapon$= "Inflatable Duck"
  Endif
  If WeaponSR = 5
    Weapon$= "Shoop Da WHOOP"
  Endif
  If WeaponSR = 6
    Weapon$= "Chainsaw"
  Endif
Return

Enemy:
  EnemySR = rnd(5)+1
  DIM Enemys#(6)
  If EnemySR = 1
    Enemy$ = "a Orc"
  Endif
  If EnemySR = 2
    Enemy$ = "a Fire-Drake"
  Endif
  If EnemySR = 3
    Enemy$ = "an Enemy Trooper"
  Endif
  If EnemySR = 4
    Enemy$ = "Barack Obama"
  Endif
  If EnemySR = 5
    Enemy$ = "ChangBiao Luo"
  Endif
  If EnemySR = 6
    Enemy$ = "Paul The Octopus"
  Endif
  Return

 Armor:
 ArmorSR = rnd(5)+1
 DIM Armor#(6)
 If ArmorSR = 1
   Armor$ = "Mithril Ring-Mail Armor"
 Endif
 If ArmorSR = 2
   Armor$ = "Mithril Plate Armor"
 Endif
 If ArmorSR = 3
   Armor$ = "Titanium Plate Armor"
 Endif
 If ArmorSR = 4
   Armor$ = "Titanium Ring-Mail Armor"
 Endif
 If ArmorSR = 5
   Armor$ = "Steel Ring-Mail Armor"
 Endif
 If ArmorSR = 6
   Armor$ = "Steel Plate Armor"
 Endif
 gosub YourHealth
Return

Charge:
if WeaponSR = 1
  Hitpos = rnd(5)
  if Hitpos = 0
    Attack$ = "You swing your axe but miss."
  else
    YDamage# = rnd(89)+35
    If EDefence = 1
      YDamage# = YDamage#/10
    endif
    Attack$ = "You swing your axe and hit him for "+str$(YDamage#)+" damage."
    Ehealth# = Ehealth# - YDamage#
  Endif
Endif
if WeaponSR = 2
  Hitpos = rnd(6)
  if Hitpos = 0
    Attack$ = "You slash your gladius but miss."
  else
  YDamage# = rnd(80)+25
    If EDefence = 1
      YDamage# = YDamage#/10
    endif
    Attack$ = "You slash your Gladius and hit him for "+str$(YDamage#)+" damage."
    Ehealth# = Ehealth# - YDamage#
  Endif
endif
if WeaponSR = 3
  Hitpos = rnd(9)
  if Hitpos = 0
    Attack$ = "You jab your spear but miss."
  else
  YDamage# = rnd(60)+20
    If EDefence = 1
      YDamage# = YDamage#/10
    endif
    Attack$ = "You jab your spear and hit him for "+str$(YDamage#)+" damage."
    Ehealth# = Ehealth# - YDamage#
  Endif
endif
if WeaponSR = 4
  Hitpos = rnd(15)
  if Hitpos = 0
    Attack$ = "You throw your Inflatable Duck but miss."
  else
  YDamage# = rnd(70)+10
    If EDefence = 1
      YDamage# = YDamage#/10
    endif
    Attack$ = "You throw your Inflatable Duck and hit him for "+str$(YDamage#)+" damage."
    Ehealth# = Ehealth# - YDamage#
  endif
endif
if WeaponSR = 5
  Hitpos = rnd(1)
  if Hitpos = 0
    Attack$ = "You shoot your Shoop Da WHOOP but miss."
  else
  YDamage#=rnd(250)+60
    If EDefence = 1
      YDamage# = YDamage#/10
    endif
    Attack$ = "You shoot your Shoop DA WHOOP and hit him for "+str$(YDamage#)+" damage."
    Ehealth# = Ehealth# - YDamage#
  endif
endif
if WeaponSR = 6
  Hitpos = rnd(13)
  if Hitpos = 0
    Attack$ = "You revup your chainsaw but miss."
  else
  YDamage#=rnd(40)+15
    If EDefence = 1
      YDamage# = YDamage#/10
    endif
    Attack$ = "You rev up your chainsaw and hit him for "+str$(YDamage#)+" damage."
    Ehealth# = Ehealth# - YDamage#
  endif
endif
  if Ehealth#<1
    do
      cls
      Print " You OWNED that scrub! Play again(Y/N)?"
      If keystate(21)=1
        goto fighting
      endif
      If keystate(49)=1
        end
      endif
    loop
  endif
  Done = 1
return

YourHealth:
  If ArmorSR = 1
    Yhealth = 500
  endif
  If ArmorSR = 2
    Yhealth = 550
  endif
  If ArmorSR = 3
   Yhealth = 450
  endif
  If ArmorSR = 4
   Yhealth = 400
  endif
  If ArmorSR = 5
    Yhealth = 300
  endif
  If ArmorSR = 6
    Yhealth = 350
  endif
return

Shield:
  ShieldHap = rnd(4)
  if ShieldHap = 0
    Block = 0
    Attack$ = "Your block didnt work"
  else
    SAttack = rnd(5)+1
    Block = 1
    Ehealth# = Ehealth# - SAttack
    Attack$ = "The Shield slam was a sucess"
  endif
  if Ehealth#<1
    do
      cls
      Print " You OWNED that scrub! Play again(Y/N)?"
      If keystate(21)=1
        goto fighting
      endif
      If keystate(49)=1
        end
      endif
    loop
  endif
  Done = 1
Return

EAttack:
  if EnemySR = 1
    Ehitpos = rnd(5)
    If Ehitpos = 0
      EAttack$ = "The Orc slashed his sword but missed."
    else
      EDamage = rnd(60)+20
      if Block = 1
        EDamage = EDamage/10
      Endif
      EAttack$ = "The Orc hit you with his sword for "+str$(EDamage)+" damage."
      Yhealth = Yhealth - EDamage
    endif
  endif
  if EnemySR = 2
    Ehitpos = rnd(5)
    If Ehitpos = 0
      EAttack$ = "The Fire-Drake blocked"
      Def = 1
    else
      EDamage = rnd(80)+30
      if Block = 1
        EDamage = EDamage/10
      Endif
      EAttack$ = "The Fire-Drake hit for "+str$(EDamage)+" damage."
      Yhealth = Yhealth - EDamage
    endif
  endif
  if EnemySR = 3
    Ehitpos = rnd(10)
    If Ehitpos = 0
      EAttack$ = "The Enemy Trooper slashed his sword but missed."
    else
    EDamage = rnd(70)+5
      if Block = 1
        EDamage = EDamage/10
      Endif
      EAttack$ = "The Enemy Trooper hit you with his sword for "+str$(EDamage)+" damage."
      Yhealth = Yhealth - EDamage
    endif
  endif
  if EnemySR = 4
    Ehitpos = rnd(1)
    If Ehitpos = 0
      EAttack$ = "Barack Obama had gone into Defense Mode."
      Def = 1
    else
      EDamage = rnd(200)+100
      if Block = 1
        EDamage = EDamage/10
      Endif
      EAttack$ = "Obama called the milatary and they hit you for "+str$(EDamage)+" damage."
      Yhealth = Yhealth - EDamage
    endif
  endif
  if EnemySR = 5
    Ehitpos = rnd(3)
    If Ehitpos = 0
      EAttack$ = "ChangBiao Luo is being stupid and missed."
    else
      EDamage = rnd(150)+30
      if Block = 1
        EDamage = EDamage/10
      Endif
      EAttack$ = "ChangBiao Luo yelled at you for "+str$(EDamage)+" damage."
      Yhealth = Yhealth - EDamage
    endif
  endif
  if EnemySR = 6
    Ehitpos = rnd(5)
    If Ehitpos = 0
      EAttack$ = "Paul the Octopus missed you."
    else
      EDamage = rnd(70)+5
      if Block = 1
        EDamage = EDamage/10
      Endif
      EAttack$ = "Paul the Octopus predicted you would get hit for "+str$(EDamage)+" damage."
      Yhealth = Yhealth - EDamage
    endif
  endif
    if Yhealth<1 ` you lose sucka
    do
    cls
      Print " Im sorry, you lost. Play again(Y/N)?"
      if keystate(21) =1
        gosub fighting
      endif
      if keystate(49) =1
        end
      endif
    loop
  endif
return


PotionCheck:
  If Potion = 1
    Gosub PotionDrink
  Else
    EAttack$ = "Oops. You don't have a potion. You wasted a turn"
  Endif
  Done = 1
return

PotionDrink:
If EnemySR = 4
    Yhealth = Yhealth + 150
    Attack$ = "Your health has increased by 150"
    Potion = 0
  Else
    Yhealth = Yhealth + 100
    Attack$ = "Your health has increased by 100"
    Potion = 0
Endif
return

function mouseWithin(x1,y1,x2,y2)
   mx = mousex()
   my = mousey()
   if mx>=x1 and mx<=x2 and my>=y1 and my<=y2 then exitfunction 1
endfunction 0

GUI:
wait 500
Click1 = 0
Click2 = 0
Click3 = 0
repeat
  If mouseclick() = 1 and Click1 = 0
    If mouseWithin(10,340,200,440) = 1 and Click1 = 0
      Gosub ClickRed
      endif
      endif
    if mouseclick() = 0 then Click1 = 0
  If Mouseclick() = 1 and Click2 = 0
    If mouseWithin(600,320,790,400) = 1 and Click2 = 0
      Gosub ClickGreen
    endif
  endif
  If Mouseclick() = 0 then Click2 = 0
  If mouseclick() = 1 and Click3 =0
      If mouseWithin(10,50,50,200) = 1 and Click3 = 0
        gosub PotionCheck
      endif
  endif
until Done = 1
return

ClickRed:
  Gosub Charge
  Gosub EAttack
return

ClickGreen:
  Gosub Shield
  Gosub EAttack
return

Rem Project: Final Dragon
Rem Created: Sunday, July 11, 2010

Rem ***** Main Source File *****

` Make random number picking more random
randomize timer()

input "Hello there, what is your name? ";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." 

do

 input "Pick your race ( ELF or DRAKKEN )-> ";race$

 ` Change user input to higher case letters (using another string)
 a$=upper$(race$)
 
 ` Define Elf Stats
 if a$="ELF"
  ArcheryWeapon$="Basic Bow"
  MeleeWeapon$="None"
  Armor$="Clothes"
  currenthealth=1
  maxhealth=20
  defense=5
  archery=10
  melee=0
  ` Leave the DO/LOOP
  exit
 endif
 
 ` Define Drakken Stats
 if a$="DRAKKEN"
  ArcheryWeapon$="Basic Throwing Knives"
  MeleeWeapon$="Basic Sword"
  Armor$="Light Leather Armor"
  currenthealth=1
  maxhealth=50
  defense=10
  archery=5
  melee=5
  ` Leave the DO/LOOP
  exit
 endif
 
 ` If the user didn't type ELF or DRAKKEN show this (because if they did it would of left the DO/LOOP by now)
 print "I am sorry, I did not understand that. Try again."

loop

cls

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

cls
print "Alice: Dear lord, it looks like you were hurt. Quick, drink this Potion of Full Heal."
` Increase the number of full health potions
inc fullhealpotion

do

 input "To drink a potion, type DRINK FULLHEAL > ";actiontutorialcell1$

 ` Change user input to higher case letters (using another string)
 a$=upper$(actiontutorialcell1$)

 ` Check for DRINK FULLHEAL
 if a$="DRINK FULLHEAL"
  ` Heal player
  currenthealth=maxhealth
  ` Decrease the number of full health potions
  dec fullhealpotion
  ` Leave the DO/LOOP
  exit
 endif

 ` Show that the user didn't type it right
 print "Try Again"

loop

do

 input "Now, type CHECK to check stats > ";actiontutorialcell2$

 ` Change user input to higher case letters (using another string)
 a$=upper$(actiontutorialcell2$)

 ` Check on CHECK
 if a$="CHECK"
  cls
  print "Melee Weapon: "+MeleeWeapon$
  print "Archery Weapon: "+ArcheryWeapon$
  print "Armor: "+Armor$
  print "HP: "+str$(currenthealth)
  print "Max HP: "+str$(maxhealth)
  print "Defense: "+str$(defense)
  print "Archery Strength: "+str$(archery)
  print "Melee Strength: "+str$(melee)
  print "Heal Items"
  print "Potions: "+str$(normalpotion)
  print "Half-Heal Potions: "+str$(halfhealpotion)
  print "Full-Heal Potions: "+str$(fullhealpotion)
  ` Leave the DO/LOOP
  exit
 endif

 ` Show that they messed up
 print "I did not understand. Try again"
 
loop

wait key
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
alicemeleeweapon$="Basic Bow"
alicearcheryweapon$="None"
alicearmor$="Clothes"

do

 input "Alice: Type 'look' to look for monsters. > ";action$

 ` Change user input to higher case letters (using another string)
 a$=upper$(action$)

 ` Check for LOOK and leave the DO/LOOP
 if a$="LOOK" then exit
 
 ` User messed up again
 print "Try that command again"

loop

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."

do
 
 input "> ",action$
 
 ` Change user input to higher case letters (using another string)
 a$=upper$(action$)
 
 ` Check for FORWARD and leave the DO/LOOP
 if a$="FORWARD" then exit

 ` Show that the user messed up
 print "Type FORWARD to get closer to the enemy!"

loop

cls
print "Alice: Now! Attack the goblin!"

do
 
 input "> ",action$
 
 ` Change user input to higher case letters (using another string)
 a$=upper$(action$)

 ` Check for ATTACK GOBLIN
 if a$="ATTACK GOBLIN"
  ` Leave the DO/LOOP
  exit
 endif
 
 cls
 print "Alice: No! Type 'attack goblin' now!"

loop

cls
Enemy1Health=25
EnemyStrength=1
print "Alice: Use the on-screen commands to fight!"

` Set starting characters turn  (0=Player 1=Alice 2=Enemy)
Turn=0    ` Added this if you want to change it to a 1 or 2 later

do

  ` Check if it's the Players or Alices turn
  if Turn=0 or Turn=1

   ` Set starting fight style  (0=none)
   FightStyle=0
     
   ` Repeat this...
   repeat
   
    ` Show whos attacking
    print "Current Attacker: ";
    if Turn=0 then print "You" else print "Alice"
   
    print "Your HP: "+str$(currenthealth)
    print "Alice HP: "+str$(aliceHP)
    print "You are fighting a goblin"
   
    input "Battle Command (ATTACK or ARCHERY)-> ";battlecommands$

    ` Change user input to higher case letters (using another string)
    a$=upper$(battlecommands$)

    ` Check for ATTACK
    if a$="ATTACK" then FightStyle=1
    ` Check for ARCHERY
    if a$="ARCHERY" then FightStyle=2
    ` Yell at the user for not picking ATTACK or ARCHERY
    if FightStyle=0 then print "Hey, stop picking your nose and choose ATTACK or ARCHERY!"
   
   ` ... until FightStyle is more than zero
   until FightStyle>0
 
  endif
 
 ` Players turn
 if Turn=0
 
  ` Check if the current fighting style is ATTACK
  if FightStyle=1

   ` Check if they actually have a melee weapon
   if melee>0
    ` Attack with melee
    yourdamage=rnd(melee)
    print "You slash at your opponent and deal "+str$(yourdamage)+" damage!"
    ` Decrease enemy health by yourdamage
    dec Enemy1Health,yourdamage
    else
    ` No melee weapon
    print "You cannot do that!"
   endif   
   
   ` FightStyle=2  ARCHERY
   else
   
   ` Check if they actually have an archery weapon
   if archery>0
    ` Attack with archery
    yourdamage=rnd(archery)
    print "You shoot at your opponent and deal "+str$(yourdamage)+" damage!"
    ` Decrease enemy health by yourdamage
    dec Enemy1Health,yourdamage
    else
    ` No archery weapon
    print "You cannot do that!"
   endif
  
  endif
 
 endif
 
 ` Alices Turn
 if Turn=1
 
  ` Check if the current fighting style is ATTACK
  if FightStyle=1

   ` Check if they actually have a melee weapon
   if alicemelee>0
    ` Attack with melee
    alicedamage=rnd(alicemelee)
    print "Alice slashs at your opponent and deals "+str$(alicedamage)+" damage!"
    ` Decrease enemy health by yourdamage
    dec Enemy1Health,alicedamage
    else
    ` No melee weapon
    print "Alice cannot do that!"
   endif   
   
   ` FightStyle=2  ARCHERY
   else
   
   ` Check if they actually have an archery weapon
   if alicearchery>0
    ` Attack with archery
    alicedamage=rnd(alicearchery)
    print "Alice shoots at your opponent and deals "+str$(alicedamage)+" damage!"
    ` Decrease enemy health by alicedamage
    dec Enemy1Health,alicedamage
    else
    ` No archery weapon
    print "Alice cannot do that!"
   endif
  
  endif
 
 endif

 ` Enemys Turn
 if Turn=2
  
  ` Enemy attack
  EnemyDamage=rnd(EnemyStrength)
  
  ` Pick either the player or alice to attack
  whosAttacked=rnd(1)     ` 0=Player  1=Alice
  
  ` Check if the player is being attacked
  if whosAttacked=0
   print "The enemy attacks you and deals "+str$(EnemyDamage)+" damage!"
   ` Decrease Players health by enemydamage
   dec currenthealth,EnemyDamage
   else
   print "The enemy attacks Alice and deals "+str$(EnemyDamage)+" damage!"
   ` Decrease Alices health by enemydamage
   dec aliceHP,EnemyDamage
  endif 
 
 endif

 ` Check if the player is dead
 if currenthealth<=0
  print "You Are Dead."
  ` Leave the DO/LOOP
  exit
 endif
 
 ` Check if Alice is dead
 if aliceHP<=0
  print "Alice has died in battle..."
  ` Leave the DO/LOOP
  exit
 endif
 
 ` Check if the enemy is dead
 if Enemy1Health<=0
  print "You slaughter the goblin!"
  ` Leave the DO/LOOP
  exit
 endif

 ` Increase turn
 inc Turn
 ` Check if all characters have had a turn and reset to first characters turn
 if Turn=3 then Turn=0

loop

print ""
print "You have finished the demo. Press any key to exit."
wait key