forum.boolean.name - Вопросы очередного новичка

Страница 4 из 4

Показывать 64 сообщений этой темы на одной странице

forum.boolean.name (http://forum.boolean.name/index.php)

- 3D-программирование (http://forum.boolean.name/forumdisplay.php?f=12)

- - Вопросы очередного новичка (http://forum.boolean.name/showthread.php?t=9214)

ABTOMAT

18.01.2010 21:48

Ответ: Вопросы очередного новичка

Reks888, чёт ты вообще не на ту тему

IGR	18.01.2010 21:57

Ответ: Вопросы очередного новичка

Цитата:

Нужна идея!

Сделал Игрока и управление от 3 лица.Работает Отлично!
Только если подойти к стене и прокрутить камерой вокруг игрока,
то камера проходит сквозь стену и игрока не видно.
Делал колизию камеры со стеной,а когда нет колизии
камера возвращается в прежнее положение, но таким способом есть баги.

Может кто знает способ,чтобы камера не уходила за твердые предметы,
а допустим приближалась к игроку, а потом вновь отдалялась.

смотри тутор Castle !! Там камера прикольная !! в т.ч. не проваливается в стены !!

KingMaks

18.01.2010 22:52

Ответ: Вопросы очередного новичка

IGR сылку можно?

Reks888

18.01.2010 22:59

Ответ: Вопросы очередного новичка

Это стандартный блицовский пример, лежит в samples/castle. Если у тебя нет - бери

Вложение 8826

KingMaks

18.01.2010 23:04

Ответ: Вопросы очередного новичка

Reks888 не паходу нету. Вот скинь сюда :http://depositfiles.com/ru/
Там Обзор -> и выбереш фаил

Reks888

18.01.2010 23:10

Ответ: Вопросы очередного новичка

А чем тебе форумный аттач не нравится? Я конешн залью раз такое дело, вот только придется тебе спасибо говорить)
На те

RlexGm

19.01.2010 09:55

Ответ: Вопросы очередного новичка

Цитата:

Сообщение от Hurrit (Сообщение 133931)

Для совмещения этих кусочков кода, надо один кусочек вписать в другой. Ваш К.О.

конешн спс за совет, но когда тупо все сливаешь в одно не работает

-=SCiP=-

19.01.2010 19:04

Ответ: Вопросы очередного новичка

Цитата:

EaNub
но когда тупо все сливаешь в одно не работает

Зачем так делать? Не легче ли просмотреть пример и понять как работает он а потом уже по примеру делать.
а сливание в 1н это называется копировать вставить :)

Randomize

19.01.2010 22:01

Ответ: Вопросы очередного новичка

Ребят, я с вас хренею.
Прошу подумайте хоть чуть чуть.
Или начинайте пересматривать свои увлечения, просто это уже верх лени.

В этой теме:
30% вопросов, на которые есть ответы у гугла причём на первой странице.
60% оффтоп порождённый 30% процентами
и 10% полезной информации.

IGR	19.01.2010 22:04

Ответ: Вопросы очередного новичка

Цитата:

Ребят, я с вас хренею.
Прошу подумайте хоть чуть чуть.
Или начинайте пересматривать свои увлечения, просто это уже верх лени.

угу !! нада закрывать эти две темы, а то совсем обленились !! :)

Morganolla

19.01.2010 22:11

Ответ: Вопросы очередного новичка

Не-не... не надо! Я почитываю и учуся... потихоньку... Просто если вам лень отвечать, то и не отвечайте... А зачем еще форум то нужен...? :)

Reizel

20.01.2010 07:32

Ответ: Вопросы очередного новичка

Да пусть пишут, че бы не помочь то :) А не хотят учить - ну и хрен с ними :)

PackegerX

20.01.2010 12:42

Ответ: Вопросы очередного новичка

здрасьте всем,
есть небольшая проблема решил написать вдруг поможете, короче как сделать удаление объекта после проигрывания секции анимации ?

Код:

      

If CountCollisions(player)=1 Then

cx#=CollisionNX#(player,1)

cy#=CollisionNY#(player,1)

cz#=CollisionNZ#(player,1)

