Graphics3D 1024, 768 , 32, 2
SetBuffer BackBuffer()
player = CreateSphere()
cam = CreateCamera(player)
enemy = CreateCube()
PositionEntity enemy,0,0,20
PositionEntity cam, 0, 0, -40
run=LoadSound("dirt.wav")
SoundVolume run, 0
LoopSound run
runChannel = PlaySound (run)
While Not KeyHit(1)
running#= 0
PlayY# = 0
PlayX# = 0
PlayerX# = EntityX#(player)
PlayerY# = EntityY#(player)
If KeyDown(203)
running = Rnd (0.35, 0.75)
PlayX# = + 0.1
If PlayerX# > 40
running#= 0
PlayX# = 0
EndIf
EndIf
If KeyDown(205)
running = Rnd (0.35, 0.75)
PlayX# = -0.1
If PlayerX# < -40
running#= 0
PlayX# = 0
EndIf
EndIf
If KeyDown(200)
running = Rnd (0.35, 0.75)
PlayY# = - 0.1
If PlayerY# < -40
running#= 0
PlayY# = 0
EndIf
EndIf
If KeyDown(208)
running = Rnd (0.35, 0.75)
PlayY# = + 0.1
If PlayerY# > + 40
running#= 0
PlayY# = 0
EndIf
EndIf
ChannelVolume runChannel, running
MoveEntity player,PlayX#,PlayY#,0
RenderWorld()
UpdateWorld()
Text 10, 10, PlayerX# + " " + PlayerY#
Flip()
Wend
End
И только скажи что опять не так
