array subscript out of bounds, Why???

Author

Message

Daniel wright 2311

User Banned

Posted: 14th Oct 2011 01:32 Edited at: 14th Oct 2011 01:34

Ok, Im lost here,I thought I was doing this right,here is my code.
its giving me the error array subscript out of bounds.

+ Code Snippet

rem set up a type

type enemies
ehealth
estates
endtype

rem dim the array

Dim enemy(4)as enemies
enemy(1).ehealth =10
enemy(2).ehealth =6
enemy(3).ehealth =4
enemy(4).ehealth =8

enemy(1).estates=8
enemy(2).estates=9
enemy(3).estates=10
enemy(4).estates=11



rem in loop 

for i = 8 to 11

if animestate2#=0 then loop object (enemy(i).estates),236,265:set object speed enemy(1).estates,70

I thought I had everything right, Am I using the array right or not?

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 14th Oct 2011 01:38

Link

enemy(i) is wrong. i = 1 to 4.

Back to top

Profile PM Email Website

Daniel wright 2311

User Banned

Posted: 14th Oct 2011 01:42

Link

Lol,right,lol,ok, I changed the tottal numbers for my array, but now it tells me the object number is illeagle,this is the object number.

enemy(i).estates

+ Code Snippet

rem set up a type

type enemies
ehealth
estates
endtype

rem dim the array

Dim enemy(11)as enemies
enemy(1).ehealth =10
enemy(2).ehealth =6
enemy(3).ehealth =4
enemy(4).ehealth =8

enemy(1).estates=8
enemy(2).estates=9
enemy(3).estates=10
enemy(4).estates=11



rem in loop 

for i = 8 to 11

if animestate2#=0 then loop object enemy(i).estates,236,265:set object speed enemy(1).estates,70

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

Daniel wright 2311

User Banned

Posted: 14th Oct 2011 01:49

Link

is this not legit?

+ Code Snippet

type enemies
ehealth
estates
endtype

rem dim the array

Dim enemy(11)as enemies
enemy(1).ehealth =10
enemy(2).ehealth =6
enemy(3).ehealth =4
enemy(4).ehealth =8

enemy(1).estates=8
enemy(2).estates=9
enemy(3).estates=10
enemy(4).estates=11

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

Daniel wright 2311

User Banned

Posted: 14th Oct 2011 01:56

Link

Dont worry,I figured it out,lol,here is all I did,I think Im just tired.

+ Code Snippet

type enemies
ehealth
estates
endtype


Dim enemy(11)as enemies
enemy(1).ehealth =10
enemy(2).ehealth =6
enemy(3).ehealth =4
enemy(4).ehealth =8
enemy(8).estates=8
enemy(9).estates=9
enemy(10).estates=10
enemy(11).estates=11

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

Kevin Picone

23

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Australia

Posted: 14th Oct 2011 04:11 Edited at: 14th Oct 2011 04:11

Link

Daniel wright 2311,

In loops like this, It's a good idea to check if something exist prior to hammering away on it.

So in your Type, add some type of STATUS field.

(Pseudo Code)

+ Code Snippet

type enemies
   Status 
   ObjectIndex
   ehealth
   estates
endtype

rem dim the array

Dim enemy(11)as enemies

; init character 5 in the enemy array

  Enemy(5).Status =1
  Enemy(5).ObjectIndex =1000  ; THe Object number this charcter uses for the it's 3d representation
  Enemy(5).HEalth = 100  ; (100 hit points.. or whatever you use)


  For lp=0 to 11
     if enemy(lp).Status = 1 
        ObjIndex =enemy(lp).ObjectIndex
        if  ObjIndex
               
           move Object ObjIndex,100
        
        endif
     endif
  next

Hmm, I wonder what's coming in 2011?

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / array subscript out of bounds, Why???