If cy#=-1 Then

 cb=EntityCollided (player,type_box)

                If cb<>0 Then

                If AnimSeq (cb)=0 Then

                        ExtractAnimSeq (cb,0,7)

                        Animate cb,3,0.2,1

                EndIf

                EndIf

EndIf

EndIf

- вот код
почему-то впоследствии нельзя использовать freeentity cb а как тогда удалить по идентификатору объекта?
не для каждого же объекта прописывать удаление по событию )

и как проверить существует ли ентити в мире или нет?

------
а все каким то образом разобрался :)
сделал так )

Код:

If CountCollisions(mario)=1 Then

cx#=CollisionNX#(mario,1)

cy#=CollisionNY#(mario,1)

cz#=CollisionNZ#(mario,1)

        If cx#=0 And cy#=1 Then

                If KeyDown(57)=1 And (EntityCollided (mario,type_land)<>0 Or EntityCollided (mario,type_box)<>0 Or EntityCollided (mario,type_quest)<>0 Or EntityCollided (mario,type_tube)<>0 Or EntityCollided (mario,type_ladder)<>0) Then 

                speedy#=5                         ;то скорость вверх 5

                mil1=MilliSecs()                ;и текущее время в милисекундах <40000000

                EndIf

        EndIf

        If cy#=-1 Then

        speedy#=1

       cb=EntityCollided (mario,type_box)

                If cb<>0 Then

                ;If AnimSeq (cb)=0 Then

                        ;ExtractAnimSeq (cb,0,7)

                        ;Animate cb,3,0.2,1

                        cbx#=EntityX# (cb)

                        cby#=EntityY# (cb)

                        cbz#=EntityZ# (cb)

                        cbdel=1

                        FreeEntity cb

                ;EndIf

                EndIf

        EndIf

EndIf

If cbdel=1 Then

PlaySound boxsnd

cb1=LoadAnimMesh ("Models\box.b3d")

PositionEntity cb1,cbx#,cby#,cbz#

ExtractAnimSeq (cb1,0,7)

Animate cb1,3,0.2,1

cbdel=2

EndIf



If cbdel=2 Then

If Animating (cb1)=0 Then

FreeEntity cb1

cbdel=0

EndIf

EndIf

Morganolla

26.01.2010 22:18

Ответ: Вопросы очередного новичка

Цитата:

Сообщение от wolfhound512 (Сообщение 133524)

Можно:

Код:

Type Body

        Field x,y,z

End Type



Dim array.Body(10)



For i=0 To 10

        array(i) = New Body

        array(i)\x=Rnd(1,10)

        array(i)\y=Rnd(1,10)

        array(i)\z=Rnd(1,10)

Next



For i=0 To 10

        Text 10, i*10, array(i)\x

        Text 100, i*10, array(i)\y

        Text 200, i*10, array(i)\z

Next



WaitKey()

Пробовал плотно поработать с массивами из типов... Ё-моё, какие же эти типы глюкавые в Блице!!! Весь испелевался!!! И отказался от них... совсем!!!

Hurrit

27.01.2010 20:34

Ответ: Вопросы очередного новичка

В блице всё нормально, если умеешь пользоваться. Типы тоже вполне нормальные. Ругать инструмент не надо, лучше руки подправьте. Искренне ваш блицефаг-кун.

Morganolla

29.01.2010 21:50

Ответ: Вопросы очередного новичка

Как сделать вид из кабины космического корабля? Чтобы был виден сам антураж кабины... типа сделать сферу и изнутри нанести текстуры...? Киньте ссылки на примерчики... :)

IGR	29.01.2010 21:54

Ответ: Вопросы очередного новичка

Цитата:

типа сделать сферу и изнутри нанести текстуры...? Киньте ссылки на примерчики...

ну если кабина в виде сферы тебя устраивает то можно и так !!
FlipMesh еще !! выварачивает меш !!

но нада моделить, тестурить кабину вручную, и загружать !!

Reizel

29.01.2010 22:43

Ответ: Вопросы очередного новичка

IGR	29.01.2010 23:11

Ответ: Вопросы очередного новичка

Цитата:

Сообщение от Павел (Сообщение 135269)

Меня тоже прыкалывает !! :)

ABTOMAT

30.01.2010 02:09

Ответ: Вопросы очередного новичка

Цитата:

Сообщение от Morganolla (Сообщение 135258)

