Sorry your browser is not supported!

set text size 20
print "choose your own adventure"
input "type in youre name ", name$

money#=0
level#=6
strength#=.5*level#
health#=10
magic#=1
dam#=strength#
Thaco#=level#*2
magdam#=magic#+3
maxhealth#=cont#+level#
cont#=level#-2
xp#=0
magxp#=0
mana#=magic#*50



cls
print " welcome ", name$
print
print "up=attack"
print
print "down=magic"
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

print "money=",money#
print "hp=",health#
print "magic=",magic#
print "level=",level#
print "mana=",mana#
print "xp=",xp#
print "magic xp=",magxp#
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"

enem1hp#=50
print "enemy hp=",enem1hp#

do
` check for level increase
Restore Level
For i = 1 to 23
   Read v
   If xp#>v
      level#=level#+1
      Exit
   Endif
Next i

`adjust stats for level
strength#=.5*level#
dam#=strength#
Thaco#=level#*2
maxhealth#=cont#+level#
cont#=level#-2

`check for upkey
if upkey()=1 AND enem1hp#>0
enem1hp#=enem1hp#-dam#
xp#=xp#+dam#
print
print "you hit him with attack"
print "money=",money#
print "hp=",health#
print "magic=",magic#
print "level=",level#
print "mana=",mana#
print "xp=",xp#
print "magic xp=",magxp#
print
print "enemy hp=",enem1hp#
wait 200
Clear Entry Buffer
endif

`check for downkey
if downkey()=1 AND enem1hp>0
enem1hp#=enem1hp#-magdam#
magxp#=magxp#+magdam#
mana#=mana#-10
print
print " you hit him with magic"
print " Enemy hp=",enem1hp#
print "mana=",mana#
wait 200
Clear Entry Buffer
endif

loop

Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 1000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

do
print " hello world"

input " you can a: beg him for money, or b: leave him",answer1$ 
if answer1$()="a" then money#=money#+50
print " he gives you 50 gold. you then leave him"
else
print "you leave him be"
endif

set text size 20
print "choose your own adventure"
input "type in youre name ", name$

money#=0
level#=6
strength#=.5*level#
health#=10
magic#=1
dam#=strength#
Thaco#=level#*2
magdam#=rnd(magic#+3)
maxhealth#=cont#+level#
cont#=level#-2
xp#=0
magxp#=0
mana#=magic#*50
timer1#=1
enem1dam#=rnd(2)


rem start
do
cls
print " welcome ", name$
print
print "up=attack"
print
print "down=magic"
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

print "money=",money#
print "hp=",health#
print "magic=",magic#
print "level=",level#
print "mana=",mana#
print "xp=",xp#
print "magic xp=",magxp#
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"

enem1hp#=50
print "enemy hp=",enem1hp#

` check for level increase
Restore Level
For i = 1 to 23
   Read v
   If xp#>v
      level#=level#+1
      Exit
   Endif
Next i


`check stats for magic level
restore magic
for i=1 to 23
      read v
      if magxp#>v
      magic#=magic#+1
      exit
    endif
next i


`adjust stats for level
strength#=.5*level#
dam#=rnd(strength#)
Thaco#=level#*2
maxhealth#=cont#+level#
cont#=level#-2

do
`check for upkey
if upkey()=1 AND enem1hp#>0 AND timer1#=0
enem1hp#=enem1hp#-dam#
print
print "you hit him with attack"
print
print "hp=",health#
print
print "enemy hp=",enem1hp#
Clear Entry Buffer
timer1#=timer1#+1
wait 200
endif
loop

do
`check for downkey
if downkey()=1 AND enem1hp>0 AND mana#>9 AND timer1#=<1
enem1hp#=enem1hp#-magdam#
magxp#=magxp#+magdam#
mana#=mana#-10
print
print " you hit him with magic"
print " Enemy hp=",enem1hp#
print "mana=",mana#
timer1#=timer1#+1
wait 200
Clear Entry Buffer
endif
loop

do
if timer1#>0
health#=health#-enem1dam#
print "hp=",health#
print "he hit you"
timer1#=timer1#-1
endif
loop

Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

magic:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000
loop

set text size 20
print "choose your own adventure"
input "type in youre name ", name$

money#=0
level#=6
strength#=.5*level#
health#=10
magic#=1
dam#=strength#
Thaco#=level#*2
magdam#=rnd(magic#+3)
maxhealth#=cont#+level#
cont#=level#-2
xp#=0
magxp#=0
mana#=magic#*50
timer1#=0
enem1dam#=rnd(2)


rem start
do
cls
print " welcome ", name$
print
print "up=attack"
print
print "down=magic"
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

print "money=",money#
print "hp=",health#
print "magic=",magic#
print "level=",level#
print "mana=",mana#
print "xp=",xp#
print "magic xp=",magxp#
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"

enem1hp#=50
print "enemy hp=",enem1hp#

` check for level increase
Restore Level
For i = 1 to 23
   Read v
   If xp#>v
      level#=level#+1
      Exit
   Endif
Next i


`check stats for magic level
restore magic
for i=1 to 23
      read v
      if magxp#>v
      magic#=magic#+1
      exit
    endif
next i


`adjust stats for level
strength#=.5*level#
dam#=rnd(strength#)
Thaco#=level#*2
maxhealth#=cont#+level#
cont#=level#-2
mana#=magic#*50

do
`check for upkey
if upkey()=1 AND enem1hp#>0 AND timer1#=0
enem1hp#=enem1hp#-dam#
print
print "you hit him with attack"
print
print "hp=",health#
print
print "enemy hp=",enem1hp#
Clear Entry Buffer
timer1#=timer1#+1
wait 200
endif

`check for downkey
if downkey()=1 AND enem1hp#>0 AND mana#>9 AND timer1#=<1
enem1hp#=enem1hp#-magdam#
magxp#=magxp#+magdam#
mana#=mana#-10
print
print " you hit him with magic"
print " Enemy hp=",enem1hp#
print "mana=",mana#
timer1#=timer1#+1
wait 200
Clear Entry Buffer
endif

if timer1#>0
health#=health#-enem1dam#
print "hp=",health#
print "he hit you"
timer1#=timer1#-1
endif
loop

Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

magic:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000
loop

set text size 20
print "choose your own adventure"
input "type in youre name ", name$

money#=0
level#=10
strength#=.5*level#
health#=maxhealth#
magic#=1
dam#=strength#
Thaco#=level#*2
magdam#=rnd(magic#+3)
maxhealth#=cont#+level#
cont#=level#-2
xp#=0
magxp#=0
mana#=magic#*50
timer1#=0
enem1dam#=rnd(2)
w1d#=rnd(3)
w2d#=rnd(3)
w3d#=rnd(4)


rem start
do
cls
print " welcome ", name$
print
print "up=attack"
print
print "down=magic"
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

print "money=",money#
print "hp=",health#
print "magic=",magic#
print "level=",level#
print "mana=",mana#
print "xp=",xp#
print "magic xp=",magxp#
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"

enem1hp#=50
print "enemy hp=",enem1hp#

` check for level increase
Restore Level
For i = 1 to 23
   Read v
   If xp#>v
      level#=level#+1
      maxhealth#=maxhealth#+2
      health#=maxhealth#
      Exit
   Endif
Next i


`check stats for magic level
restore magic
for i=1 to 23
      read v
      if magxp#>v
      magic#=magic#+1
      exit
    endif
