Sprite Not Showing Up - GameCreators Forum

Author

Message

Wamphyri

12

Years of Service

User Offline

Joined: 29th Jan 2012

Location:

Posted: 31st Jan 2012 02:29

Link

I entered this code from the Beginners Book and I cant figure out why it doesnt show the sprite. Can someone point me in the right direction.

+ Code Snippet

`----------------------------------------------------------
`Beginner's Guide To DarkBASIC Game Programming
`Copyright (C)2002 Jonathan S. Harbour and Joshua R. Smith
`Chapter 11 - LoadSprite Program
`----------------------------------------------------------

`Initialize the program
SET DISPLAY MODE 640, 480, 32
HIDE MOUSE
CLS
SYNC ON

`Load the source bitmap file
LOAD Bitmap "F15.bmp", 1

`Grab image 1 from bitmap
GET IMAGE 1,0,0,300,300

`Draw the sprite
SPRITE 1, Screen Width()/2, Screen Height()/2 ,1
SYNC

`Wait for keypress
WAIT KEY

END

It compiles fine and gives no errors it just doesnt show the sprite. None of the examples in this chapter do. I can use the code off the source CD and it still doesnt work.

Back to top

Profile PM

nonZero

13

Years of Service

User Offline

Joined: 10th Jul 2011

Location: Dark Empire HQ, Otherworld, Silent Hill

Posted: 31st Jan 2012 07:33

Link

The images you are pointing to must be in the working directory. Remember when using a blank document, default dir is DBPRO's TEMP dir. You may wann add "SET DIR" and the folder caontaining your images. it should have given you an error "image does not exist at line etc." but I've had this error msg fail to appear and the program compile once or twice.

Also try adding "SET CURRENT BITMAP your-bitmap-number" before you "GET IMAGE" and then "SET CURRENT BITMAP 0" and "DELETE BITMAP your-bitmap-number" before you sprite your image.

If that doesn't work - and it may not - use CREATE ANIMATED SPRITE spriteno, filename/path, 1, 1, imageno (check out the help doc for more). I find LOAD BITMAP to be a waste of time. If you need just an image, use LOAD IMAGE. Otherwise I always use this for sprites, even non-animated ones. It's easier and faster.

Back to top

Profile PM Email Website

Hodgey

15

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 31st Jan 2012 09:35 Edited at: 31st Jan 2012 09:35

Link

Actually, I think you just need an extra sync command at the beginning of your program. So right after you turn the sync on, sync it. To see the difference run this:

+ Code Snippet

sync on : sync rate 60

text 0, 0, "Hello World"
sync
wait key
end

and then run this (note the two syncs instead of one):

+ Code Snippet

sync on : sync rate 60
sync
text 0, 0, "Hello World"
sync
wait key
end

The first one displays nothing but the second one displays what we expect to see.

Back to top

Profile PM Email

Wamphyri

12

Years of Service

User Offline

Joined: 29th Jan 2012

Location:

Posted: 31st Jan 2012 14:03

Link

Actually I got it to work by adding a Do Loop like this and getting rid of the load bitmap and changing it to load image like this

+ Code Snippet

SET DISPLAY MODE 640, 480, 32
HIDE MOUSE
SYNC ON
Sync Rate 30

`Load the source bitmap file
LOAD Image "media\F15.bmp", 1

Do
SPRITE 1,Screen Width()/2,Screen Height()/2,1
SYNC
Loop

END

I assume it was because it was only drawing it once until I put it in a loop. Now this code doesn't display the background

MAX = 20

DIM SpriteNum(MAX)
DIM SpriteX(MAX)
DIM SpriteY(MAX)
DIM DirX(MAX)
DIM DirY(MAX)

`Initialize the program
SET DISPLAY MODE 640,480,32
HIDE MOUSE
SYNC ON

`Load the sprite
LOAD BITMAP "plane2.bmp", 1
GET IMAGE 1,0,0,50,50
GET IMAGE 2,50,0,100,50
GET IMAGE 3,100,0,150,50
GET IMAGE 4,150,0,200,50

`initialize sprites
FOR N = 1 TO MAX
   SpriteX(N) = RND(540)
   SpriteY(N) = RND(380)
   DirX(N) = RND(3) + 1
   DirY(N) = RND(3) + 1
   SpriteNum(N) = RND(3) + 1
   SPRITE N, SpriteX(N), SpriteY(N), SpriteNum(N)
