Sorry your browser is not supported!

if side$="1"
   goto pure
   lightpower=50
   darkpower=0
   endif

good#=0
bad#=0


dim ehp(10) as float
dim edam(10) as integer
dim ename(10) as string

global xp as float
global level as float
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
global blinded 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"
   lightpower=50
   darkpower=0
   goto pure
   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."
do
if shiftkey()=1
light_powers()
exit
endif
loop

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 killdarkcreature1$="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."
wait key
cls

`battle 1
ehp1=1
ehp2=1
edam1=1
edam2=2
ename1=1
ename2=2
battle()
print "the other warriors have goten a hold of things."
wait key
goto road

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

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 lack any light."
wait key
cls
print "you are the leader of the darkclan..."
print "you need to arrive at the holy city, destroy anything on the way..."
print "but to do this, you must send out a scout,"
wait key
cls
print "you walk to your dead, underground city."
print "Most of your men do not even know their way around"
print "the place with the giant pits blocking everything"
wait key
cls

print "you go to a scout that does know his way around."

input "your command?",c1$
print "go to any city on the way to the holy city, find out how many people i need to send out to destroy it."
if c1$="yeah, what he said"
print "scout:'yessir!'"
print "he runs off."
endif
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 light$="yes"
   lightattack=rnd(2)
   lightpower=lightpower+10
   exitfunction
endif
if light$="no" then goto lightcon1
   lightcon1:
cls
if magic<25 then exitfunction
   print "blind (for use on dark allinged characters only)"
   input "use this?",light2$
if light2$="yes" and darkenemy=1
   blinded=1
   dodge()
exitfunction
   endif
   print "attack boost."
   input "use this?", light3$
   if light3$="yes" and battle=1
   strength=strength+10
exitfunction
      endif
   loop
   wait key
endfunction lightattack

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
timer()=2000
turn=2
endif
loop
endfunction dmg

function dodge()
if turn<>2 then exitfunction
do
if leftkey()<>1 then exitfunction
if timer()>1 and timer()<50 and leftkey()=1
print "you dodged the enemy."
edmg=0
endif
if timer()>0 and timer()<200 and blinded=1
print "you dodged the enemy"
edmg=0
endif
if timer()=0
edmg=edam
turn=1
endif
loop
endfunction edmg

function battle()
restore ehp
   for i=ehp1 to ehp2
   read ehp(i)
   next i
restore edam
   for i=edam1 to edam2
   read edam(i)
   next i
restore ename
   for i=ename1 to ename2
   read ename(i)
   next i
   print "you are fighting ",ename
   print
do
print "enemy hp=",ehp
   ehp(i)=ehp(i)-player_hit()
   health=health-dodge()
   ehp(i)=ehp(i)-light_powers()
if ehp(i)>1
   xp=xp+ehp(i)
   exit
   endif
   loop
endfunction

ehp:
data 20

edam:
data 1

ename:
data "shadow 1"

if leftkey()=1 then goto continue2
wait key

good#=0
bad#=0


dim ehp(10) as float
dim edam(10) as integer
dim ename(10) as string

global xp as float
global level as float
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
global blinded 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

do
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 "for any other choices, just press exactly as said."

print "your path is chosen."

if side$="1"
   lightpower=50
   darkpower=0
   goto pure
   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
loop

pure:
do
if upkey()=1 and downkey()=1
input "what cheat would you like to use?",cheat$
if cheat$="menkemonkey" then level=level+1
if cheat$="thedudeishereimsorrybutheislikeitornotyourgonnadiefromhimandhesgonnakillyouifyoudontobeyhiseveryword!!!" then lightpower=10000 and darkpower=10000
endif

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

do
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
loop

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."
do
if leftkey()=1 then goto continue2
loop

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."
do
if shiftkey()=1
light_powers()
exit
endif
loop

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 killdarkcreature1$="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."
wait key
cls

`battle 1
ehp1=1
ehp2=1
edam1=1
edam2=2
ename1=1
ename2=2
battle()
print "the other warriors have goten a hold of things."
wait key
goto road

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

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 lack any light."
wait key
cls
print "you are the leader of the darkclan..."
print "you need to arrive at the holy city, destroy anything on the way..."
print "but to do this, you must send out a scout,"
wait key
cls
print "you walk to your dead, underground city."
print "Most of your men do not even know their way around"
print "the place with the giant pits blocking everything"
wait key
cls

print "you go to a scout that does know his way around."

print "commands: 1. 'go to any city and scout until you find out if there weak or strong so that we know how many people to send out."
input "your command?",c1$
if c1$="1"
print "scout:'yessir!'"
print "he runs off."
endif
loop

chaotic:

pure2:

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

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
timer()=2000
turn=2
endif
loop
endfunction dmg

function dodge()
if turn<>2 then exitfunction
do
if timer()>1 and timer()<50 and leftkey()=1
print "you dodged the enemy."
edmg=0
endif
if timer()>0 and timer()<200 and blinded=1
print "you dodged the enemy"
edmg=0
endif
if timer()=0
edmg=edam
turn=1
endif
loop
endfunction edmg

function battle()
restore ehp
   for i=ehp1 to ehp2
   read ehp(i)
   next i
restore edam
   for i=edam1 to edam2
   read edam(i)
   next i
restore ename
   for i=ename1 to ename2
   read ename(i)
   next i
   print "you are fighting ",ename
   print
do
print "enemy hp=",ehp
   ehp(i)=ehp(i)-player_hit()
   health=health-dodge()
   ehp(i)=ehp(i)-light_powers()
if ehp(i)>1
   xp=xp+ehp(i)
   exit
   endif
   loop
endfunction



ehp:
data 20

edam:
data 1

ename:
data "shadow 1"

good#=0
bad#=0


dim ehp(10) as float
dim edam(10) as integer
dim ename(10) as string

global xp as float
global level as float
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
global blinded as float
global melee as float
global ranged as float
global turn as float
turn=1

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

do
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 "for any other choices, just press exactly as said."

print "your path is chosen."

if side$="1"
   lightpower=50
   darkpower=0
   goto pure
   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$="hahahaiwantobechaoticlyevil"
   goto chaotic
   lightpower=0
   darkpower=100
endif
if side$="imbetterthanpure"
   goto pure2
   lightpower=100
   darkpower=0
endif
loop

pure:
do
if upkey()=1 and downkey()=1
input "what cheat would you like to use?",cheat$
if cheat$="menkemonkey" then level=level+1
if cheat$="thedudeishereimsorrybutheislikeitornotyourgonnadiefromhimandhesgonnakillyouifyoudontobeyhiseveryword!!!" then lightpower=10000 and darkpower=10000
endif

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

do
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
loop

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."
do
if leftkey()=1 then goto continue2
loop

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."
do
light_powers()
if light$="yes" or light2$="yes" or light3$="yes" then exit
loop

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 killdarkcreature1$="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."
wait key
cls

`battle 1
ehp1=1
ehp2=1
edam1=1
edam2=2
ename1=1
ename2=2
battle()
print "the other warriors have goten a hold of things."
wait key
goto road

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

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 lack any light."
wait key
cls
print "you are the leader of the darkclan..."
print "you need to arrive at the holy city, destroy anything on the way..."
print "but to do this, you must send out a scout,"
wait key
cls
print "you walk to your dead, underground city."
print "Most of your men do not even know their way around"
print "the place with the giant pits blocking everything"
wait key
cls

print "you go to a scout that does know his way around."

print "commands: 1. 'go to any city and scout until you find out if there weak or strong so that we know how many people to send out."
input "your command?",c1$
if c1$="1"
print "scout:'yessir!'"
print "he runs off."
endif
loop

chaotic:
do
print "you have activated chaos mode, you cheater."
wait key
loop

pure2:

function light_powers()
if turn<>1 then exitfunction
if lightpower<1 then exitfunction
   do
if shiftkey()=1
   print "which lightpower would you like to use?"
   print "light energy beam."
   input "use this?",light$
if light$="yes"
   lightattack=rnd(2)
   lightpower=lightpower+10
   exitfunction
endif
else
cls
if magic<25 then exitfunction
   print "blind (for use on dark allinged characters only)"
   input "use this?",light2$
if light2$="yes" and darkenemy=1
   blinded=1
   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 lightattack

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
timer()=2000
turn=2
endif
loop
endfunction dmg

function dodge()
if turn<>2 then exitfunction
do
if timer()>1 and timer()<50 and leftkey()=1
print "you dodged the enemy."
edmg=0
endif
if timer()>0 and timer()<200 and blinded=1
print "you dodged the enemy"
edmg=0
endif
if timer()=0
edmg=edam
turn=1
endif
loop
endfunction edmg

function battle()
restore ehp
   for i=ehp1 to ehp2
   read ehp(i)
   print "enemy hp=",ehp(i)
   next i
restore edam
   for i=edam1 to edam2
   read edam(i)
   next i
restore ename
   for i=ename1 to ename2
   read ename(i)
   print "you are fighting ",ename(i)
   next i
   print
do
   ehp(i)=ehp(i)-light_powers()
   ehp(i)=ehp(i)-player_hit()
   health=health-dodge()
   if ehp(i)<1
   xp=xp+ehp(i)
   exit
   endif
   loop
endfunction



ehp:
data 20

edam:
data 1

ename:
data "shadow 1"

good#=0
bad#=0


dim ehp(10) as float
dim edam(10) as integer
dim ename(10) as string
dim espeed(10) as integer

global xp as float
global level as float
level=9
global strength as float
strength=1
global defense as float
global lightpower as float
global darkpower as float
global darkenemy as float
darkenemy=1
global battle as float
battle=1
global blinded as float
global melee as float
global ranged as float
global turn as float
turn=1
global accuracy as float
accuracy=10
global health as integer
health=.7*level
global money as float
global hit as integer
hit=1

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

do
set text size 15
input "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 helps 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 "for any other choices, just press exactly as said."

print "your path is chosen."
wait key

if side$="1"
   lightpower=50
   darkpower=0
   goto pure
   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$="hahahaiwantobechaoticlyevil"
   goto chaotic
   lightpower=0
   darkpower=100
endif
if side$="imbetterthanpure"
   goto pure2
   lightpower=100
   darkpower=0
endif
loop

pure:
do
if upkey()=1 and downkey()=1
input "what cheat would you like to use?",cheat$
if cheat$="menkemonkey" then level=level+1
if cheat$="thedudeishereimsorrybutheislikeitornotyourgonnadiefromhimandhesgonnakillyouifyoudontobeyhiseveryword!!!" then lightpower=10000 and darkpower=10000
endif

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

do
if upkey()=1
   print "good,you have the basics down."
   goto continue1
endif
loop

continue1:
print "your strength will go up as you attack more, as well as your defense."
wait key

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."
do
if leftkey()=1 then goto continue2
loop

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."
do
light_powers()
goto continue3
loop

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 killdarkcreature1$="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."
wait key
cls

`battle 1
ehp1=1
ehp2=1
edam1=1
edam2=1
ename1=1
ename2=1
espeed1=1
espeed2=1
battle()
print "the other warriors have goten a hold of things."
wait key
goto road

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

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 lack any light."
wait key
cls
print "you are the leader of the darkclan..."
print "you need to arrive at the holy city, destroy anything on the way..."
print "but to do this, you must send out a scout,"
wait key
cls
print "you walk to your dead, underground city."
print "Most of your men do not even know their way around"
print "the place with the giant pits blocking everything"
wait key
cls

