dim enemy_health(500)
dim enemy_action_points#(500)
h=1
do
enemy_action_points#(h)=1
h=h+1
if h=102
exit
endif
loop
dim enemy_name$(500)
f=1
do
enemy_name$(f)="goblin"
f=f+1
if f=6
exit
endif
loop
do
enemy_name$(f)="orc"
f=f+1
if f=11
exit
endif
loop
do
enemy_name$(f)="thief"
f=f+1
if f=16
exit
endif
loop
do
enemy_name$(f)="wolf"
f=f+1
if f=21
exit
endif
loop
do
enemy_name$(f)="bear"
f=f+1
if f=26
exit
endif
loop
do
enemy_name$(f)="giant spider"
f=f+1
if f=31
exit
endif
loop
do
enemy_name$(f)="giant scorpion"
f=f+1
if f=36
exit
endif
loop
do
enemy_name$(f)="zombie"
f=f+1
if f=41
exit
endif
loop
do
enemy_name$(f)="living sceleton"
f=f+1
if f=46
exit
endif
loop
do
enemy_name$(f)="skeleton soldier"
f=f+1
if f=51
exit
endif
loop
do
enemy_name$(f)="ogre"
f=f+1
if f=56
exit
endif
loop
do
enemy_name$(f)="troll"
f=f+1
if f=61
exit
endif
loop
do
enemy_name$(f)="mage trainie"
f=f+1
if f=66
exit
endif
loop
do
enemy_name$(f)="mage"
f=f+1
if f=71
exit
endif
loop
do
enemy_name$(f)="militia soldier"
f=f+1
if f=76
exit
endif
loop
do
enemy_name$(f)="military soldier"
f=f+1
if f=81
exit
endif
loop
do
enemy_name$(f)="military hero"
f=f+1
if f=86
exit
endif
loop
do
enemy_name$(f)="warewolf"
f=f+1
if f=91
exit
endif
loop
do
enemy_name$(f)="vampire"
f=f+1
if f=101
exit
endif
loop
enemy_name$(101)="dragon"
dim enemy_level(500)
dim town_wealth(5)
town_wealth(1)=100
town_wealth(2)=257
town_wealth(3)=213
town_wealth(4)=12
town_wealth(5)=234
dim town_pop(5)
town_pop(1)=109
town_pop(2)=564
town_pop(3)=349
town_pop(4)=123
town_pop(5)=765
dim town_name$(5)
town_name$(1)="Town"
town_name$(2)="Small Town"
town_name$(3)="City"
town_name$(4)="Small City"
town_name$(5)="Big City"
dim player_location$(5)
player_location$(1,1)="A Corn Field"
player_location$(1,2)="A Field"
player_location$(1,3)="A Wheat Field"
player_location$(1,4)="A Road Heading South"
player_location$(1,5)="A Forest"
player_location$(2,1)="A Field"
player_location$(2,2)="Town"
player_location$(2,3)="A Field"
player_location$(2,4)="A Road Heading North and South"
player_location$(2,5)="A Forest"
player_location$(3,1)="Small Town"
player_location$(3,2)="A Road in a Forest Heading East ans West"
player_location$(3,3)="A Road in a Forest Heading East and West"
player_location$(3,4)="A Fork In Road, the road goes in all directions"
player_location$(3,5)="A Road in a Forest leading to City"
player_location$(4,1)="A Forest"
player_location$(4,2)="A Forest"
player_location$(4,3)="A Forest"
player_location$(4,4)="A Road Heading North and South"
player_location$(4,5)="Hills"
player_location$(5,1)="Big City"
player_location$(5,2)="Hills"
player_location$(5,3)="Small City"
player_location$(5,4)="A Road Heading North and West"
player_location$(5,5)="Hills"
dim level_exp(30)
b=50
c=1
a=1
do
level_exp(a)=b*a*c
c=c+1
a=a+1
if a=31
exit
endif
loop
dim PC_skill(30)
d=1
do
PC_skill(d)=d+3
d=d+1
if d=31
exit
endif
loop
x=1
y=1
do
gosub location
gosub description
gosub movement
loop
location:
location$=player_location$(y,x)
print "You are in ";location$
return
description:
if y=1
Print "You can go South, but not North"
else
if y=2
Print "You can go North or South."
else
if y=3
Print "You can go North or South."
else
if y=4
print "You can go North or South"
else
if y=5
Print "You can go North but not South"
endif
endif
endif
endif
endif
if x=1
print "You can also go East"
else
if x=2
print "You can also go East or West"
else
if x=3
print "You can also go East or West"
else
if x=4
print "You can also go East or West"
else
if x=5
print "You can also go West"
endif
endif
endif
endif
endif
return
movement:
Input "Press the first letter of the direction you wish to move, then press enter", move$
if move$="E"
x=x+1
else
if move$="W"
x=x-1
else
if move$="N"
y=y-1
else
if move$="S"
y=y+1
else
print "Invalid Entry made"
input "please re-enter the first letter of the direction that you wish to move, then press enter",
gosub movement
endif
endif
endif
endif
return
battle:
return
Something tells me this isn't what you mean.
Soon I'll add the role-playing.
Check out my RPG at
www.stickz.tk
