level editor place block issues - GameCreators Forum

Author

Message

bszaronos

7

Years of Service

User Offline

Joined: 7th Jul 2017

Location:

Posted: 12th Jul 2017 18:43

Link

Hello all,

I am trying to make my own editor. I am using sprites that are 88x88. So I created a background grid and loaded it with sprites.
I can move around by pressing the arrow keys and I can even change my image by pressing the a key.
But if I press the space bar, to place my sprite it changes a total of six sprites.

from the images I have my sprite at x=441 and y=265 when I hit space it makes the 6 blocks change.

My code at the bottom in the //place block image is where I am trying to change the images.

Any help, I am pulling out my hair on this.
Thanks

-Brian

//Editor
sp as integer
yp as integer
blockimage as integer
underblock as integer
blockimage=502
joyx=1
joyy=1

SetVirtualResolution(3000,1024)
UseNewDefaultFonts( 1 )

//load background
LoadImage(500,"BGL1-grid.png")
CreateSprite(500,500)
SetSpritePosition(500,0,0)
SetJoystickScreenPosition(500,350,100)
// play blocks
LoadImage(502,"2.png")
LoadImage(503,"3.png")
LoadImage(504,"4.png")
LoadImage(505,"5.png")
LoadImage(506,"6.png")
LoadImage(507,"7.png")
LoadImage(508,"8.png")
LoadImage(509,"9.png")
LoadImage(510,"10.png")
LoadImage(511,"11.png")
LoadImage(512,"12.png")
LoadImage(513,"13.png")
LoadImage(514,"14.png")
LoadImage(515,"15.png")
LoadImage(516,"16.png")
LoadImage(517,"17.png")
LoadImage(518,"18.png")
CreateSprite(502,502)
SetSpritePosition(502,0,0)

//load blank sprites
for a=1 to 408
	LoadImage(a,"button.png")
	CreateSprite(a,a)
	next a

//place blank sprites
for b=1 to 12
	for a=1 to 2905 step 88
	SetSpritePosition(sp,a,yp)
	inc sp
	sync()
	next a
yp=yp+88
next b

do
		
//move player left 
	If GetRawKeyState(37)
		joyx=joyx-88
		sleep(250)
	EndIf
	
//move player right 
	If GetRawKeyState(39)
	joyx=joyx+88
	sleep(250)
	EndIf

//move player up
	If GetRawKeyState(38)
		joyy=joyy-88
		sleep(250)
	EndIf
	
//move player down
	If GetRawKeyState(40)
	joyy=joyy+88
	sleep(250)
	EndIf	
	
SetSpritePosition(502,joyx,joyy)

if joyx<1 then joyx=1 //far left of screen  
if joyy<1 then joyy=1 // top of screen
if joyx>3000 then joyx=3000 // far right of screen

//make position text
CreateText(503, "name")
SetTextString(503,"X="+str(joyx))
SetTextSize(503,40)
SetTextPosition(503,1,1)
SetTextColor(503,0,0,0,255)
CreateText(504, "name")
SetTextString(504,"Y="+str(joyy))
SetTextSize(504,40)
SetTextPosition(504,1,88)
SetTextColor(504,0,0,0,255)

//change block image
If GetRawKeyState(65)
		SetSpriteImage(502,blockimage)	
		inc blockimage
		if blockimage>518 then blockimage=502
		sleep(250)
	EndIf

//place block image
If GetRawKeyState(32)
	for a=1 to 408
if GetSpriteCollision(a,502) then SetSpriteImage(a,502)
	next a
	
EndIf

Sync()
loop

+ Code Snippet

//Editor
sp as integer
yp as integer
blockimage as integer
underblock as integer
blockimage=502
joyx=1
joyy=1

SetVirtualResolution(3000,1024)
UseNewDefaultFonts( 1 )


//load background
LoadImage(500,"BGL1-grid.png")
CreateSprite(500,500)
SetSpritePosition(500,0,0)
SetJoystickScreenPosition(500,350,100)
// play blocks
LoadImage(502,"2.png")
LoadImage(503,"3.png")
LoadImage(504,"4.png")
LoadImage(505,"5.png")
LoadImage(506,"6.png")
LoadImage(507,"7.png")
LoadImage(508,"8.png")
LoadImage(509,"9.png")
LoadImage(510,"10.png")
LoadImage(511,"11.png")
LoadImage(512,"12.png")
LoadImage(513,"13.png")
LoadImage(514,"14.png")
LoadImage(515,"15.png")
LoadImage(516,"16.png")
LoadImage(517,"17.png")
LoadImage(518,"18.png")
CreateSprite(502,502)
SetSpritePosition(502,0,0)