print "you go to a scout that does know his way around."

print "commands: 1. 'go to any city and scout until you find out if there weak or strong so that we know how many people to send out."
input "your command?",c1$
if c1$="1"
print "scout:'yessir!'"
print "he runs off."
endif
loop

chaotic:
do
print "you have activated chaos mode, you cheater."
wait key
loop

pure2:

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

function player_hit()
if turn<>1 then exitfunction
do
if bal=1 then strength=strength*10
if upkey()=1 and hit=1
dmg=rnd(strength)
print "you hit him with a regular attack for ",dmg
turn=2
timer()=2000
endif
bal=0
loop
endfunction dmg

function dodge()
if turn<>2 then exitfunction
do
do
if timer()<1
   print timer()
endif
loop
if timer()>1 and timer()<50 and leftkey()=1
   print "you dodged the enemy."
   edmg=0
   bal=1
endif
if timer()>0 and timer()<200 and blinded=1
   print "you dodged the enemy"
   edmg=0
endif
if timer()=0
   edmg=edam
   turn=1
endif
loop
endfunction edmg

function battle()
restore ehp
   for i=ehp1 to ehp2
   read ehp(i)
   print "enemy hp=",ehp(i)
   next i
restore edam
   for i=edam1 to edam2
   read edam(i)
   next i
restore ename
   for i=ename1 to ename2
   read ename(i)
   print "you are fighting ",ename(i)
   next i
   print
restore speed
   for i=espeed1 to espeed2
   read espeed(i)
   next i
player_stats()
do
battle=1
   health=health-dodge()
   ehp(i)=ehp(i)-player_hit()
   ehp(i)=ehp(i)-light_powers()
if ehp(i)<1
   xp=xp+ehp(i)
   battle=0
   darkenemy=0
   exitfunction
endif
loop
endfunction

function player_stats()
print "level=",level
print "hp=",health
print "money=",money
endfunction

ehp:
data 20

edam:
data 1

ename:
data "shadow 1"

speed:
data 10,11,12,13,14,13,12,15,16,14,13,14,15,14

good#=0
bad#=0


dim ehp(10) as float
dim edam(10) as integer
dim ename(10) as string
dim espeed(10) as integer

global xp as float
global level as float
level=9
global strength as float
strength=1
global defense as float
global lightpower as float
global darkpower as float
global darkenemy as float
darkenemy=1
global battle as float
battle=1
global blinded as float
global melee as float
global ranged as float
global turn as float
turn=1
global accuracy as float
accuracy=10
global health as integer
health=.7*level
global money as float
global hit as integer
hit=1
global z as string

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

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

print name$; " choose your side"
print
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 helps 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 "for any other choices, just press exactly as said."

print "your path is chosen."
wait key

if side$="1"
   lightpower=50
   darkpower=0
   z="pure"
   goto pure
   endif

if side$="2"
    z="good"
   ligthpower=40
   darkpower=10
endif

if side$="3"
   z="nuetral"
      lightpower=25
   darkpower=25
endif

if side$="4"
   z="bad"
   lightpower=10
   darkpower=40
endif

if side$="5"
   z="evil"
   lightpower=0
   darkpower=50
endif

if side$="hahahaiwantobechaoticlyevil"
   z="chaotic"
   lightpower=0
   darkpower=100
endif
if side$="imbetterthanpure"
   z="pure2"
   lightpower=100
   darkpower=0
endif
loop

pure:
do
if upkey()=1 and downkey()=1
cls
input "what cheat would you like to use?",cheat$
if cheat$="menkemonkey" then level=level+1
if cheat$="thedudeishereimsorrybutheislikeitornotyourgonnadiefromhimandhesgonnakillyouifyoudontobeyhiseveryword!!!" then lightpower=10000 and darkpower=10000
endif

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

do
if upkey()=1
   print "good,you have the basics down."
   goto continue1
endif
loop

continue1:
print "your strength will go up as you attack more, as well as your defense."
wait key

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."
do
if leftkey()=1 then goto continue2
loop

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."
do
light_powers()
goto continue3
loop

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 killdarkcreature1$="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."
wait key
cls

`battle 1
a=1
b=1
battle()

do
restore level
   for i=1 to 25
   read v
   next i
if xp#>i then level_up()
loop

print "the other warriors have goten a hold of things."
wait key
goto road

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

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 lack any light."
wait key
cls
print "you are the leader of the darkclan..."
print "you need to arrive at the holy city, destroy anything on the way..."
print "but to do this, you must send out a scout,"
wait key
cls
print "you walk to your dead, underground city."
print "Most of your men do not even know their way around"
print "the place with the giant pits blocking everything"
wait key
cls

print "you go to a scout that does know his way around."

print "commands: 1. 'go to any city and scout until you find out if there weak or strong so that we know how many people to send out."
input "your command?",c1$
if c1$="1"
print "scout:'yessir!'"
print "he runs off."
endif
loop

chaotic:
do
print "you have activated chaos mode, you cheater."
wait key
loop

pure2:

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

function player_hit()
if turn<>1 then exitfunction
do
if bal=1 then strength=strength*10
if upkey()=1 and hit=1
dmg=rnd(strength)
print "you hit him with a regular attack for ",dmg
endif
light_powers()
turn=2
timer()=2000
bal=0
loop
if shiftkey()=1 then light_powers()
endfunction dmg

function dodge()
if turn<>2 then exitfunction
do
do
if timer()>1
print timer()
endif
loop
if timer()>1 and timer()<50 and leftkey()=1
   print "you dodged the enemy."
   edmg=0
   bal=1
endif
if timer()>0 and timer()<200 and blinded=1
   print "you dodged the enemy"
   edmg=0
endif
if timer()=0
   edmg=edam
   turn=1
endif
loop
endfunction edmg

function battle()
restore ehp
   for i=a to b
   read ehp(i)
   print "enemy hp=",ehp(i)
   next i
restore edam
   for i=a to b
   read edam(i)
   next i
restore ename
   for i=a to b
   read ename(i)
   print "you are fighting ",ename(i)
   next i
   print
restore speed
   for i=a to b
   read espeed(i)
   next i
player_stats()
do
   battle=1
   ehp(i)=ehp(i)-player_hit()
   health=health-dodge()
if ehp(i)<1
   xp=xp+ehp(i)
   battle=0
   darkenemy=0
exit
   exitfunction
endif
if health<1 and die<>1
   print "you died :-("
   print "well, back to the start..."
   gosub pure
   exitfunction
endif
loop
endfunction

function level_up()
cls
level=level+1
print "level up!!!"
print "choose which to upgrade"
print "strength"
print "hp"
input "choose",lvl$
if lvl$="strength" then strength=strength+1
if lvl$="hp" then health=health+2
endfunction

function player_stats()
print "level=",level
print "hp=",health
print "money=",money
endfunction

ehp:
data 20

edam:
data 1

ename:
data "shadow 1"

speed:
data 10,11,12,13,14,13,12,15,16,14,13,14,15,14

level:
data 100,220,350,480,670,850,1000,2200,3500,4800,6700,8500,10000,22000,35000,48000,67000,85000
data 100000,220000,350000,480000,670000,850000,1000000

`This is just a test program to test the new Functions I've made

`Declair globals
Global P_health as Integer
Global P_level as Integer
Global P_str as Integer
Global P_magic as Integer
Global P_light as Integer
Global P_def as Integer
Global P_dodge as Integer

Global E_health as integer
Global E_dmg as integer
Global E_def as integer

`Initialize variables
P_health=20
P_level=1
P_str=10
P_magic=10
P_light=100
P_def=2


E_health=20
E_dmg=5
E_def=2


`Main test loop without everything else.
Do
   Player_Choice()
   Wait Key
Loop



Function Player_Choice()
Ink Rgb(150,150,150),0
   Print "Press [Up Arrow] to Attack, [Down Arrow] to Cast a Spell,"
   Print "or [Left/Right Arrows] to Dodge."
   choice=0
   Do
      If Upkey() Then choice=1:Exit
      If Downkey() Then choice=2:Exit
      If Leftkey() Then choice=3:Exit
      If Rightkey() Then choice=4:Exit
   Loop
   If choice=1 Then Player_Attack()
   If choice=2 then Player_Magic()
   If choice>2 then P_dodge=choice else P_dodge=0
   Ink Rgb(0,0,200),0
   If P_dodge=3 Then Print "You dodge to the left."
   If P_dodge=4 then Print "You dodge to the right."
Endfunction

`Combat system:
` Attack = Player's Strenth x Player's Level
` Defense = Player's Defense x Player's Level
` Enemy Attack = Enemy's Damage value (A_dmg)
` Enemy Defense = Enemy's Defense value (E_def)

` Compare Rnd(Attack) To Rnd(Defense)
` IF Attack Result > Defense Result, then HIT and apply difference as damage.
` IF Attack Result = Defense Result, then Glancing Blow. No Damage.
` IF Attack Result < Defense Result, the No Hit.

Function Player_Attack()
   Ink rgb(255,0,0),0
   attack=rnd(P_str*P_level)
   defense=rnd(E_def)
   If attack>defense
      damage=attack-defense
      E_health=E_health-damage
      Print "You hit the creature for ";damage;"! It now has ";E_health;" health left."
   Else
      If attack=damage
         Print "A glancing blow of the creature's tough hide! It takes no damage."
      Else
         Print "You missed the creature."
      Endif
   Endif
EndFunction



Function Player_Magic()
   Ink Rgb(2255,255,0),0
   Print "The player magic function is not done yet."
EndFunction

Sync On:Sync Rate 60:Autocam off:Position Camera 0,10,0
Global LastTime as Integer
LastTime=Timer()
global gun as string
global maxe as integer
global hp as integer
hp=100

dim e_hp(100) as integer

maxe=100

   make_enemies()

gun="machinegun"

make object cylinder 10000,1
xrotate object 10000,180
position object 10000,0,10,0