next i


`adjust stats for level
strength#=.5*level#
dam#=rnd(strength#)
Thaco#=level#*2
maxhealth#=cont#+level#
cont#=level#-2
mana#=magic#*50

do
`check for upkey
if upkey()=1 AND enem1hp#>0 AND timer1#=0
enem1hp#=enem1hp#-dam#
print
print "you hit him with attack"
print
print "hp=",health#
print
print "enemy hp=",enem1hp#
Clear Entry Buffer
timer1#=timer1#+1
wait 200
endif

`check for downkey
if downkey()=1 AND enem1hp#>0 AND mana#>9 AND timer1#=<1
enem1hp#=enem1hp#-magdam#
mana#=mana#-10
print
print " you hit him with magic"
print " Enemy hp=",enem1hp#
print "mana=",mana#
timer1#=timer1#+1
magxp#=magxp#+magdam#
wait 200
Clear Entry Buffer
endif

if timer1#>0
health#=health#-enem1dam#
print "hp=",health#
print "he hit you for",enem1dam#: print "damage"
timer1#=timer1#-1
endif
if enem1hp#<1 then exit
loop

if enem1hp#<1
xp#=xp#+25
money#=money#+50
timer2#=3
print " continuing through the forest, you are jumped by three wolves!"
print " You are the luckiest adventurer in the world."
print "to switch from one enemy to another, press the leftkey"
print "you are currently targeted at 'weakwolf'"

w1h#=70
w2h#=85
w3h#=100

w1#=1
w2#=0
w3#=0

do
`check for upkey, again (w1)
if upkey()=1 and w1#=1 and w1h#>0 and timer2#=0
w1h#=w1h#-dam#
timer2#=timer2#+1
print "you hit 'weak wolf' with attack"
print "hp=",health#
print "'weak wolf' hp=",w1h#
endif

`check for downkey, again (w1)
if downkey()=1 and w1#=1 and w1h#>0 and timer2#=0 and mana#>9
w1h#=w1h#-magdam#
magxp#=magxp#+magdam#
timer2#=timer2#+1
mana#=mana#-10
print "hp=",health#
print "'weak wolf' hp=",w1h#
print "mana=",mana#
print "you hit 'weak wolf' with magic"
endif

`check for leftkey (w1-w2)
if leftkey()=1 and w1#=1
w1#=w1#-1
w2#=w2#+1
print "you are now targeted towards 'mid wolf'"
print " this does not take up your turn (im not going to be as nice later in the game)"
endif

`check for a dead 'weakwolf'
if w1h#<1
print "you killed 'weak wolf'"
xp#=xp#+50
money#=money#+75
w1#=w1#-1
w2#=w2#+1
print " you are now targeted towards 'mid wolf'"
endif

`check for upkey, again (w2)
if upkey()=1 and w2#=1 and w2#>0 and timer2#=0
w2h#=w2h#-dam#
timer2#=timer2#+1
print "you hit 'mid wolf' with attack"
print "hp=",health#
print "'mid wolf' hp=",w1h#
endif

`check for downkey, again (w2)
if downkey()=1 and w2#=1 and w2h#>0 and timer2#=0 and mana#>9
w2h#=w2h#-magdam#
magxp#=magxp#+magdam#
mana#=mana#-10
timer2#=timer2#+1
print "hp=",health#
print "'mid wolf' hp=",w1h#
print "mana=",mana#
print "you hit 'mid wolf' with magic"
endif

`check for leftkey (w2-w3)
if leftkey()=1 and w2#=1
w2#=w2#-1
w3#=w3#+1
print "you are now targeted towards 'lead wolf'"
print " this does not take up your turn (im not going to be as nice later in the game)"
endif

`check for a dead 'mid wolf'
if w2h#<1
print "you killed 'mid wolf'"
xp#=xp#+75
money#=money#+100
w2#=w2#-1
w3#=w3#+1
print " you are now targeted towards 'lead wolf'"
endif

`check for upkey, again (w3)
if upkey()=1 and w3#=1 and w3h#>0 and timer2#=0
w1h#=w1h#-dam#
timer2#=timer2#+1
print "you hit 'lead wolf' with attack"
print "hp=",health#
print "'lead wolf' hp=",w1h#
endif

`check for downkey, again (w3)
if downkey()=1 and w3#=1 and w3h#>0 and timer2#=0 and mana#>9
w3h#=w3h#-magdam#
magxp#=magxp#+magdam#
mana#=mana#-10
timer2#=timer2#+1
print "hp=",health#
print "'lead wolf' hp=",w1h#
print "mana=",mana#
print "you hit 'lead wolf' with magic"
endif

`check for leftkey (w2-w3)
if leftkey()=1 and w3#=1
w3#=w3#-1
w1#=w1#+1
print "you are now targeted towards 'weak wolf'"
print " this does not take up your turn (im not going to be as nice later in the game)"
endif
loop

endif
Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

magic:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000
loop

Dim WolfHPs(3) as Integer `Here's an array for storing the wolves' hitpoints
Dim WolfNames(3) as String `Here's an array for storing the wolves' names
Global WolfTracker as Integer `WolfTracker keeps track of which wolf we are looking at.

`Restore tells the computer to start reading from the next Data statement after the label
Restore WolfHps
`Here we read in the hitpoints
For i = 1 to 3
   Read WolfHps(i)
Next i

`Here we Restore and read in the names.
Restore WolfNames
For i = 1 to 3
   Read WolfNames(i)
Next i

`Set our WolfTracker to wolf #1 (Right Wolf)
WolfTracker =1

Do
   Print "You are looking at ";WolfNames(WolfTracker);" (";WolfHPs(WolfTracker);" Hit Points)."
   Print
   Print "Press the left arrow key to change targets."
   Do
      If LeftKey()
         Switch_Wolf() ` Switch_Wolf() is a User-Defined Function: See the line Function Switch_Wolf()
         Wait 200
         Print
         Clear Entry Buffer
         Exit
      Endif
   Loop
Loop

`Switch_Wolf() is a User Defined Function. When ever you use "Switch_Wolf()" in your code, it will run the code below, as if you created a new command for DB.
Function Switch_Wolf()
   WolfTracker=WolfTracker+1 `Move to the next wolf
   If WolfTracker>3 Then WolfTracker=1 `If we've run out of wolves, go back to the first wolf.
EndFunction

`Here's the data statements.
WolfHPs:
Data 25,20,18

WolfNames:
Data "Right Wolf","Mid Wolf","Left Wolf"

dim enem1dam(7) as integer
enem1dam(1)=1
enem1dam(2)=2
enem1dam(3)=2
enem1dam(4)=1
enem1dam(5)=1
enem1dam(6)=1
enem1dam(7)=3

restore enem1dam
for i=1 to 7
read enem1dam(i)
next i
if i>7 then i=1 

set text size 20
print "choose your own adventure"
input "type in youre name ", name$

money#=0
level#=10
strength#=.5*level#
health#=maxhealth#
magic#=1
dam#=strength#
Thaco#=level#*2
magdam#=rnd(magic#+3)
maxhealth#=cont#+level#
cont#=level#-2
xp#=0
magxp#=0
mana#=magic#*50
timer1#=0

rem start
do
cls
print " welcome ", name$
print
print "up=attack"
print
print "down=magic"
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

