Держи бродяга
Graphics3D 800,600,16,2
SetBuffer BackBuffer()
run=LoadSound(вСТАВЬ СВОЙ ЗВУК ХОДЬБЫ)
SoundVolume run, 0
LoopSound run
runChannel = PlaySound (run)
Repeat
running#= 0
UpdateWorld()
RenderWorld()
If KeyDown(17) Then
running = Rnd (0.35, 0.75)
EndIf
If running > 0
ChannelPitch runChannel, Rnd (80000, 14000)
EndIf
ChannelVolume runChannel, running
Until KeyHit(1)
End