Do
   lock object on 10000
   make_gun()
   Make_Bullet()
   Move_Bullet()
   Move_Camera()
   stats()
   Sync
Loop
End

function make_enemies()
for i=1 to maxe
   Make Object Cube i,20
   Position Object i,rnd(2000)-1000,10,rnd(2000)-1000
Next i
endfunction

Function Move_Camera()
   Turn Camera Left LeftKey()-RightKey()
   Move Camera Upkey()-Downkey()
EndFunction

 Function Make_Bullet()
    If MouseClick()<>1 Then ExitFunction
    If Timer()-LastTime<relodetime Then ExitFunction
   LastTime=Timer()
    For i = 101 to maxammo+101
      if Object Exist(i)=0 Then Exit
   Next i
   If i>maxammo+101 then exitfunction
   Make Object Sphere i,1,6,6
   Position Object i,Camera Position X(),Camera Position Y(),Camera Position Z()
   Set Object To Camera Orientation i
   Move Object Right i,5
EndFunction

Function Move_Bullet()
   for i=101 to maxammo+101
       For j = 1 to 5
         If Object Exist(i)=0 Then Exit
         Move Object i,gunspeed
         c=Object Collision(i,0)
         If c>0
            Position Object c,Rnd(2000)-1000,10,Rnd(2000)-1000
            Delete Object i
         Endif
      Next j
      If Object Exist(i)
         Scale Object i,100,100,101
         If Object Size Z(i)>2 Then Delete Object i
      Endif
Next i
EndFunction

function make_gun()
if gun="machinegun"
gosub mg:
endif
endfunction

function stats()
   set cursor 0,350
   print gun;", hp=",hp; ", targeted enemy hp=",e_hp
   set cursor 50,0
   print
endfunction

mg:
maxammo=300
gunspeed=3
relodetime=300
return

Sync On:Sync Rate 60:Autocam off:Position Camera 0,10,0
Global LastTime as Integer
LastTime=Timer()
global gun as string
global maxe as integer
global hp as integer
Global gunspeed as float
Global maxammo as integer
Global relodetime as integer
hp=100

dim e_hp(100) as integer

maxe=100

   make_enemies()

gun="machinegun"

make object cylinder 10000,.5
Set Object Cull 10000,0
Scale Object 10000,100,500,100
xrotate object 10000,90
position object 10000,4,-3,6

Do
   lock object on 10000
   make_gun()
   Make_Bullet()
   Move_Bullet()
   Move_Camera()
   stats()
   Sync
Loop
End

function make_enemies()
for i=1 to maxe
   Make Object Cube i,20
   Position Object i,rnd(2000)-1000,10,rnd(2000)-1000
Next i
endfunction

Function Move_Camera()
   Turn Camera Left LeftKey()-RightKey()
   Move Camera Upkey()-Downkey()
EndFunction

 Function Make_Bullet()
    If MouseClick()<>1 Then ExitFunction
    If Timer()-LastTime<relodetime Then ExitFunction
   LastTime=Timer()
    For i = 101 to maxammo+101
      if Object Exist(i)=0 Then Exit
   Next i
   If i>maxammo+101 then exitfunction
   Make Object Sphere i,1,6,6
   Position Object i,Camera Position X(),Camera Position Y(),Camera Position Z()
   Set Object To Camera Orientation i
   Move Object Right i,6
   Move Object Down i,3
EndFunction

Function Move_Bullet()
   for i=101 to maxammo+101
       For j = 1 to 5
         If Object Exist(i)=0 Then Exit
         Move Object i,gunspeed
         c=Object Collision(i,0)
         If c>0
            Position Object c,Rnd(2000)-1000,10,Rnd(2000)-1000
            Delete Object i
         Endif
      Next j
      If Object Exist(i)
         Scale Object i,100,100,101
         If Object Size Z(i)>2 Then Delete Object i
      Endif
Next i
EndFunction

function make_gun()
if gun="machinegun"
gosub mg:
endif
endfunction

function stats()
   set cursor 0,350
   print gun;", hp=",hp; ", targeted enemy hp=",e_hp
   set cursor 50,0
   print
endfunction

mg:
maxammo=300
gunspeed=3
relodetime=300
return

rem using a formula that makes sounds without media
createsound("laser",1,1500,700,8000,0.01,0.2,0,0,0,0)
createsound("explosion",2,6200,700,2000,20,0.2,0,0,0,0)
createsound("explosion2",3,1200,1400,3000,10,0.1,0,0,0,0)
createsound("powerup",4,800,700,8000,-0.02,0.2,0,0,0,0)
createsound("warning",5,800,1000,6000,0.5,0.1,0,0,0,0)
createsound("vibrato1",6,500,2000,8000,0,0.1,0.05,0.2,0,0)
createsound("vibrato2",7,400,2000,8000,0,0.1,0.05,0.2,0,0)
createsound("vibrato3",8,600,2000,8000,0,0.1,0.05,0.2,0,0)
createsound("bass hit",9,20,200,14000,0.00,1.2,.0,0,0,0)
createsound("hihat",10,800,200,5000,60.06,2.2,.1,0,0,0)
createsound("door knock",11,200,200,8000,.1,4.0,2.1,10,9.2,9.2)
createsound("vinyl scratch",12,500,200,8000,0.06,0.2,.1,0,0,0)
createsound("cb1",13,250,500,2500,0.00001,0.2,4.0,0.4,0,0)
createsound("cb2",14,500,500,2500,0.00001,0.2,4.0,0.4,0,0)
createsound("cb3",15,437.5,1500,1500,0.0001,0.2,0.0,4.0,0.4,0)
createsound("cb4",16,573.75,1500,1500,0.0,0.2,4.0,0.4,0,0)
createsound("bubble burst",17,100,800,6000,-.4,2.0,0.1,10,1.2,0.2)

Sync On:Sync Rate 60:Autocam off:Position Camera 0,10,0
Global LastTime as Integer
LastTime=Timer()
global gun as string
global maxe as integer
global hp as integer
Global gunspeed as float
Global maxammo as integer
Global relodetime as integer
hp=100

dim e_hp(100) as integer

maxe=100

   make_enemies()

gun="machinegun"

make object cylinder 10000,.5
Set Object Cull 10000,0
Scale Object 10000,100,500,100
xrotate object 10000,90
position object 10000,4,-3,6

Do
   lock object on 10000
   make_gun()
   Make_Bullet()
   Move_Bullet()
   Move_Camera()
   stats()
   Sync
Loop
End

function make_enemies()
for i=1 to maxe
   Make Object Cube i,20
   Position Object i,rnd(2000)-1000,10,rnd(2000)-1000
Next i
endfunction

Function Move_Camera()
   Turn Camera Left LeftKey()+1-RightKey()-1
   Move Camera Upkey()+1-Downkey()-1
EndFunction

 Function Make_Bullet()
    If MouseClick()<>1 Then ExitFunction
    If Timer()-LastTime<relodetime Then ExitFunction
   play sound 1
   LastTime=Timer()
    For i = 101 to maxammo+101
      if Object Exist(i)=0 Then Exit
   Next i
   If i>maxammo+101 then exitfunction
   Make Object Sphere i,1,6,6
   Position Object i,Camera Position X(),Camera Position Y(),Camera Position Z()
   Set Object To Camera Orientation i
   Move Object Right i,6
   Move Object Down i,3
EndFunction

Function Move_Bullet()
   for i=101 to maxammo+101
       For j = 1 to 5
         If Object Exist(i)=0 Then Exit
         Move Object i,gunspeed
         c=Object Collision(i,0)
         if c>0
            Position Object c,Rnd(2000)-1000,10,Rnd(2000)-1000
            Delete Object i
         Endif
      Next j
      If Object Exist(i)
         Scale Object i,100,100,101
         If Object Size Z(i)>2 Then Delete Object i
      Endif
Next i
EndFunction

function make_gun()
if gun="machinegun"
gosub mg:
endif
endfunction

function stats()
   set cursor 0,350
   print gun;", hp=",hp; ", targeted enemy hp=",e_hp
   set cursor 50,0
   print
endfunction

mg:
maxammo=300
gunspeed=3
relodetime=300
return


