Graphics3D 1366,768,32,2
AppTitle ("TE 0.0.2v")
Include "camera.bb"
cam=CreateCamera()
plane=CreateTerrain(2048)
sun=CreateLight(2)
tex=LoadTexture("2.bmp")
grass=LoadTexture("grass.jpg")
PositionEntity plane,-1024,-8,-1024
PositionEntity sun,0,20,0
TypeCube=2
TypePlane=1
city_s_1=LoadMesh("small_city_v1.3ds")
volcano=LoadMesh("world.b3d")
ScaleEntity city_s_1, 0.01, 0.01, 0.01
ScaleEntity volcano, 0.1, 0.1, 0.1
PositionEntity city_s_1,-10,-8,-10
PositionEntity volcano,0,-8,0
LightRange sun,2000
EntityTexture plane,grass
EntityFX plane,1
EntityType city_s_1,TypeCube
EntityType plane,TypePlane
xC#=0
zC#=0
xCR#=45
yCR#=0
CZ#=1
t=0
timeC=MilliSecs()
time=0
Repeat
Collisions TypeCube,TypePlane,2,1
MSX#=MouseXSpeed()
MSY#=MouseYSpeed()
MSZ#=MouseZSpeed()
MX#=MouseX()
MY#=MouseY()
If yCR<0 Then yCR=360
If yCR>360 Then yCR=0
yCR=yCR+CameraRotation(MSX)
RotateEntity cam,xCR,yCR,0
xC=xC+CameraMove(yCR,MX,MY,0)
zC=zC+CameraMove(yCR,MX,MY,1)
PositionEntity cam,xC,0,zC
If MSZ<>0 And CZ+0.01*MSZ*t>0.5 And xCR-MSZ*t>40 And xCR-MSZ*t<80 Then
xCR=xCR-MSZ*t/2
CZ=CZ+0.01*MSZ*t
t=t+1
CameraZoom cam,CZ
Else t=0
End If
Text 10,10,"X "+xC
Text 100,10,""
Text 10,20,"Z "+zC
Text 100,20,""
Text 10,30,"Camera zoom "+CZ
Text 10,40,"Camera angle "+xCR
Flip
Cls
Until KeyHit(1)
End