![]() |
Re: Анимация (и еще пару вопросов)
Maestro
millisecs() ето просто таймер, он работает все время :) никогда не обнуляется к примеру : в начале проги пишем ms = millisecs() ... в цикле work = Millisecs() - ms print "programm work time : "+work ... |
Re: Анимация (и еще пару вопросов)
jimon, не он обнуляется иногда.)
|
Re: Анимация (и еще пару вопросов)
Гм. странные она значения принимает.
Скопируйте это в блиц: While Not KeyHit(1) Print MilliSecs() Wend Там какие-то гиганские цыферки получаются... почему он не с нуля считает? |
Re: Анимация (и еще пару вопросов)
Maestro
оно начинает с нуля ... когда винда стартует (поидее) хотя фиг его знает что собсно оно щитает ps. из справки модуля blitzmax'а : "Get millisecond counter Returns: Milliseconds since computer turned on." так что оно возвращает количество милисек со времени врубления компа |
Re: Анимация (и еще пару вопросов)
Гыыы. у меня за миллиард перевалило .)))
может ты знаешь как решить одну проблемку? Короче проблема у меня со взрывом. Надо чтобы при столкновении корабль изчезал, проигрывался взрыв, потом корабль оживал... впринципе я все это сделал, НО единственнй способ, которым я смог сделать взрыв - это постоянно проигрывать анимтекстуры на модели, а саму модель при столкновении показывать, и при окончании кадров в ленте (некстуре) опять прятать... поэтому при столкновении анимация проигрывается не с начала, а как захочет... Может можно как-то подругому сделать... или этот способ модфицировать... |
Re: Анимация (и еще пару вопросов)
1000000000/1000 = 1000000 секунд
1000000/3600 = 277 часов 277/24 = 11,5 суток тоесть у тя полторы недели комп включен. вывод: ты гонишь. или команда показывает не "количество милисек со времени врубления компа" |
Re: Анимация (и еще пару вопросов)
Цитата:
|
Leito, упс. обсчитался. не миллиард, а 100 миллионов .))
Фух. Со взрывом разобрался. Так что если кто-то хотел помочь, обломитесь .) сам сделал.) Как только будут звуки вылажу демку (правда она отличается от прошлой практически только внешним видом:)) |
Re: Анимация (и еще пару вопросов)
LaZZZeR, рекорд! Millisecs()=2 милиарда!
довайте соревнование устроим! по времени включения компа)) причем не перезагружая его! |
Re: Анимация (и еще пару вопросов)
Leito, ага. только подтверждать скриншотом...
|
Re: Анимация (и еще пару вопросов)
Вот наконец добрался до звуков... что-то у меня не получается с первым же звуком. Проблема вот в чем: надо, чтобы при навидении на кнопку проигрывался один звук, при нажатии другой... ну короче все как положено. Но не могу реализовать. У меня есть функция для кнопки:
Код:
Function RefreshButton(ImBtn,x,y,txt$,n) Код:
Function RefreshButton(ImBtn,x,y,txt$,n) ЗЫ: и почему не грузятся шрифты в названии которых присутствует "_"? |
Re: Анимация (и еще пару вопросов)
Цитата:
|
Re: Анимация (и еще пару вопросов)
IGR, ыы. если ставить sou=0, при наведении курсора на кнопку вообще не будит никаких звуков, а при нажатии на кнопку (если не отпускать ЛКМ) звук проигрывается вечно.
А нет команды типа MouseDown(1), только чтобы проверялось не нажатие, а отжатие после нажатия? |
Re: Анимация (и еще пару вопросов)
тогда зделай две переменных для звуков sou1 , sou2 !!
и попробуй так : Function RefreshButton(ImBtn,x,y,txt$,n) mx=MouseX(): my=MouseY() MHit=MouseDown(1) If RectsOverlap(x,y,ImageWidth(ImBtn),ImageHeight(ImB tn),mx,my,1,1) sou1=1 f=1 y2=0 If MHit=True sou2=1 f=2 y2=2 Button(n)=1 EndIf Else f=0 y2=0 EndIf If sou1=1 Then PlaySound SelectBut sou1=0 EndIf If sou2=1 Then PlaySound ClickBut sou2=0 EndIf DrawImage ImBtn,x,y,f Color 0,0,0 Text x+0.5*(ImageWidth(ImBtn)+4-Len(txt$)*FontHeight()*0.5),y+0.5*(ImageHeight(ImB tn)-4-FontHeight())+y2,txt$ End Function |
Re: Анимация (и еще пару вопросов)
Да нет. я так тоже пытался. Смотри. Мы пишем
If sou1=1 Then PlaySound SelectBut sou1=0 EndIf Но тут же проверяем, наведен ли курсор на кнопку, получаем положительный ответ, и... If RectsOverlap(x,y,ImageWidth(ImBtn),ImageHeight(ImB tn),mx,my,1,1) sou1=1 f=1 ... Следовательно звук каждый раз и проигрывается. |
Часовой пояс GMT +4, время: 02:50. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot