Показать сообщение отдельно
Старый 26.07.2006, 11:44   #2
ZanoZa
Элита
 
Регистрация: 02.10.2005
Сообщений: 1,789
Написано 132 полезных сообщений
(для 252 пользователей)
Re: Я новенький! Помогите пожалуйста!

1.Вот:
Graphics3D 800,600
Const type_box=1,type_ground=2
cam=CreateCamera()
PositionEntity cam,0,2,-20
box=CreateCube()
EntityColor box,255,0,0
PositionEntity box,0,20,0
EntityType box,type_box
pln=CreatePlane()
EntityType pln,type_ground

Collisions type_box,type_ground,2,3

sound=LoadSound("sounds\player_down.wav")
LoopSound sound
s=PlaySound(sound)
PauseChannel s
i#=1
Repeat
MoveEntity box,0,-1,0
If EntityCollided(box,type_ground)
i#=i#-.05
ResumeChannel s
ChannelVolume s,i#
EndIf
If KeyHit(57)
PositionEntity box ,0,10,0
i#=1
EndIf
RenderWorld
UpdateWorld
Flip
Forever
2.Незнаю, может png подойдёт
(Offline)
 
Ответить с цитированием