[polopok]

Определение позиции ячейки по координатам мыши или мыши + клавиш задающих коодинату Z.

Код :

 ; ===============================================================
; Определение позиции ячейки по координатам мыши или мыши + клавиш задающих коодинату Z
; Основанно на статье   http://www.tonypa.pri.ee/tbw/tut18.html
; ===============================================================

Graphics 800,600,32,2 
SetBuffer BackBuffer() 

sx=200 ; смещение по X и Y
sy=200 

TileSazeX=32
TileSazeY= 32

While Not KeyHit(1) 
mx = MouseX() : my = MouseY()
Cls 
For y=0 To 5
	For x=0 To 5
	x1 = sx +(x-y)*TileSazeX
	y1=sy+(x+y)*TileSazeY/2 ; ( sy+(x+y)*TileSazeY/2) - z       Z -  координата направленна вверх
		
		Plot x1,y1
		Text x1,y1, x+":"+y
	Next
Next 

myy = (2*(my-sy) -(mx-sx))/2;  ( (2*(my-sy) -(mx-sx))/2)  + mz     mz -  координата Z
mxx = ((mx-sx)+myy)
xx=Floor(mxx/TileSazeX)
yy=Floor(myy/TileSazeY)


Text 200,50,"Tile X = "+xx+"         "
Text 200,70,"Tile Y = "+yy+"         "
Flip 
Wend 
End