Problem with bitmaps - GameCreators Forum

Author

Message

ManiacBR

18

Years of Service

User Offline

Joined: 26th Oct 2006

Location:

Posted: 5th Nov 2006 16:23

Link

I'm trying to make my program so that when I press "I" on the keyboard the current bitmap will disapear and another one will appear on the screen.
Newbie stuff I know, but when I press "I" the current bitmap dissapears, but the screen just remains blank. I cant figure out what's wrong so could someone help?

+ Code Snippet

	ink rgb(244,214,210),1

	LOAD BITMAP "bitmap0.bmp"
	LOAD BITMAP "bitmap1",1
		GET IMAGE 1,0,0,82,125
	LOAD BITMAP "bitmap2",2
	
	set current bitmap 0

	set cursor 0,10

	REM Will wait for the user to press the space key or I key 

	REPEAT
	IF keystate(23) = 1
		instructions()
	ENDIF
	IF keystate(57) = 1
		cls
	ENDIF
	UNTIL (keystate(57) = 1)

	SYNC on 

	x = 10
	y = 240
	
	cls

	DO
		CurrentImage = 1 
		SPRITE 1,x,y, currentImage

	SYNC	

	LOOP

END

	FUNCTION Instructions()
		cls
		REPEAT
			set current bitmap 2
		UNTIL (keystate(57) = 1)
	ENDFUNCTION

I've taken the unessecary code out to make it more readable for you.

Strange thing is, is that when i ste the current bitmap at the top to 2 it still comes up showing bitmap 0.

Help please.

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 5th Nov 2006 23:57 Edited at: 5th Nov 2006 23:58

Link

It's because Darkbasic always keeps bitmap 0 as the viewing screen. "set current bitmap x" changes the working screen so you can manipulate graphics without the user seeing whats happening. Mainly for loading a bitmap with multiple images so you can capture them individually with "get image".

It's better to use "load image" instead of bitmap and paste the images to the screen. "load image" is best when the images are single... it also eliminates the need to use "get image" and reseting the current working bitmap.

+ Code Snippet

ink rgb(244,214,210),1

	load image "bitmap0.bmp",3
	load image "bitmap1",1
	load image "bitmap2",2
 
        paste image 3,0,0
	set cursor 0,10

	REM Will wait for the user to press the space key or I key 

	REPEAT
	IF keystate(23) = 1
		instructions()
	ENDIF
	IF keystate(57) = 1
		cls
	ENDIF
	UNTIL (keystate(57) = 1)

	SYNC on 

	x = 10
	y = 240
	
	cls

	DO
		CurrentImage = 1 
		SPRITE 1,x,y, currentImage

	SYNC	

	LOOP

END

	FUNCTION Instructions()
		cls
		paste image 2,0,0
		REPEAT

		UNTIL (keystate(57) = 1)
	ENDFUNCTION

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Problem with bitmaps