[Leowey]

Дело было вечером. Делать было нечего. Начал дописывать грулю и задался сим вопросом. Моё решение:

Graphics3D 800, 600, 32, 2


Global x# =0, y# = 0

cam = CreateCamera()

wep = CreateCube()
ScaleMesh wep, 1, 1, 10

main = CreatePivot() : PositionEntity main, 3, -2,13

CreateLight()


While Not KeyHit(1)


If KeyDown(57) Then




	If x > 1 Or x = 0 Then 
		var# = -0.1
		
	ElseIf x < -1
		var# = 0.1
	EndIf
	
	
	
	x# = x# + var#
	

	
	
	
y# = x#*x#


	
PositionEntity wep, EntityX(main)+x#, EntityY(main)+y#, EntityZ(main)







EndIf



UpdateWorld()
RenderWorld()

Text 0, 0, x

Text 0, 10, y


Flip()



Wend
End

P.S. Жать на пробел.