Õpetus Algajatele

Graphics3D 1024,768
SetBuffer BackBuffer()

AppTitle"Õpetus"

kaamera=CreateCamera()
PositionEntity kaamera,0,3,0

valgustus=CreateLight()
RotateEntity valgustus ,110,0,0

kujund=CreateCube()
PositionEntity kujund ,5,1,5

kujund2=CreateCone()
PositionEntity kujund2 ,9,1,5

kujund3=CreateCube()
PositionEntity kujund3 ,13,1,5

Global cam_pivot = CreatePivot(player)
PositionEntity cam_pivot,0,1,-5

Global ground = CreatePlane()
PositionEntity ground,0,-1,0
terrain=CreateTerrain(128)
muru=LoadTexture( "muru.bmp" )
EntityTexture terrain,muru

tekstuur=LoadTexture("box.bmp")
EntityTexture kujund,tekstuur
textuur2=LoadTexture("box2.bmp")
EntityTexture kujund2,textuur2
textuur3=LoadTexture ("box3.bmp")
EntityTexture kujund3,textuur3

While Not KeyDown( 1 )

If KeyDown( 205 )=True Then TurnEntity kaamera,0,-1,0
If KeyDown( 203 )=True Then TurnEntity kaamera,0,1,0
If KeyDown( 208 )=True Then MoveEntity kaamera,0,0,-0.05
If KeyDown( 200 )=True Then MoveEntity kaamera,0,0,0.05

RenderWorld

Text 0,0,"selle õpetuse tegi fastexp"
Text 10,10,"nooltega liigub"

Flip

Wend

End