NEXT N

`Load background bitmap
LOAD BITMAP "background.bmp", 0

`This is the game loop
REPEAT
    IF TIMER() > StartTime + 100
        FOR N = 1 TO MAX
           `move the sprites
           SpriteX(N) = SpriteX(N) + DirX(N)
           IF SpriteX(N) > 540
               SpriteX(N) = 540
               DirX(N) = -1
           ENDIF
           IF SpriteX(N) < 1
               SpriteX(N) = 1
               DirX(N) = 1
           ENDIF
           SpriteY(N) = SpriteY(N) + DirY(N)
           IF SpriteY(N) > 380
               SpriteY(N) = 380
               DirY(N) = -1
           ENDIF
           IF SpriteY(N) < 1
               SpriteY(N) = 1
               DirY(N) = 1
           ENDIF

`check for collision
           IF SPRITE HIT(N,0) > 0
               DirX(N) = DirX(N) * -1
               DirY(N) = DirY(N) * -1
           ENDIF

`draw the sprite
           SPRITE N,SpriteX(N),SpriteY(N),SpriteNum(N)
        NEXT N

SYNC

ENDIF

UNTIL MOUSECLICK() = 1

END

+ Code Snippet

MAX = 20

DIM SpriteNum(MAX)
DIM SpriteX(MAX)
DIM SpriteY(MAX)
DIM DirX(MAX)
DIM DirY(MAX)

`Initialize the program
SET DISPLAY MODE 640,480,32
HIDE MOUSE
SYNC ON

`Load the sprite
LOAD BITMAP "plane2.bmp", 1
GET IMAGE 1,0,0,50,50
GET IMAGE 2,50,0,100,50
GET IMAGE 3,100,0,150,50
GET IMAGE 4,150,0,200,50

`initialize sprites
FOR N = 1 TO MAX
   SpriteX(N) = RND(540)
   SpriteY(N) = RND(380)
   DirX(N) = RND(3) + 1
   DirY(N) = RND(3) + 1
   SpriteNum(N) = RND(3) + 1
   SPRITE N, SpriteX(N), SpriteY(N), SpriteNum(N)
NEXT N

`Load background bitmap
LOAD BITMAP "background.bmp", 0

`This is the game loop
REPEAT
    IF TIMER() > StartTime + 100
        FOR N = 1 TO MAX
           `move the sprites
           SpriteX(N) = SpriteX(N) + DirX(N)
           IF SpriteX(N) > 540
               SpriteX(N) = 540
               DirX(N) = -1
           ENDIF
           IF SpriteX(N) < 1
               SpriteX(N) = 1
               DirX(N) = 1
           ENDIF
           SpriteY(N) = SpriteY(N) + DirY(N)
           IF SpriteY(N) > 380
               SpriteY(N) = 380
               DirY(N) = -1
           ENDIF
           IF SpriteY(N) < 1
               SpriteY(N) = 1
               DirY(N) = 1
           ENDIF

           `check for collision
           IF SPRITE HIT(N,0) > 0
               DirX(N) = DirX(N) * -1
               DirY(N) = DirY(N) * -1
           ENDIF

           `draw the sprite
           SPRITE N,SpriteX(N),SpriteY(N),SpriteNum(N)
        NEXT N

        SYNC

    ENDIF

UNTIL MOUSECLICK() = 1

END

But if I change it to load Image... and then paste it in the loop it works like this

MAX = 10

DIM SpriteNum(MAX)
DIM SpriteX(MAX)
DIM SpriteY(MAX)
DIM DirX(MAX)
DIM DirY(MAX)

`Initialize the program
SET DISPLAY MODE 640,480,32
HIDE MOUSE
SYNC ON
Sync Rate 60
`Load the sprite
LOAD BITMAP "plane2.bmp", 1
GET IMAGE 1,0,0,50,50
GET IMAGE 2,50,0,100,50
GET IMAGE 3,100,0,150,50
GET IMAGE 4,150,0,200,50

`initialize sprites
FOR N = 1 TO MAX
   SpriteX(N) = RND(540)
   SpriteY(N) = RND(380)
   DirX(N) = RND(3) + 1
   DirY(N) = RND(3) + 1
   SpriteNum(N) = RND(3) + 1
   SPRITE N, SpriteX(N), SpriteY(N), SpriteNum(N)