rem this complicated functin that makes it so that you can create sounds without media
function createsound(name$,soundnumber,frequency#,length#,loudness#,bend#,decay#,vibratospeed#,vibratodepth#,tremelospeed#,tremelodepth#)

if file exist(name$+".wav")=1 then delete file name$+".wav"
open to write 1,name$+".wav"
chunk=int(((length#/1000)*44100*16)/8) `sample size (no of samples * bitrate * channels / 8)
samples=int((length#/1000)*44100) `length *44100
restore
for x=1 to 40
   read byte2
   write byte 1, byte2
next x
write long 1,chunk
rem generate and write wave
for x=1 to samples
  output#=int(sin((x/122.5)*(frequency#+vibratodepth#*sin(theta#)))*(loudness#+tremelodepth#*sin(phi#)))*3.0
  inc theta#,vibratospeed#
  inc phi#,tremelospeed#
  dec frequency#,bend#
  if loudness#>0 then dec loudness#,decay#
  write word 1,output#
next x
close file 1

load sound name$+".wav",soundnumber

data 82:data 73:data 70:data 70:data 208:data 59:data 1:data 0:data 87
data 65:data 86:data 69:data 102:data 109:data 116:data 32:data 16
data 0:data 0:data 0:data 1:data 0:data 2:data 0:data 34:data 86:data 0
data 0:data 136:data 88:data 1:data 0:data 4:data 0:data 16:data 0
data 100:data 97:data 116:data 97

endfunction

rem using a formula that makes sounds without media
createsound("laser",1,1500,700,8000,0.01,0.2,0,0,0,0)
createsound("explosion",2,6200,700,2000,20,0.2,0,0,0,0)
createsound("explosion2",3,1200,1400,3000,10,0.1,0,0,0,0)
createsound("powerup",4,800,700,8000,-0.02,0.2,0,0,0,0)
createsound("warning",5,800,1000,6000,0.5,0.1,0,0,0,0)
createsound("vibrato1",6,500,2000,8000,0,0.1,0.05,0.2,0,0)
createsound("vibrato2",7,400,2000,8000,0,0.1,0.05,0.2,0,0)
createsound("vibrato3",8,600,2000,8000,0,0.1,0.05,0.2,0,0)
createsound("bass hit",9,20,200,14000,0.00,1.2,.0,0,0,0)
createsound("hihat",10,800,200,5000,60.06,2.2,.1,0,0,0)
createsound("door knock",11,200,200,8000,.1,4.0,2.1,10,9.2,9.2)
createsound("vinyl scratch",12,500,200,8000,0.06,0.2,.1,0,0,0)
createsound("cb1",13,250,500,2500,0.00001,0.2,4.0,0.4,0,0)
createsound("cb2",14,500,500,2500,0.00001,0.2,4.0,0.4,0,0)
createsound("cb3",15,437.5,1500,1500,0.0001,0.2,0.0,4.0,0.4,0)
createsound("cb4",16,573.75,1500,1500,0.0,0.2,4.0,0.4,0,0)
createsound("bubble burst",17,100,800,6000,-.4,2.0,0.1,10,1.2,0.2)

Sync On:Sync Rate 60:Autocam off:Position Camera 0,10,0
Global LastTime as Integer
LastTime=Timer()
global gun as string
global maxe as integer
global hp as integer
Global gunspeed as float
Global maxammo as integer
Global relodetime as integer
hp=100
global you as integer
global espeed as integer
global ammo as integer
ammo=maxammo

dim e_hp(100) as integer

maxe=100
e=maxe

   make_enemies()

gun="machinegun"

you=10000
make object cylinder you,.5
Set Object Cull you,0
Scale Object you,100,500,100
xrotate object you,90
position object you,4,-3,6

Do
   make_gun()
   change_gun()
   Make_Bullet()
   Move_Bullet()
   Move_Camera()
   stats()
   next_level()
   Sync
Loop

function change_gun()
for g=1 to 50
for gune=1 to 2
make object cube g,.5
position object g,rnd(2000)-1000,10,rnd(2000)-1000
p=object collision (you,gune)
if p>1
restore guns
read guna
gun=guna
next i
endfunction


function make_enemies()
for i=1 to maxe
   Make Object Cube i,20
   Position Object i,rnd(2000)-1000,10,rnd(2000)-1000
   color object i,rgb(255,0,0)
Next i
endfunction

Function Move_Camera()
   Turn Camera Left LeftKey()+30-RightKey()-30
   Move Camera Upkey()+30-Downkey()-30
EndFunction

 Function Make_Bullet()
    If MouseClick()<>1 Then ExitFunction
    If Timer()-LastTime<relodetime Then ExitFunction
   play sound 1
   LastTime=Timer()
    For i = 101 to maxammo+101
      if Object Exist(i)=0 Then Exit
   Next i
   If i>maxammo+101 then exitfunction
   Make Object Sphere i,1,6,6
   Position Object i,Camera Position X(),Camera Position Y(),Camera Position Z()
   Set Object To Camera Orientation i
   Move Object Right i,6
   Move Object Down i,3
EndFunction

Function Move_Bullet()
   for i=101 to e
       For j= 1 to 5
         If Object Exist(i)=0 Then Exit
         Move Object i,gunspeed
         c=Object Collision(i,0)
         if c>0
            Position Object c,Rnd(2000)-1000,10,Rnd(2000)-1000
            Delete Object i
            e=e-1
            ammo=ammo-1
         Endif
      Next j
      d=object collision (you,i)
      if d<1
      hp=hp-10
      endif
      If Object Exist(i)
         Scale Object i,100,100,101
         If Object Size Z(i)>2 Then Delete Object i
      Endif
Next i
EndFunction

function make_gun()

if gun="machinegun"
gosub mg:
endif

if gun="rocket luancher"
gosub rl:
endif
endfunction



mg:
maxammo=300
gunspeed=20
relodetime=300
return

rl:
maxammo=10
gunspeed=35
relodetime=20
return

rem this complicated functin that makes it so that you can create sounds without media
function createsound(name$,soundnumber,frequency#,length#,loudness#,bend#,decay#,vibratospeed#,vibratodepth#,tremelospeed#,tremelodepth#)

if file exist(name$+".wav")=1 then delete file name$+".wav"
open to write 1,name$+".wav"
chunk=int(((length#/1000)*44100*16)/8) `sample size (no of samples * bitrate * channels / 8)
samples=int((length#/1000)*44100) `length *44100
restore
for x=1 to 40
   read byte2
   write byte 1, byte2
next x
write long 1,chunk
rem generate and write wave
for x=1 to samples
  output#=int(sin((x/122.5)*(frequency#+vibratodepth#*sin(theta#)))*(loudness#+tremelodepth#*sin(phi#)))*3.0
  inc theta#,vibratospeed#
  inc phi#,tremelospeed#
  dec frequency#,bend#
  if loudness#>0 then dec loudness#,decay#
  write word 1,output#
next x
close file 1

load sound name$+".wav",soundnumber

data 82:data 73:data 70:data 70:data 208:data 59:data 1:data 0:data 87
data 65:data 86:data 69:data 102:data 109:data 116:data 32:data 16
data 0:data 0:data 0:data 1:data 0:data 2:data 0:data 34:data 86:data 0
data 0:data 136:data 88:data 1:data 0:data 4:data 0:data 16:data 0
data 100:data 97:data 116:data 97

endfunction

function stats()
   set cursor 0,350
   print gun;", hp=",hp; ", targeted enemy hp=",e_hp
   set cursor 50,0
   print
endfunction

function next_level()
if e<>0 then exitfunction
maxe=maxe+20
e=maxe
espeed=espeed+5
endfunction

guns:
data "machinegun","rocket luancher"

dim guna(1) as string

rem your functions and stuff
function change_gun()
for difgun=1 to 50
for gune=1 to 2
make object cube difgun,.5
position object difgun,rnd(2000)-1000,10,rnd(2000)-1000
color object difgun,rgb(0,255,0)
p=object collision (you,gune)
if p>1
restore guns
read guna
gun=guna
endif
next difgun
next gune
endfunction

function make_enemies()
for i=1 to maxe
   Make Object Cube i,20
   Position Object i,rnd(2000)-1000,10,rnd(2000)-1000
   color object i,rgb(255,0,0)
Next i
endfunction

for gune=1 to 2
if object exist(gune) = 0 then `create gune`
next gune

rem are you good or evil?
good#=0
bad#=0



rem enemy stats, we already have these, but we dim them to have more than 1 enemy per battle
dim ehp(10) as float `enemy hp
dim edam(10) as integer `enemy damage
dim ename(10) as string `enemy's name
dim espeed(10) as integer `enemy's speed

rem your stats, we global them so that they are allowed in the functions, used for battles
global xp as float `your experience
global level as float `what level you are, dealing a lot with the rest of our stats
level=10 `state our level
global strength as float `strength:how much you hit for
strength=level*.5 `your strength is half of your level
global defense as float `defense:how little they hit you
defense=level*.75 `your defense is 75% of your level
global lightpower as float `lightpower(a sort of magic for the good characters)
global darkpower as float `darkpower(a sort of magic for the bad characters
global darkenemy as float `darkenemy is an enemy type in this game,targets to certain lightpower spells such as blind
darkenemy=1 `we just automatically set darkenemy to 1, becuase our first battle is against a darkenemy
global battle as float `it equals one when you are in a battle, mainly for attack boost
battle=1 `in our first battle, we must use lightpowers, so we automatically set this to 1 so that you can use attack boost
global blinded as float `when you use blind, this variable sets to 1
global melee as float `your melee skill
global ranged as float `your ranged attack mode (you are eventually introduced to bows)
global turn as float  `1,your turn,2,their turn
turn=1 `used for the first battle, becuase it always=0 at the begining
global accuracy as float `how often you hit(collides directly with enemy's speed
accuracy=10
global health as integer `your health, self explainatory
health=1.5*level `your health is 150% of your level
global money as float `your money
global hit as integer `uhh, not sure
hit=1 `but it=1 :)
global z as string `used for the goz() function
global willhehityou as integer
global ehealth as integer

rem load all of our music for future playing(will not work unless you have warIII editor)
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

rem your main loop, becuase it is in text, you must have it all in 1 loop, or else it will print the same thing over and over again
rem for when we die and must goto the start
start:
do
set text size 15 `self explanatory
input "what is your name ",name$ `have the player type in their name
cls `clear the screen(add "rgb(red value,green value,bluevalue)" if you want to color the scree a different color, but after the next cls, it will automatically switch back to black

rem tell them the stats of the different sides
print name$; " choose your side"
print
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 helps you indirectly, like blinding an enemy."
wait key
cls

rem he choses his side
print "pure=1 ";"good=2 ";"nuetral=3 ";"bad=4 ";"evil=5 "
print
input "which do you choose?",side$
print "for any other choices, just press exactly as said."

print "your path is chosen."
wait key

`if he chose 1, he will play the pure story mode
if side$="1"
   lightpower=50
   darkpower=0
   z="pure"
   endif

`if he choses 2, he will play the good story mode
 if side$="2"
    z="good"
   ligthpower=40
   darkpower=10
endif

`if he choses 3, he will play the nuetral story mode
if side$="3"
   z="nuetral"
      lightpower=25
   darkpower=25
endif

`if he choses 4, he will play the bad story mode
if side$="4"
   z="bad"
   lightpower=10
   darkpower=40
endif

`if he coses 5, he will play the eveil story mode
if side$="5"
   z="evil"
   lightpower=0
   darkpower=50
endif

`extra sort of cheats
if side$="hahahaiwantobechaoticlyevil"
   z="chaotic"
   lightpower=0
   darkpower=100
endif
if side$="imbetterthanpure"
   z="pure2"
   lightpower=100
   darkpower=0
endif
goz() `our function that choses your path(z)
loop

`if he chose 1, he goes here
pure:


cls
do
   loop music 1 `play our music over and over
`our introduction to the pure story
   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."

   rem until he presses upkey, nothing will happen
do
if upkey()=1
   print "good,you have the basics down."
   goto continue1 `when he presses upkey, he will continue
endif
loop

continue1:
print "your strength will go up as you attack more, as well as your defense."
wait key

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

rem same as upkey, only with leftkey
do
if leftkey()=1 then goto continue2
loop

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."
`same as above, only with shiftkey and lightpowers
do
light_powers()
goto continue3
loop

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 `wow, we are getting even more pure
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 killdarkcreature1$="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 `if we skip the battle, we become more to the evil side
print "that was bad..."
wait key
goto road `but you dont have to battle...and you don't get the xp, not a good choice unless you want to be evil and lazy
endif

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

rem our first battle
a=1
b=1
restore_stuff()
do
battle() `our battle function
loop

print "the other warriors have goten a hold of things." `you beat it, and can now leave
wait key
goto road

road:
rem just basically to give the player a short scare, make him say "im dead"
print "a giant green dragon attacks you."
wait key
cls
print "it leaves you alone."
wait key
loop

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 lack any light."
wait key
cls
print "you are the leader of the darkclan..."
print "you need to arrive at the holy city, destroy anything on the way..."
print "but to do this, you must send out a scout,"
wait key
cls
print "you walk to your dead, underground city."
print "Most of your men do not even know their way around"
print "the place with the giant pits blocking everything"
wait key
cls

print "you go to a scout that does know his way around."

print "commands: 1. 'go to any city and scout until you find out if there weak or strong so that we know how many people to send out."
input "your command?",c1$
if c1$="1"
print "scout:'yessir!'"
print "he runs off."
endif
loop

chaotic:
do
print "you have activated chaos mode, you cheater."
wait key
loop

pure2:

function light_powers()
      if turn<>1 then exitfunction
      if lightpower<1 then exitfunction
   do
if shiftkey()=1
   print "which lightpower would you like to use?"
   print "light energy beam."
   input "use this?",light$
if light$="yes"
   lightattack=rnd(2)
   lightpower=lightpower+10
   exitfunction
endif
if light$="no" then goto lightcon1

lightcon1:
      if lightpower<25 then exitfunction
   print "blind (for use on dark allinged characters only)"
   input "use this?",light2$
if light2$="yes" and darkenemy=1
   blinded=1
   dodge()
   exitfunction
endif
if light2$="yes" and darkenemy=0
print "this is not a dark enemy"
endif

if light2$="no" then goto lightcon2

lightcon2:
      if lightpower<50 then exitfunction
   print "attack boost."
   input "use this?",light3$
if light3$="yes" and battle=1
   strength=strength+10
   exitfunction
endif
endif
loop
endfunction lightattack

rem our player hit function
function player_hit()
if turn<>1 then exitfunction `chack to see if it's your turn
if bal=1 then strength=strength*10 `if the enemy is off balance then your strength is multiplied by 10
if upkey()=1
   dmg=rnd(strength) `dmg is what we will use for how much health the enemy losses
   print "you hit him with a regular attack for ",dmg
      print "enemy hp=",ehealth
   wait 200
bal=0 `he's now, not off balance
turn=2 `switch the turn to the enemy
endif
if shiftkey()=1
light_powers()
turn=2 `switch the turn to the enemy
endif
endfunction dmg

function dodge()
if turn<>2 then exitfunction `check to see if it's the enemy's turn

edmg=rnd(edam(i)) `it will equal the enemy's damage(randomized from 0 to edam)


rem dodging
do
willhehityou=rnd(1000)

if leftkey()=1 then miss=rnd((defense*1000)/1000)

if willhehityou<miss
edmg=0
bal=1

endif
loop
print "he hit you for",edmg
   print "hp=",hp
   wait 200
   turn=1

   print "he hit you for",edmg
endfunction edmg

function battle()


   rem our battle loop
do
ehealth=ehp(i)
   ehealth=ehealth-player_hit() `the enemy losses his health to our stat from player hit (dmg)

   health=health-dodge() `you lose health from the enemy's hit (edmg)

   rem if the enemy dies, the game goes on
if ehealth<2
   xp=xp+ehp(i)*3 `gain experience
   battle=0
   darkenemy=0
exit `exit the loop we're in
exit `twice becuase of the loop in the function and the loop outside of it
   exitfunction
endif

rem if you die, start over
if health<1 and die<>1
   print "you died :-("
   print "well, back to the start..."
   goto start
   exitfunction
endif
loop
endfunction

function restore_stuff()
   restore edam `bring up the values for the enemy damage (edam:) kinda like a gosub in a way
for i=a to b `do this a to be times
   read edam(i) `the value
next i

   restore ename ` same thing for enemy's name
for i=a to b
   read ename(i)
   print "you are fighting ",ename(i)
next i

  restore speed `and the enemy's speed
for i=a to b
   read espeed(i)
next i

   restore ehp `and the enemy's health
for i=a to b
   read ehp(i)
   print "enemy hp=",ehp(i)

   rem print our stats
   player_stats()
next i
endfunction

rem congratulations, you leveled up
function level_up()
cls
level=level+1
print "level up!!!"
print "choose which to upgrade"
print "strength"
print "hp"
input "choose",lvl$
if lvl$="strength" then strength=strength+1
if lvl$="hp" then health=health+2
endfunction

function player_stats()
print "level=",level
print "hp=",health
print "money=",money
endfunction

function goz()
if z="pure" then goto pure
if z="good" then goto good
if z="nuetral" then goto nuetral
if z="bad" then goto bad
if z="evil" then goto evil
endfunction

rem all the data tha we restored in the battles and otherwise
ehp:
data 20

edam:
data 1

ename:
data "shadow 1"

speed:
data 10,11,12,13,14,13,12,15,16,14,13,14,15,14

level:
data 100,220,350,480,670,850,1000,2200,3500,4800,6700,8500,10000,22000,35000,48000,67000,85000
data 100000,220000,350000,480000,670000,850000,1000000

`well that wraps it up

rem our functions

rem our magical lightpower function
function light_powers()
      if turn<>1 then exitfunction `is it your turn
      if lightpower<1 then exitfunction `do you at least have 1 lightpower point (if your chaotic, then you wont
   do
if shiftkey()=1
   print "which lightpower would you like to use?"
   print "light energy beam."
   input "use this?",light$
if light$="yes"
   lightattack=rnd(2)
   lightpower=lightpower+10
   exitfunction
endif
if light$="no" then goto lightcon1

lightcon1:
      if lightpower<25 then exitfunction
   print "blind (for use on dark allinged characters only)"
   input "use this?",light2$
if light2$="yes" and darkenemy=1
   blinded=1
   dodge()
   exitfunction
endif
if light2$="yes" and darkenemy=0
print "this is not a dark enemy"
endif

if light2$="no" then goto lightcon2

lightcon2:
      if lightpower<50 then exitfunction
   print "attack boost."
   input "use this?",light3$
if light3$="yes"
   while battle=1
   strength=strength+10
   exitfunction
endwhile
   endif
endif
loop
endfunction lightattack

rem our player hit function
function player_hit()
if turn<>1 then exitfunction `check to see if it's your turn
if bal=1 then strength=strength*10 `if the enemy is off balance then your strength is multiplied by 10
if upkey()=1
   dmg=rnd(strength) `dmg is what we will use for how much health the enemy losses
   print "you hit him with a regular attack for ",dmg
   ehp(i)=ehp(i)-dmg
      print "enemy hp=",ehp(i)
bal=0 `he's now, not off balance
turn=2 `switch the turn to the enemy
endif
if shiftkey()=1
ehp(i)=ehp(i)-light_powers()
turn=2 `switch the turn to the enemy
endif
endfunction dmg

rem the enemy hit function
function dodge()
if turn<>2 then exitfunction `check to see if it's the enemy's turn

edmg=rnd(edam(i)) `it will equal the enemy's damage(randomized from 0 to edam)


rem dodging
do
willhehityou=rnd(1000) `randomize our "willhehityou", making the chancwe out of 1000

if leftkey()=1 then miss=rnd((defense*1000)/1000) `if your defense is 1 it=10, if defense is 2 it=20...

if willhehityou<miss `this is the chanxce of it hitting you, for level 1 def, the chance is 10/1000 and so on and so on
edmg=0 `enemy damage=nothing
bal=1 `he is off balance
endif `close the if/then
loop `close the loop, automatically going back to the star5 of the loop
health=health-edmg
print "he hit you for",edmg
   print "hp=",health
   turn=1

   print "he hit you for",edmg
endfunction edmg

function battle()


   rem our battle loop
do
player_hit() `the enemy losses his health to our stat from player hit (dmg)

dodge() `you lose health from the enemy's hit (edmg)

   rem if the enemy dies, the game goes on
if ehp(i)<2
   xp=xp+ehp(i)*3 `gain experience
   battle=0 `it is no longer a battle
   darkenemy=0 `automatically switches it off of darkenemy
exit `exit the loop we're in
exit `twice becuase of the loop in the function and the loop outside of it
   exitfunction
endif

rem if you die, start over
if health<1 and die<>1
   print "you died :-("
   print "well, back to the start..."
   goto start
   exitfunction
endif
loop
endfunction

function restore_stuff()
   restore edam `bring up the values for the enemy damage (edam:) kinda like a gosub in a way
for i=a to b `do this a to be times
   read edam(i) `the value
next i

   restore ename ` same thing for enemy's name
for i=a to b
   read ename(i)
   print "you are fighting ",ename(i)
next i

  restore speed `and the enemy's speed
for i=a to b
   read espeed(i)
next i

   restore ehp `and the enemy's health
for i=a to b
   read ehp(i)
   print "enemy hp=",ehp(i)
   next i
   rem print our stats
print
print "your stats"
   player_stats()
   rem switch it to battle mode
   battle=1
endfunction

rem congratulations, you leveled up
function level_up()
cls
level=level+1
print "level up!!!"
print "choose which to upgrade"
print "strength"
print "hp"
print "defense"
input "choose",lvl$
if lvl$="strength" then strength=strength+1
if lvl$="hp" then health=health+2
if lvl$="defense" then defense=defense+1
endfunction

rem here is where we print our stats in the "restore_stuff()" function
function player_stats()
print "level=",level
print "hp=",health
print "money=",money
endfunction

rem this is that function where you chose your side
function goz()
if z="pure" then goto pure
exitfunction
endfunction

rem all the data tha we restored in the battles and otherwise
ehp:
data 20,20,20,20,20,20,20,20,20,20,30,30,30,40,30,35,50,

edam:
data 1,2,2,2,1,2,3,2,1,2,1

ename:
data "shadow 1","wolf 1","wolf 2", "wolf 3","wolf 4", "wolf 5", "wolf 6", "wolf 7", "wolf 8", "wolf 9", "wolf 10"

speed:
data 10,11,12,13,14,13,12,15,16,14,13,14,15,14

level:
data 100,220,350,480,670,850,1000,2200,3500,4800,6700,8500,10000,22000,35000,48000,67000,85000
data 100000,220000,350000,480000,670000,850000,1000000

`well that wraps it up

REM Project: rpg2
REM Created: 6/23/2005 11:58:02 AM
REM
REM ***** Main Source File *****
REM
global targethp as integer
global targetdam as integer
global etrak as integer

global turn as integer
turn=1

rem brandon stats
global brandonwepdam as integer
wepandam=10

global brandonlvl as integer
brandonlvl=4
global brandoncont as integer
brandoncont=brandonlvl+1
global Brandonhp as integer
brandonhp=brandomlvl*brandoncont
global brandonstr as integer
brandonstr=brandonlvl+2
global brandondam as integer
brandondam=brandonlvl*brandonstr+wepdam
global x as integer

rem bryan stats
global bryanlvl as integer
bryanlvl=3
global bryancont as integer
bryancont=bryanlvl*.5
global bryanhp as integer
bryanhp=bryanlvl+bryancont
global intel as integer
intel=bryanlvl*2
global bryanmagic as integer
bryanmagic=bryanlvl+intel


load music "01 The Tale of Icewind Dale (movie 1).wma",1
load music "06 The Lost Caravan.wma",2
load music "07 Drums of the Dead.wma",3
do
set text size 50
cls rgb (255,0,0)
play music 1
print " The Two Kensai"
set text size 20
print
print " press any key to continue."
print " press escape at any time to exit."
wait key
stop music 1
wait 2000
cls rgb (0,0,255)
play music 3
print " Brandon(warrior),Bryan(mage),Ace(wolf), walk the icy lands searching for the"
print " Lost artifact of the wraiths."
print " Curently in persuit by a legion of undead warriors."
wait key
print " a junction in the cave that you are currently in, left or right?"
input " One leads up, the other straight across.",d1$
if d1$="up" then goto up1
if d1$="straight"  then goto straight1
up1:
print " You Escape the lair, but to the fate of a long jump."
print " there is a bridge but it is guarded by two undead."
print " Theres no going back, you attack!"
input " Target enemy 1 or 2",target$
if target$="1"
   etrak=1
 targethp=20
 targetdam=2
endif
 if target$="2"
   etrak=2
  targethp=30
  targetdam=3
  endif
battle(2)
wait key

cls rgb (255,0,0)

straight1:
print " One your way you fall into a trap."
print " A wisp comes up to you."
print " He asks you a riddle for your escape."
stop music 3
wait key
play music 1
cls rgb (0,0,200)
print " riddle:"
print " I run, but never walk."
print " I have a mouth but I don't talk."
print " I can be mighty or small."
input " What am I?",r$
if r$="river" or r$="stream"
print " The wisp whispers to your ear:'correct'"
print " You are teleported out of the trap, and continue on your way."
endif
wait key

loop



function brandon_hit(targethp)
if turn<>1 then exitfunction
if upkey()=1
dmg=rnd(brandondam)
targethp=targethp-dmg
print " Brandon hit him for ",dmg;" damage"
print " enemy hp=",targethp
turn=turn+1
endif
wait 500
endfunction

function enemy_hit(targetdam)
if turn<>2 then exitfunction
edmg=rnd(targetdam)
x=rnd(3)
if x=1
brandonhp=brandonhp-targetdam
print "he hit Brandon for ",edmg
endif
if x=2
 bryanhp=bryanhp-targetdam
print "he hit Bryan for ",edmg
endif
if x=3 then print "lucky, he missed"
turn=turn+1
endfunction

function bryan_hit(targethp)
if turn<>3 then exitfunction
if upkey()=1
dmg=rnd(bryanmagic)
targethp=targethp-dmg
print "Bryan hit him for",dmg
turn=turn-2
endif
wait 500
endfunction

function switch_target()
if targethp>2 then exitfunction
print "target died"
etrak=etrak+1
exit
endfunction

function battle(enemies#)
do
brandon_hit(targethp)
enemy_hit(targetdam)
Bryan_hit(targethp)
enemy_hit(targetdam)
switch_target()
loop
endfunction

REM Project: rpg2
REM Created: 6/23/2005 11:58:02 AM
REM
REM ***** Main Source File *****
REM
global targethp as integer
global targetdam as integer
global etrak as integer
global battle as integer
global target as integer
global enemies as integer
global xw as integer
global ekill as integer
global startarget as integer

global turn as integer
turn=1

rem brandon stats
global brandonwepdam as integer
wepandam=10

global brandonlvl as integer
brandonlvl=4
global brandoncont as integer
brandoncont=brandonlvl+1
global Brandonhp as integer
brandonhp=brandomlvl*brandoncont
global brandonstr as integer
brandonstr=brandonlvl+2
global brandondam as integer
brandondam=brandonlvl*brandonstr+wepdam
global x as integer

rem bryan stats
global bryanlvl as integer
bryanlvl=3
global bryancont as integer
bryancont=bryanlvl*.5
global bryanhp as integer
bryanhp=bryanlvl+bryancont
global intel as integer
intel=bryanlvl*2
global bryanmagic as integer
bryanmagic=bryanlvl+intel


load music "01 The Tale of Icewind Dale (movie 1).wma",1
load music "06 The Lost Caravan.wma",2
load music "07 Drums of the Dead.wma",3
do
set text size 50
cls rgb (255,0,0)
play music 1
print " The Two Kensai"
set text size 20
print
print " press any key to continue."
print " press escape at any time to exit."
wait key
stop music 1
wait 2000
cls rgb (0,0,255)
play music 3
print " Brandon(warrior),Bryan(mage),Ace(wolf), walk the icy lands searching for the"
print " Lost artifact of the wraiths."
print " Curently in persuit by a legion of undead warriors."
wait key
print " a junction in the cave that you are currently in, left or right?"
input " One leads up, the other straight across.",d1$
if d1$="up" then goto up1
if d1$="straight"  then goto straight1
up1:
print " You Escape the lair, but to the fate of a long jump."
print " there is a bridge but it is guarded by two undead."
print " Theres no going back, you attack!"
input " Target enemy 1 or 2",target
battle=1
xw=1
starttarget=1

cls rgb (255,0,0)
  battle(2)


 print "you walk across the bridge, and shatter it. The legion cannot reach you now."
 goto lair:

straight1:
print " One your way you fall into a trap."
print " A wisp comes up to you."
print " He asks you a riddle for your escape."
wait key
stop music 2
play music 1
cls rgb (0,0,200)
print " riddle:"
print " I run, but never walk."
print " I have a mouth but I don't talk."
print " I can be mighty or small."
input " What am I?",r$
if r$="river" or r$="stream"
print " The wisp whispers to your ear:'correct'"
goto next1
else
print " incorrect"
endif

next1:
print " Riddle:"
print " Who watches all and has lives in disguise, who lives in agony,and tells not but lies?"
print " also a word that you say when you don't have anything to say."
print " spin then together and what do you get?"
input r2$
if r2$="spider"
print " correct"
goto next2
else
print " incorrect"
endif

next2:
print " You are teleported out of the trap, and continue on your way."
print "you notice that the legion falls into the trap."
wait key
goto lair

lair:
print " you step into the cavern...A black Dragon awaits you!"
input " Talk to it, or fight it.",q2$
if q2$="talk to it" then goto talkingtodragon1
if q2$="attack it"
enemyhp=20000
enemydam=14
battle(1)
endif

talkingtodragon1:
print "there is currently no data for this area of gameplay."

loop


b1:
if target=1
   etrak=1
 targethp=40
 targetdam=5
endif
 if target=2
   etrak=2
  targethp=60
  targetdam=7
  endif
  return


function brandon_hit()
if turn<>1 then exitfunction
if upkey()=1
dmg=rnd(brandondam)
targethp=targethp-dmg
print " Brandon hit him for ",dmg;" damage"
print " enemy hp=",targethp
turn=turn+1
endif
wait 500
endfunction

function enemy_hit()
if turn<>2 then exitfunction
edmg=rnd(targetdam)
x=rnd(3)
if x=1
brandonhp=brandonhp-targetdam
print " he hit Brandon for ",edmg
endif
if x=2
 bryanhp=bryanhp-targetdam
print " he hit Bryan for ",edmg
endif
if x=3 then print " lucky, he missed"
turn=turn+1
endfunction

function bryan_hit()
if turn<>3 then exitfunction
if upkey()=1
dmg=rnd(bryanmagic)
targethp=targethp-dmg
print "Bryan hit him for",dmg
turn=turn-2
endif
wait 500
endfunction

function switch_target()
if targethp>0 then exitfunction
print " target died"
target=target+1
ekill=ekill+1
print " next target"
xw=1
wait key
if target>enemies
target=startarget
endif
if ekill>enemies
print " battle ended"
wait key
exit
exit
exitfunction
exitfunction
else
exitfunction
endif
endfunction

function e_stats(battle)
if battle=1 then gosub b1
xw=xw-1
exitfunction
endfunction

function battle(enemies)
do
 if xw=1 then e_stats(battle)
brandon_hit()
enemy_hit()
Bryan_hit()
enemy_hit()
switch_target()
loop
endfunction

rem variable for who'se turn it is
global turn as integer
turn=1

rem the amount of enemies you've killed in a battle
global ekill as integer

rem the amount of people in your party that have died
global pkill as integer


rem all of Branodon's boring stats
global brandonwepname as string
brandon_wepdam()
brandonwepname="sword"

global brandonwepdam as integer
global brandonlvl as integer
brandonlvl=brandonaccuracy+brandonstrength+brandonmagic+brandonspeed

global brandoncont as integer
brandoncont=brandonlvl/4

global brandonhp as integer
brandonhp=brandonlvl*(brandoncont+2)

global brandonaccuracy as integer
brandonaccuracy=1
global brandonaccuracyxp as integer
global brandonstrength as integer
brandonstrength=1
global brandonstrengthxp as integer
global brandonmagic as integer
brandonmagic=1
global brandonmagicxp as integer
global brandonspeed as integer
brandonspeed=1
global brandonspeedxp as integer

global brandonspecial as float
brandonspecial=100

global brandondam as integer
brandondam=brandonlvl+Brandonstrength+brandonwepdam

rem 1 if bryan is on your team yet
global bryanonteam as integer
bryanonteam=0

rem all of bryans boring stats
global bryanlvl as integer
bryanlvl=bryanaccuracy+Bryanstrength+Bryanmagic+Bryanspeed

global bryancont as integer
bryancont=bryanlvl/4

global bryanhp as integer
bryanhp=bryanlvl+(bryancont+2)

global bryanaccuracy as integer
bryanaccuracy=1
global bryanaccuracyxp as integer
global bryanstrength as integer
bryanstrength=1
global bryanstrengthxp as integer
global bryanmagic as integer
bryanmagic=1
global bryanmagicxp as integer
global bryanspeed as integer
bryanspeed=1
global bryanspeedxp as integer

bryanspecial=100

rem all of the enemies boring stats
dim ehp(10) as integer
dim edam(10) as integer
dim ename(10) as string

rem all of the music
load music "01 The Tale of Icewind Dale (movie 1).wma",1
load music "07 Drums of the Dead.wma",2
load music "02 Icewind Dale Theme.wma",3
load music "18 The Dragon's Eye.wma",4


do
goto main_menuxp
main_menuxp:
story(1,30,255,0,0,"The Mage and the Warrior(and the wolf)",10,"","press any key to continue","","","Press spacebar at any time to enter main menu","It will erase anything currently on the screen","You may not acsess this during a battle",1):story(2,5,0,0,255,"You are searching the lands of frost for the lost artifact of the wraiths",5,"Days feel endless,You want to give up all hope...","But you don't...","even when you are now being chased by a legion of undead!","","","","",1):story(0,5,90,90,255,"They get closer",5,"You see a cave up in the hills","It has been rumored that the artifact is in a dragons lair","But how do you get there?","","","","",1):story(0,5,100,100,255,"No Turning back now!",5,"There is another cave at the bottom of the mountains.","Or straight ahead, you can try and scale the mountain.","this is risky, but with greater chance of loosing the undead.","","","","",1)
input "Which way will you go(cliff or cave).",d1$
if d1$="cave" then goto cave1
if d1$="cliff" then goto cliff1

cave1:
stop music 2
story(4,10,0,0,100,"You take the cave",5,"The undead are getting closer","You run through the cave as fast as posible.","You run up the stairs...","But they have cuaght you.","Two undead are already standing on that bridge.","","",0)
stop music 4
battle(1,2)
wait key

cliff1:
print "there is no data here."
loop


function story(music#,tsize#,redval#,greenval#,blueval#, header$,tsize1#,t2$,t3$,t4$,t5$,t6$,t7$,t8$,allowmenu)
do
if music#=0 then exit
play music music#
exit
loop
set text size tsize#
cls rgb (redval#,greenval#,blueval#)
print " ",header$
set text size tsize1#
print " ",t2$
print " ",t3$
print " ",t4$
print " ",t5$
print " ",t6$
print " ",t7$
print " ",t8$
if allowmenu=1 then main_menu()
wait key
exitfunction
endfunction

function main_menu()
 if spacekey()<>1 then exitfunction
story(0,10,200,100,100,"Inventory=spacekey",10,"","shift to return at any time","","","","","",0)
suspend for key
if spacekey()=1 then inventory()
if shiftkey()=1 then exitfunction
endfunction

function inventory()
story(0,20,200,150,150,"weapons=1",10,"","","","","","","",0)
if a=1 then weapons()
if shiftkey()=1
exitfunction
exitfunction
endif
endfunction

function weapons()
clear entry buffer
story(0,20,150,170,170,"Which weapon would you like to use(Brandon)?",10,"sword=up","Bow=down","staff=left","","","Switch to Bryan=4","",0)
if upkey()=1
brandonwepname="sword"
endif
if downkey()=1
brandonwepname="Bow"
endif
if leftkey()=1
brandonwepname="staff"
endif
brandon_wepdam()
if shiftkey()=1
exitfunction
exitfunction
exitfunction
endif
endfunction

function brandon_wepdam()
if brandonwepname="sword" then brandonwepdam=2*strength
if brandonwepname="bow" Then brandonwepdam=2*accuracy
if brandonwepname="staff" then brandonwepdam=2*magic
endfunction

function battle(a#,b#)
prepare_battle(a#,b#)
do
brandon_hit()
e_hit()
Bryan_hit()


if ehp(i)<1
ekill=ekill+1
print "You killed the target!"
wait key
if ekill=b#
print "battle ended"
wait key
exit
exitfunction
endif
endif

if pkill=2
print "you died!"
goto main_menuxp
endif
loop
endfunction

function prepare_battle(a#,b#)
loop music 3

cls rgb (100,0,20)

pkill=0
ekill=0


restore ehp
for m=a# to b#
read ehp(i)
next m


restore edam
for v=a# to b#
read edam(i)
 next v


restore ename
for z=a# to b#
read ename(i)
next z

print "You are fighting ",abs((b#+1)-a#);" enemies":
print "You are targeting ",ename(i)
print "enemy hp=",ehp(i)
endfunction

function brandon_hit()
if brandondead=1 then exitfunction
if turn<>1 then exitfunction
if upkey()=1
print "Regular attack!"
dmg=rnd(brandondam)
brandonstrengthxp=brandonstrengthxp+dmg
brandonaccuracyxp=brandonaccuracyxp+dmg
ehp(i)=ehp(i)-dmg
print "you hit him for ",dmg
print "Enemy hp=",ehp(i)
turn=2
wait key
exitfunction
endif
if downkey()=1
if brandonwepname="sword"
print "Special attack(sword)!"
print "swift=up,power=down"
if upkey()=1
brandonspecial=brandonspecial-10
dmg=rnd(brandondam*4)
turn=2
print "You used power attack for ",dmg
print "Enemy Hp=",ehp(i)
exitfunction
endif
if downkey()=1
for i=1 to brandonspeed
dmg=rnd(brandondam-3)
brandonspecial=brandonspecial-4
brandonspeedxp=brandobspeedxp+dmg
next i
ehp(i)=ehp(i)-dmg
print "you hit him ",brandonspeed;" Time(s) for ",dmg
turn=2
endif
endif
endif
exitfunction
endfunction


function e_hit()
if turn<>2 then exitfunction
edmg=rnd(edam(i))
ehit=rnd(3)

if ehit=1
if brandondead=1
print "He scavenges brandon's dead body."
 exitfunction
 endif
brandonhp=brandonhp-edmg
print "he hit brandon for ",edmg
if brandonhp<1
print "brandon died"
pkill=pkill+1
brandondead=1
endif
turn=3
wait key
endif

if ehit=2 and bryanonteam=1
if bryandead=1
print "He scavenges Bryan's dead body."
exitfunction
endif
bryanhp=bryanhp-edmg
print "He hit bryan for ",edmg
if bryanhp<1
print "Bryan died."
pkill=pkill+1
endif
turn=3
wait key
endif

if ehit=3
print "lucky he missed"
turn=3
wait key
endif
endfunction

function Bryan_hit()
if turn<>3 then exitfunction
if bryanonteam=0
turn=1
exitfunction
endif
endfunction

ehp:
data 50,50

edam:
data 0,0

ename:
data "Undead Warrior","Undead Warrior"

rem variable for who'se turn it is
global turn as integer
turn=1

rem the amount of enemies you've killed in a battle
global ekill as integer

rem the amount of people in your party that have died
global pkill as integer


rem all of Branodon's boring stats
global brandonwepname as string
brandon_wepdam()
brandonwepname="sword"

global brandonwepdam as integer
global brandonlvl as integer
brandonlvl=brandonaccuracy+brandonstrength+brandonmagic+brandonspeed

global brandoncont as integer
brandoncont=brandonlvl/4

global brandonhp as integer
brandonhp=brandonlvl*(brandoncont+2)

global brandonaccuracy as integer
brandonaccuracy=1
global brandonaccuracyxp as integer
global brandonstrength as integer
brandonstrength=1
global brandonstrengthxp as integer
global brandonmagic as integer
brandonmagic=1
global brandonmagicxp as integer
global brandonspeed as integer
brandonspeed=1
global brandonspeedxp as integer

global brandonspecial as float
brandonspecial=100

global brandondam as integer
brandondam=brandonlvl+Brandonstrength+brandonwepdam

rem 1 if bryan is on your team yet
global bryanonteam as integer
bryanonteam=0

rem all of bryans boring stats
global bryanlvl as integer
bryanlvl=bryanaccuracy+Bryanstrength+Bryanmagic+Bryanspeed

global bryancont as integer
bryancont=bryanlvl/4

global bryanhp as integer
bryanhp=bryanlvl+(bryancont+2)

global bryanaccuracy as integer
bryanaccuracy=1
global bryanaccuracyxp as integer
global bryanstrength as integer
bryanstrength=1
global bryanstrengthxp as integer
global bryanmagic as integer
bryanmagic=1
global bryanmagicxp as integer
global bryanspeed as integer
bryanspeed=1
global bryanspeedxp as integer

bryanspecial=100



function e_hit()
if turn<>2 then exitfunction
edmg=rnd(edam(i))
ehit=rnd(3)

if ehit=1
if brandondead=1
print "He scavenges brandon's dead body."
 exitfunction
 endif
brandonhp=brandonhp-edmg
print "he hit brandon for ",edmg
if brandonhp<1
print "brandon died"
pkill=pkill+1
brandondead=1
endif
turn=3
wait key
endif

if ehit=2 and bryanonteam=1
if bryandead=1
print "He scavenges Bryan's dead body."
exitfunction
endif
bryanhp=bryanhp-edmg
print "He hit bryan for ",edmg
if bryanhp<1
print "Bryan died."
pkill=pkill+1
endif
turn=3
wait key
endif

if ehit=3
print "lucky he missed"
turn=3
wait key
endif
endfunction

function battle(a#,b#)
do
prepare_battle(a#,b#)
brandon_hit()
e_hit()
Bryan_hit()


if ehp(i)<1
ekill=ekill+1
print "You killed the target!"
switch_target(a#,b#)
wait key
if ekill=b#
print "battle ended"
wait key
exit
exitfunction
endif
endif

if pkill=2
print "you died!"
goto main_menuxp
endif
loop
endfunction

function prepare_battle(a#,b#)

if xw=0 then exitfunction

loop music 3

cls rgb (100,0,20)



pkill=0
ekill=0


restore ehp
for m=a# to b#
read ehp(i)
next m

restore edam
for v=a# to b#
read edam(i)
 next v

restore ename
for z=a# to b#
read ename(i)
next z

print "You are fighting ",abs((b#+1)-a#);" enemies":
print "You are targeting ",ename(i)
print "enemy hp=",ehp(i)
xw=0
exitfunction
endfunction

function brandon_hit()
if brandondead=1 then exitfunction
if turn<>1 then exitfunction
do
      if leftkey()=1 then switch_target(a#,b#)
if upkey()=1
      print "Regular attack!"
         dmg=rnd(brandondam)
            brandonstrengthxp=brandonstrengthxp+dmg
         brandonaccuracyxp=brandonaccuracyxp+dmg
      ehp(i)=ehp(i)-dmg
   print "you hit him for ",dmg
      print "Enemy hp=",ehp(i)
         turn=2
            wait key
      exitfunction
endif
if downkey()=1
   if brandonwepname="sword"
      print "Special attack(sword)!"
         print "swift=up,power=down"
            suspend for key
      if upkey()=1
         brandonspecial=brandonspecial-10
            dmg=rnd(brandondam*4)
         turn=2
   print "You used power attack for ",dmg
   print "Enemy Hp=",ehp(i)
   exitfunction
      endif
if downkey()=1
      for i=1 to brandonspeed
         dmg=rnd(brandondam-3)
         brandonspecial=brandonspecial-4
         brandonspeedxp=brandobspeedxp+dmg
      next i
      ehp(i)=ehp(i)-dmg
         print "you hit him ",brandonspeed;" Time(s) for ",dmg
            turn=2
                  endif
if brandonwepname="bow"
   print "multi-arrow=up,power=down"
   if upkey()=1
   for qrs=1 to brandonspeed
   ehp(i)=ehp(i)-brandonaccuracy
   brandonspecial=brandonspecial-3
   next qrs
   print "You hit him ",brandonspeed;" time(s) for ",brandonaccuracy
endif
endif
endif
endif
exitfunction
loop
endfunction


function e_hit()
if turn<>2 then exitfunction
edmg=rnd(edam(i))
ehit=rnd(3)

if ehit=1
if brandondead=1
print "He scavenges brandon's dead body."
 exitfunction
 endif
brandonhp=brandonhp-edmg
print "he hit brandon for ",edmg
if brandonhp<1
print "brandon died"
pkill=pkill+1
brandondead=1
endif
turn=3
wait key
endif

if ehit=2 and bryanonteam=1
if bryandead=1
print "He scavenges Bryan's dead body."
exitfunction
endif
bryanhp=bryanhp-edmg
print "He hit bryan for ",edmg
if bryanhp<1
print "Bryan died."
pkill=pkill+1
endif
turn=3
wait key
endif

if ehit=3
print "lucky he missed"
turn=3
wait key
endif
endfunction

function Bryan_hit()
if turn<>3 then exitfunction
if bryanonteam=0
turn=1
exitfunction
endif
endfunction

function switch_target(a#,b#)
a#=a#+1
if a#>b#
a#=1
endif
xw=1
exitfunction
endfunction



ehp:
data 50,50

edam:
data 0,0

ename:
data "Undead Warrior","Undead Warrior"

`<<<<<<<<<<<<<<<<<<<<<< SET UP >>>>>>>>>>>>>>>>>>>>>>>>>
Type Stats
   name as string
   money as integer
   level as integer
   strength as float
   magic as float
   dam as float
   Thaco as integer
   magdam as integer
   maxhealth as integer
   health as integer
   cont as integer
   xp as integer
   magxp as integer
   mana as integer
   target as integer
Endtype

Global Player as Stats
Dim Enemies(20) as Stats
`At this point in time, we don't care about all the stats for the enemies.
`But we might want them in the future. So we add them in now - it doesn't hurt.

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



`<<<<<<<<<<<<<<<<<<<<<< Main Loop >>>>>>>>>>>>>>>>>>>>>>>>>
Do `This do starts our main loop. At the end, we will be asking if the player wants to play again.
`If the player wants to play again, the Loop will bring them back to this point.
   `Indent the text to remind us that there is a Do/Loop we have to close.

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

   rem start
   cls
   print " welcome ", Player.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
   Encounter=0

`<<<<<<<<<<<<<<<<<<<<<< Sub Loop >>>>>>>>>>>>>>>>>>>>>>>>>
   Do` This Do is our sub-loop. In this game, it cycles through the encounters.

      Encounter=Encounter+1
      Read_Enemies(Encounter)
      Player.target=1

`<<<<<<<<<<<<<<<<<<<<<< Game Loop >>>>>>>>>>>>>>>>>>>>>>>>>
      Do`This Do starts our Game Loop. Because we used a lot of functions, it's pretty easy to read.
         Player_Action()
         e=Enemy_Attack()
         Level_Increase()
         Print_Stats()
         If e=0 or Player.health<1 Then Exit
      Loop
`<<<<<<<<<<<<<<<<<<<<<< Sub Loop Wrap Up >>>>>>>>>>>>>>>>>>>>>>>>>

      If Player.health<1 Then exit
      Print "Wow! You have defeated the enemies!"
      Do
         Print
         Print "Press [Space] to keep walking through the forest"
         If rnd(10)=1 Then Exit
      Loop
`<<<<<<<<<<<<<<<<<<<<<< Main Loop Wrap Up>>>>>>>>>>>>>>>>>>>>>>>>>

   Loop
   Print "..."
   Print "..."
   Print "Sorry. You have been slain. But your name, "; Player.name; ", will be remembered as a true hero!"
   Print
   Print "Press [R] to resurrect as a new hero."
   Print "Press [X] to Rest In Peace."
   Do
      s$=Lower$(Inkey$())
      if s$="r" or s$="x" Then Exit
   Loop
   if s$="x" Then Exit
Loop
`<<<<<<<<<<<<<<<<<<<<<< End Game >>>>>>>>>>>>>>>>>>>>>>>>>
End

`<<<<<<<<<<<<<<<<<<<<<< Functions >>>>>>>>>>>>>>>>>>>>>>>>>
Function Player_Action()
   Wait 1000:Clear Entry Buffer
   Print "What do you do?"
   Do
      `check for upkey
      if upkey()=1
         hit = Rnd(Player.dam-1)+1
         Enemies(Player.target).health=Enemies(Player.target).health-hit
         Player.xp=Player.xp+1
         print
         print "you hit him with attack"
         print
         print "hp=",player.health
         print
         print Enemies(Player.target).name;" hp=",Enemies(player.target).health
         Clear Entry Buffer
         wait 200
         ExitFunction
      endif
      If downkey()=1 and Player.mana>9
         Enemies(Player.target).health=Enemies(Player.target).health-Player.magdam
         PLayer.mana=Player.mana-10
         print
         print " you hit him with magic"
         print Enemies(Player.target).name;" hp=",Enemies(Player.target).health
         print "Mana=",Player.mana
         Player.magxp=Player.magxp+Player.magdam
         wait 200
         turn=1
         Clear Entry Buffer
         ExitFunction
      Endif
      ` We want to switch targets if one of two event occur. 1) The player chooses, or 2) The current target is dead.
      If Leftkey()=1 or Enemies(player.target).health<1
         Switch_Enemies()
      Endif
   Loop
Endfunction

Function Switch_Enemies()
   For i = 1 to 20 `20 is our maximum possible enemies, so we want to cycle through all possible enemies
      Inc Player.Target `This is like: Player.Target=Player.Target+1
      If Player.Target>20 then Player.Target=1 `Cycles the target back to 1 if it's more than our maximum
      If Enemies(Player.Target).health>0 Then Exit `We found a live one! Exit the For/Next loop
   Next i
   `This is how we will tell if there are no more live enemies
   if i>20 Then Player.Target=0 `We set Player.Target to 0 as a sort of flag, since there is no enemy "0".
Endfunction



Function Level_Increase()
   ` check for level increase
   Restore Level
   if Player.level>23 then exit
   For i = 1 to Player.level
      Read v
   Next i
   If Player.xp>v
      Player.level=Player.level+1
      Player.maxhealth=Player.maxhealth+2
      Recalc_Stats()
      Print_Stats()
      Print "Comgratulations! You are now level "; Player.level
   Endif
   `check stats for magic level
   if Player.magxp>v
      Player.magic=Player.magic+1
      Recalc_Stats()
      Print_Stats()
   endif
EndFunction


Function Recalc_Stats()
   `adjust stats for level
   Player.strength=.5*Player.level
   Player.dam=rnd(Player.strength)
   Player.Thaco=Player.level*2
   Player.cont=Player.level-2
   Player.mana=Player.magic*50
   Player.health=Player.maxhealth
Endfunction

Function Print_Stats()
   print "money=",Player.money
   print "hp=",Player.health
   print "magic=",Player.magic
   print "level=",Player.level
   print "mana=",Player.mana
   print "xp=",Player.xp
   print "magic xp=",Player.magxp
EndFunction

Function Print_Combat_Stats(e)
   Print Enemies(e).name;": ";Enemies(e).health;" hitpoints."
   Print "Your health: ";Player.health
   Print "Your mana: "; Player.mana
Endfunction


Function Read_Enemies(Enc)
   `1st Clear previous old encounter info. There might not be any, but it's good to be safe.
   For i = 1 to 20
      Enemies(i).name=""
      Enemies(i).health=0
      Enemies(i).dam=0
   Next i
   `Enc is the Encounter number to read
   Select Enc
      Case 1
         Restore Encounter1
      Endcase
      Case 2
         Restore Encounter2
      Endcase
   Endselect
   Read E_Num `Number of enemies
   For i = 1 to E_Num
      Read Enemies(i).name
   Next i
   For i = 1 to E_Num
      Read Enemies(i).health
   Next i
   For i = 1 to E_Num
      Read Enemies(i).dam
   Next i
   Read t `Number of lines of intro text
   For i = 1 to t
      Read t$
      Print t$
   Next i
Endfunction

Function Enemy_Attack()
   e=0 `This will track how many enemies are still alive.
   For i = 1 to 20
      If Enemies(i).health>0
         hit=rnd(Enemies(i).dam-1)+1
         Print Enemies(i).name;" hits you with an attack for ";hit;" damage!"
         Player.health=Player.health-hit
         Print_Combat_Stats(i)
         e=e+1 `Increase the 'live enemy' count
         Wait Key
      Else
         If Enemies(i).name<>""
            Print Enemies(i).name; " is lying on the ground... dead."
         Endif
      Endif
   Next i
`We are going to return how many enemies (e) are still alive and kicking.
Endfunction e



`<<<<<<<<<<<<<<<<<<<<<< Data Statements >>>>>>>>>>>>>>>>>>>>>>>>>

`Only need 1 set of level data for both melee and magic since they are identicle.
`If they become different, then a 2nd set of level data would be needed.
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

Encounter1:
`How many monsters
Data 2
`Names list
Data "Spotted Green Spider","Striped Blue Spider"
`Hitpoints list
Data 5,5
`Damage list
Data 3,3
`Encounter Intro Text Count (how many lines of text)
Data 4
`Encounter Intro Text
Data "Two giant spiders jump at you and you fall to the ground!"
Data "You have in your hand, a dagger!"
Data "<'Up arrow' to attack. 'Down arrow' to cast a magic spell>"
Data "<To switch from one enemy to another, press the leftkey>"


Encounter2:
Data 5
Data "Black Adult Wolf","Brown Adult Wolf","Young Black Wolf","Young Brown Wolf","Black & Brown Wolf Pup"
Data 10,8,5,4,3
Data 5,4,3,3,2
Data 2
Data "Continuing through the forest, you are jumped by wolves!"
Data "You are the luckiest adventurer in the world."

global startlevel as integer
startlevel=1



sync rate 60:autocam off

do
print "loading..."
exit
loop

load image "main_menu.bmp",1
sprite 1,0,0,1
wait key
hide sprite 1



sync on
do
start_level()
lock object on 1
move_camera()
sync
loop

function start_level()
   if startlevel<>1 then exitfunction
make matrix 1,10,10,500,500

make object cylinder 1,.5
set object cull 1,0
scale object 1,100,300,100
position object 1,3.3,-3,6

startlevel=0
exitfunction
endfunction

function move_camera()
   move camera (upkey()+10)-(downkey()-10)
   turn camera left (leftkey()+10)-(rightkey()-10)
endfunction