print "money=",money#
print "hp=",health#
print "magic=",magic#
print "level=",level#
print "mana=",mana#
print "xp=",xp#
print "magic xp=",magxp#
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"

enem1hp#=5
print "enemy hp=",enem1hp#

` check for level increase
Restore Level
For i = 1 to 23
   Read v
   If xp#>v
      level#=level#+1
      maxhealth#=maxhealth#+2
      health#=maxhealth#
      Exit
   Endif
Next i


`check stats for magic level
restore magic
for i=1 to 23
      read v
      if magxp#>v
      magic#=magic#+1
      exit
    endif
next i


`adjust stats for level
strength#=.5*level#
dam#=rnd(strength#)
Thaco#=level#*2
maxhealth#=cont#+level#
cont#=level#-2
mana#=magic#*50

do
`check for upkey
if upkey()=1 AND enem1hp#>0 AND timer1#=0
enem1hp#=enem1hp#-dam#
print
print "you hit him with attack"
print
print "hp=",health#
print
print "enemy hp=",enem1hp#
Clear Entry Buffer
timer1#=timer1#+1
wait 200
endif

dim enem1dam(7) as integer
enem1dam(1)=1
enem1dam(2)=2
enem1dam(3)=2
enem1dam(4)=1
enem1dam(5)=1
enem1dam(6)=1
enem1dam(7)=3

restore enem1dam
for i=1 to 7
if timer1#>0 then read enem1dam(i)
next i
if i>7 then i=1


`check for downkey
if downkey()=1 AND enem1hp#>0 AND mana#>9 AND timer1#=<1
enem1hp#=enem1hp#-magdam#
mana#=mana#-10
print
print " you hit him with magic"
print " Enemy hp=",enem1hp#
print "mana=",mana#
timer1#=timer1#+1
magxp#=magxp#+magdam#
wait 200
Clear Entry Buffer
endif
if enem1hp#<1 then exit
loop

if enem1hp#<1
xp#=xp#+25
money#=money#+50
timer2#=3
print " continuing through the forest, you are jumped by three wolves!"
print " You are the luckiest adventurer in the world."
print "to switch from one enemy to another, press the leftkey"
print "you are currently targeted at 'weakwolf'"

Dim WolfHPs(3) as Integer `Here's an array for storing the wolves' hitpoints
Dim WolfNames(3) as String `Here's an array for storing the wolves' names
Global WolfTracker as Integer `WolfTracker keeps track of which wolf we are looking at.
dim wolf1dam(12) as integer
dim wolf2dam(16) as integer
dim wolf3dam(22) as integer


`Restore tells the computer to start reading from the next Data statement after the label
Restore WolfHps
`Here we read in the hitpoints
For i = 1 to 3
   Read WolfHps(i)
Next i

`Here we Restore and read in the names.
Restore WolfNames
For i = 1 to 3
   Read WolfNames(i)
Next i

`here we restore the wolf1dam
restore wolf1dam
for i= 1 to 12
if timer2#=1
read wolf1dam(i)
health#=health#-wolf1dam
print "right wolf hit you for ",wolf1dam
timer2#=timer2#+1
print "hp=",health#
endif
next i
if i>12 then i=1

`here we restore wolf2dam
restore wolf2dam
for i= 1 to 16
if timer2#=2
read wolf2dam(i)
health#=health#-wolf2dam
print " mid wolf hit you for ",wolf2dam
timer2#=timer2#+1
print  "hp=",health#
endif
next i
if i>16 then i=1

`here we restore damage for wolf 3
restore wolf3dam
for i= 1 to 22
if timer2#=3
read wolf3dam(i)
health#=health#-wolf1dam
print " left wolf hit you for ",wolf2dam
timer2#=0
print "hp=",health#
endif
next i
if i>22 then i=1

`Set our WolfTracker to wolf #1 (Right Wolf)
WolfTracker =1

Do
   Print "You are looking at ";WolfNames(WolfTracker);" (";WolfHPs(WolfTracker);" Hit Points)."
   Print
   Print "Press the left arrow key to change targets."
   Do
      If LeftKey()
         Switch_Wolf() ` Switch_Wolf() is a User-Defined Function: See the line Function Switch_Wolf()
         Wait 200
         Print
         Clear Entry Buffer
         Exit
      Endif
   Loop
Loop

`Switch_Wolf() is a User Defined Function. When ever you use "Switch_Wolf()" in your code, it will run the code below, as if you created a new command for DB.
Function Switch_Wolf()
   WolfTracker=WolfTracker+1 `Move to the next wolf
   If WolfTracker>3 Then WolfTracker=1 `If we've run out of wolves, go back to the first wolf.
EndFunction

`Here's the data statements.
WolfHPs:
Data 25,20,18

WolfNames:
Data "Right Wolf","Mid Wolf","Left Wolf"

wolf1dam:
data 1,2,1,3,2,4,1,1,1,2,3,1

wolf2dam:
data 1,2,3,4,3,2,1,3,4,2,3,1,4,3,1,4

wolf3dam:
data 2,4,1,3,1,1,2,4,5,1,3,2,5,4,2,1,1,1,1,2,5,4

endif
Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

magic:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000
loop

-Declare your UDTs (User Defined Types)
-Dimension all your arrays: Do not need to set values
-Declare Constant, Global, and Local variables: Do not need to set values
*(I avoid single-letter Arrays, Global variables, or Constants. I save those for Local, temporary, variables.)
-Set variables to initial values (except level-specific variables)

-Load/create all/most media
-Load/create all/most objects
-Set up game area or level(s)
-Any other misc. set up functions

-Used to recyle the game if the player loses completely (not just dies or completes a level)
-Initialize Game-Level variables: i.e. number of lives.

