Graphics3D 1280, 1024, 32, 1
SetBuffer BackBuffer()

Global camera = CreateCamera()
PositionEntity camera,0,0,0

NewIsland = LoadMesh ("NewIsland.b3d")
PositionEntity NewIsland, 0, -30, 0

While Not KeyHit(1)

PlayerMove()

myx#=myx#+MouseXSpeed()/4
myy#=myy#+MouseYSpeed()/4

If myx#<0 Then myx# = 360
If myx#> 360 Then myx# = 0

If myy#>80 Then myy# = 80
If myy#<-80 Then myy# = -80

RotateEntity camera, myy#, -myx#, 0
RotateEntity camera,0, -myx#, 0

Flip
Wend
End

Function PlayerMove()
 If KeyDown (200) Then MoveEntity camera, 0, 0, 0.2
 If KeyDown (208) Then MoveEntity camera, 0, 0, -0.2
 If KeyDown (203) Then MoveEntity camera, 0.2, 0, 0
 If KeyDown (203) Then MoveEntity camera, -0.2, 0, 0
End Function