examples of lists of userstypes in dbpro?

Author

Message

otakucg

22

Years of Service

User Offline

Joined: 12th Mar 2003

Location:

Posted: 13th Mar 2003 04:21

Link

Heyaz,

Anyone have any examples of lists of usertypes in dbpro?

When I use ARRAY INSERT AT TOP it seems to set ALL of my user defined types to the same value. What I am trying to do is create a dynamic list of objects that shrinks and grows.

Here is a clip the area I am having issues with.

+ Code Snippet

TYPE bulletType
 posX AS FLOAT
 posY AS FLOAT
 spriteNum AS INTEGER
ENDTYPE

DIM bullets(0) AS bulletType
bsprite = 1

DO
ARRAY INSERT AT BOTTOM bullets()
bullets(ARRAY COUNT(bullets(0))).posX = player.posX
bullets(ARRAY COUNT(bullets(0))).posY = player.posY
bullets(ARRAY COUNT(bullets(0))).spriteNum = bsprite
bsprite = bsprite + 1

LOOP

Thats how I create the objects... in the same loop I update the objects and check to see if they are on screen. if they are not I delete them.

+ Code Snippet

if bullets(T).posX  1 OR T != ARRAY COUNT(bullets(0))
T = T-1
DIGIT = DIGIT-1
endif
endif

Now here is where my issue comes in. In my drawing portion at a certain point I start getting invalid list items or items with no objects in them.

+ Code Snippet

if (ARRAY COUNT(bullets(0)))
DIGIT = ARRAY COUNT(bullets(0))
FOR T = 1 TO DIGIT
SPRITE bullets(T).spriteNum, bullets(T).posX , bullets(T).posY, 2
OFFSET SPRITE bullets(T).spriteNum, 16, 16
NEXT T
ENDIF

At some point my program exits saying that sprite numbers should be 0 and above. It looks like I am setting it up correctly but its not working for me. Any advice from anyone? Its hard to use the debugger because it doesnt show user defined types like visual c++ does.

Thank You!
otakucg

Back to top

Profile PM

otakucg

22

Years of Service

User Offline

Joined: 12th Mar 2003

Location:

Posted: 13th Mar 2003 04:24

Link

it clipped my delete code:

+ Code Snippet

if bullets(T).posX < 0 OR bullets(T).posY < 0 OR 640 < bullets(T).posX OR 480 < bullets(T).posY
DELETE SPRITE bullets(T).spriteNum
ARRAY DELETE ELEMENT bullets(), T
IF T > 1 OR T != ARRAY COUNT(bullets(0))
T = T-1
DIGIT = DIGIT-1
endif
endif

Back to top

Profile PM

swdave

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: United States

Posted: 13th Mar 2003 08:29

Link

Hi,

This example might help you.

+ Code Snippet

dim MyAry() as string
print array count(MyAry(0))
array delete element MyAry(),0
print array count(MyAry(0));" MyAry is Empty"

`not working - array insert at top
`not working -  array insert at element

array insert at bottom MyAry()
MyAry() = "Hello "
print array count(MyAry(0))
array insert at bottom MyAry()
MyAry() = "World "
array insert at bottom MyAry()
MyAry() = "This "
array insert at bottom MyAry()
MyAry() = "Is "
array insert at bottom MyAry()
MyAry() = "A "
array insert at bottom MyAry()
MyAry() = "Test."

print array count(MyAry(0))

array index to top MyAry()
do
  print MyAry();
  next array index MyAry()
  if array index valid(MyAry()) = 0 then exit
loop

print

for x = 0 to array count(MyAry())
  print x; " ";MyAry(x)
next x

undim MyAry(0)
wait key

rem The Dim creates 1 element with index 0
DIM bullets(0) AS bulletType

rem The insert adds element 2 with index 1
ARRAY INSERT AT BOTTOM bullets()

rem This assigns values to element 0
rem because array count is 1 less then the total
bullets(ARRAY COUNT(bullets(0))).posX = player.posX
bullets(ARRAY COUNT(bullets(0))).posY = player.posY
bullets(ARRAY COUNT(bullets(0))).spriteNum = bsprite

Some tips

After dimming an array delete element 0 then it can easily used as a list in a loop.

if array count() = -1 then the array is empty
if array count() = 0 then the array has one element

Use the arrays internal index instead or array count.
array insert at bottom MyAry()
MyAry() = "Hello "

Some people create arrays and don't use element 0 but the list, queue, and stack functions use it.

The array,list,stack,queue all work interchangeably on any array.

I believe the only show stopper bug is inserting in the middle of an array(list).

Hope it helps
Dave...

Back to top

Profile PM

otakucg

22

Years of Service

User Offline

Joined: 12th Mar 2003

Location:

Posted: 13th Mar 2003 23:46

Link

Heyaz Dave,

Thank you sooo much! I now have a lot better understanding of the setup. I was starting from 1 because all of the other examples when dealing with arrays started at one and ive dealt with different languages that the index start differs. Now I worked with the new setup BUT I am still having the same issue I was. Here is the complete code cleaned up.

