I can't See my Sprite - GameCreators Forum

Author

Message

DBProUser

14

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 28th Oct 2010 16:54

Link

Hello All Together,

First i have to apologize for my bad english, however, i hope you can help me.

I tried a Codeblock from Joshua R. Smith

+ Code Snippet

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

'Initialize the program
HIDE MOUSE
CLS

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

'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,170,90,1

'Wait for keypress
WAIT KEY

END

But it doesn't work. I have to admit, that i Using my own Bitmaps, but nonetheless, it should work. DBPro is Loading the Background, but it didn't show the sprite (the Rocket i using). Can you tell me, what is going wrong here?

P.S. If i load the Bitmaps individually, Both maps showing up
And if i Change the Current Bitmap to screen as followed

+ Code Snippet

HIDE MOUSE
CLS

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

'Load the source bitmap file
LOAD BITMAP "Rocket.bmp", 1

'Grab image 1 from bitmap

GET IMAGE 1,0,0,300,300
 
'Draw the sprite
SPRITE 1,190,90,1

SET CURRENT BITMAP 0
'Wait for keypress
WAIT KEY

END

only the Rocket is shown up.

It would be great, if i can solve the problen with your help. Because Programming in DBPro is really fun.

Back to top

Profile PM

DBProUser

14

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 28th Oct 2010 21:12 Edited at: 28th Oct 2010 21:32

Link

OK, i think i found out myself, altough it is a little bit weird

with following changes it will work

+ Code Snippet


HIDE MOUSE
CLS
SYNC ON

LOAD BITMAP "Rocket.bmp", 1
GET IMAGE 1,0,0,300,300

LOAD BITMAP "background.bmp", 0
GET IMAGE 2, 0, 0, 640, 480

REPEAT
Paste Image 2, 0, 0
SPRITE 1,170,90,1

SYNC
UNTIL MOUSECLICK()=1

END

Maybe i am wrong, but it seems DBPro can only draw a sprite in a Loop. It is Confusing that i can't get a Image of the screen, so that i have to use a Number of a New Image, that i don't really need (in this example the Number two for Bitmap 0, the screen that is already activ)

But... it works!

Im really grateful for any better solution, that you can post me.

Till then, bye!

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 28th Oct 2010 21:33

Link

It's not you or DBPro that's wrong here - it's the original piece of code.

When you load a bitmap, that becomes the current bitmap, and all drawing operations take place only on that bitmap until you switch or load another bitmap. If you use 'SET CURRENT BITMAP 0' after the GET IMAGE command, then the sprite will be drawn.

Your alternate code is OK, but your ideas about why you have to draw in a loop are wrong. When you use the SYNC ON command, you are telling DBPro that you will take control of telling it when to draw to the display, hence your SYNC command in a loop.

Here's the fixed code - Untested, but should work:

+ Code Snippet

HIDE MOUSE
CLS

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

'Load the source bitmap file
LOAD BITMAP "F15.bmp", 1

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

'Switch back to the display bitmap
SET CURRENT BITMAP 0

'Set up the sprite to draw during the sync process,
' without clearing the background
SPRITE 1,170,90,1
SET SPRITE 1, 0, 1

'Wait for keypress
WAIT KEY

END

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

DBProUser

14

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 28th Oct 2010 21:55

Link

@IanM

Thanks a Lot. Your Answer was what i am Looking for.

I tested it and it works how it should be.

@ Mr. Joshua R. Smith

You really confused me

Thanks again IanM

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 28th Oct 2010 23:17

Link

Don't be too hard on the guys that wrote that book - from what I hear, there's a fair amount of code in that book and from what I've seen posted here, only that one issue about sprites.

Basically, they've done a reasonably good job

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

Anti Human

19

Years of Service

User Offline

Joined: 8th Oct 2005

Location: Good ol\' West Virginia

Posted: 29th Oct 2010 14:32 Edited at: 29th Oct 2010 15:17

Link

wow, i had actually been looking in that same book...because of the same problem.

