Пара вопросов о звуке и графике
мм я опять за помощью
первый вопроз о звуке помогите реализовать звук при хотьбе в FPS.
Я делаю так
Global lWalking
Global iSoundWalk = 0, steptick
Dim aWalk(2)
aWalk(0) = LoadSound("sounds/walk1.wav")
aWalk(1) = LoadSound("sounds/walk2.wav")
Function StepsSound()
If steptick < MilliSecs()
If iSoundWalk = 1
iSoundWalk = 0
Else
iSoundWalk = 1
EndIf
PlaySound( aWalk( iSoundWalk ) )
steptick = MilliSecs() + 500
EndIf
End Function
Function update_player()
lWalking = False
TurnEntity player, 0, 0 -MouseXSpeed()*MouseSpeedFactor, 0 ;Left/Right rotation
TurnEntity cam, MouseYSpeed()*MouseSpeedFactor, 0, 0 ;up/down rotation
MoveMouse GraphicsWidth()/2, GraphicsHeight()/2 ;move mouse pointer to center of screen
RotateEntity cam, EntityPitch#( cam ), 0, 0 ;Z roll correction
If KeyDown(203) Or KeyDown(30) ; влево
MoveEntity player, -player_speed, 0, 0
lWalking = True
EndIf
If KeyDown(205) Or KeyDown(32) ; вправо
MoveEntity player, player_speed, 0, 0
lWalking = True
EndIf
If KeyDown(200) Or KeyDown(17) ; вверх
MoveEntity player, 0, 0, player_speed
lWalking = True
EndIf
If KeyDown(208 ) Or KeyDown(31) ; вниз
MoveEntity player, 0, 0, -player_speed
lWalking = True
EndIf
If lWalking
StepsSound()
EndIf
TranslateEntity player, 0, gravity#, 0
End Function
но когда я гружу более двух звуков хотьбы то они не воспроизводятся.
И второй вопрос как загрузить прицел без чёрной окантовки. Черз ФастИмадж всё ОК а стандартно не получается.
Последний раз редактировалось jimon, 26.06.2008 в 14:30.
|