Лол сферу :-)
Тут уже надо в Максе смоделлить нормальную кабину и загрузить её.
Сферы, кубики и конусы - для детского сада

Morganolla

31.01.2010 10:50

Ответ: Вопросы очередного новичка

Немного не в тему... А есть на этом форуме тема посвященная лучшим написанным здесь играм от участников. Типа "Пантеон наших лучших проектов" с указанием рейтинга и позиции игры... Причем не зависимо от языка программирования и движка. Интересно было бы взглянуть...

Reks888

31.01.2010 10:54

Ответ: Вопросы очередного новичка

Ооо... Пантеон лучших проектов?

Вот на главной странице булеана есть что-то подобное:http://boolean.name/index.php?option...98&It emid=69
но без рейтинга и позиций

RlexGm

12.02.2010 13:02

Ответ: Вопросы очередного новичка

а можно как нибудь увеличить обзор камеры( чтобы черная хня дальше начинала скрывала объекты) если можно то плз скажите как

H@NON

12.02.2010 14:21

Ответ: Вопросы очередного новичка

кури CameraRange, а ченую хню можно сделать красной CameraClsColor

Randomize

12.02.2010 15:04

Ответ: Вопросы очередного новичка

IGR	12.02.2010 16:43

Ответ: Вопросы очередного новичка

Цитата:

Сообщение от Randomize (Сообщение 137041)

PackegerX

14.09.2010 16:17

Ответ: Вопросы очередного новичка

ХЕЛП, не прекращается звук!!!

Код:

...

LevelSound=LoadSound("Resources\LevelSound.mp3")

GameOverSnd=LoadSound("Resources\GameOver.wav")

...

SoundsOfLevel=PlaySound (LevelSound)

...

repeat

GameOver=1

...

If GameOver=1 Then

        Cls

        StopChannel (SoundsOfLevel)

        SetFont Font30

        Text 100,100,"Game Over"

        Flip

        EndSound=PlaySound (GameOverSnd)

        Delay 12000

        End

EndIf

forever

Dzirt

14.09.2010 17:45

Ответ: Вопросы очередного новичка

ты в цикле его проигрываешь.

Цитата:

...
LevelSound=LoadSound("Resources\LevelSound.mp3")
GameOverSnd=LoadSound("Resources\GameOver.wav")
...
SoundsOfLevel=PlaySound (LevelSound)
...
repeat
GameOver=1
...
If GameOver=1 Then
Cls
StopChannel (SoundsOfLevel)
SetFont Font30
Text 100,100,"Game Over"
Flip
EndSound=PlaySound (GameOverSnd)
Delay 12000
End
EndIf
forever

Загони его сначала в Channel, а потом проверяй проигрывается ли он.
Читай про команды:
Playchannel
StopChannel
ResumeChannel
ChannelPlaying

PackegerX

14.09.2010 18:14

Ответ: Вопросы очередного новичка

Да в цикле но ведь после него идет

Код:

EndSound=PlaySound (GameOverSnd)

Delay 12000 - который приостанавливает цикл.

а далее конец игры.

давайте рассуждать:
SoundsOfLevel=PlaySound (LevelSound) - вне цикла начинает воспроизводить.

далее когда наступает событие GameOver=1 то должно выполняться StopChannel (SoundsOfLevel) а далее EndSound=PlaySound (GameOverSnd). Притом последнее выполняется а предпоследнее нет.
далее ждем 12000 и выходим.
Может ошибка в канале? или команда не работает:)
п.с. кстати это код отсюда.ЭТА ИГРА С ОТКРЫТЫМ КОДОМ НАЛЕТАЙТЕ (Как бы реклама)
ППС Заходите на сайт там обычно последние версии выкладываю.
ПППС КАК В БЛИЦЕ КОМЕНТЫ В несколько строк делать?

Dzirt

14.09.2010 18:23

Ответ: Вопросы очередного новичка

Ну могу с примера так сказать...
SoundsOfLevel=PlaySound (LevelSound)
не будет проигрыватся потому, что он почти сразу вырубается командой
StopChannel (SoundsOfLevel)
:)

Цитата:

ПППС КАК В БЛИЦЕ КОМЕНТЫ В несколько строк делать?

Используй не стандартный Ide....лично я пользовался "Ideal"...класная и удобная штука.