there is alot of code in the book, and i agree that they did a good job on it; but there have been times i was trying to figure out bitmap, image, and sprite commands and it felt like the book was being deliberately obtuse on the subject. Not with the coding part, but in explaining the how, when, and where's for using the commands.

[EDIT]Just gave it a go but didn't work for me. not exactly doing the same thing as the book.

got a 5x5x2 array for my map. 5,5,1 tell the program what terrain tile to use. 5,5,2 holds numbers used for specials like flipping or mirroring.

trying to make the forest bitmaps in to sprites to just place them over the terrain but i can't get the forest to show up

+ Code Snippet

***DIMed arrays, loaded bitmaps stuff***
***Small forest is bitmap 5, large forest is 6***

Create Bitmap 30,32,32
Get Image 5,0,0,32,32
Sprite 1,32,32,5
Get Image 6,0,0,32,32
Sprite 2,32,32,6
Set Current Bitmap 0

For y=1 to 5
  For x=1 to 5
    Copy Bitmap Map(x,y,1),30
    If Map(x,y,2)=1
      Mirror Bitmap 30
     EndIf
    If Map(x,y,2)=2
      Flip Bitmap 30
     EndIf
    If Map(x,y,2)=3
      Flip Bitmap 30
      Mirror Bitmap 30
     EndIf
    Copy Bitmap 30,0,0,32,32,0,x*32-32,y*32-32,x*32,y*32
    If Map(x,y,2)=11
      Paste Sprite 1,x*32-32,y*32-32
     EndIf
    If Map(x,y,2)=12
      Paste Sprite 2,x*32-32,y*32-32
     EndIf
  Next
 Next

With this code (the only change i made between my post and this edit was adding 'Set Current Bitmap 0') all i get is a solid blue screen. with out the Set Current Bitmap all the terrain loads but tree's won't show over.

...this did result in a conversation with my dad this morning when he heard me in my room punching myself in the head, yelling 'Where are all my !@#$ trees?'...so yeah, if he didn't think i was druggie before, he probably does now.

Today is a good day, at least compared to tomorrow.
And every day is a good day to die, because then, there is no tomorrow

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 29th Oct 2010 15:26

Link

What forest? You haven't loaded any images or bitmaps, so you are using a blank bitmap & sprite.

When you've got that sorted, then drop all of the bitmap commands in your main loop - mirror/flip the sprite instead, and paste that. Also remember that two mirrors or two flips give you the original orientation of the sprite, so you need to remember when you are flipped/mirrored and restore the sprite when you are done.

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

Anti Human

19

Years of Service

User Offline

Joined: 8th Oct 2005

Location: Good ol\' West Virginia

Posted: 29th Oct 2010 19:37

Link

Blood hell, all that typing and it disco's on me right as i click 'post message'. ok, first off, sorry for being...me?; i'm almost at 30hr w/o sleep. secondly, should i put this in another thread?

@DBProUser: sorry for stealing your thread dude.

continueing...again.

this isn't the exact same code i posted before, i'v been working on getting bitmaps to alternate in sequence (like the crappy ocean animation in the old 8-bit nintendo games)

Set Display Mode 1024,768,32 : Hide Mouse : Set Window Off

CD "D:\Game Software\Sprite War"

FileLoc$=Get Dir$()

