forum.boolean.name - AudioSoft на Blitz'е

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

- Болтовня (http://forum.boolean.name/forumdisplay.php?f=25)

- - AudioSoft на Blitz'е (http://forum.boolean.name/showthread.php?t=389)

Цитата:

Originally posted by Kain@Jan 7 2006, 07:34 PM
Если совсем не понятен вопрос в письме , то кратко будет так :" Вы можете из_менять код форума ? "

отвечу я, поскольку за функциональность скриптов отвечаю я: да, мы можем изменять код форума и вслучае если много пользователей будут чем-то недовольны, то код будем менять, по желанию одного человека код изменен не будет...

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

:)

PS у нас, кстати, есть раздел по форуму, где можно высказать свои предложения (тут)... в случае недовольства реакцией администрации, можно отписаться тут...

:) :)

ответ на твой вопрос про flip 0 смотри на этой странице:
http://community.boolean.name/index.php?showtopic=52
|кнопка поиска в правом верхнем углу ;) |
Я лично недокументированные команды не находил, а читал о них в других источниках. /немецких энтузиастов и проч./

выбор 3д обекта можно делать через :
entitypickmode entity,2
camerapick (помойму так пишется комманда)
короче - ета камера возвращает ссылку на обект который находится на екране в заданых координатах :)

Извиняй проворонил твоё день варенье,тебе уже много нажелали поетому повторяться не буду (не люблю)
С днем рождения !!! !!! !!!
кстати у моего брата день варенье через 1 мес и 10 дней

Вопрос на завтра, почему ? действие:
1)после отпускания пр.кнопки мыши
2)поюлозить ей по екрану
3)зажимаю (и прижимаю её к стлоу) (мышку)
4)нажимаю пр.кнопку
5)происходит поворот поля
????????

Код:

While Not KeyHit(1)

        fps()

        povorot()

        UpdateWorld

        RenderWorld

        shinfo()

        Flip 

        Wend

End

;*************************Function************************



Function povorot()

 zs#=MouseZSpeed ()        

        If ZS=-1 Then zoom#=zoom#+0.1

        If ZS=1 Then zoom#=zoom#-0.1 

        If zoom#<0.5 Then zoom#=0.5

        If zoom#>1.5 Then zoom#=1.5

        If MouseDown(3)=True Then zoom#=1

 CameraZoom cam,zoom#

; xs=0



        If MouseDown(2) Then; вращение игрового поля

 

 xs=MouseXSpeed()

; ys=MouseYSpeed ()

 If GraphicsWidth() -1 <= MouseX() Then;переход границ экрана

         MoveMouse GraphicsWidth()-MouseX(),MouseY()        

         Else If MouseX() =< 0 Then 

         MoveMouse GraphicsWidth() -1,MouseY()

 End If 

 If GraphicsHeight() -1 <= MouseY() Then

         MoveMouse MouseX(),GraphicsHeight()-MouseY()

         Else If MouseY() <= 0 Then 

         MoveMouse MouseX(),GraphicsHeight()-1

 End If 

 rot_yl=rot_y

 rot_y=0

 If xs<0 Then rot_y=rot_y+(2-xs/30)

 If xs>0 Then rot_y=rot_y-(2+xs/30)

; If ys<0 Then ya=ya+(1-ys/50)

; If ys>0 Then ya=ya-(1+ys/50)

 If xs<>0 Then

         xsl=xs 

         TurnEntity cam_pivot,0,rot_y,0

 End If



        End If

End Function 



Function shinfo()

        Text 10,11,"XS  " + xsl+"Y  " +rot_yl

        Text 10,51,"fps: "+fps +"  Zoom=  " +zoom#

End Function 



Function fps()

        fps_buffer1%=fps_buffer1%+1

        If MilliSecs()-fps_buffer2%>1000 Then:fps_buffer2%=MilliSecs():fps%=fps_buffer1%:fps_buffer1%=0:End If

End Function

и ещё переменные xsl и rot_yl всегда показывают НОЛЬ

про Flip, пытаюсь понять читаю не последний раз, надеюсь догнать
про твою работу потом подумаем(ты же наверно хочешь програмить?)...

impersonalis дай ссылку на етих энтузиастов (плиз.) :rolleyes: :rolleyes:

http://www.chat-blitz.de/forum
http://www.project-blitz.chat-blitz.de/ind...p?page=tutorien
к примеру, ну и конкретные представители новости сообщают частенько.