PackegerX

14.09.2010 18:57

Ответ: Вопросы очередного новичка

[quote=Dzirt;162055]Н
А если так:

Код:

...

LevelSound=LoadSound("Resources\LevelSound.mp3")

GameOverSnd=LoadSound("Resources\GameOver.wav")

...

SoundsOfLevel=PlaySound (LevelSound)

...

repeat

if playerdie=true then GameOver=1

...

If GameOver=1 Then

StopChannel (SoundsOfLevel)

EndSound=PlaySound (GameOverSnd)

Delay 12000:End:EndIf

forever

он не вырубается сразу, я был бы рад если б такое было он не выключается вообще. играет дальше тупо

Dzirt

14.09.2010 19:01

Ответ: Вопросы очередного новичка

Возможно у тебя код в два файла а переменная SoundsOfLevel не относится к глобальным.
Попробуй добавить в начало кода
Global SoundsOfLevel
а вообще...сейчас подожди минутку,я тебе семпл накатаю.

Код:

Graphics3D 800,600,32,2

SetBuffer BackBuffer()



LevelSound=LoadSound("kombo.ogg")

LoopSound LevelSound



GameOverSnd=LoadSound("gong.ogg")



SoundsOfLevel=PlaySound (LevelSound)





While Not KeyHit(57)

        Flip

        Text 10,10,"Press space to kill player"

Wend





;Вот ты нажал спейс и все нормально работает.....звук тот что был в лупе остановился

;а тот что должен игратся при смерти плеера играется.

GameOver=1



If GameOver=1 Then

        Cls

        StopChannel (SoundsOfLevel)



        Flip

        EndSound=PlaySound (GameOverSnd)

        Delay 12000

        End

EndIf

PackegerX

14.09.2010 19:05

Ответ: Вопросы очередного новичка

Цитата:

Сообщение от Dzirt (Сообщение 162066)

а вообще...сейчас подожди минутку,я тебе семпл накатаю. ок спс

[quote=Dzirt;162066]Возможно у тебя код в два файла (нет) а переменная SoundsOfLevel не относится к глобальным.

я тут подумал может это както связано с форматом файла wav - спокойно останавливаются, mp3 - почему то нет (судя по моему проекту)

ей не обязательно быть глобальной все без функций и в 1 файле :). хотя ща попробую
>нет глобальность не помогла. ща затестю вав кину вместо мр3
>>тоже самое(

Dzirt

14.09.2010 19:12

Ответ: Вопросы очередного новичка

Вложений: 1

смотри код више.
ну вот держи рар архив...у меня все нормально работает.
Вложение 11245
ток это.....звуки дежурные, не используй их в своих играх :)

PackegerX

14.09.2010 19:30

Ответ: Вопросы очередного новичка

Вобщем, я исправил только не понял почему так: когда воспроизводится больше 1 звука в канале, то командой Stopchannel завершается воспроизведение последнего звука, притом первый продолжает играть.

Код:

If EntityCollided (Playermain,5) Then MoveEntity Playermain,Rnd(-1,1),0,Rnd(-1,1):HealthPlayer#=HealthPlayer#-1:PlaySound(Sndship)

убрал SoundsOfLevel=PlaySound(Sndship) и стало норм.
Вобщем спасибо за помощь.

HolyDel

14.09.2010 21:22

Ответ: Вопросы очередного новичка

канал - ровно один звук. в нем никак не может быть больше одного звука. если у тебя играет куча звуков - значит насоздана куча каналов.

PackegerX

15.09.2010 14:18

Ответ: Вопросы очередного новичка

Цитата:

Сообщение от HolyDel (Сообщение 162098)

ок,

есть у кого нибудь русик для IDEal 0.8.94 ?

Reks888

15.09.2010 22:47

Ответ: Вопросы очередного новичка

Цитата:

Сообщение от PackegerX (Сообщение 162171)

есть у кого нибудь русик для IDEal 0.8.94 ?

Так его в природе нет

baton4ik

16.09.2010 00:17

Ответ: Вопросы очередного новичка

И он не нужен. Если программист не знает английский хотя бы на уровне "разобраться в иде", это плохой программист

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

Страница 4 из 4

Показывать 64 сообщений этой темы на одной странице