TYPE playerType
 posX AS FLOAT
 posY AS FLOAT
ENDTYPE

TYPE bulletType
 posX AS FLOAT
 posY AS FLOAT
 distance AS FLOAT
 spriteNum AS INTEGER
ENDTYPE

DIM bullets() AS bulletType
print array count(bullets(0))
array delete element bullets(),0
print array count(bullets(0));" bullets is Empty"

player AS playerType
player.posX = 320
player.posY = 240

LOAD IMAGE "bullet.bmp", 2

SYNC ON
SYNC RATE 10
HIDE MOUSE

bsprite = 1000

DO
   cls

if MOUSECLICK()
      ARRAY INSERT AT BOTTOM bullets()
      bullets(ARRAY COUNT(bullets(0))).posX = player.posX
      bullets(ARRAY COUNT(bullets(0))).posY = player.posY
      bullets(ARRAY COUNT(bullets(0))).spriteNum = bsprite
      bsprite = bsprite + 1
      bullets(ARRAY COUNT(bullets(0))).distance = 1
   ENDIF

if (ARRAY COUNT(bullets(0)) > -1)
      array index to top bullets()
      muhindex = 0
      DO
         bullets().posY = bullets().posY - 10
         bullets().distance = bullets().distance + 10

print bullets().spriteNum

SPRITE bullets().spriteNum, bullets().posX , bullets().posY, 2
         OFFSET SPRITE bullets().spriteNum, 16, 16

if bullets().posX < 0 OR bullets().posY < 0 OR 640 < bullets().posX OR 480 < bullets().posY
            print "deleting"

DELETE SPRITE bullets().spriteNum
            ARRAY DELETE ELEMENT bullets()
         endif

if array index valid(bullets()) = 0
            exit
         else
            NEXT ARRAY INDEX bullets()
         endif
         if array index valid(bullets()) = 0 then exit
      LOOP
   ENDIF

SYNC
LOOP
SHOW MOUSE

+ Code Snippet

TYPE playerType
 posX AS FLOAT
 posY AS FLOAT
ENDTYPE

TYPE bulletType
 posX AS FLOAT
 posY AS FLOAT
 distance AS FLOAT
 spriteNum AS INTEGER
ENDTYPE

DIM bullets() AS bulletType
print array count(bullets(0))
array delete element bullets(),0
print array count(bullets(0));" bullets is Empty"

player AS playerType
player.posX = 320
player.posY = 240


LOAD IMAGE "bullet.bmp", 2

SYNC ON
SYNC RATE 10
HIDE MOUSE

bsprite = 1000

DO
   cls


   if MOUSECLICK()
      ARRAY INSERT AT BOTTOM bullets()
      bullets(ARRAY COUNT(bullets(0))).posX = player.posX
      bullets(ARRAY COUNT(bullets(0))).posY = player.posY
      bullets(ARRAY COUNT(bullets(0))).spriteNum = bsprite
      bsprite = bsprite + 1
      bullets(ARRAY COUNT(bullets(0))).distance = 1
   ENDIF


   if (ARRAY COUNT(bullets(0)) > -1)
      array index to top bullets()
      muhindex = 0
      DO
         bullets().posY = bullets().posY - 10
         bullets().distance = bullets().distance + 10

         print bullets().spriteNum

         SPRITE bullets().spriteNum, bullets().posX , bullets().posY, 2
         OFFSET SPRITE bullets().spriteNum, 16, 16

         if bullets().posX < 0 OR bullets().posY < 0 OR 640 < bullets().posX OR 480 < bullets().posY
            print "deleting"

            DELETE SPRITE bullets().spriteNum
            ARRAY DELETE ELEMENT bullets()
         endif

         if array index valid(bullets()) = 0
            exit
         else
            NEXT ARRAY INDEX bullets()
         endif
         if array index valid(bullets()) = 0 then exit
      LOOP
   ENDIF

   SYNC
LOOP
SHOW MOUSE

This is what happens when you run the code. When you hit the mouse button it creates a list item, translates it in y, checks to see if its gone off screen, deletes the list item if its gone off screen, then displays the item.

Now if you click and let go. It creates bullets and they get deleted all happy like. You can keep on doing so all you want... BUT when it creates and deletes a list item in the same loop (hold down the mouse button until it errors)I am getting invalid numbers for spriteNum. So I can only assume that the rest of the values in my user defined type are also invalid.

Anyone have any input for me por favor?

Thank You again!,
Otakucg

Back to top

Profile PM

Fluffy Paul

22

Years of Service

User Offline

Joined: 16th Dec 2002

Location: United Kingdom

Posted: 14th Mar 2003 13:26

Link