DIM Map(10,10,2)
`tiled map numbers
Map(1,1,1)=2  : Map(2,1,1)=2  : Map(3,1,1)=2  : Map(4,1,1)=2  : Map(5,1,1)=2  : Map(6,1,1)=2  : Map(7,1,1)=2   : Map(8,1,1)=2   : Map(9,1,1)=2   : Map(10,1,1)=2
Map(1,2,1)=2  : Map(2,2,1)=6  : Map(3,2,1)=5  : Map(4,2,1)=5  : Map(5,2,1)=5  : Map(6,2,1)=5  : Map(7,2,1)=5   : Map(8,2,1)=5   : Map(9,2,1)=6   : Map(10,2,1)=2
Map(1,3,1)=2  : Map(2,3,1)=4  : Map(3,3,1)=8  : Map(4,3,1)=8  : Map(5,3,1)=8  : Map(6,3,1)=8  : Map(7,3,1)=8   : Map(8,3,1)=8   : Map(9,3,1)=4   : Map(10,3,1)=2
Map(1,4,1)=2  : Map(2,4,1)=6  : Map(3,4,1)=5  : Map(4,4,1)=7  : Map(5,4,1)=8  : Map(6,4,1)=8  : Map(7,4,1)=8   : Map(8,4,1)=8   : Map(9,4,1)=4   : Map(10,4,1)=2
Map(1,5,1)=2  : Map(2,5,1)=2  : Map(3,5,1)=2  : Map(4,5,1)=4  : Map(5,5,1)=8  : Map(6,5,1)=8  : Map(7,5,1)=8   : Map(8,5,1)=8   : Map(9,5,1)=4   : Map(10,5,1)=2
Map(1,6,1)=2  : Map(2,6,1)=2  : Map(3,6,1)=6  : Map(4,6,1)=7  : Map(5,6,1)=8  : Map(6,6,1)=8  : Map(7,6,1)=8   : Map(8,6,1)=8   : Map(9,6,1)=4   : Map(10,6,1)=2
Map(1,7,1)=2  : Map(2,7,1)=6  : Map(3,7,1)=7  : Map(4,7,1)=8  : Map(5,7,1)=8  : Map(6,7,1)=8  : Map(7,7,1)=8   : Map(8,7,1)=8   : Map(9,7,1)=4   : Map(10,7,1)=2
Map(1,8,1)=2  : Map(2,8,1)=4  : Map(3,8,1)=8  : Map(4,8,1)=8  : Map(5,8,1)=8  : Map(6,8,1)=8  : Map(7,8,1)=8   : Map(8,8,1)=8   : Map(9,8,1)=4   : Map(10,8,1)=2
Map(1,9,1)=2  : Map(2,9,1)=6  : Map(3,9,1)=5  : Map(4,9,1)=5  : Map(5,9,1)=5  : Map(6,9,1)=5  : Map(7,9,1)=5   : Map(8,9,1)=5   : Map(9,9,1)=6   : Map(10,9,1)=2
Map(1,10,1)=2 : Map(2,10,1)=2 : Map(3,10,1)=2 : Map(4,10,1)=2 : Map(5,10,1)=2 : Map(6,10,1)=2 : Map(7,10,1)=2  : Map(8,10,1)=2  : Map(9,10,1)=2  : Map(10,10,1)=2
`tile modifiers
Map(1,1,2)=0  : Map(2,1,2)=0  : Map(3,1,2)=0  : Map(4,1,2)=0  : Map(5,1,2)=0  : Map(6,1,2)=0  : Map(7,1,2)=0   : Map(8,1,2)=0   : Map(9,1,2)=0   : Map(10,1,2)=0
Map(1,2,2)=0  : Map(2,2,2)=1  : Map(3,2,2)=0  : Map(4,2,2)=0  : Map(5,2,2)=0  : Map(6,2,2)=0  : Map(7,2,2)=0   : Map(8,2,2)=0   : Map(9,2,2)=0   : Map(10,2,2)=0
Map(1,3,2)=0  : Map(2,3,2)=1  : Map(3,3,2)=0  : Map(4,3,2)=0  : Map(5,3,2)=0  : Map(6,3,2)=0  : Map(7,3,2)=0   : Map(8,3,2)=0   : Map(9,3,2)=0   : Map(10,3,2)=0
Map(1,4,2)=0  : Map(2,4,2)=3  : Map(3,4,2)=2  : Map(4,4,2)=2  : Map(5,4,2)=0  : Map(6,4,2)=0  : Map(7,4,2)=0   : Map(8,4,2)=0   : Map(9,4,2)=0   : Map(10,4,2)=0
Map(1,5,2)=0  : Map(2,5,2)=1  : Map(3,5,2)=0  : Map(4,5,2)=1  : Map(5,5,2)=0  : Map(6,5,2)=0  : Map(7,5,2)=0   : Map(8,5,2)=0   : Map(9,5,2)=0   : Map(10,5,2)=0
Map(1,6,2)=0  : Map(2,6,2)=1  : Map(3,6,2)=1  : Map(4,6,2)=0  : Map(5,6,2)=0  : Map(6,6,2)=0  : Map(7,6,2)=0   : Map(8,6,2)=0   : Map(9,6,2)=0   : Map(10,6,2)=0
Map(1,7,2)=0  : Map(2,7,2)=1  : Map(3,7,2)=0  : Map(4,7,2)=0  : Map(5,7,2)=0  : Map(6,7,2)=0  : Map(7,7,2)=0   : Map(8,7,2)=0   : Map(9,7,2)=0   : Map(10,7,2)=0
Map(1,8,2)=0  : Map(2,8,2)=1  : Map(3,8,2)=0  : Map(4,8,2)=0  : Map(5,8,2)=0  : Map(6,8,2)=0  : Map(7,8,2)=0   : Map(8,8,2)=0   : Map(9,8,2)=0   : Map(10,8,2)=0
Map(1,9,2)=0  : Map(2,9,2)=3  : Map(3,9,2)=2  : Map(4,9,2)=2  : Map(5,9,2)=2  : Map(6,9,2)=2  : Map(7,9,2)=2   : Map(8,9,2)=2   : Map(9,9,2)=2   : Map(10,9,2)=0
Map(1,10,2)=0 : Map(2,10,2)=0 : Map(3,10,2)=0 : Map(4,10,2)=0 : Map(5,10,2)=0 : Map(6,10,2)=0 : Map(7,10,2)=0  : Map(8,10,2)=0  : Map(9,10,2)=0  : Map(10,10,2)=0

