Need Help Sprite Problem. - GameCreators Forum

Author

Message

summerfed

15

Years of Service

User Offline

Joined: 14th Jun 2011

Location:

Posted: 24th Jun 2011 04:17

Link

How to put enemy sprites to a 2d game, wherein all the enemy sprites is scattered accross the screen let's say 100 enemies, and assign attributes to each like health, attack and etc. I manage to put 1 enemy, but I'm having difficulties adding another enemy sprite. Thank you in advance.

Back to top

Profile PM

Hodgey

16

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 24th Jun 2011 10:25 Edited at: 24th Jun 2011 10:32

Link

You could use arrays in combination with user defined types. Something like this perhaps:

+ Code Snippet

type enemy
    x as integer
    y as integer
    xspeed as integer
    yspeed as integer
    sprite_num as integer
    image_num as integer
    health as integer
    alive as boolean
endtype

dim enemies(100) as enemy

` do stuff with them (Hint: use for loops)
`display the sprites
do
   for n = 1 to 100
      sprite enemies(n).sprite_num, enemies(n).x, enemies(n).y, enemies(n).image_num
   next n
   sync
loop

A clever person solves a problem, a wise person avoids it - Albert Einstein

Back to top

Profile PM Email

summerfed

15

Years of Service

User Offline

Joined: 14th Jun 2011

Location:

Posted: 24th Jun 2011 12:24

Link

@Hodgey: Thank you for the reply,

+ Code Snippet

Rem Project: CREATE_ANIMATED_SPRITE
Rem Created: 6/24/2011 10:01:22 AM

Rem ***** Main Source File *****
Gosub Variables
sync rate 0
sync on
hide mouse

` Load the sprite sheet into an animated sprite
for i = 1 to 3
create animated sprite i,"GrogMegaSprite.png",10,1,i
next i
do
wait 5
Gosub Player
sync
loop

Variables:
`Declaration of all variables
Player_X# = 100
Player_Y# = 100
Player_Face = 1

Set image colorkey 0, 0 ,0

return

Player:
` Show the sprite

REM "HOW TO DO THE FOLLOWING CODE BY LOOP"?
 sprite 1,Player_X#,Player_Y#,1
 sprite 2,Player_X#+100,Player_Y#,2
  sprite 3,Player_X#+200,Player_Y#,3
 ` Play the sprite (frames 1 to 10 cycling every 100 milliseconds)
 play sprite 1,1,10,100
  play sprite 2,1,10,100
   play sprite 3,1,10,100

 if rightkey() = 1

   Player_X# = Player_X# + 1
 endif

 if leftkey() = 1


   Player_X# = Player_X# - 1
 endif





 return

I manage to make this code, How can I transform it to LOOP type?

Back to top

Profile PM

Hodgey

16

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 24th Jun 2011 13:09

Link

Quote: "How can I transform it to LOOP type? "

You have the do-loop in there but I assume you mean for-loops?

Anyway, you currently have this:

+ Code Snippet

for i = 1 to 3
create animated sprite i,"GrogMegaSprite.png",10,1,i
next i

which creates 3 sprites 1, 2 and 3. Now the long way to handle each of these sprites is to make variables for each one such as enemy1x, enemy2x etc. What you could do if you plan to use the same concept of variables (e.g have an 'x' and a 'y' for each sprite) for each sprite is to make a user defined type as seen in my first post.

If you wish to collectively handle sprites, you can create an array of your user defined type. Same code as before:

+ Code Snippet

type enemy
    x as integer
    y as integer
    xspeed as integer
    yspeed as integer
    sprite_num as integer
    image_num as integer
    health as integer
    alive as boolean
endtype

dim enemies(100) as enemy

` do stuff with them (Hint: use for loops)
`display the sprites
do
   for n = 1 to 100
      sprite enemies(n).sprite_num, enemies(n).x, enemies(n).y, enemies(n).image_num
   next n
   sync
