Okay I've been re-formatting this for a good bit now and am honestly stuck. What is happening is my enemy keeps choosing magic even when his number isn't up for that. Its rather confusing, any help is appreciated again
.
my arrays so far
Dim Char#(3,4)
CharHP=0
CharAtk=1
CharDef=2
CharAgi=3
CharStr=4
Dim Ene#(3,4)
EneHP=0
EneAtk=1
EneDef=2
EneAgi=3
EneStr=4
Dim EneChoice#(3)
EneMagic=0
EneFight=1
EneShield=2
EneRun=3
Dim EneChoice2#(3)
EnePunch=0
EneKick=1
EneSlash=2
EneBite=3
Rem Character Stats
Char#(0,CharHP)=10
Char#(0,CharAtk)=5
Char#(0,CharDef)=6
Char#(0,CharAgi)=4
Char#(0,CharStr)=2
Char#(1,CharHP)=10
Char#(1,CharAtk)=7
Char#(1,CharDef)=5
Char#(1,CharAgi)=10
Char#(1,CharStr)=6
Char#(2,CharHP)=10
Char#(2,CharAtk)=3
Char#(2,CharDef)=4
Char#(2,CharAgi)=4
Char#(2,CharStr)=8
Char#(3,CharHP)=15
Char#(3,CharAtk)=11
Char#(3,CharDef)=8
Char#(3,CharAgi)=6
Char#(3,CharStr)=4
Rem Enemies stats
Ene#(0,EneHP)=10
Ene#(0,EneAtk)=5
Ene#(0,EneDef)=3
Ene#(0,EneAgi)=3
Ene#(0,EneStr)=4
Ene#(1,EneHP)=7
Ene#(1,EneAtk)=3
Ene#(1,EneDef)=2
Ene#(1,EneAgi)=5
Ene#(1,EneStr)=4
Ene#(2,EneHP)=16
Ene#(2,EneAtk)=4
Ene#(2,EneDef)=5
Ene#(2,EneAgi)=5
Ene#(2,EneStr)=5
Ene#(3,EneHP)=5
Ene#(3,EneAtk)=7
Ene#(3,EneDef)=3
Ene#(3,EneAgi)=2
Ene#(3,EneStr)=4
Main programming as of now '
If Ene#(2,EneAgi)>Char#(0,CharAgi)
print "Enemy is going to have initiave first"
else
print "You will gain initiave first."
Endif
wait key
cls
If Ene#(2,EneAgi)>Char#(0,CharAgi) then print rnd(3)+1(EneChoice#(3))
suspend for key
cls
If EneChoice#(3,EneMagic)=0
print "Enemy uses magic"
Endif
If EneChoice#(3,EneFight)=1
print "Enemy will fight physically"
Endif
If EneChoice#(3,EneShield)=2
print "enemy will defend"
Endif
If EneChoice#(3,EneRun)=3
print "enemy will try to flee"
Endif
cheers
zombie
Coffee coffee coffee coffee coffee coffee cappacino, JAVA!