putting tiles on board

Yes Big10p!!! I just solved it too... it was my boardx(10,10) and my boardx(10,10)... too much data and too much the same data...
GIGO
Now if I could just solve the mousepick issue... Would y'all mind trying this?

; Hexathello (OK Othello but I hope to get the square thing figured out
; then nail a hex thing!
; Ralph Dunn
Graphics3D 800,600,16,2
SetBuffer BackBuffer()

player=CreatePivot()
camera=CreateCamera(player)
light=CreateLight()
RotateEntity light,45,45,0
AmbientLight 48,48,48    ; was 32,32,32

EntityType camera,1
PositionEntity camera,0,53,-69
RotateEntity camera,35,0,0

Global square
Dim boardarea(10,10)
Dim boardx(10)
Dim boardz(10)

; now create an array called boardarea of 10 by 10 and
; fill in the entire matrix with 0
For fillx = 0 To 9
	For fillz=0 To 9
		boardarea(fillx,fillz)=0
	Next
Next

boardx(0)=-45
boardx(1)=-35
boardx(2)=-25
boardx(3)=-15
boardx(4)=-5
boardx(5)=5
boardx(6)=15
boardx(7)=25
boardx(8)=35
boardx(9)=45

boardz(0)=-45
boardz(1)=-35
boardz(2)=-25
boardz(3)=-15
boardz(4)=-5
boardz(5)=5
boardz(6)=15
boardz(7)=25
boardz(8)=35
boardz(9)=45



; #######################################  Load Mesh Objects
gameboard=LoadMesh("squareboard.b3d")
UpdateNormals gameboard
EntityFX gameboard,0
ScaleEntity gameboard,5.5,5.5,5.5

empty=LoadMesh("square.b3d")
EntityPickMode empty,2
HideEntity empty

wpiece=LoadMesh("piece.b3d")
UpdateNormals wpiece
EntityShininess wpiece,1
PositionEntity wpiece,5,3,-5

bpiece=CopyMesh(wpiece)
RotateEntity bpiece,180,0,0
UpdateNormals bpiece
EntityShininess bpiece,1
PositionEntity bpiece,-5,3,5

; ######################################  Plunk Tiles
; -----------------> Thanks Mighty Mac and Wolron
Type empty
	Field entity
	Field ex
	Field ez
	Field kolor
End Type
	
For row = 0 To 9
	For col=0 To 9
			n.empty = New empty
			n\entity = CopyEntity(empty)
			n\ex = boardx(row)
			n\ez = boardz(col)
			n\kolor = 0
	Next
Next

; Now read it and put an new entity in that location...
; Somehow I get 
; a diagonal line of entitys on the gameboard

For row = 0 To 9
	For col=0 To 9
	If boardarea(row,col) = 0
			For n.empty = Each empty
				EntityPickMode n\entity,2
				PositionEntity n\entity,n\ex,1,n\ez
			Next
		EndIf
	Next
Next


; ##############################################
ShowPointer 

While Not KeyDown(1)

x=MouseX()
y=MouseY()

e=CameraPick(camera,x,y)
	If e<>entity#
		If entity Then EntityColor entity,255,255,255 ; was 255,255,255
		entity#=e
	EndIf

If MouseHit(1)=True Then CameraPick(camera,MouseX(),MouseY())
		
	If entity#
		EntityColor entity,0,120,255 ; 73,253,146 lime 254,216,38 gold 254,80,232 magenta
	EndIf

UpdateWorld
RenderWorld

Text 0,10,"X: "+x
Text 0,20,"Y: "+y
Text 0,30,"Z: "+z
Text 0,50,"THING: "+pickedentity()

 
Flip

Wend

End

I may be on the right track!!! If I can get the mousepick to access the coordinates AND update gameboard then all is right with the universe. :]

How can I return information instead of a series of numbers with this???
-RZ