`my beautiful 32x32 pixel tiles.
Load Bitmap FileLoc$+"\Sprites\Terrain\Water Ocean 1.bmp", 1
Load Bitmap FileLoc$+"\Sprites\Terrain\Water Ocean 2.bmp", 2
Load Bitmap FileLoc$+"\Sprites\Terrain\Water Ocean 3.bmp", 3
Load Bitmap FileLoc$+"\Sprites\Terrain\Coast EW.bmp", 4
Load Bitmap FileLoc$+"\Sprites\Terrain\Coast NS.bmp", 5
Load Bitmap FileLoc$+"\Sprites\Terrain\Coast Obtuse.bmp",6
Load Bitmap FileLoc$+"\Sprites\Terrain\Coast Acute.bmp", 7
Load Bitmap FileLoc$+"\Sprites\Terrain\Grass Land.bmp", 8
Load Bitmap FileLoc$+"\Sprites\Terrain\Forest Small.bmp", 9
Load Bitmap FileLoc$+"\Sprites\Terrain\Forest Large.bmp", 10

`and empty bitmap to play with
Create Bitmap 30,32,32
`making forest sprites.now.this time.maybe.yet? ok, making water move
Get Image 1,0,0,32,32
Sprite 1,32,32,1
Get Image 2,0,0,32,32
Sprite 2,32,32,2
Get Image 3,0,0,32,32
Sprite 3,32,32,3

`making a map
For y=1 to 10
  For x=1 to 10
`playing with my empty bit
    Copy Bitmap Map(x,y,1),30
    If Map(x,y,2)=1
      Mirror Bitmap 30
     EndIf
    If Map(x,y,2)=2
      Flip Bitmap 30
     EndIf
    If Map(x,y,2)=3
      Flip Bitmap 30
      Mirror Bitmap 30
     EndIf
    Copy Bitmap 30,0,0,32,32,0,x*32-32,y*32-32,x*32,y*32
`still no forest, moving on.
    If Map(x,y,2)=11
      Paste Sprite 1,x*32-32,y*32-32
     EndIf
    If Map(x,y,2)=12
      Paste Sprite 2,x*32-32,y*32-32
     EndIf
  Next
 Next

Wait Key

End

+ Code Snippet

