I need some help with types again?

Blitz3D Forums/Blitz3D Programming/I need some help with types again?

Newbie31

(Posted 2014) [#1]

Hello,

I'm having problems with types I think. I written some code that loads and image lets you choose how many pieces to break it into, changes each piece in a type and arranges them to form the complete image.

When you move the mouse above an image that image is selected, then by pressing a numpad key [8],[4],[6],[2] it returns the color of the center pixel.

This works fine for the up and down (keys[8],[2]) but doesn't return any color for keys[4] and [6].

I can't find a problem, could anyone offer suggestions?

complete code:



.restart
;Set Graphics Mode
Graphics 1200,800,32,2
SetBuffer BackBuffer()

;Set Global Varibles
Global mpos_x = MouseX()
Global mpos_y = MouseY()
Global f = 1

;Load Global Fonts
Global fntArial=LoadFont("Arial",12,True,False,False) 


;Create Input to allow player to select Image
bgpic$ = Input("Select Image [a-d]")

;Set Image Pieces
gridheight% = Input("how many up[XD] : ")
gridwidth% = Input("how many across[YD] : ")

;Load Images
Global bgimg = LoadImage("_images\" + bgpic$ + ".jpg")
Global fgimg = LoadImage("_images\e3.jpg")
;Global miniblank = LoadImage("_images\miniblank.jpg")

;Draw BASE Buffer Image
DrawImage bgimg,0,0

;Set Global Varibles
miniwidth% = (ImageWidth(bgimg)/gridwidth%)
miniheight% = (ImageHeight(bgimg)/gridheight%)

;Create Array To Create Blank Image Pieces
Const maxwidthcells% = 20
Const maxheightcells% = 20
Dim imagearray(maxwidthcells%,maxheightcells%)
Dim imagearray_xpos(maxwidthcells%,maxheightcells%)
Dim imagearray_ypos(maxwidthcells%,maxheightcells%)

;Create Image Pieces
For a = 1 To gridheight%
	For b = 1 To gridwidth%
		z%=((((b-1)*4)+(a-1))+1)
		imagearray(a,b) = CreateImage(miniwidth%,miniheight%)
		;imagearray(a,b) = LoadImage("_images\minipic_" + z + ".png")
		imagearray_xpos(a,b) = ((ImageWidth(bgimg)/gridwidth%)*(b-1))
		imagearray_ypos(a,b) = ((ImageHeight(bgimg)/gridheight%)*(a-1))
	Next
Next

;Update Image Pieces to ImageGrabs
For c = 1 To gridheight%
	For d = 1 To gridwidth%
		GrabImage imagearray(c,d),((ImageWidth(bgimg)/gridwidth%)*(d-1)),((ImageHeight(bgimg)/gridheight%)*(c-1))
	Next
Next


;--------------------------------------------
;------------- CREATE TYPES -----------------
;--------------------------------------------
Type miniimg
	Field img
	Field xpos
	Field ypos
	Field selected
	Field uppos
	Field downpos
	Field leftpos
	Field rightpos
	Field xdata
	Field ydata
	Field xcenter
	Field ycenter
End Type

;--------------------------------
;---------- LOAD TYPES ----------
;--------------------------------
For c = 1 To gridheight%
	For d = 1 To gridwidth%
		minipic.miniimg = New miniimg
		minipic\img = imagearray(c,d)
		minipic\xpos = imagearray_xpos(c,d)
		minipic\ypos = imagearray_ypos(c,d)
		minipic\xdata = c
		minipic\ydata = d
		minipic\selected = 0
		minipic\xcenter = imagearray_xpos(c,d) + (miniwidth%/2)
		minipic\ycenter = imagearray_ypos(c,d) + (miniheight%/2)
	Next
Next



;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
;&&&&&&&&&&&&&&&&&&& MAIN GAME AREA &&&&&&&&&&&&&&&&&&&&&&&&&
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

While Not KeyHit(1)
	ClsColor 255,255,0
	
	SetFont fntArial
	
	
;----------------------------- END PROGRAM CLAUSE ---------------------------------------------------------------------------
	;Create a End Game Key
	If KeyHit(1)
		End
	EndIf
	;----------------------------------------------------------------------------------------------------------------------------
	;----------------------------- RESTART PROGRAM CLAUSE -----------------------------------------------------------------------
	;Create a reset button
	If KeyHit( 19 ) = True
		Cls
		Goto restart
	EndIf	
	;----------------------------------------------------------------------------------------------------------------------------
	
	;Draw Foreground Image
	DrawImage fgimg,0,0
	
	For minipic.miniimg = Each miniimg
		DrawImage minipic\img,minipic\xpos,minipic\ypos
		Rect minipic\xpos,minipic\ypos,miniwidth%,miniheight%,0
	Next
	
	;LOAD A Custom TYPE that has a diffirent image
	minipic.miniimg = Last miniimg
	minipic\img = CreateImage(miniwidth%,miniheight%)
	
	
	For minipic.miniimg = Each miniimg
		If MouseX() > minipic\xpos And MouseX() < (minipic\xpos + miniwidth%) And MouseY() > minipic\ypos And MouseY() < (minipic\ypos + miniheight%)
			minipic\selected = 1
			Rect minipic\xpos,minipic\ypos,miniwidth%,miniheight%,0
			Text MouseX(),MouseY(),"XD: " + minipic\xdata + "  YD: " + minipic\ydata
			
			;Check if Image is selected
			;--------------- Check If Up Move Possible --------------
			If minipic\selected = 1
				;check if color is off map
				Text MouseX(),MouseY()+10,"Up.....: "
				If minipic\ycenter - miniheight% > 0 
					Text MouseX()+50,MouseY()+10,"Yes"
					
					If KeyHit(72)
						GetColor (minipic\xcenter),(minipic\ycenter - miniheight%)
						red$ = ColorRed()
						green$ = ColorGreen()
						blue$ = ColorBlue()
					EndIf
					
					;Text MouseX(),MouseY()+50,"Up pix color: " + Hex$(ReadPixel((minipic\xcenter),(minipic\ycenter - miniheight%)))
					
				Else
					Text MouseX()+50,MouseY()+10,"No"
				EndIf
			EndIf
			
			;--------------- Check If Down Move Possible --------------
			If minipic\selected = 1
				;check if color is off map
				Text MouseX(),MouseY()+20,"Down...: "
				If minipic\ycenter + miniheight% < (miniheight%*gridheight%)
					Text MouseX()+50,MouseY()+20,"Yes"
					
					If KeyHit(80)
						GetColor (minipic\xcenter),(minipic\ycenter + miniheight%)
						red$ = ColorRed()
						green$ = ColorGreen()
						blue$ = ColorBlue()
					EndIf
					
					;Text MouseX(),MouseY()+60,"Down pix color: " + Hex$(ReadPixel((minipic\xcenter),(minipic\ycenter + miniheight%)))
					
				Else
					Text MouseX()+50,MouseY()+20,"No"
				EndIf
			EndIf
			
			;--------------- Check If Left Move Possible --------------
			If minipic\selected = 1
				;check if color is off map
				Text MouseX(),MouseY()+30,"Left...: "
				If minipic\xcenter - miniwidth% > 0 
					Text MouseX()+50,MouseY()+30,"Yes"
					
					If KeyHit(75)
						GetColor (minipic\xcenter - miniwidth%),(miniheight%)
						red$ = ColorRed()
						green$ = ColorGreen()
						blue$ = ColorBlue()
					EndIf
					
					;Text MouseX(),MouseY()+70,"Left pix color: " + Hex$(ReadPixel((minipic\xcenter - miniwidth%),(miniheight%)))
					
				Else
					Text MouseX()+50,MouseY()+30,"No"
				EndIf
			EndIf
			
			;--------------- Check If Right Move Possible --------------
			If minipic\selected = 1
				;check if color is off map
				Text MouseX(),MouseY()+40,"Right..: "
				If minipic\xcenter + miniwidth% < (miniwidth%*gridwidth%)
					Text MouseX()+50,MouseY()+40,"Yes"
					
					If KeyHit(77)
						GetColor (minipic\xcenter + miniwidth%),(miniheight%)
						red$ = ColorRed()
						green$ = ColorGreen()
						blue$ = ColorBlue()
					EndIf
					
					;Text MouseX(),MouseY()+80,"Right pix color: " + Hex$(ReadPixel((minipic\xcenter + miniwidth%),(miniheight%)))
					
				Else
					Text MouseX()+50,MouseY()+40,"No"
				EndIf
			EndIf
			
		EndIf
		Text (minipic\xpos + (miniwidth% / 4)),(minipic\ypos + ((miniheight% / 8)*1)),"Selected : " + minipic\selected
		minipic\selected = 0
	Next
	
	
	
	
	
	
	
	Color 0,0,0
	
	Text MouseX(),MouseY()+80,"selectedRGB: " + red$ + "," + green$ + "," + blue$
	
	Flip
	Cls
Wend

End


Function CheckMoves(tvar) ;version 1 -------Refers to Mouse position.
;Check to see if the color above is BLACK	;UP
	;GetColor MouseX(),MouseY() - miniheight%
	If tvar - (miniheight%/2) < 0
		Text MouseX(),MouseY()+15,"OFF MAP"
	ElseIf (MouseY() - miniheight%) > 0 
		Text MouseX(),MouseY()+15,"ON MAP"
	EndIf
	
	
End Function

Midimaster

(Posted 2014) [#2]

It looks like you used " miniheight" instead of "minipic\ycenter" in the cases 75 an 77:

correct:

If KeyHit(72)
	GetColor (minipic\xcenter),(minipic\ycenter - miniheight%)
	red$ = ColorRed()
	green$ = ColorGreen()
	blue$ = ColorBlue()
EndIf

but different:

If KeyHit(75)
       ;wrong line:
	GetColor (minipic\xcenter - miniwidth%),(miniheight%)
        ;                                       ^^^^^^^^^^^^
	red$ = ColorRed()
	green$ = ColorGreen()
	blue$ = ColorBlue()
EndIf

perhaps it is like this?

If KeyHit(75)
	GetColor (minipic\xcenter - miniwidth%),(minipic\ycenter)
	red$ = ColorRed()
	green$ = ColorGreen()
	blue$ = ColorBlue()
EndIf