-Used to recycle level if the player dies and must start the level over or cannot complete the level.
-Initialize Level specific variables (set the values).
-Initialize Player and AI (NPC's) variables.

-Used to handle the detail action, moving, attack, defense, etc.
-Should mostly use Functions to handle all the action.
-Should be as short as possible (which is why Functions are handy)

-Reset level and/or variables as needed

-Reset game and/or variables as needed

-All functions come at the end.
-They cannot be part of any loop.
-This is a hard rule, not a preference. DBPro won't compile.

-I keep these at the end. Make's 'em easy to find.
-Label all sets of data statements even if you don't need to.

Do
  For i = 1 to 15
     If flag=1
        hit=1
        flag=0
     Else
        hit=0
        flag=1
     Endif
  Next i
Loop

load bsp "warcraft III.wts", "fpstry.wts"
make object cube 1,.3
do
yrotate object 1,object angle y(1)+5
loop

money#=0
level#=10
strength#=.5*level#
health#=maxhealth#
magic#=1
dam#=strength#
Thaco#=level#*2
magdam#=rnd(magic#+3)
maxhealth#=cont#+level#
cont#=level#-2
xp#=0
magxp#=0
mana#=magic#*50
timer1#=0

dim enem1dam(7) as integer
enem1dam(1)=1
enem1dam(2)=2
enem1dam(3)=2
enem1dam(4)=1
enem1dam(5)=1
enem1dam(6)=1
enem1dam(7)=3

Dim WolfHPs(3) as Integer `Here's an array for storing the wolves' hitpoints
Dim WolfNames(3) as String `Here's an array for storing the wolves' names
Global WolfTracker as Integer `WolfTracker keeps track of which wolf we are looking at.
dim wolf1dam(12) as integer
dim wolf2dam(16) as integer
dim wolf3dam(22) as integer

rem start
do
set text size 20
print "choose your own adventure"
input "type in youre name ", name$
cls
print " welcome ", name$
print
print "up=attack"
print
print "down=magic"
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

print "money=",money#
print "hp=",health#
print "magic=",magic#
print "level=",level#
print "mana=",mana#
print "xp=",xp#
print "magic xp=",magxp#
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"

enem1hp#=7
print "enemy hp=",enem1hp#

` check for level increase
Restore Level
For i = 1 to 23
   Read v
   If xp#>v
      level#=level#+1
      maxhealth#=maxhealth#+2
      health#=maxhealth#
      Exit
   Endif
Next i


`check stats for magic level
restore magic
for i=1 to 23
      read v
      if magxp#>v
      magic#=magic#+1
      exit
    endif
next i


`adjust stats for level
strength#=.5*level#
dam#=rnd(strength#)
Thaco#=level#*2
maxhealth#=cont#+level#
cont#=level#-2
mana#=magic#*50

do
`check for upkey
if upkey()=1 AND enem1hp#>0 AND timer1#=0
enem1hp#=enem1hp#-dam#
print
print "you hit him with attack"
print
print "hp=",health#
print
print "enemy hp=",enem1hp#
Clear Entry Buffer
timer1#=timer1#+1
wait 200
endif

`check for downkey
if downkey()=1 AND enem1hp#>0 AND mana#>9 AND timer1#=<1
enem1hp#=enem1hp#-magdam#
mana#=mana#-10
print
print " you hit him with magic"
print " Enemy hp=",enem1hp#
print "mana=",mana#
timer1#=timer1#+1
magxp#=magxp#+magdam#
wait 200
Clear Entry Buffer
endif

restore enem1dam
for i=1 to 7
if timer1#>0 then read enem1dam(i)
next i
if i>7 then i=1

if enem1hp#<1 then exit
loop


if enem1hp#<1
xp#=xp#+25
money#=money#+50
timer2#=3
print " continuing through the forest, you are jumped by three wolves!"
print " You are the luckiest adventurer in the world."
print "to switch from one enemy to another, press the leftkey"
print "you are currently targeted at 'weakwolf'"

`Restore tells the computer to start reading from the next Data statement after the label
Restore WolfHps
`Here we read in the hitpoints
For i = 1 to 3
   Read WolfHps(i)
Next i

`Here we Restore and read in the names.
Restore WolfNames
For i = 1 to 3
   Read WolfNames(i)
Next i

`here we restore the wolf1dam
restore wolf1dam
for i= 1 to 12
if timer2#=1
read wolf1dam(i)
health#=health#-wolf1dam
print "right wolf hit you for ",wolf1dam
timer2#=timer2#+1
print "hp=",health#
endif
next i
if i>12 then i=1

`here we restore wolf2dam
restore wolf2dam
for i= 1 to 16
if timer2#=2
read wolf2dam(i)
health#=health#-wolf2dam
print " mid wolf hit you for ",wolf2dam
timer2#=timer2#+1
print  "hp=",health#
endif
next i
if i>16 then i=1

`here we restore damage for wolf 3
restore wolf3dam
for i= 1 to 22
if timer2#=3
read wolf3dam(i)
health#=health#-wolf1dam
print " left wolf hit you for ",wolf2dam
timer2#=0
print "hp=",health#
endif
next i
if i>22 then i=1

`Set our WolfTracker to wolf #1 (Right Wolf)
WolfTracker =1

Do
   Print "You are looking at ";WolfNames(WolfTracker);" (";WolfHPs(WolfTracker);" Hit Points)."
   Print
   Print "Press the left arrow key to change targets."
   Do
      If LeftKey()
         Switch_Wolf() ` Switch_Wolf() is a User-Defined Function: See the line Function Switch_Wolf()
         Wait 200
         Print
         Clear Entry Buffer
         Exit
      Endif
   Loop
Loop

`Switch_Wolf() is a User Defined Function. When ever you use "Switch_Wolf()" in your code, it will run the code below, as if you created a new command for DB.
Function Switch_Wolf()
   WolfTracker=WolfTracker+1 `Move to the next wolf
   If WolfTracker>3 Then WolfTracker=1 `If we've run out of wolves, go back to the first wolf.
EndFunction

`Here's the data statements.
WolfHPs:
Data 25,20,18

WolfNames:
Data "Right Wolf","Mid Wolf","Left Wolf"

wolf1dam:
data 1,2,1,3,2,4,1,1,1,2,3,1

wolf2dam:
data 1,2,3,4,3,2,1,3,4,2,3,1,4,3,1,4

wolf3dam:
data 2,4,1,3,1,1,2,4,5,1,3,2,5,4,2,1,1,1,1,2,5,4

endif
Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

magic:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000
loop

`Code
Restore Enemies
`Code
`More code
Enemy:
Data "Wolf 1","Wolf 2","Wolf 3"

money#=0
level#=10
strength#=.5*level#
health#=maxhealth#
magic#=1
dam#=strength#
Thaco#=level#*2
magdam#=rnd(magic#+3)
maxhealth#=cont#+level#
cont#=level#-2
xp#=0
magxp#=0
mana#=magic#*50
timer1#=0

dim enem1dam(7) as integer
Dim WolfHPs(3) as Integer `Here's an array for storing the wolves' hitpoints
Dim WolfNames(3) as String `Here's an array for storing the wolves' names
Global WolfTracker as Integer `WolfTracker keeps track of which wolf we are looking at.
dim wolf1dam(12) as integer
dim wolf2dam(16) as integer
dim wolf3dam(22) as integer

rem start
do
set text size 20
print "choose your own adventure"
input "type in youre name ", name$
cls
print " welcome ", name$
print
print "up=attack"
print
print "down=magic"
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

print "money=",money#
print "hp=",health#
print "magic=",magic#
print "level=",level#
print "mana=",mana#
print "xp=",xp#
print "magic xp=",magxp#
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"

enem1hp#=7
print "enemy hp=",enem1hp#

` check for level increase
Restore Level
For i = 1 to 23
   Read v
   If xp#>v
      level#=level#+1
      maxhealth#=maxhealth#+2
      health#=maxhealth#
      Exit
   Endif
Next i


`check stats for magic level
restore magic
for i=1 to 23
      read v
      if magxp#>v
      magic#=magic#+1
      exit
    endif
next i


`adjust stats for level
strength#=.5*level#
dam#=rnd(strength#)
Thaco#=level#*2
maxhealth#=cont#+level#
cont#=level#-2
mana#=magic#*50

do
`check for upkey
if upkey()=1 AND timer1#=0
enem1hp#=enem1hp#-dam#
print
print "you hit him with attack"
print
print "hp=",health#
print
print "enemy hp=",enem1hp#
Clear Entry Buffer
timer1#=timer1#+1
wait 200
endif

`check for downkey
if downkey()=1 AND mana#>9 AND timer1#=0
enem1hp#=enem1hp#-magdam#
mana#=mana#-10
print
print " you hit him with magic for",magdam
print " Enemy hp=",enem1hp#
print "mana=",mana#
timer1#=timer1#+1
magxp#=magxp#+magdam#
print "magic xp=",magxp#
Clear Entry Buffer
endif

`enemy 1 damage
restore enem1dam
for i=1 to 7
if timer1#=1 then read enem1dam(i)
print "he hit you for ",enem1dam#
next i
if i>7 then i=1
if enem1hp#<1 then exit
loop


if enem1hp#<1
xp#=xp#+25
money#=money#+50
timer2#=3
print " continuing through the forest, you are jumped by three wolves!"
print " You are the luckiest adventurer in the world."
print "to switch from one enemy to another, press the leftkey"
print "you are currently targeted at 'weakwolf'"

`Restore tells the computer to start reading from the next Data statement after the label
Restore WolfHps
`Here we read in the hitpoints
For i = 1 to 3
   Read WolfHps(i)
Next i

`Here we Restore and read in the names.
Restore WolfNames
For i = 1 to 3
   Read WolfNames(i)
Next i

`here we restore the wolf1dam
restore wolf1dam
for i= 1 to 12
if timer2#=1
read wolf1dam(i)
health#=health#-wolf1dam
print "right wolf hit you for ",wolf1dam
timer2#=timer2#+1
print "hp=",health#
endif
next i
if i>12 then i=1

`here we restore wolf2dam
restore wolf2dam
for i= 1 to 16
if timer2#=2
read wolf2dam(i)
health#=health#-wolf2dam
print " mid wolf hit you for ",wolf2dam
timer2#=timer2#+1
print  "hp=",health#
endif
next i
if i>16 then i=1

`here we restore damage for wolf 3
restore wolf3dam
for i= 1 to 22
if timer2#=3
read wolf3dam(i)
health#=health#-wolf1dam
print " left wolf hit you for ",wolf2dam
timer2#=0
print "hp=",health#
endif
next i
if i>22 then i=1

`Set our WolfTracker to wolf #1 (Right Wolf)
WolfTracker =1

Do
   Print "You are looking at ";WolfNames(WolfTracker);" (";WolfHPs(WolfTracker);" Hit Points)."
   Print
   Print "Press the left arrow key to change targets."
   Do
      If LeftKey()
         Switch_Wolf() ` Switch_Wolf() is a User-Defined Function: See the line Function Switch_Wolf()
         Wait 200
         Print
         Clear Entry Buffer
         Exit
      Endif
   Loop
Loop

`Switch_Wolf() is a User Defined Function. When ever you use "Switch_Wolf()" in your code, it will run the code below, as if you created a new command for DB.
Function Switch_Wolf()
   WolfTracker=WolfTracker+1 `Move to the next wolf
   If WolfTracker>3 Then WolfTracker=1 `If we've run out of wolves, go back to the first wolf.
EndFunction

`Here's the data statements.
enem1dam:
data 1,2,2,1,1,1,3

WolfHPs:
Data 25,20,18

WolfNames:
Data "Right Wolf","Mid Wolf","Left Wolf"

wolf1dam:
data 1,2,1,3,2,4,1,1,1,2,3,1

wolf2dam:
data 1,2,3,4,3,2,1,3,4,2,3,1,4,3,1,4

wolf3dam:
data 2,4,1,3,1,1,2,4,5,1,3,2,5,4,2,1,1,1,1,2,5,4

endif
Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

magic:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000
loop

`Declairing Global variables.
`We need Globals because Functions will ignore Local (non-global) variables.
Global Level as Integer
Global Strength as Float
Global Name as String

`Calling a Function
E_Health(i)=E_Health(i)-Player_Attack()

`Defining a Function.
`This is just a sample. Be sure to write your own.
Function Player_Attack()
   If Turn<>1 Then ExitFunction 0 `If it's not the player's turn, then exit.
   Do
     If LeftKey() `Melee attack
       Dmg=5
       Exit
     Endif
     If RightKey() `Magic attack
       Dmg=Rnd(10)+Magic
       Mana=Mana-10
       Exit
     Endif
   Loop
   Turn=2 `Enemies get to go next.
EndFunction Dmg
`This sample returns the amount of damage the player did in the attack.

level#=5
money#=0
xp#=0
magxp=0

global strength as float
global mana as float
global maxhealth as integer
global wolftracker as integer

rem start
do
set text size 20
print "choose your own adventure"
input "type in youre name ", name$
cls
print " welcome ", name$
print
print "up=attack"
print
print "down=magic"
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

print "money=",money#
print "hp=",health#
print "magic=",magic#
print "level=",level#
print "mana=",mana#
print "xp=",xp#
print "magic xp=",magxp#
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"
` check for level increase
Restore Level
For i = 1 to 23
   Read v
   If xp#>v
      level#=level#+1
      maxhealth#=maxhealth#+2
      health#=maxhealth#
      Exit
   Endif
Next i


`check stats for magic level
restore magic
for i=1 to 23
      read v
      if magxp#>v
      magic#=magic#+1
      exit
    endif
next i


`adjust stats for level
maxhealth#=cont#+level#
cont#=level#-2

`battle 1
do
restore e_hp
   for i=1
      read v
             e_hp(i)=e_hp(i)-player_hit()
         if e_hp(i)<1 exit
         print "you killed it"
         money#=money#+25
      endif
   loop

print "you are jumped by three wolves"
print "to switch enemies, press left arrow"

`battle 2
do
   next i
   for i=2 to 4
      read v
            e_hp(i)=e_hp(i)-player_hit
         if leftkey()=1 or e_hp(i)>1 then switch_wolf()
      endif
   if wolf_tracker>3 then wolf_tracker=1
if e_hp(i)

`player_hit function
function player_hit()
   if turn<>1 then exitfunction
do
   if rightkey()=1
   dmg=strength
      `this function is not finished yet...

Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

magic:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

e_hp
data 15,20,25,30

`battle 1
do
restore e_hp
   for i=1
      read v
             e_hp(i)=e_hp(i)-player_hit()
         if e_hp(i)<1 exit
         print "you killed it"
         money#=money#+25
      endif
   loop

`battle 1
do
restore e_hp
   for i=1 to 1
      read e_hp(i)
   next i
   e_hp(targ)=e_hp(targ)-player_hit() `can add a variable 'targ' to track which target player is looking at.
   if e_hp(i)<1
      print "you killed it"
      money#=money#+25
      exit
   endif
   health#=health#-enemy_hit() `make an enemy_hit() function too.
   if health#<1
      print "you have been killed"
      exit
   endif
loop

level#=5
money#=0
xp#=0
magxp=0

dim e_name() as string

global strength as float
strength=.5*level#
global mana as float
mana=50*magic#
global maxhealth as integer
maxhealth=level#*1.5
global wolftracker as integer

rem start
do
set text size 20
print "choose your own adventure"
input "type in youre name ", name$
cls
print " welcome ", name$
print
print "up=attack"
print
print "down=magic"
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

print "money=",money#
print "hp=",health#
print "magic=",magic#
print "level=",level#
print "mana=",mana#
print "xp=",xp#
print "magic xp=",magxp#
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"
` check for level increase
Restore Level
   For i = 1 to 23
      Read v
If xp#>v
      level#=level#+1
      maxhealth#=maxhealth#+2
      health#=maxhealth#
      Exit
Endif
Next i


`check stats for magic level
restore magic
   for i=1 to 23
      read v
if magxp#>v
      magic#=magic#+1
      exit
endif
next i


`adjust stats for level
maxhealth#=cont#+level#
cont#=level#-2

`battle 1
do
restore e_name
   for i=1 to 1
      read e_name(i)
      print "you are looking at enemy ",e_name(i)
next i

restore e_hp
   for i=1 to 1
      read v
      next i
if turn=1
   player_hit()
   e_hp(i)=e_hp(i)-dmg
endif
if e_hp(i)<1
      exit
      print "you killed it"
      money#=money#+2
endif
loop

print "you are jumped by three wolves"
print "to switch enemies, press left arrow"

`player_hit function
function player_hit()
if turn<>1
      exitfunction
endif
do
if rightkey()
      dmg=strength
endif
loop

do
if leftkey() and mana>9
      dmg=magic+3
      mana=mana-10
endif
if leftkey()=1 and mana<10
      print "you are too low on mana"
endif
loop
do
turn=1
loop

Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

magic:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

e_hp:
data 15,20,25,30

e_name:
data "green spider"
loop

function player_hit()
if turn<>1
   exitfunction 0  `Added the "0"
endif
do
   if rightkey()
   dmg=strength
   Exit `Need to exit the Do/Loop
endif

` Removed the extra "Loop" and "Do" that was here.

if leftkey() and mana>9
   dmg=magic+3
   mana=mana-10
   Exit `Need to exit the Do/Loop
endif
if leftkey()=1 and mana<10
   print "you are too low on mana"
endif
loop
endfunction dmg `Added "dmg"

level#=5
xp#=0
magxp=0

dim e_hp(10) as integer
dim e_name(10) as string
dim weaponname(1) as string

global money as float
global strength as float
strength=.5*level#+weaponmastery+weaponstrength
global mana as float
mana=50*magic#
global maxhealth as integer
maxhealth=level#*1.5
global health as float
health=maxhealth
global turn as integer
turn=1
global weaponmastery as float
global weaponstrength as float
global magic as float

rem start
do
set text size 20
cls
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

player_stats()
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"


` check for level increase
Restore Level
      For i = 1 to 23
      Read v
If xp#>v
      level=level+1
      maxhealth=maxhealth+2
      health=maxhealth
      Exit
Endif
Next i


`check stats for magic level
restore magic
   for i=1 to 23
      read v
if magxp>v
      magic=magic+1
      exit
endif
next i

`adjust stats for level
maxhealth#=cont#+level#
cont#=level#-2

`battle 1
do
restore e_name
      for i=1 to 1
      read e_name(i)
      print "you are looking at enemy ",e_name(i)
next i

restore e_hp
      for i=1 to 1
      read e_hp(i)
      print "enemy hp= ",e_hp(i)
      next i
      e_hp(i)=e_hp(i)-player_hit
if e_hp(i)<1
      exit
      print "you killed it"
      money#=money#+2
      if e_hp(i)>1 then exit
endif
loop

loop

function player_stats()
print "hp= ",health;"/",maxhealth;
print "       ";
print "mana= ",mana;
print "level= ",level
print "money= ",money
endfunction

`player_hit function
function player_hit()
if turn<>1
   exitfunction 0  `Added the "0"
endif
do
   if upkey()
   dmg=strength
   print "you hit ",e_name(i);"for",dmg
   Exit `Need to exit the Do/Loop
endif

` Removed the extra "Loop" and "Do" that was here.

if downkey() and mana>9
   dmg=magic+3
   mana=mana-10
   Exit `Need to exit the Do/Loop
endif
if leftkey()=1 and mana<10
   print "you are too low on mana"
endif
loop
endfunction dmg `Added "dmg"


Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

magic:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

e_hp:
data 50,70,85,92

e_name:
data "green spider","wolf 1","wolf 2","wolf 3"

`Move the "Do" from here
restore e_name
for i=1 to 1
   read e_name(i)
   print "you are looking at enemy ",e_name(i)
next i

restore e_hp
for i=1 to 1
   read e_hp(i)
   print "enemy hp= ",e_hp(i)
next i

`Put the "Do" here.

level#=10
xp#=0
magxp=0

dim e_hp(10) as integer
dim e_name(10) as string
dim weaponname(1) as string

global money as float
global strength as float
strength=rnd(.5*level#)+weaponstrength
global mana as float
mana=50*magic#
global maxhealth as integer
maxhealth=level#*1.5
global health as float
health=maxhealth
global turn as integer
turn=1
global weaponmastery as float
global weaponstrength as float
global magic as float

rem start
do
set text size 20
cls
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

player_stats()
print
print
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"


` check for level increase
Restore Level
      For i = 1 to 23
      Read v
If xp#>v
      level=level+1
      maxhealth=maxhealth+2
      health=maxhealth
      Exit
Endif
Next i


`check stats for magic level
restore magic
   for i=1 to 23
      read v
if magxp>v
      magic=magic+1
      exit
endif
next i

`adjust stats for level
maxhealth#=cont#+level#
cont#=level#-2

`battle 1
restore e_name
      for i=1 to 1
      read e_name(i)
      print "you are looking at enemy ",e_name(i)
next i

restore e_hp
      for i=1 to 1
      read e_hp(i)
      next i
      i=1
restore e_dam
      for i= 1 to 20
      read e_dam(i)


do
      e_hp(i)=e_hp(i)-player_hit()
      health=health-enemy_hit()
if e_hp(i)<1
      exit
      print "you killed it"

      money#=money#+20
endif
loop

function player_stats()
print "hp= ",health;"/",maxhealth;
print "       ";
print "mana=  ",mana;
print "       ";
print "level= ",level;
print "       "
print "money= ",money
print
print
restore e_hp
read e_hp(i)
print "enemy hp= ",e_hp(i)

endfunction

`player_hit function
function player_hit()
if turn<>1
   exitfunction 0  `Added the "0"
endif
do
   if upkey()
   dmg=strength
   print "you hit ",e_name(i);"for",dmg
   Exit `Need to exit the Do/Loop
endif

` Removed the extra "Loop" and "Do" that was here.

if downkey() and mana>9
   dmg=magic+3
   mana=mana-10
   Exit `Need to exit the Do/Loop
endif
if leftkey()=1 and mana<10
   print "you are too low on mana"
endif
loop
endfunction dmg `Added "dmg"

function enemy_hit()
if turn<>2 then exitfunction 0
do
e_dmg=e_dam(i)
turn=1
exit
endfunction e_dmg


Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

magic:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

e_hp:
data 50,70,85,92

e_name:
data "green spider","wolf 1","wolf 2","wolf 3"

e_dam:
data 2,1,1,3,2,1,4,2,3,1,1,1,1,2,3,1,4,5,3,1

level#=10
xp#=0
magxp=0

dim e_hp(10) as integer
dim e_name(10) as string
dim weaponname(1) as string

global money as float
global strength as float
strength=rnd(.5*level#)+weaponstrength
global mana as float
mana=50*magic#
global maxhealth as integer
maxhealth=level#*1.5
global health as float
health=maxhealth
global turn as integer
turn=1
global weaponmastery as float
global weaponstrength as float
global magic as float

rem start
do
set text size 20
cls
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

player_stats()
print
print
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"


` check for level increase
Restore Level
      For i = 1 to 23
      Read v
If xp#>v
      level=level+1
      maxhealth=maxhealth+2
      health=maxhealth
      Exit
Endif
Next i


`check stats for magic level
restore magic
   for i=1 to 23
      read v
if magxp>v
      magic=magic+1
      exit
endif
next i

`adjust stats for level
maxhealth#=cont#+level#
cont#=level#-2

`battle 1
restore e_name
      for i=1 to 1
      read e_name(i)
      print "you are looking at enemy ",e_name(i)
next i

restore e_hp
      for i=1 to 1
      read e_hp(i)
      next i
      i=1
restore e_dam
      for i= 1 to 20
      read e_dam(i)
      next i
      if e_dam(i)>20 then i=1

do
      e_hp(i)=e_hp(i)-player_hit()
      health=health-enemy_hit()
if e_hp(i)<1
      exit
      print "you killed it"

      money#=money#+20
endif
loop

print "well,thats one monster less in the game."

cls

player_stats()
print
print "a hunter comes on the path you are taking"
print
print "hunter: 'that was one good kill, I saw the whole thing through a sniper rifle.'"
cls
print "a sniper?"
cls
print "hunter: 'how long have you been gone?'"
cls
print
print "can you take me to town?"
print
print "the hunter runs
cls
print "you are attacked by three wolves."

loop

function player_stats()
print "hp= ",health;"/",maxhealth;
print "       ";
print "mana=  ",mana;
print "       ";
print "level= ",level;
print "       "
print "money= ",money
print
print
restore e_hp
read e_hp(i)
print "enemy hp= ",e_hp(i)

endfunction

`player_hit function
function player_hit()
if turn<>1
   exitfunction 0  `Added the "0"
endif
   if upkey()
   dmg=strength
   print "you hit ",e_name(i);"for",dmg
   wait 200 `Need to exit the Do/Loop
endif

` Removed the extra "Loop" and "Do" that was here.

if downkey() and mana>9
   dmg=magic+3
   mana=mana-10
   print "you hit him with magic!"
   Exit `Need to exit the Do/Loop
endif
if leftkey()=1 and mana<10
   print "you are too low on mana"
endif
loop
wait 200
endfunction dmg `Added "dmg"

function enemy_hit()
if turn<>2 then exitfunction 0
do
e_dmg=e_dam(i)
turn=1
exit
endfunction e_dmg


Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

magic:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

e_hp:
data 50,70,85,92

e_name:
data "green spider","wolf 1","wolf 2","wolf 3"

e_dam:

level#=10
xp#=0
magxp=0

dim ehp(10) as integer
dim ename(10) as string
dim weaponname(1) as string
dim edam (1) as integer

global money as float
global strength as float
strength=rnd(.5*level#)+weaponstrength
global mana as float
mana=50*magic#
global maxhealth as integer
maxhealth=level#*1.5
global health as float
health=maxhealth
global turn as integer
turn=1
global weaponmastery as float
global weaponstrength as float
global magic as float

rem start
do
set text size 20
cls
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

player_stats()
print
print
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"


` check for level increase
Restore Level
      For i = 1 to 23
      Read v
If xp#>v
      level=level+1
      maxhealth=maxhealth+2
      health=maxhealth
      Exit
Endif
Next i


`check stats for magic level
restore magic
   for i=1 to 23
      read v
if magxp>v
      magic=magic+1
      exit
endif
next i

`adjust stats for level
maxhealth#=cont#+level#
cont#=level#-2

`battle 1
restore e_name
      for i=1 to 1
      read e_name(i)
      print "you are looking at enemy ",e_name(i)
next i

restore ehp
      for i=1 to 1
      read ehp(i)
      next i
      i=1
restore edam
      for i= 1 to 1
      read edam(i)
      next i
do
       ehp(i)=ehp(i)-player_hit()
if turn=2
       health=health-enemy_hit(i)
         turn=1
endif
loop

print "well,thats one monster less in the game."

cls

player_stats()
print
print "a hunter comes on the path you are taking"
print
print "hunter: 'that was one good kill, I saw the whole thing through a sniper rifle.'"
cls
print "a sniper?"
cls
print "hunter: 'how long have you been gone?'"
cls
print
print "can you take me to town?"
print
print "the hunter runs"
cls
print "you are attacked by three wolves."
player_stats()

loop

function weapon_strength()
   if weaponname$=

function player_stats()
print "hp= ",health;"/",maxhealth;
print "       ";
print "mana=  ",mana;
print "       ";
print "level= ",level;
print "       "
print "money= ",money
print
print
restore e_hp
read e_hp(i)
print "enemy hp= ",e_hp(i)

endfunction

`player_hit function
function player_hit()
if turn<>1
   exitfunction 0
endif
   if upkey()
   dmg=rnd (strength)
   print "you hit ",ename(i);"for",dmg
   print
   player_stats()
   wait 200
endif

` Removed the extra "Loop" and "Do" that was here.

if downkey() and mana>9
   dmg=magic+3
   mana=mana-10
   print "you hit him with magic!"
   print
   player_stats()
   Exit
endif
if leftkey()=1 and mana<10
   print "you are too low on mana"
endif
      wait key
endfunction dmg

function e_dam()
if turn<>2 then exitfunction
edam=rnd(edam)
endfunction edam

Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

magic:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

ehp:
data 50,70,85,92

ename:
data "green spider","wolf 1","wolf 2","wolf 3"

edam:
weaponname:
data "

level#=10
xp#=0
magxp=0

dim ehp(10) as integer
dim ename(10) as string
dim weaponname(1) as string
dim edam (1) as integer

global money as float
global strength as float
strength=rnd(.5*level+weaponstrength)
global mana as float
mana=50*magic#
global maxhealth as integer
maxhealth=level#*1.5
global health as float
health=maxhealth
global turn as integer
turn=1
global onehmastery as float
global twomastery as float
global twoweaponmastery as float
global weaponstrength as float
global magic as float

rem start
do
set text size 20
cls
print
print " you are an adventurer lost in a forest"
print
print "'where am I?'"
print
print " you hear rustling leaves"
print
print "'what was that?'"
print
print " you get a bit nervous"
print
print " it stops"
wait key

cls

player_stats()
print
print
print "a giant green spider jumps at you and you fall to the ground"
print "you have in your hand, a dagger"
print "what do you do?"


` check for level increase
Restore Level
      For i = 1 to 23
      Read v
If xp#>v
      level=level+1
      maxhealth=maxhealth+2
      health=maxhealth
      Exit
Endif
Next i


`check stats for magic level
restore magic
   for i=1 to 23
      read v
if magxp>v
      magic=magic+1
      exit
endif
next i

`adjust stats for level
maxhealth#=cont#+level#
cont#=level#-2

`battle 1
restore ename
      for i=1 to 1
      read ename(i)
      print "you are looking at enemy ",ename(i)
next i

restore ehp
      for i=1 to 1
      read ehp(i)
      next i
      i=1
restore edam
      for i= 1 to 1
      read edam(i)
      next i
do
ehp(i)=ehp(i)-player_hit()
health=health-enemy_hit()

loop



print "well,thats one monster less in the game."

cls

player_stats()
print
print "a hunter comes on the path you are taking"
print
print "hunter: 'that was one good kill, I saw the whole thing through a sniper rifle.'"
cls
print "a sniper?"
cls
print "hunter: 'how long have you been gone?'"
cls
print
print "can you take me to town?"
print
print "the hunter runs"
cls
print "you are attacked by three wolves."
player_stats()

loop

function weapon_strength()
   if weaponname$="bronze dagger" then weaponstrength=1
   if weaponname$="iron dagger" then weaponstrength=2
endfunction

function player_stats()
print "hp= ",health;"/",maxhealth;
print "       ";
print "mana=  ",mana;
print "       ";
print "level= ",level;
print "       "
print "money= ",money
print
print
restore ehp
read ehp(i)
print "enemy hp= ",ehp(i)

endfunction

`player_hit function
function player_hit()
if turn<>1
   exitfunction 0
endif
   if upkey()
   dmg=rnd (strength)
restore ename
   read ename(i)
   print "you hit ",ename(i);"for",dmg
   print
      wait 200
endif

` Removed the extra "Loop" and "Do" that was here.

if downkey() and mana>9
   dmg=magic+3
   mana=mana-10
   print "you hit him with magic!"
   print
restore ehp
   print "enemy hp= ",ehp

   Exit
endif
if leftkey()=1 and mana<10
   print "you are too low on mana"
endif
   turn=2
      wait key
endfunction dmg

function enemy_hit()
if turn<>2 then exitfunction
edmg=rnd(edam)
print "he hit you for ",edmg
turn=1
wait key
endfunction edmg

Level:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

magic:
Data 100, 200, 400, 700, 1000, 1500, 2250, 4000, 7000, 10000, 17500, 32000, 50000, 90000
Data 150000, 230000, 290000, 400000, 690000, 1000000, 50000000, 1000000000, 10000000000000000000000

ehp:
data 50,70,85,92

ename:
data "green spider","wolf 1","wolf 2","wolf 3"

edam:
data 1,

weaponname:
data "bronze dagger","iron dagger"

good#=0
bad#=0

global strength as float
strength=1
global defense as float
global lightpower as float
global darkpower as float
global darkenemy as float
global battle as float

load music "SadMystery.mp3",1
load music "Humanx1.mp3",2
load music "OrcTheme.mp3",3
load music "TragicConfrontation.mp3",4
load music "UndeadVictory.mp3",5

set text size 15
print "what is your name ",name$
cls

print name$; "choose your side"

print "the better you are, the more focus will go to lightpower."
print "the more evil you are, your primary focus will be on darkpower."
print
print "darkpower is much more strong, and focusses to your direct battle."
print "light is less powerful, but heklps you indirectly, like blinding an enemy."
wait key
cls

print "pure=1 ";"good=2 ";"nuetral=3 ";"bad=4 ";"evil=5 "
print
input "which do you choose?",side$

print "your path is chosen."

if side$="1"
   goto pure
   lightpower=50
   darkpower=0
   endif
if side$="2"
   goto good
   ligthpower=40
   darkpower=10
endif
if side$="3"
   goto nuetral
   lightpower=25
   darkpower=25
endif
if side$="4"
   goto bad
   lightpower=10
   darkpower=40
endif
if side$="5"
   goto evil
   lightpower=0
   darkpower=50
endif
if side$="6"
   goto chaotic
   lightpower=0
   darkpower=100
endif
if side$="imbetterthanpure"
   goto pure2
   lightpower=100
   darkpower=0
endif

pure:
do
   loop music 1
   print " a good soul..."
   cls
   print "lightpower is your strength, use it often."
   print "you have no dark skill."
   wait key
   cls
   print "your village is small, and on the way to the holy city."
   print "you are a good person, but darkness infests your land."
   print "you see a shadowy figure, a creature you have never seen before."
   print "you walk up to it..."
   wait key
   cls
   print "it attacks."
   print "this is a humaniod figure, one of the darkness overwhelming your land."
   print "if you don't do something, it will surely kill you."
   wait key
   cls
   print "your first batlle..."
   print
   print "press up to attack the beast."

if upkey()=1
   print "good,you have the basics down."
   print "your strength will go up as you attack more, as well as your defense."
   goto continue1
endif
wait key

continue1:

cls
print "the barely wounded creature lunges at you."
print "if you press on the left button at the exact right moment"
print "you can dodge the attack."
if leftkey()=1 then goto continue2
wait key

continue2:
cls
print "you dodge the attack."
print "the enemy is off balance, he will be easier to defeat"
print "if you can destroy him before he regains his feet."
print "however, dodging is extreemly hard to do if your defense level is not high."
wait key

cls
print "try using a lightpower,"
print "press shift"
print "because you are pure, your lightpower is very high,"
print " and you have three light attacks already."
if shiftkey()=1
light_powers()
endif
wait key

continue3:
cls
input "he hides down. kill him, or let him be free ",killdarkcreature1$
if killdarkcreature1$="kill him"
print "you kill him..."
print "you will be known for the bad and good you do, killing this is considered good."
print "not every creature you kill will be for good."
good#=good#+1
endif
wait key

if killdarkcreature1$="let him be free"
print "you let him go."
print "every cuase has an effect..."
endif
wait key

print
print "you now know all the fighting technuiqes, your on your own..."
wait key
cls


print "you walk out of your home, many warriors are fighting the strange beasts."

if killdarkcreature$="let him be free"
print "warrior: 'apparently one of these attacked a few seconds ago, they sure run fast.'"
input "say: 'why?' or 'so?'",warrior1$
wait key

print
print "warrior: 'he ran back and told his whole squad to attack.'"
print "you have a bad feeling in your gut."
endif
wait key

print
input "do you help or leave.",q1$
if q1$="help" then goto battle1
if q1$="leave"
bad#=bad#+5
print "that was bad..."
wait key
goto road
endif

battle1:
cls
print "you rush in to help the warrior."
cls
loop

road:
print "there is currently no data for this part of the game."
wait key

good:
do
loop music 2
print "lightpower is your primary focus, however, you can use darkpower"
print "and improve it by using it often."
wait key
cls
loop

nuetral:
do
loop music 3
print "you are 50/50 on which side you are on. You are ok at both powers dark and light."
print "practice to improve which power you would like the most."
print "you will be judged by what you do, and may even end up on a side."
wait key
cls
loop

bad:
do
loop music 4
print "darkpower is your primary focus, however, you can use lightpower."
print "improve it by practicing a lot."
wait key
cls
loop

evil:
do
loop music 5
print "you are extreemly powerful in the darkpower, but you lake any light."
wait key
cls
loop

chaotic:

pure2:

function light_powers()
if lightpower<1 then exitfunction
   do
   print "which lightpower would you like to use?"
   print "light energy beam."
   input "use this?",light$
if magic$="yes"
   lightattack=rnd(2)
   exitfunction
if magic<25 then exitfunction
print "blind (for use on dark allinged characters only)"
input "use this?",light2$
if light2$="yes" and darkenemy=1 and timer()>0 and timer()<50
dodge()
exitfunction
endif
print "attack boost."
input "use this?", light3$
if light3$="yes" and battle=1
strength=strength+10
exitfunction
endif
endif
   loop
   wait key
endfunction

function player_hit()
if turn<>1 then exitfunction
do
if upkey()=1
dmg=rnd(strength)
print "you hit him with a regular attack for ",dmg
endif
loop
endfunction dmg

function dodge()
print "you dodged the enemy."
edam=0
endfunction

cls
print "try using a lightpower,"
print "press shift"
print "because you are pure, your lightpower is very high,"
print " and you have three light attacks already."
if shiftkey()=1
light_powers()
endif
wait key

cls
print "try using a lightpower,"
print "press shift"
print "because you are pure, your lightpower is very high,"
print " and you have three light attacks already."
Do
   if shiftkey()=1
      light_powers()
      Exit
   endif
Loop