Set Display Mode 1024,768,32 : Hide Mouse : Set Window Off

CD "D:\Game Software\Sprite War"

FileLoc$=Get Dir$()

DIM Map(10,10,2)
`tiled map numbers
Map(1,1,1)=2  : Map(2,1,1)=2  : Map(3,1,1)=2  : Map(4,1,1)=2  : Map(5,1,1)=2  : Map(6,1,1)=2  : Map(7,1,1)=2   : Map(8,1,1)=2   : Map(9,1,1)=2   : Map(10,1,1)=2
Map(1,2,1)=2  : Map(2,2,1)=6  : Map(3,2,1)=5  : Map(4,2,1)=5  : Map(5,2,1)=5  : Map(6,2,1)=5  : Map(7,2,1)=5   : Map(8,2,1)=5   : Map(9,2,1)=6   : Map(10,2,1)=2
Map(1,3,1)=2  : Map(2,3,1)=4  : Map(3,3,1)=8  : Map(4,3,1)=8  : Map(5,3,1)=8  : Map(6,3,1)=8  : Map(7,3,1)=8   : Map(8,3,1)=8   : Map(9,3,1)=4   : Map(10,3,1)=2
Map(1,4,1)=2  : Map(2,4,1)=6  : Map(3,4,1)=5  : Map(4,4,1)=7  : Map(5,4,1)=8  : Map(6,4,1)=8  : Map(7,4,1)=8   : Map(8,4,1)=8   : Map(9,4,1)=4   : Map(10,4,1)=2
Map(1,5,1)=2  : Map(2,5,1)=2  : Map(3,5,1)=2  : Map(4,5,1)=4  : Map(5,5,1)=8  : Map(6,5,1)=8  : Map(7,5,1)=8   : Map(8,5,1)=8   : Map(9,5,1)=4   : Map(10,5,1)=2
Map(1,6,1)=2  : Map(2,6,1)=2  : Map(3,6,1)=6  : Map(4,6,1)=7  : Map(5,6,1)=8  : Map(6,6,1)=8  : Map(7,6,1)=8   : Map(8,6,1)=8   : Map(9,6,1)=4   : Map(10,6,1)=2
Map(1,7,1)=2  : Map(2,7,1)=6  : Map(3,7,1)=7  : Map(4,7,1)=8  : Map(5,7,1)=8  : Map(6,7,1)=8  : Map(7,7,1)=8   : Map(8,7,1)=8   : Map(9,7,1)=4   : Map(10,7,1)=2
Map(1,8,1)=2  : Map(2,8,1)=4  : Map(3,8,1)=8  : Map(4,8,1)=8  : Map(5,8,1)=8  : Map(6,8,1)=8  : Map(7,8,1)=8   : Map(8,8,1)=8   : Map(9,8,1)=4   : Map(10,8,1)=2
Map(1,9,1)=2  : Map(2,9,1)=6  : Map(3,9,1)=5  : Map(4,9,1)=5  : Map(5,9,1)=5  : Map(6,9,1)=5  : Map(7,9,1)=5   : Map(8,9,1)=5   : Map(9,9,1)=6   : Map(10,9,1)=2
Map(1,10,1)=2 : Map(2,10,1)=2 : Map(3,10,1)=2 : Map(4,10,1)=2 : Map(5,10,1)=2 : Map(6,10,1)=2 : Map(7,10,1)=2  : Map(8,10,1)=2  : Map(9,10,1)=2  : Map(10,10,1)=2
`tile modifiers
Map(1,1,2)=0  : Map(2,1,2)=0  : Map(3,1,2)=0  : Map(4,1,2)=0  : Map(5,1,2)=0  : Map(6,1,2)=0  : Map(7,1,2)=0   : Map(8,1,2)=0   : Map(9,1,2)=0   : Map(10,1,2)=0
Map(1,2,2)=0  : Map(2,2,2)=1  : Map(3,2,2)=0  : Map(4,2,2)=0  : Map(5,2,2)=0  : Map(6,2,2)=0  : Map(7,2,2)=0   : Map(8,2,2)=0   : Map(9,2,2)=0   : Map(10,2,2)=0
Map(1,3,2)=0  : Map(2,3,2)=1  : Map(3,3,2)=0  : Map(4,3,2)=0  : Map(5,3,2)=0  : Map(6,3,2)=0  : Map(7,3,2)=0   : Map(8,3,2)=0   : Map(9,3,2)=0   : Map(10,3,2)=0
Map(1,4,2)=0  : Map(2,4,2)=3  : Map(3,4,2)=2  : Map(4,4,2)=2  : Map(5,4,2)=0  : Map(6,4,2)=0  : Map(7,4,2)=0   : Map(8,4,2)=0   : Map(9,4,2)=0   : Map(10,4,2)=0
Map(1,5,2)=0  : Map(2,5,2)=1  : Map(3,5,2)=0  : Map(4,5,2)=1  : Map(5,5,2)=0  : Map(6,5,2)=0  : Map(7,5,2)=0   : Map(8,5,2)=0   : Map(9,5,2)=0   : Map(10,5,2)=0
Map(1,6,2)=0  : Map(2,6,2)=1  : Map(3,6,2)=1  : Map(4,6,2)=0  : Map(5,6,2)=0  : Map(6,6,2)=0  : Map(7,6,2)=0   : Map(8,6,2)=0   : Map(9,6,2)=0   : Map(10,6,2)=0
Map(1,7,2)=0  : Map(2,7,2)=1  : Map(3,7,2)=0  : Map(4,7,2)=0  : Map(5,7,2)=0  : Map(6,7,2)=0  : Map(7,7,2)=0   : Map(8,7,2)=0   : Map(9,7,2)=0   : Map(10,7,2)=0
Map(1,8,2)=0  : Map(2,8,2)=1  : Map(3,8,2)=0  : Map(4,8,2)=0  : Map(5,8,2)=0  : Map(6,8,2)=0  : Map(7,8,2)=0   : Map(8,8,2)=0   : Map(9,8,2)=0   : Map(10,8,2)=0
Map(1,9,2)=0  : Map(2,9,2)=3  : Map(3,9,2)=2  : Map(4,9,2)=2  : Map(5,9,2)=2  : Map(6,9,2)=2  : Map(7,9,2)=2   : Map(8,9,2)=2   : Map(9,9,2)=2   : Map(10,9,2)=0
Map(1,10,2)=0 : Map(2,10,2)=0 : Map(3,10,2)=0 : Map(4,10,2)=0 : Map(5,10,2)=0 : Map(6,10,2)=0 : Map(7,10,2)=0  : Map(8,10,2)=0  : Map(9,10,2)=0  : Map(10,10,2)=0

