[Petrofan]

Я делаю так:
;Загружаю 4 звука шагов в масив
Dim Steps(4)
for s=1 to 4
Steps(s)=loadsound("StepFoot"+s+".wav")
next

;В главном цикле пишу
If keyDown (17) SpeedZ#=2 go=1 else go=0
If keyDown (31) SpeedZ#=-2 go=1
If keyDown (30) SpeedX#=-2 go=1
If keyDown (32) SpeedX#=2 go=1
MoveEntity player,SpeedX#,0,SpeedZ#

if go=1
step#=step#+.1
if step#>5 then step#=0 playsound(Steps(Rnd(1,4)))
endif

Скорость воспроизведения зависит от step>5
И все дела!