Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > Blitz3D > 3D-программирование

3D-программирование Вопросы, касающиеся программирования 3D мира

Ответ
 
Опции темы
Старый 08.07.2010, 18:03   #1
Дмитрий
AnyKey`щик
 
Регистрация: 08.07.2010
Сообщений: 2
Написано 0 полезных сообщений
(для 0 пользователей)
Help! Проблемы с collisions

Посмотрел на одном сайте учебник с такой игрой,
решил проверить себя и сделал все по-своему,
но кубик не останавливается при столкновении со сферами.Вот код программы:
Graphics3D 1024,768 
SetBuffer BackBuffer() 
Global cub=CreateCube() 
Const cubb=1 
EntityType cub,cubb 
EntityRadius cub,5 
Global x#,y#,z# 
Global c_bot=Rand(3,7) 
PositionEntity cub,0,2,6 
ScaleEntity cub,0.2,2,0.5 
cam=CreateCamera(cub) 
PositionEntity cam,0,3,-10 
Type stolb 
Field entity 
End Type 
Function create_world() 
plan=CreatePlane() 
PositionEntity plan,0,-2,0 
EntityColor plan,0,0,255 
light=CreateLight() 
End Function 
Function update_cub() 
v#=0.3 
If KeyDown(200) Then MoveEntity cub,0,0,v# 
If KeyDown(208) Then MoveEntity cub,0,0,-v# 
If KeyDown(203) Then TurnEntity cub,0,1,0 
If KeyDown(205) Then TurnEntity cub,0,-1,0 
End Function 
Function create_stolb() 
For i=1 To 6 
s.stolb=New stolb 
s\entity=CreateSphere() 
PositionEntity s\entity,Rand(-10,10),0,Rand(6,10) 
ScaleEntity s\entity,0.2,9,0.3 
EntityType s\entity,3 
Next 
Return True 
End Function 
create_world() 
create_stolb() 
Collisions(cubb,3,2,3) 
While Not KeyHit(1)=1 
update_cub() 
RenderWorld 
Flip 
Wend 
End

Последний раз редактировалось SBJoker, 08.07.2010 в 19:36. Причина: оформляем код тегом [code] [/code]
(Offline)
 
Ответить с цитированием
Старый 08.07.2010, 18:11   #2
Maxim1441
Нуждающийся
 
Регистрация: 09.07.2008
Сообщений: 57
Написано 11 полезных сообщений
(для 26 пользователей)
Ответ: Help! Проблемы с collisions

Перед RenderWorld() поставь UpdateWorld () - она как раз и просчитывает столкновения, анимацию и пр. И EntityRadius cub поставь не 5, а 1, у тебя ведь куб размером как раз таким.
__________________
Единственный завершенный проект: http://spacegrinder.narod.ru/
(Offline)
 
Ответить с цитированием
Эти 3 пользователя(ей) сказали Спасибо Maxim1441 за это полезное сообщение:
h1dd3n (08.07.2010), is.SarCasm (09.07.2010), laaqiq (09.07.2010)
Старый 08.07.2010, 20:41   #3
Дмитрий
AnyKey`щик
 
Регистрация: 08.07.2010
Сообщений: 2
Написано 0 полезных сообщений
(для 0 пользователей)
Радость Ответ: Help! Проблемы с collisions

спасибо
(Offline)
 
Ответить с цитированием
Старый 08.07.2010, 22:55   #4
Maxim1441
Нуждающийся
 
Регистрация: 09.07.2008
Сообщений: 57
Написано 11 полезных сообщений
(для 26 пользователей)
Ответ: Help! Проблемы с collisions

Вместо "спасибо" лучше щелкни по кнопке "Полезно!" под мои постом.
__________________
Единственный завершенный проект: http://spacegrinder.narod.ru/
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 15:04.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com