NEXT N

`Load background bitmap
Set Current Bitmap 0

LOAD Image "background.bmp", 5

`This is the game loop
REPEAT
    IF TIMER() > StartTime + 100
        FOR N = 1 TO MAX
           `move the sprites
           SpriteX(N) = SpriteX(N) + DirX(N)
           IF SpriteX(N) > 540
               SpriteX(N) = 540
               DirX(N) = -1
           ENDIF
           IF SpriteX(N) < 1
               SpriteX(N) = 1
               DirX(N) = 1
           ENDIF
           SpriteY(N) = SpriteY(N) + DirY(N)
           IF SpriteY(N) > 380
               SpriteY(N) = 380
               DirY(N) = -1
           ENDIF
           IF SpriteY(N) < 1
               SpriteY(N) = 1
               DirY(N) = 1
           ENDIF

`check for collision
           IF SPRITE HIT(N,0) > 0
               DirX(N) = DirX(N) * -1
               DirY(N) = DirY(N) * -1
           ENDIF

Paste Image 5,0,0
           SPRITE N,SpriteX(N),SpriteY(N),SpriteNum(N)
           
        NEXT N

SYNC

ENDIF

UNTIL MOUSECLICK() = 1

END

+ Code Snippet

MAX = 10

DIM SpriteNum(MAX)
DIM SpriteX(MAX)
DIM SpriteY(MAX)
DIM DirX(MAX)
DIM DirY(MAX)

`Initialize the program
SET DISPLAY MODE 640,480,32
HIDE MOUSE
SYNC ON
Sync Rate 60
`Load the sprite
LOAD BITMAP "plane2.bmp", 1
GET IMAGE 1,0,0,50,50
GET IMAGE 2,50,0,100,50
GET IMAGE 3,100,0,150,50
GET IMAGE 4,150,0,200,50

`initialize sprites
FOR N = 1 TO MAX
   SpriteX(N) = RND(540)
   SpriteY(N) = RND(380)
   DirX(N) = RND(3) + 1
   DirY(N) = RND(3) + 1
   SpriteNum(N) = RND(3) + 1
   SPRITE N, SpriteX(N), SpriteY(N), SpriteNum(N)
NEXT N

`Load background bitmap
Set Current Bitmap 0

LOAD Image "background.bmp", 5

`This is the game loop
REPEAT
    IF TIMER() > StartTime + 100
        FOR N = 1 TO MAX
           `move the sprites
           SpriteX(N) = SpriteX(N) + DirX(N)
           IF SpriteX(N) > 540
               SpriteX(N) = 540
               DirX(N) = -1
           ENDIF
           IF SpriteX(N) < 1
               SpriteX(N) = 1
               DirX(N) = 1
           ENDIF
           SpriteY(N) = SpriteY(N) + DirY(N)
           IF SpriteY(N) > 380
               SpriteY(N) = 380
               DirY(N) = -1
           ENDIF
           IF SpriteY(N) < 1
               SpriteY(N) = 1
               DirY(N) = 1
           ENDIF

           `check for collision
           IF SPRITE HIT(N,0) > 0
               DirX(N) = DirX(N) * -1
               DirY(N) = DirY(N) * -1
           ENDIF

           Paste Image 5,0,0
           SPRITE N,SpriteX(N),SpriteY(N),SpriteNum(N)
           
        NEXT N

        SYNC

    ENDIF

UNTIL MOUSECLICK() = 1

END

It works fine like this is there anything wrong with doing it this way? IF there isn't I'm just assuming it is just better to stay away from load bitmap command and also make sure your display command is in a loop.

Back to top

Profile PM

Darkzombies

13

Years of Service

User Offline

Joined: 25th Dec 2010

Location: In multiple tabs, most likely youtube.

Posted: 31st Jan 2012 18:38

Link

Well all games need a main loop where you call functions and labels and draw sprites, so you're on the right track.

-------------------------------------------------------------

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Sprite Not Showing Up