`my beautiful 32x32 pixel tiles.
Load Bitmap FileLoc$+"\Sprites\Terrain\Water Ocean 1.bmp", 1
Load Bitmap FileLoc$+"\Sprites\Terrain\Water Ocean 2.bmp", 2
Load Bitmap FileLoc$+"\Sprites\Terrain\Water Ocean 3.bmp", 3
Load Bitmap FileLoc$+"\Sprites\Terrain\Coast EW.bmp", 4
Load Bitmap FileLoc$+"\Sprites\Terrain\Coast NS.bmp", 5
Load Bitmap FileLoc$+"\Sprites\Terrain\Coast Obtuse.bmp",6
Load Bitmap FileLoc$+"\Sprites\Terrain\Coast Acute.bmp", 7
Load Bitmap FileLoc$+"\Sprites\Terrain\Grass Land.bmp", 8
Load Bitmap FileLoc$+"\Sprites\Terrain\Forest Small.bmp", 9
Load Bitmap FileLoc$+"\Sprites\Terrain\Forest Large.bmp", 10

`and empty bitmap to play with
Create Bitmap 30,32,32
`making forest sprites.now.this time.maybe.yet? ok, making water move
Get Image 1,0,0,32,32
Sprite 1,32,32,1
Get Image 2,0,0,32,32
Sprite 2,32,32,2
Get Image 3,0,0,32,32
Sprite 3,32,32,3

`making a map
For y=1 to 10
  For x=1 to 10