loop

Ok the first bit is the type endtype declaration. This will create a "type" or DBPro's version of a class (not as powerful as the ones seen in c++, java etc).
The next line creates an array of that class, enemy. So now we have 100 (101 if you count enemies(0), you don't have to) enemies. Each of those 100 enemies now has each of those variables listed in our type enemy. The for-loop I use in the do-loop is just a small example of how you can handle all of those aliens collectively and you don't have to do it individually.

To access each element of the type you follow the main variable (enemies) with a dot (.) and then the element. E.g if I wanted access to the first alien's x value I would access it like this enemies(1).x .

Note, you cannot have arrays in UDTs

+ Code Snippet

type mytype
   dim x(10) as integer ` this will cause an error
endtype

Hopefully I have explained well enough and provided enough information for you to have a go at restructuring your code. If you have any questions just ask

A clever person solves a problem, a wise person avoids it - Albert Einstein

Back to top

Profile PM Email

summerfed

15

Years of Service

User Offline

Joined: 14th Jun 2011

Location:

Posted: 24th Jun 2011 13:26

Link

I appreciate your help for me. Thank you very much. Here is my produced code so far. If you are going to run this software this only display 1 monster. Up to now I am having difficulties in displaying many enemies. I tried everything in my mind. but still it produce error.

type Monster_Stats
Health as integer
Attack as integer
xmonster# as float

endtype

Dim Monster(100) as Monster_Stats

for n = 10 to 100

Monster(n).Health=1000
Monster(n).Attack=10
Monster(n).xmonster#=rnd(1000)

next n

--> here is my user defined codes, my question now is how and where I must put Sprite i , Monster(n).xmonster#,ymonster#, monster. Meaning where I must put the show sprite code. I must finish this program 2 months from now as my Thesis Requirement. Thank you very much for all your help.

Back to top

Profile PM

summerfed

15

Years of Service

User Offline

Joined: 14th Jun 2011

Location:

Posted: 24th Jun 2011 14:21

Link

Sir, please look this program, and tell me how can I add enemies to the screen, I cant figure out how to add enemies to this work of mine. Thank you so much

Back to top

Profile PM

Hodgey

16

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 25th Jun 2011 01:21

Link

When displaying multiple sprites of the same type at once I like to add 'sprite_num' and 'image_num' in the type. These variables will hold the sprite numbers and image numbers of each enemy or monsters in your array. If your program is going to be handling heaps of sprites, you have 1000 monsters, it is probably a good idea to track the sprite numbers and image numbers in an excel spreadsheet or equivalent. Once you have that set up you can simply do this

+ Code Snippet

` assign sprite numbers to monsters
` going to assume we have an array - monsters(1000)
for n = 1 to number_of_monsters ` 1000
    ` use your spreadsheet for some of this info
    ` you don't have to include the '- 1' at the end if you 
    ` don't mind missing a sprite number or you are using n = 0 in your
    `for loop
    monsters(n).sprite_num = n + first_monster_sprite_number - 1
next n

`main loop
do
   ` draw the sprites - put this into a subroutine or function
   for n = 1 to num_of_monsters `1000
       `draw the sprites
       sprite monsters(n).sprite_num, monsters(n).x, monsters(n).y, monsters(n).image_number
   next n

   sync
loop

I just went through your code (attached one) again and I think I see what you are doing. It appears that you are creating mutliple arrays to hold the x, y values etc for your monsters. This isn't necessary, you only need one array of monsters as a monster_type which contains the x, y etc.

Here's a small example of UDTs and arrays

Rem Project: Dark Basic Pro Project
Rem Created: Saturday, June 25, 2011

Rem ***** Main Source File *****
`%Project Title%
`%Source File Name%
`======================
` ********* Bouncing circles **********
`// A demonstration of user defined types and arrays
sync on : sync rate 60
randomize timer()

`// a vairable to hold the number of circles
`// change this to change the number of circles that
`// appear on the screen
global number_of_circles as integer = 50

`// create a type for our circles
type my_circles
    x as integer 
    y as integer
    radius as integer
    xspeed as integer
    yspeed as integer
endtype

`// create an array of mycircles
dim circle_array(number_of_circles) as my_circles

`// set the values for the circles
for n = 1 to number_of_circles
    ` random radius value
    circle_array(n).radius = rnd(50)+10 `// we atleast get a circle with a radius of 10
    
    ` random x value but always starts onscreen
    circle_array(n).x = rnd(screen width()-100) + circle_array(n).radius
    
    ` random y value but always starts onscreen
    circle_array(n).y = rnd(screen height()-100) + circle_array(n).radius
    
    ` random xspeeds and yspeeds
    circle_array(n).xspeed = rnd(10)+1
    circle_array(n).yspeed = rnd(10)+1
next n

` main loop
do
    cls
    ` draw and move circles
    handle_circles()

sync
loop

`// function to handle the movement of the circles
function handle_circles()
    for n = 1 to number_of_circles
        ` move the circles
        inc circle_array(n).x, circle_array(n).xspeed
        inc circle_array(n).y, circle_array(n).yspeed
        
        ` bounce the circles off the edges of the screen
        if circle_array(n).x < 0 or circle_array(n).x > 640
            circle_array(n).xspeed = circle_array(n).xspeed * -1
        endif
        
        if circle_array(n).y < 0 or circle_array(n).y > 480
            circle_array(n).yspeed = circle_array(n).yspeed * -1
        endif
        
        ` draw the circles
        circle circle_array(n).x, circle_array(n).y, circle_array(n).radius
    next n
endfunction

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Saturday, June 25, 2011

Rem ***** Main Source File *****
`%Project Title%
`%Source File Name%
`======================
` ********* Bouncing circles **********
`// A demonstration of user defined types and arrays
sync on : sync rate 60
randomize timer()

`// a vairable to hold the number of circles
`// change this to change the number of circles that
`// appear on the screen
global number_of_circles as integer = 50

`// create a type for our circles
type my_circles
    x as integer 
    y as integer
    radius as integer
    xspeed as integer
    yspeed as integer
endtype

`// create an array of mycircles
dim circle_array(number_of_circles) as my_circles

`// set the values for the circles
for n = 1 to number_of_circles
    ` random radius value
    circle_array(n).radius = rnd(50)+10 `// we atleast get a circle with a radius of 10
    
    ` random x value but always starts onscreen
    circle_array(n).x = rnd(screen width()-100) + circle_array(n).radius
    
    ` random y value but always starts onscreen
    circle_array(n).y = rnd(screen height()-100) + circle_array(n).radius
    
    ` random xspeeds and yspeeds
    circle_array(n).xspeed = rnd(10)+1
    circle_array(n).yspeed = rnd(10)+1
next n

` main loop
do
    cls
    ` draw and move circles
    handle_circles()

    sync
loop

`// function to handle the movement of the circles
function handle_circles()
    for n = 1 to number_of_circles
        ` move the circles
        inc circle_array(n).x, circle_array(n).xspeed
        inc circle_array(n).y, circle_array(n).yspeed
        
        ` bounce the circles off the edges of the screen
        if circle_array(n).x < 0 or circle_array(n).x > 640
            circle_array(n).xspeed = circle_array(n).xspeed * -1
        endif
        
        if circle_array(n).y < 0 or circle_array(n).y > 480
            circle_array(n).yspeed = circle_array(n).yspeed * -1
        endif
        
        ` draw the circles
        circle circle_array(n).x, circle_array(n).y, circle_array(n).radius
    next n
endfunction

So have another go at restructuring your code, you are getting close.

A clever person solves a problem, a wise person avoids it - Albert Einstein

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Need Help Sprite Problem.