forum.boolean.name

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)

Reizel 16.01.2010 15:10

Ответ: Вопросы очередного новичка
 
EaNub я же тебе написал ? Что тебе не ясно? Сморти проигрывается ли канал, если нет то нагружай канал звуком :):)

RlexGm 16.01.2010 15:46

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

Сообщение от Павел (Сообщение 133696)
Сморти проигрывается ли канал, если нет то нагружай канал звуком :):)

ты же писал что сделать через тип(я думаю разницы нету) а вот про каналы 1 раз слышу=)

Reizel 16.01.2010 15:56

Ответ: Вопросы очередного новичка
 
Еа, а у тебя юниты или кто там, разве не через типы?
а если в первый раз про каналы слышишь - поясню
Команда PlaySound возвращает хэндл канала, то есть так:
Sound=PlaySound(MtSound)
Здесь Sound - это канал. Теперь этим каналом можно управлять:
ChannelVolume(Sound,Volume#)
Volume - в пределах от 0 до 1, это громкость канала
ChannelPlaying(Sound) - вернет 0, если твой канал Sound не проигрывается, и 1, если это не так
ChannelPitch(Sound,Pitch) - с этим я сам не разобрался, но это регулирует частоту звука(тон, высоту пргоще говоря)
Ну остальное в справке прочтешь

RlexGm 16.01.2010 16:08

Ответ: Вопросы очередного новичка
 
что то не могу разобраться, мож кодик подкинеш?)

KingMaks 16.01.2010 16:21

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

Сообщение от EaNub (Сообщение 133707)
что то не могу разобраться, мож кодик подкинеш?)

Между вашими сообщениями 10 минут разници
Ты даже не попробовал разобраться:)

RlexGm 16.01.2010 17:36

Ответ: Вопросы очередного новичка
 
10 мин это далеко не мало=)
мож всетаки кто нить даст код?

KingMaks 16.01.2010 17:40

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

Сообщение от EaNub (Сообщение 133715)
10 мин это далеко не мало=)
мож всетаки кто нить даст код?


я ещо со звуком не работал но думаю так:
Код:

if ChannelPlaying(шаги) = 0 then
PlaySound(шаги)
 end if


Morganolla 16.01.2010 17:45

Ответ: Вопросы очередного новичка
 
А где у тебя звук то отключается? Нигде?

KingMaks 16.01.2010 17:47

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

Сообщение от Morganolla (Сообщение 133718)
А где у тебя звук то отключается? Нигде?

я имел ввиду:

Код:

if keydown(200) then
 if ChannelPlaying(шаги) = 0 then
PlaySound(шаги)
 end if
 end if

или там если анимация хотьба то .. и вставлять в тот код

RlexGm 18.01.2010 11:02

Ответ: Вопросы очередного новичка
 
А можно как нибудь сделать тыкание по объекту, если карта сделана в Cartography shop?
я пробывал чето не получилось(:
If Instr(name$,"knon"); определяем кнопку...
EntityPickMode child, 2
NameEntity child,"knone" ; именуем объект
EndIf


If KeyHit(Use) = True
enti = CameraPick(camplayer,MouseX(),MouseY())
If enti
If EntityDistance(enti, player) < 20
names$ = EntityName(enti)
If names = "knone"
и сюда действие
EndIf
EndIf
....
EndIf

и нечего не происходит когда по нему тыкаеш, помогите!

H@NON 18.01.2010 11:45

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

If Instr(name$,"knon"); определяем кнопку...
EntityPickMode child, 2
NameEntity child,"knone" ; именуем объект
EndIf

Второй раз незачем именовать, ведь чилд уже изначально был назван "knon", вот его и ищи. Тебе щас нужно продебажить код на прохождение условий, просто в каждое условие вставь строку
Код:

If Instr(name$,"knon"); определяем кнопку...
DebugLog "True"
...
 EndIf

и запусти в debug режиме. Если будет писаться в текстовом поле "True", значит он прошел это условие и ты будешь знать в каком месте не сходиться.

RlexGm 18.01.2010 16:18

Ответ: Вопросы очередного новичка
 
( у меня дебагер показывает только главный код, а это у меня все в инклудах(
вообщем вопрос таков:
есть код определения отдельных частей карты:

Function OprObj(ent)
For i=1 To CountChildren(ent)
child=GetChild(ent,i)
name$=Lower(EntityName(child))



If Instr(name$,"knon")
EntityPickMode child, 2
EndIf


Next
End Function

и код для нажатия

If keyHit(use) = True
ent = CameraPick(camplayer,MouseX(),MouseY())

If ent

If EntityDistance(ent, player) < 100
name$ = EntityName(ent)

If name = "knon"

EndIf
EndIf
EndIf
EndIf

И так вопрос господа: как совместить эти два кода?

Hurrit 18.01.2010 17:32

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

Reks888 18.01.2010 19:14

Ответ: Вопросы очередного новичка
 
А что "супер управление мышей" уже закрыли? Я только боян нарыл на тему :(

ABTOMAT 18.01.2010 19:18

Ответ: Вопросы очередного новичка
 
Закрыли, матершынников забанили
И вместо того, чтобы причитать "Где админы??" могли бы сами сообщить лично одному из старейшин/админов.
Даже кнопка такая есть около каждого поста, чего-то никто ими не пользуется


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

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot