IPB

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в данную темуНачать новую тему
Стрельба из любого оружия., function
сообщение 29.10.2004, 10:38
Сообщение #1





Группа:
Сообщений: 0
Регистрация: --
Пользователь №:



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

(Выделенное число (20) должно быть всегда больше либо равно числу Patroni(1))
Код
dim Patroni(6,    20   )
patroni(1)=10        : `Количество патронов в обоиме.
patroni(3)=50        : `Время жизни патрона (В Экшанах такое не надо, а в аркадах надо.)
patroni(4)=10        : `Время между выстрелами
patroni(5)=1         : `Скорость полета патрона (Для тех же аркад: Снайперка или ракетница)
patroni(6)=30       : `Время перезарядки обоим (Если поставить на ноль, стреляет вечно!)


Снаряды, которые будут летать: Число 50, это с какого числа начинается номер обьекта патрона.
Код
for t=50 to 50+patroni(1)
make object sphere t,0.2
hide object t
next t


А это сама функия. Вызывается она просто Fire(X#,Y#,Z#,X2#,Y2#,Z2#).
Код
function Fire(X#,Y#,Z#,X2#,Y2#,Z2#)
if mouseclick() and life<=0
patroni(2)=Patroni(2)+1
position object patroni(2)+50,   X#,Y#,Z#
point object patroni(2)+50,       Х2#,Y2#,Z2#    
show object patroni(2)+50
patroni(2,patroni(2))=patroni(3)
life=patroni(4)
endif
for t=1 to patroni(1)
if patroni(2,t)>0
patroni(2,t)=patroni(2,t)-1
endif
next t
for t=1 to patroni(1)
if patroni(2,t)>0 then move object t+50,patroni(5) else hide object t+50
next t
if patroni(2)=patroni(1) then patroni(2)=0 : life=patroni(6)
if life>0 then life=life-1
`Programming by Patomkin
endfunction


Выделенные координаты (X#,Y#,Z#), Это от куда летит патрон, а (X2#,Y2#,Z2#) это куда должен лететь патрон.

Не пишите в Patroni(1) больших чисел, это может снять FPS. Если надо много патроновую пушку, лучше исправить в этой функции пару строк, и все будет ОК! (Ну или спросите у меня! =)))

Кому чего не понятно, обращайтесь! И пользуйтесь на здаровье! =))
Перейти в начало страницы
 
+Цитировать сообщение
Жук
сообщение 30.10.2004, 11:39
Сообщение #2


Активный участник
***

Группа: Пользователи
Сообщений: 137
Регистрация: 9.9.2004
Из: село Киев
Пользователь №: 48



Отличная функция!!Мне она очень понравилась.Спасибо тебе огромное!

Только вот я изменил количество обоймы до 15, а выстреливает всё равно только 10,потом идёт перезарядка... В чём проблема?


P.S:Вот это человек, сразу видно не жлоб!Не удерживает свой код при себе!(другим не в обиду!)
Перейти в начало страницы
 
+Цитировать сообщение
сообщение 30.10.2004, 11:47
Сообщение #3





Группа:
Сообщений: 0
Регистрация: --
Пользователь №:



Цитата
Отличная функция!!Мне она очень понравилась.Спасибо тебе огромное!

Пожалуйста... cool.gif

Цитата
Только вот я изменил количество обоймы до 15, а выстреливает всё равно только 10,потом идёт перезарядка... В чём проблема?

Точно! А я чегото не заметил... надо 4 строку с конца
Код
if patroni(2)=10 then patroni(2)=0 : life=patroni(6)

сменить на
Код
if patroni(2)=patroni(1) then patroni(2)=0 : life=patroni(6)

Я просто в ней недавно ковырялся, и наверно забыл вернуть обратно...
А все работает как надо? Ты ее где используешь? Шутер?

Цитата
P.S:Вот это человек, сразу видно не жлоб!Не удерживает свой код при себе!(другим не в обиду!)

Я ее вообщето написал для себя, потом самому понравилось и решил доделать для всех... Вот тока выложить забыл... rolleyes.gif пока ты не попросил...
Перейти в начало страницы
 
+Цитировать сообщение
Жук
сообщение 31.10.2004, 14:13
Сообщение #4


Активный участник
***

Группа: Пользователи
Сообщений: 137
Регистрация: 9.9.2004
Из: село Киев
Пользователь №: 48



Да всё работает как надо.Использую для шутера.
Перейти в начало страницы
 
+Цитировать сообщение
Sir Lesro
сообщение 23.11.2004, 17:56
Сообщение #5


Активный участник
***

Группа: Пользователи
Сообщений: 89
Регистрация: 15.11.2004
Из: Калмыкия, Элиста
Пользователь №: 131



Давольно простенько. Скажем даже больше - ламерски. rolleyes.gif
Без обид. ок?


--------------------
Программа делает то, что вы приказали ей сделать, а не то, что вы хотели, чтобы она сделала.
"Третий закон Грира"
Перейти в начало страницы
 
+Цитировать сообщение
сообщение 23.11.2004, 20:47
Сообщение #6





Группа:
Сообщений: 0
Регистрация: --
Пользователь №:



А для кого писалось? =)
Перейти в начало страницы
 
+Цитировать сообщение

Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



RSS Текстовая версия Сейчас: 21.9.2017, 22:34
 X 
Ссылки на работы форумчан:
1. Cайт по использованию 3D технологий
в образовании

2. 15 Defense. Underwater Battle

3. GlaZ в Steam Greenlight