It's the ARRAY DELETE ELEMENT that's crashing the program.
I altered your program in a number of ways but none of them worked... considering my Final Year Project is a game that does very similar things I thought I could fix it - after all my project works. However, my project does not delete a single array index from the middle of an array, only the ends. My project also keeps track of what array index numbers have been used so I can recycle them quickly without having to resize my arrays (which is expensive in terms of performance). So here's your code done my way!

TYPE playerType
 posX AS integer
 posY AS integer
ENDTYPE

TYPE bulletType
 posX AS integer
 posY AS integer
 distance AS integer
 spriteNum AS INTEGER
 alive as integer
ENDTYPE

DIM bullets(0) AS bulletType
dim deadbullets(0)

player AS playerType
player.posX = 320
player.posY = 240

LOAD IMAGE "bullet.bmp", 2

SYNC ON
SYNC RATE 10
HIDE MOUSE

bsprite = 1000

DO
   cls

if MOUSECLICK()
      newBullet(player.posX,player.posY,1,bsprite)
      bsprite = bsprite + 1
   ENDIF

for i=0 to array count(bullets(0))
      if bullets(i).alive=1
         bullets(i).posY = bullets(i).posY - 10
         bullets(i).distance = bullets(i).distance + 10

print bullets(i).spriteNum

SPRITE bullets(i).spriteNum, bullets(i).posX , bullets(i).posY, 2
         OFFSET SPRITE bullets(i).spriteNum, 16, 16

if bullets(i).posX < 0 OR bullets(i).posY < 0 OR 640 < bullets(i).posX OR 480 < bullets(i).posY
            print "deleting"
            killBullet(i)
         endif
      endif
   next i
   SYNC
LOOP
SHOW MOUSE

function newBullet(posX,posY,distance,spriteNum)
   Bno=recycleBullet()
   if Bno=0
      array insert at bottom bullets(0)
      Bno=array count(bullets(0))
   endif
   bullets(Bno).posX=posX
   bullets(Bno).posY=posY
   bullets(Bno).distance=distance
   bullets(Bno).spriteNum=spriteNum
   bullets(Bno).alive=1
endfunction

function killBullet(Bno)
   bullets(Bno).alive=0
   array insert at bottom deadbullets(0)
   deadbullets(array count(deadbullets(0)))=Bno
endfunction

function recycleBullet()
   if array count(deadbullets(0))>0
      Bno=deadbullets(array count(deadbullets(0)))
      array delete element deadbullets(array count(deadbullets(0)))
   endif
endfunction Bno

+ Code Snippet

TYPE playerType
 posX AS integer
 posY AS integer
ENDTYPE

TYPE bulletType
 posX AS integer
 posY AS integer
 distance AS integer
 spriteNum AS INTEGER
 alive as integer
ENDTYPE

DIM bullets(0) AS bulletType
dim deadbullets(0)

player AS playerType
player.posX = 320
player.posY = 240

LOAD IMAGE "bullet.bmp", 2

SYNC ON
SYNC RATE 10
HIDE MOUSE

bsprite = 1000

DO
   cls

   if MOUSECLICK()
      newBullet(player.posX,player.posY,1,bsprite)
      bsprite = bsprite + 1
   ENDIF

   for i=0 to array count(bullets(0))
      if bullets(i).alive=1
         bullets(i).posY = bullets(i).posY - 10
         bullets(i).distance = bullets(i).distance + 10

         print bullets(i).spriteNum

         SPRITE bullets(i).spriteNum, bullets(i).posX , bullets(i).posY, 2
         OFFSET SPRITE bullets(i).spriteNum, 16, 16

         if bullets(i).posX < 0 OR bullets(i).posY < 0 OR 640 < bullets(i).posX OR 480 < bullets(i).posY
            print "deleting"
            killBullet(i)
         endif
      endif
   next i
   SYNC
LOOP
SHOW MOUSE

function newBullet(posX,posY,distance,spriteNum)
   Bno=recycleBullet()
   if Bno=0
      array insert at bottom bullets(0)
      Bno=array count(bullets(0))
   endif
   bullets(Bno).posX=posX
   bullets(Bno).posY=posY
   bullets(Bno).distance=distance
   bullets(Bno).spriteNum=spriteNum
   bullets(Bno).alive=1
endfunction

function killBullet(Bno)
   bullets(Bno).alive=0
   array insert at bottom deadbullets(0)
   deadbullets(array count(deadbullets(0)))=Bno
endfunction

function recycleBullet()
   if array count(deadbullets(0))>0
      Bno=deadbullets(array count(deadbullets(0)))
      array delete element deadbullets(array count(deadbullets(0)))
   endif
endfunction Bno

Because this system uses the position of things in the bullets() array you'll have to keep all the zeros. I've still managed to crash it but it's nothing to do with the index deletion now - probably my dodgy mouse driver! The fairest way to check it is to REM out the "if mouseclick()" and corresponding "endif" but don't REM out the lines in between, that way is makes a new sprite every frame.
Hope that was helpful!

Ending a sentence with a French word is so passé

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / examples of lists of userstypes in dbpro?