[SubZer0]

проба подсветки синтаксиса

[highlight="blitzbasic"]Graphics3D 800,600,32,2
SetBuffer BackBuffer()

camera=CreateCamera()

PositionEntity camera,75,100,0
RotateEntity camera,60,0,0

RotateEntity CreateLight(1),0,50,0


Dim Map(15,15)

For i=0 To 15
For j=0 To 15
t%=CreateSphere ()
PositionEntity t%,i*10-5,0,j*10-5
ScaleMesh t%,0.5,0.5,0.5
Next
Next

For i=1 To 10
t%=CreateCube()
PositionEntity t%,i*10,1,i*10
ScaleEntity t%,5,2,5
Map(i,i)=1
Next



t%=CreateSphere()
ScaleMesh t%,1.3,1.3,1.8
EntityColor t%,10,250,30
PositionMesh t%,0,1,0

t1%=CreateSphere(8,t%)
PositionEntity t1%,-0.5,2,1.2
ScaleMesh t1%,0.3,0.3,0.3
EntityColor t1%,255,50,30

t2%=CreateSphere(8,t%)
PositionEntity t2%,0.5,2,1.2
ScaleMesh t2%,0.3,0.3,0.3
EntityColor t2%,255,50,30



ScaleEntity t%,2.5,2.5,2.5



Function SnakeGetY(id%)
For SnakeManager.snm = Each snm
If id=SnakeManager\id% Then
Return SnakeManager\y#
EndIf
Next
End Function[/highlight]