i am currently trying to create an RPG game, and I have tried saving my data into an array, however when I run my code it just sits there on the black screen.
I am getting quite frustrated and the more frustrated I get the worse I get at spotting errors in my code.
So if anyone could find the problem in my code it would be MUCH appreciated!
thanks!
sw = screen width()
sh = screen height()
sync on
dim main$(5)
dim info$(2,30,8)
dim player$(8)
`BATTLE STATS
player:
data "Men"
data "Soldiers"
data "War Hero"
data "10"
data "8"
data "0"
data "3"
data "4"
for i = 1 to 8
read player$(i)
next i
poachers:
data "Men"
data "Poachers"
data "Pilferer"
data "5"
data "4"
data "1"
data "1"
data "3"
for i = 1 to 8
read info$(1,1,i)
next i
spearmen:
data "Men"
data "Spearman"
data "Drillmaster"
data "10"
data "10"
data "2"
data "3"
data "6"
for i = 1 to 8
read info$(1,2,i)
next i
`Data Statements
main:
data "Welcome to RPG Battle"
data "The main keys are the up,down,left, and right keys"
data "You can view your characters stats at any time by pressing 'V'"
data " "
data "UP - battle DOWN - exit LEFT - save RIGHT - view character"
for a = 1 to 5
read main$(a)
next a
startgame:
cls
for a = 1 to 5
Print main$(a)
next a
do
if upkey() = 1 then goto random
loop
random:
randomize timer()
num = rnd(1) + 1
goto battle
battle:
bX = sw - (sw/4)
bY = 30
gX = sw/4
gY = 30
place = 10
placee = 10
do
cls
`BAD GUY STATS
ink rgb(255,255,255),1
center text bX,bY-12,"ENEMY"
center text bX,bY,"Faction: " + info$(1,num,1)
center text bX,bY+12,"Unit: " + info$(1,num,2)
center text bX,bY+22,"Leader: " + info$(1,num,3)
center text bX,bY+32,"Men: " + info$(1,num,4)
center text bX,bY+42,"Morale: " + info$(1,num,5)
center text bX,bY+52,"XP: " + info$(1,num,6)
center text bX,bY+62,"Attack: " + info$(1,num,7)
center text bX,bY+72,"Defense: " + info$(1,num,8)
`GOOD GUY STATS
center text gX,gY-12,"PLAYER"
center text gX,gY,"Faction: " + player$(1)
center text gX,gY+12,"Unit: " + player$(2)
center text gX,gY+22,"Leader: " + player$(3)
center text gX,gY+32,"Men: " + player$(4)
center text gX,gY+42,"Morale: " + player$(5)
center text gX,gY+52,"XP: " + player$(6)
center text gX,gY+62,"Attack: " + player$(7)
center text gX,gY+72,"Defense: " + player$(8)
`BAD GUY PEOPLE
for i = 1 to val(info$(1,num,4))
ink rgb(255,0,0),1
circle sw-(sw/4)-place,sh/2,5
dec place,10
next i
`GOOD GUY PEOPLE
for u = 1 to val(player$(4))
ink rgb(0,255,0),1
circle sw/4-placee,sh/2,5
inc place,10
next u
if upkey() = 1
dec val(player$(4)),1
endif
if downkey() = 1
dec val(info$(1,num,4)),1
endif
sync
loop