`playing with my empty bit
    Copy Bitmap Map(x,y,1),30
    If Map(x,y,2)=1
      Mirror Bitmap 30
     EndIf
    If Map(x,y,2)=2
      Flip Bitmap 30
     EndIf
    If Map(x,y,2)=3
      Flip Bitmap 30
      Mirror Bitmap 30
     EndIf
    Copy Bitmap 30,0,0,32,32,0,x*32-32,y*32-32,x*32,y*32
`still no forest, moving on.
    If Map(x,y,2)=11
      Paste Sprite 1,x*32-32,y*32-32
     EndIf
    If Map(x,y,2)=12
      Paste Sprite 2,x*32-32,y*32-32
     EndIf
  Next
 Next

Wait Key

End

so yeah, there's that. if this should be moved else were feel free.

um, was i reading your adive corrently? should i make all the terrain tiles sprites (was working on that for the crap-amation anyways)? or were you trying to show a shorter method of rotation the coast tiles than the *,*,2 array stuff, bitmap 30, stringed IF's i'm currently using?

oh, update, if it helps narrow down why my trees won't show. i can't find a spot any where in my code that a 'Set Current Bitmap 0' won't paint the whole screen blue. it still does the 'wait key' though.

Today is a good day, at least compared to tomorrow.
And every day is a good day to die, because then, there is no tomorrow

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 29th Oct 2010 20:24 Edited at: 29th Oct 2010 20:26

Link

I'll give you an example.

Ignore the stuff where I create the images for the sprite and populate my 'map' - the important bits are in the loop at the end:

+ Code Snippet

sync on
sync rate 0

type GridCell
   ImageId as integer
   Orientation as integer
endtype
 
dim Grid(3, 3) as GridCell

` Build some images
set text size 40
for i = 1 to 4
   center text 32, 16, str$(i)
   line 0, 0, 63, 0
   line 63, 0, 63, 63
   line 63, 63, 0, 63
   line 0, 63, 0, 0
   line 0, 0, 63, 63
   get image i, 0, 0, 64, 64, 1
   box 0, 0, 64, 64, rgb(0, 0, 0), rgb(0, 0, 0), rgb(0, 0, 0), rgb(0, 0, 0)
next

for x = 0 to 3
   for y = 0 to 3
      Grid(x, y).ImageId = y + 1
      Grid(x, y).Orientation = x
   next
next

do
   for x = 0 to 3
      for y = 0 to 3
         sprite 1, -9999, -9999, Grid(x, y).ImageId
         if Grid(x, y).Orientation = 1 or Grid(x, y).Orientation = 3 then mirror sprite 1
         if Grid(x, y).Orientation = 2 or Grid(x, y).Orientation = 3 then flip sprite 1
         paste sprite 1, x * 64, y * 64
         delete sprite 1
      next
   next

   sync   
loop

For each cell in the grid:
- Create a sprite.
- Orientate the sprite.
- Paste the sprite.
- Delete the sprite (if you don't, the orientation is left for the next sprite).

See? Absolutely no need for a bitmap at all. Even if you are using a tile-map, I'd suggest loading to a bitmap, using GET IMAGE to grab every tile, then disposing of the bitmap.

[edit]Missed the last part of your question ... the blue background. That's simple to switch off:

+ Code Snippet

set sprite 1, 0, 1
delete sprite 1

Just insert the above code after your SYNC ON.

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

Anti Human

19

Years of Service

User Offline

Joined: 8th Oct 2005

Location: Good ol\' West Virginia

Posted: 1st Nov 2010 01:22

Link

sweet, i can use set current bitmap 0 without the full screen blue background.

tryin to work my way through the sprite making code. keep getting a error about the sprite not existing at the line with the
-9999,-9999. figure i'm missing something rather important yet small.

Today is a good day, at least compared to tomorrow.
And every day is a good day to die, because then, there is no tomorrow

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / I can't See my Sprite