//load blank sprites
for a=1 to 408
	LoadImage(a,"button.png")
	CreateSprite(a,a)
	next a
	

//place blank sprites
for b=1 to 12
	for a=1 to 2905 step 88
	SetSpritePosition(sp,a,yp)
	inc sp
	sync()
	next a
yp=yp+88
next b


do
		
//move player left 
	If GetRawKeyState(37)
		joyx=joyx-88
		sleep(250)
	EndIf
	
//move player right 
	If GetRawKeyState(39)
	joyx=joyx+88
	sleep(250)
	EndIf	

//move player up
	If GetRawKeyState(38)
		joyy=joyy-88
		sleep(250)
	EndIf
	
//move player down
	If GetRawKeyState(40)
	joyy=joyy+88
	sleep(250)
	EndIf	
	
SetSpritePosition(502,joyx,joyy)

if joyx<1 then joyx=1 //far left of screen  
if joyy<1 then joyy=1 // top of screen
if joyx>3000 then joyx=3000 // far right of screen

//make position text
CreateText(503, "name")
SetTextString(503,"X="+str(joyx))
SetTextSize(503,40)
SetTextPosition(503,1,1)
SetTextColor(503,0,0,0,255)
CreateText(504, "name")
SetTextString(504,"Y="+str(joyy))
SetTextSize(504,40)
SetTextPosition(504,1,88)
SetTextColor(504,0,0,0,255)


//change block image
If GetRawKeyState(65)
		SetSpriteImage(502,blockimage)	
		inc blockimage
		if blockimage>518 then blockimage=502
		sleep(250)
	EndIf

//place block image
If GetRawKeyState(32)
	for a=1 to 408
if GetSpriteCollision(a,502) then SetSpriteImage(a,502)
	next a
	
EndIf


Sync()
loop

Attachments

Login to view attachments

Back to top

Profile PM

bszaronos

7

Years of Service

User Offline

Joined: 7th Jul 2017

Location:

Posted: 12th Jul 2017 19:53

Link

Well I took a break and went and took a shower, and it came to me.
When I press the key to move I use the underblock to keep track of the spriteID. I start with an spriteID of 1 when I move left I add one to it, Since my grid is 34 blocks long when I press down I add 34 to it.

I know it's not the best code, but its more of figuring out how to do something, then I usually end up finding a better way to do it later on.

do
	for a=1 to 255
SetSpriteColorAlpha(502,a)
sleep(1)
next a	
//move player left 
	If GetRawKeyState(37)
		joyx=joyx-88
		underblock=underblock-1
		sleep(250)
	EndIf
	
//move player right 
	If GetRawKeyState(39)
	joyx=joyx+88
	underblock=underblock+1
	sleep(250)
	EndIf

//move player up
	If GetRawKeyState(38)
		joyy=joyy-88
		underblock=underblock-34
		sleep(250)
	EndIf
	
//move player down
	If GetRawKeyState(40)
	joyy=joyy+88
	underblock=underblock+34
	sleep(250)
	EndIf	
	
SetSpritePosition(502,joyx,joyy)

if joyx<1 then joyx=1 //far left of screen  
if joyy<1 then joyy=1 // top of screen
if joyx>3000 then joyx=3000 // far right of screen

//make position text
CreateText(503, "name")
SetTextString(503,"X="+str(joyx))
SetTextSize(503,40)
SetTextPosition(503,1,1)
SetTextColor(503,0,0,0,255)
CreateText(504, "name")
SetTextString(504,"Y="+str(joyy))
SetTextSize(504,40)
SetTextPosition(504,1,88)
SetTextColor(504,0,0,0,255)

//change block image
If GetRawKeyState(65)
		SetSpriteImage(502,blockimage)	
		inc blockimage
		if blockimage>518 then blockimage=501
		sleep(250)
	EndIf

//place block image
If GetRawKeyState(32)
SetSpriteImage(underblock,blockimage-1)

