|
3D-программирование Вопросы, касающиеся программирования 3D мира |
29.08.2007, 19:03
|
#16
|
Blitz's Shame !!
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений (для 2,013 пользователей)
|
Re: Новичёк не понимает... Помогите.
MoKa, а чё неглобальные не выводит ??
|
(Offline)
|
|
29.08.2007, 19:07
|
#17
|
.
Регистрация: 05.08.2006
Сообщений: 10,429
Написано 3,454 полезных сообщений (для 6,863 пользователей)
|
Re: Новичёк не понимает... Помогите.
IGR Ну я подумал что у него изменение переменной speed в функции, но тогда бы машинка не ездила бы вообще.
|
(Offline)
|
|
29.08.2007, 19:20
|
#18
|
Оператор ЭВМ
Регистрация: 23.08.2007
Сообщений: 27
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Новичёк не понимает... Помогите.
Нет, не помогает.... Может мне написать код? Может я там что-то не правильно сделал?
Если что, то я использовал код который мне написал Maestro.
|
(Offline)
|
|
29.08.2007, 19:25
|
#19
|
Легенда
Регистрация: 01.10.2006
Сообщений: 3,705
Написано 296 полезных сообщений (для 568 пользователей)
|
Re: Новичёк не понимает... Помогите.
Cheetos, говорю же, посмотри тут:
http://www.boolean.name/showthread.php?t=3940
Там рассказывается, как сделать спидометр.
|
(Offline)
|
|
29.08.2007, 19:26
|
#20
|
Оператор ЭВМ
Регистрация: 23.08.2007
Сообщений: 27
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Новичёк не понимает... Помогите.
Я смотрел, но ничего не понял...
Я со спрайтами не дружу, я же говорил(тоесть писал...)
|
(Offline)
|
|
29.08.2007, 20:41
|
#21
|
Оператор ЭВМ
Регистрация: 23.08.2007
Сообщений: 27
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Новичёк не понимает... Помогите.
Вот мой код помогите исправить или добавить что нить для правильной работы:
SeedRnd MilliSecs()
Global speed#
Graphics3D 1024,768,32,1
SetBuffer BackBuffer()
Const Typecub=1,Typecab=2
Collisions Typecub,Typecab,2,1
lit=CreateLight()
pln=CreatePlane()
tex=LoadTexture("file/GRASS2.jpg")
EntityTexture pln,tex
ScaleTexture tex,50,50
cub=LoadMesh("file/BA-64.3DS")
ScaleEntity cub,0.05,0.05,0.05
cam=CreateCamera(cub)
PositionEntity cam,0,5,-10
ScaleEntity cub,1.3,1.3,1.3
CameraViewport cam,0,0,1024,384
PositionEntity cub,-4,0,0
EntityType cub,Typecub
PositionEntity cub,0,0,0
tix=LoadTexture("file/BA-64_diff.tga")
EntityTexture cub,tix
cab=LoadMesh("file/Bugatti.3DS")
com=CreateCamera(cab)
CameraViewport com,0,384,1024,384
PositionEntity com,230,140,0
RotateEntity com,25,90,0
EntityType cab,Typecab
ScaleEntity cab,0.05,0.05,0.05
RotateEntity cab,0,270,0
PositionEntity cab,4,0.68,0
PointEntity cam,cub
a=LoadMesh("file/telega.3DS")
b=LoadTexture("file/wood.jpg")
EntityTexture a,b
ScaleEntity a,0.025,0.025,0.025
RotateEntity a,0,90,0
PositionEntity a,-6,0.6,2
c=LoadMesh("file/House.3DS")
ScaleEntity c,0.025,0.025,0.025
PositionEntity c,-13,6.2,0
RotateEntity c,0,90,0
sound=LoadSound("file/Safri_Duo_03_-_A_Gusta.mp3")
LoopSound(sound)
PlaySound(sound)
q=LoadMesh("file/BMW3ds.3DS")
ScaleEntity q,0.2,0.2,0.2
PositionEntity q,8,0.6,0
RotateEntity q,0,90,0
Repeat
MoveEntity cub,0,0,moveZ#
If KeyDown(200) Then
moveZ = moveZ + .01
Else
moveZ = moveZ - .01
EndIf
If moveZ < 0 Then MoveZ = 0
If KeyDown(203) Then TurnEntity cub,0,2,0
If KeyDown(205) Then TurnEntity cub,0,-2,0
MoveEntity cub,0,0,moveZ#
If KeyDown(200) Then
If Speed< 40 Then Speed = Speed + .02
Else
If Speed> 0 Then Speed= Speed- .01
EndIf
If KeyDown(208)Then
If Speed> -5 Then Speed= Speed- .02
EndIf
MoveEntity q,4,0,0
If KeyDown(54) MoveEntity q,2,0,0
If KeyDown(16) MoveEntity cab,-4,0,0
If KeyDown(17) MoveEntity cab,-.4,0,0
If KeyDown(31) MoveEntity cab,.1,0,0
If KeyDown(30) TurnEntity cab,0,1,0
If KeyDown(32) TurnEntity cab,0,-1,0
If KeyDown(53) MoveEntity cub,0,0,4
If KeyDown(52) MoveEntity cub,0,0,2
If KeyDown(203) TurnEntity cub,0,2,0
If KeyDown(205)TurnEntity cub,0,-2,0
UpdateWorld
RenderWorld()
Text 20,20,"speed:"+speed#
Flip
Until KeyHit(1)
End
|
Зы: не судите строго я тока учюсь...
|
(Offline)
|
|
30.08.2007, 02:33
|
#22
|
Оператор ЭВМ
Регистрация: 23.08.2007
Сообщений: 27
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Новичёк не понимает... Помогите.
Люди, мне что никто не поможет? Пожалуйста....
|
(Offline)
|
|
30.08.2007, 08:30
|
#23
|
Модератор
Регистрация: 11.07.2007
Сообщений: 2,910
Написано 686 полезных сообщений (для 1,694 пользователей)
|
Re: Новичёк не понимает... Помогите.
По ходу дела мы его совсем запутали.. оО
Так... ладно... буду исправлять.... только скажу, у тебя где загрузка ресурсов всё норм?
Как я понял, машинка у тя это q ...
[blitz]
Graphics3D 1024,768,32,1
SeedRnd MilliSecs()
SetBuffer BackBuffer()
Global speed#
Const Typecub=1,Typecab=2
Collisions Typecub,Typecab,2,1
;Этот участок кода я не трогал
lit=CreateLight()
pln=CreatePlane()
tex=LoadTexture("file/GRASS2.jpg")
EntityTexture pln,tex
ScaleTexture tex,50,50
cub=LoadMesh("file/BA-64.3DS")
ScaleEntity cub,0.05,0.05,0.05
ScaleEntity cub,1.3,1.3,1.3
CameraViewport cam,0,0,1024,384
PositionEntity cub,-4,0,0
EntityType cub,Typecub
PositionEntity cub,0,0,0
tix=LoadTexture("file/BA-64_diff.tga")
EntityTexture cub,tix
cab=LoadMesh("file/Bugatti.3DS")
com=CreateCamera(cab)
CameraViewport com,0,384,1024,384
PositionEntity com,230,140,0
RotateEntity com,25,90,0
EntityType cab,Typecab
ScaleEntity cab,0.05,0.05,0.05
RotateEntity cab,0,270,0
PositionEntity cab,4,0.68,0
PointEntity cam,cub
a=LoadMesh("file/telega.3DS")
b=LoadTexture("file/wood.jpg")
EntityTexture a,b
ScaleEntity a,0.025,0.025,0.025
RotateEntity a,0,90,0
PositionEntity a,-6,0.6,2
c=LoadMesh("file/House.3DS")
ScaleEntity c,0.025,0.025,0.025
PositionEntity c,-13,6.2,0
RotateEntity c,0,90,0
sound=LoadSound("file/Safri_Duo_03_-_A_Gusta.mp3")
LoopSound(sound)
PlaySound(sound)
q=LoadMesh("file/BMW3ds.3DS")
ScaleEntity q,0.2,0.2,0.2
PositionEntity q,8,0.6,0
RotateEntity q,0,90,0
cam=CreateCamera(q) ;Правда тут заменил, чтобы камера за машынкой была
PositionEntity cam,0,3,-10 ;И тут
;---------------------------------------------------------------
Repeat
;Тут же у тебя был ещё код maestro
If KeyDown(200) Then
If Speed< 40 Then Speed = Speed + .02
Else
If Speed> 0 Then Speed= Speed- .01
EndIf
If KeyDown(20 Then
If Speed> -5 Then Speed= Speed- .02
EndIf
;тут я убрал код...
If KeyDown(203) TurnEntity q,0,2,0
If KeyDown(205)TurnEntity q,0,-2,0
MoveEntity q,0,0,Speed
UpdateWorld
RenderWorld
Text 20,20,"типа скорость: :"+speed
Flip
Until KeyHit(1)
End
[/blitz]
Я заменил полностью главный цикл игры.. убрал , так сказать то, что не понял... гг... если надо, восстанови... также убрал кучу лишнего.. в общем. там чуть-чуть комментировал... хых, надеюсь, ты разберёшься...
И ещё.. зачем ты по текстуришь два раза? если на модели уже в максе наложена текстура, и если при загрузки блитзом рядом с моделью будет лежать её текстура, то в игре тектсруа уже будет натянута на модель...
У тебя как-то сложно код читается из-за загрузки.. гг... не проще ли было просто в максе разместить все модель где и как надо? а затем просто импортировать общую карту? Оо
А скажи, сли не секрет, зачем тебе управлять сразу надо ыбло 3 объектами? оО
|
(Offline)
|
|
30.08.2007, 14:37
|
#24
|
Бывалый
Регистрация: 12.10.2006
Сообщений: 737
Написано 131 полезных сообщений (для 452 пользователей)
|
Re: Новичёк не понимает... Помогите.
Сообщение от Cheetos
не судите строго я тока учюсь...
|
учись здесь: http://www.boolean.name/showthread.php?p=52622
|
(Offline)
|
|
30.08.2007, 14:43
|
#25
|
Blitz's Shame !!
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений (для 2,013 пользователей)
|
Re: Новичёк не понимает... Помогите.
to avel : дык напиши пост про спидометр, а то я там такого не нашел !!
|
(Offline)
|
|
30.08.2007, 15:11
|
#26
|
Бывалый
Регистрация: 12.10.2006
Сообщений: 737
Написано 131 полезных сообщений (для 452 пользователей)
|
Re: Новичёк не понимает... Помогите.
2IGR а про спидометр уже написали:
http://www.boolean.name/showthread.php?t=3940
но если надо, ок, напишу.
|
(Offline)
|
|
30.08.2007, 15:16
|
#27
|
Blitz's Shame !!
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений (для 2,013 пользователей)
|
Re: Новичёк не понимает... Помогите.
to avel : я видел, но он (Cheetos) же написал, что не понял етого примера !!
нужно еще доступней написать !!
|
(Offline)
|
|
30.08.2007, 15:30
|
#28
|
Ференька
Регистрация: 26.01.2007
Адрес: улица Пушкина дом Колотушкина
Сообщений: 10,741
Написано 5,461 полезных сообщений (для 15,675 пользователей)
|
Re: Новичёк не понимает... Помогите.
Cheetos, приучи себя писать каменты в коде чтоб люди которые хотят тебе помочь могли понять что у тебя какая переменная значит, иначе желание помочь исчезнет.
Каменты, как изветно, спасли отца русской демократии...
Всем
Ну вы нашли что новичку посоветовать... Написано ИМХО для средних пользователей но никак не для нубов.
__________________
Мои проекты:
Анальное Рабство
Зелёный Слоник
Дмитрий Маслов*
Различие**
Клюква**
* — в стадии разработки
** — в стадии проектирования
Для проектов в стадии проектирования приведены кодовые имена
|
(Offline)
|
|
30.08.2007, 15:47
|
#29
|
Оператор ЭВМ
Регистрация: 23.08.2007
Сообщений: 27
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Новичёк не понимает... Помогите.
Сообщение от Данил
По ходу дела мы его совсем запутали.. оО
Так... ладно... буду исправлять.... только скажу, у тебя где загрузка ресурсов всё норм?
Как я понял, машинка у тя это q ...
Я заменил полностью главный цикл игры.. убрал , так сказать то, что не понял... гг... если надо, восстанови... также убрал кучу лишнего.. в общем. там чуть-чуть комментировал... хых, надеюсь, ты разберёшься...
И ещё.. зачем ты по текстуришь два раза? если на модели уже в максе наложена текстура, и если при загрузки блитзом рядом с моделью будет лежать её текстура, то в игре тектсруа уже будет натянута на модель...
У тебя как-то сложно код читается из-за загрузки.. гг... не проще ли было просто в максе разместить все модель где и как надо? а затем просто импортировать общую карту? Оо
А скажи, сли не секрет, зачем тебе управлять сразу надо ыбло 3 объектами? оО
|
ну там две машинки она моя (управление стрелками), а другая для второго человека(управление A,W,D,S),а у меня машинка q=это бот(который едет прямо)
|
(Offline)
|
|
30.08.2007, 15:52
|
#30
|
Blitz's Shame !!
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений (для 2,013 пользователей)
|
Re: Новичёк не понимает... Помогите.
теперь q - это твоя тачка , а у второго человека ее вообще нет !!
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 02:02.
|