(я щас немног нетрезвый)
вынеси смещение мышки в общий цыкл

я об етом:
If GraphicsWidth() -1 <= MouseX() Then;переход границ экрана
MoveMouse GraphicsWidth()-MouseX(),MouseY()
Else If MouseX() =< 0 Then
MoveMouse GraphicsWidth() -1,MouseY()
End If
If GraphicsHeight() -1 <= MouseY() Then
MoveMouse MouseX(),GraphicsHeight()-MouseY()
Else If MouseY() <= 0 Then
MoveMouse MouseX(),GraphicsHeight()-1
End If

Да зря просил после того как увидел немиш сразу перехотел , я и с английским не дружу а тут и не он!!! потом может как нить.....(думал фигня что даже не англицкий)
Но фсе равно пасибо .

jimon

Цитата:

вынеси смещение мышки в общий цыкл

Не помогло (и в цикл функциии и общий, ладно потом разберемся) :dontknow:

я же тебе написал как делать через movemouse на центр екрана... чем тебя тот вариант неустраивал ?

попробую,но вообще-то я хотел разобраться, :rolleyes:
я счас уберу: про переход екрана и смещение мыши.
там ведь есть две переменные которые должны очищать значения... :dontknow:

вроде решил проблемы :
movemouse вроде не подходит (буду думать),
1)её надо ставить после MouseXSpeed (),
иначе скорость поворота = 0
2)я буду использовать перемещение мышы(будет ченить передвигать(курсор),
делать ходы,срабатывать при наведении...)
возможно в функции пр.кнопки буду запоминать тек.коор.,
а при выходе возвращать на место(но помойму ето не логично)

способ который использовал я вроде етих минусов не имеет
(хотя могут быть другие - не знаю, это же начало)
но тебе тенкс :bravo: ,так ты меня заставляешь думать по другому
(я увидел что, ни твой, ни мой, способ не влияет на ситуацию...хотя
изночально надо было смотреть с другого конца т.к. происходил TurnEntity
надо было разбираться кто дал ему право,быстрее бы исправил ошибку
я эту ошибку называю "не явную" т.к. пока не могу на
лету исправлять логич ошибки :)

пока что и movemouse и мой способ используется что б не достигнуть край экрана(тупик) при повороте поля

нули были в переменных т.к. они были локальными (когда сделал глоб. , нашел как все исправить
кстати команда(или как правильнее - функция ? поправь) movemouse
делает как бы физич. смещ. мыши т.е. MouseXSpeed ()
подпрыгивало до 500-600(ето на моем железе) , я вручную разгонял до 400 с хвостиком

сейчас начну пробовать camerapick...уже чувствую вопросов не избежать B)

можно ли это как-нибудь упростить

Код:

Function effect()

        CameraPick(cam,MouseX(),MouseY())

        If *(PickedEntity()<>0) And (Picked=0) 

;1а)часть: мышь над шариком ,подсветили шарик (фокус) с0наШ

 *Picked=PickedEntity()

 *EntityColor Picked,120,255,120

        End If *

        If *((PickedEntity()=0) And (Picked<>0))Or((PickedEntity()<>0) And (Picked<>PickedEntity())) 

;1б)часть: мышка не над шариком (фокус потерян) *сШна0 

;2б)часть: мышка не успела соти с шарика и уже над другим шариком *сШ1наШ2 

;(новый фокус,без потерь) снимаем подсветку PS(вместо подсветки -функция)

 *EntityColor Picked,255,120,120

 *Picked=0

        End If *

End Function

основное это условие...

пишу прямо на форуме ...

Код:

Function effect()

CameraPick(cam,MouseX(),MouseY())

If (PickedEntity()<>0) And (Picked=0) 

;1а)часть: мышь над шариком ,подсветили шарик (фокус) с0наШ

 Picked=PickedEntity()

 EntityColor Picked,120,255,120

If PickedEntity()<>0 then 

;1б)часть: мышка не над шариком (фокус потерян) сШна0 

;2б)часть: мышка не успела соти с шарика и уже над другим шариком сШ1наШ2 

;(новый фокус,без потерь) снимаем подсветку PS(вместо подсветки -функция)

 EntityColor Picked,255,120,120

 Picked=0

End If 

end if

End Function

я не знаю... но по идее должно работать