EndIf

Sync()
loop

+ Code Snippet

do
	for a=1 to 255
SetSpriteColorAlpha(502,a)
sleep(1)
next a	
//move player left 
	If GetRawKeyState(37)
		joyx=joyx-88
		underblock=underblock-1
		sleep(250)
	EndIf
	
//move player right 
	If GetRawKeyState(39)
	joyx=joyx+88
	underblock=underblock+1
	sleep(250)
	EndIf	

//move player up
	If GetRawKeyState(38)
		joyy=joyy-88
		underblock=underblock-34
		sleep(250)
	EndIf
	
//move player down
	If GetRawKeyState(40)
	joyy=joyy+88
	underblock=underblock+34
	sleep(250)
	EndIf	
	
SetSpritePosition(502,joyx,joyy)

if joyx<1 then joyx=1 //far left of screen  
if joyy<1 then joyy=1 // top of screen
if joyx>3000 then joyx=3000 // far right of screen

//make position text
CreateText(503, "name")
SetTextString(503,"X="+str(joyx))
SetTextSize(503,40)
SetTextPosition(503,1,1)
SetTextColor(503,0,0,0,255)
CreateText(504, "name")
SetTextString(504,"Y="+str(joyy))
SetTextSize(504,40)
SetTextPosition(504,1,88)
SetTextColor(504,0,0,0,255)


//change block image
If GetRawKeyState(65)
		SetSpriteImage(502,blockimage)	
		inc blockimage
		if blockimage>518 then blockimage=501
		sleep(250)
	EndIf

//place block image
If GetRawKeyState(32)
SetSpriteImage(underblock,blockimage-1)

EndIf


Sync()
loop

Back to top

Profile PM

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 12th Jul 2017 20:04 Edited at: 12th Jul 2017 20:08

Link

Hi bszaronos

My initial suspicion is that sprite 502 that is being used to detect collision with the "block" sprites is overlapping multiple sprites, therefore changing all of them.

This bit of code here:

//place block image
If GetRawKeyState(32)
for a=1 to 408
if GetSpriteCollision(a,502) then SetSpriteImage(a,502)
next a

EndIf

Also because you've used GetRawKeyState(), the user, i.e. you, can hold the space key down and move sprite 502 which will result in more collisions being detected and you'll "paint" all the block sprites.

The other thing it might be, is that with all the "sleep" commands, your code might be doing something odd, like detecting a button being held down but not doing anything for a moment. So I'd advise changing where you've got a "RawKeyState" command followed by a sleep command for a "RawKeyPressed" and getting rid of the sleep command.

I'm have to guess a little here as with out all the media I can't run you're code fully (i'm also getting an odd pattern of sprites).

As an example, When I do these kind of things, I tend use the pointer or raw mouse commands, something like this:

+ Code Snippet

SetWindowSize(800,480,0)
SetVirtualResolution(800,480)

// Create an array of sprites
dim spr[10,10]
for y = 1 to 10
	for x = 1 to 10
		spr[x,y] = CreateSprite(0)
		SetSpriteSize(spr[x,y],18,18)
		SetSpritePosition(spr[x,y],x*20+100,y*20+100)
	next x
next y


do

	// get mouse input (I always put the inputs into variables in case they need to be used in multiple sections of code)
	mouse_x = GetRawMouseX()
	mouse_y = GetRawMouseY()
	lmb_pressed = GetRawMouseLeftPressed()

	// if left mouse button is pressed then go through all the sprites and if the mouse is on one then change it's colour
	if lmb_pressed = 1
		for y = 0 to 10
			for x = 0 to 10
				if GetSpriteHitTest(spr[x,y],mouse_x,mouse_y) = 1
					SetSpriteColor(spr[x,y],255,0,0,255)
				endif
			next x
		next y
	endif

	print("press left mouse button to change")
	print("the colour of the sprites")

	Sync()
loop

Hope this gives you some ideas.

EDIT: I seem to have posted this just as you answered your own question and it also seems that I was wrong, oh well. Glad you sorted it out.

Hover Car Race Challenge! - available now on Google Play
Invaders of the 29th Dimension - available now on Google Play
Find me on indieDB

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers AppGameKit Corner / level editor place block issues

Attachments