forum.boolean.name - Смена Weapon"нов

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

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

- - Смена Weapon"нов (http://forum.boolean.name/showthread.php?t=5617)

Смена Weapon"нов

:) Вот выкладываю исходник)))Может кто подправит,улучшит код:)

Код:

;RaYEngineX - Weapons Module

 

;gun1_hud=LoadImage("data\textures\hud\weapon\pm.bmp")

;ScaleImage gun1_hud,0.4,0.4

Global GUN3_LOOPSOUND

Global GUN4_LOOPSOUND

Global gun1

Global gun2

Global gun3

Global gun4

Global gun1_show=1

Global gun2_show=1

Global gun3_show=1

Global gun4_show=1

Global gun1_pickup=1

Global gun2_pickup=1

Global gun3_pickup=1

Global gun4_pickup=1

 

 

Global gun1_patron=42

Global gun2_patron=20

Global gun3_patron=96

Global gun4_patron=367

 

Global gun1_magazin=GetIniItem$("Data\cfg\weapons.ini","gun1","magazine")

Global gun2_magazin=GetIniItem$("Data\cfg\weapons.ini","gun2","magazine")

Global gun3_magazin=GetIniItem$("Data\cfg\weapons.ini","gun3","magazine")

Global gun4_magazin=GetIniItem$("Data\cfg\weapons.ini","gun4","magazine")

Global gun1_info=GetIniItem$("Data\cfg\weapons.ini","gun1","info")

Global gun2_info=GetIniItem$("Data\cfg\weapons.ini","gun2","info")

Global gun3_info=GetIniItem$("Data\cfg\weapons.ini","gun3","info")

Global gun4_info=GetIniItem$("Data\cfg\weapons.ini","gun4","info")

Global gun1_hud=LoadImage("data\textures\hud\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun1","image"))

Global gun2_hud=LoadImage("data\textures\hud\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun2","image"))

Global gun3_hud=LoadImage("data\textures\hud\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun3","image"))

Global gun4_hud=LoadImage("data\textures\hud\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun4","image"))

 

Global pistol_shot=LoadSound("data\sound\weapon\pm\shot.ogg")

Global reload=LoadSound("data\sound\weapon\pm\reload.ogg")

 

Global relaod_delay_gun1=0

Global relaod_delay_gun2=0

Global relaod_delay_gun3=0

Global relaod_delay_gun4=0

 

Global gun_select=0

 

;Global shot_sp=LoadSprite ("data\textures\fx\shot.jpg",1)

;EntityParent shot_sp,cam

 

 

 

Function Weapon_Load()

gun1=ALoadAnimMesh("DATA\MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun1","model")+"\model.b3d",0,2)

PositionEntity gun1,0,-10,0

ScaleEntity gun1,.5,.5,.5

RotateEntity gun1,-90,0,-180

LoadAnimSeq gun1, "DATA\MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun1","model")+"\idle.b3d"

LoadAnimSeq gun1, "DATA\MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun1","model")+"\shot.b3d"

LoadAnimSeq gun1, "DATA\MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun1","model")+"\reload.b3d"

Animate gun1, 1,.3, 1

EntityParent gun1,cam

PositionEntity gun1,-1,-4,-15

 

gun2=ALoadAnimMesh("DATA\MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun2","model")+"\model.b3d",0,2)

PositionEntity gun2,0,-10,0

ScaleEntity gun2,.5,.5,.5

RotateEntity gun2,-90,0,-180

LoadAnimSeq gun2, "DATA\MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun2","model")+"\idle.b3d"

LoadAnimSeq gun2, "DATA\MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun2","model")+"\shot.b3d"

LoadAnimSeq gun2, "DATA\MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun2","model")+"\reload.b3d"

Animate gun2, 1,.3, 1

EntityParent gun2,cam

PositionEntity gun2,-1,-4,-15

;AK 47

gun3=ALoadAnimMesh("DATA\MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun3","model")+"\model.b3d",0,2)

PositionEntity gun3,0,-10,0

ScaleEntity gun3,.5,.5,.5

RotateEntity gun3,-90,0,-180

LoadAnimSeq gun3, "DATA\MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun3","model")+"\idle.b3d"

LoadAnimSeq gun3, "DATA\MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun3","model")+"\shot.b3d"

LoadAnimSeq gun3, "DATA\MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun3","model")+"\reload.b3d"

Animate gun3, 1,.3, 1

EntityParent gun3,cam

PositionEntity gun3,-1,-4,-15

;Groza

gun4=ALoadAnimMesh("MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun4","model")+"\model.b3d",0,1)

PositionEntity gun4,0,-10,0

ScaleEntity gun4,.5,.5,.5

RotateEntity gun4,-90,0,-180

LoadAnimSeq gun4, "MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun4","model")+"\idle.b3d"

LoadAnimSeq gun4, "MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun4","model")+"\shot.b3d"

LoadAnimSeq gun4, "MODEL\weapons\"+GetIniItem$("Data\cfg\weapons.ini","gun4","model")+"\reload.b3d"

Animate gun4, 1,.3, 1

EntityParent gun4,cam

PositionEntity gun4,-1,-4,-15

HideEntity gun1

HideEntity gun2

HideEntity gun3

HideEntity gun4

End Function 

 

 

Function UpdateWeapon()

MHIT=MouseHit(1)

RELOAD_KEY=KeyHit(19)

MDOWN=MouseDown(1)

 

If relaod_delay_gun1=0 And relaod_delay_gun2=0 And relaod_delay_gun3=0 And relaod_delay_gun4=0 Then player_dblxanie=player_dblxanie+1

If player_dblxanie=>200 Then player_dblxanie=1

If player_dblxanie=190 Then Animate gun1, 1,.3, 1

If player_dblxanie=190 Then Animate gun2, 1,.3, 1

If player_dblxanie=190 Then Animate gun3, 1,.3, 1

If player_dblxanie=190 Then Animate gun4, 1,.3, 1

If relaod_delay_gun1>0 Then relaod_delay_gun1=relaod_delay_gun1-1

If relaod_delay_gun2>0 Then relaod_delay_gun2=relaod_delay_gun2-1

If relaod_delay_gun3>0 Then relaod_delay_gun3=relaod_delay_gun3-1

If relaod_delay_gun4>0 Then relaod_delay_gun4=relaod_delay_gun4-1

;(GUN1)

If gun_select=1 And gun1_show=1 And gun1_patron>0 And gun1_magazin=0 And RELOAD_KEY=1 And gun1_pickup=1 Then

If gun1_patron>12 Then gun1_magazin=12

If gun1_patron<12 Then

gun1_magazin=gun1_patron

gun1_patron=0

EndIf

PlaySound reload

Animate gun1, 3,.65,3

relaod_delay_gun1=140

EndIf

If gun_select=1 And gun1_show=1 And MHIT=1 And gun1_magazin>0 And gun1_pickup=1 And relaod_delay_gun1=0 Then

If gun1_patron>0 Then gun1_patron=gun1_patron-1

gun1_magazin=gun1_magazin-1

PlaySound pistol_shot

Animate gun1, 3,1, 2

EndIf

 

;(GUN2)

If gun_select=2 And gun2_show=1 And gun2_patron>0 And gun2_magazin=0 And RELOAD_KEY=1 And gun2_pickup=1 Then

If gun2_patron>8 Then gun2_magazin=8

If gun2_patron<8 Then

gun2_magazin=gun2_patron

gun2_patron=0

EndIf

PlaySound reload

Animate gun2, 3,.65,3

relaod_delay_gun2=110

EndIf

If gun_select=2 And gun2_show=1 And MHIT=1 And gun2_magazin>0 And gun2_pickup=1 And relaod_delay_gun2=0 Then

If gun2_patron>0 Then gun2_patron=gun2_patron-1

gun2_magazin=gun2_magazin-1

PlaySound pistol_shot

Animate gun2, 3,1, 2

 

EndIf

 

;(GUN3)

;ZOOM

gun3_zoom=0

gun3_zoom=MouseDown(2)

If gun_select=3 And gun3_show=1 And gun3_zoom=1 Then PositionEntity gun3,5.5,-.25,-11:show_cr2=1:HideEntity gun3:CameraZoom cam,5

If gun_select=3 And gun3_show=1 And gun3_zoom=0 Then PositionEntity gun3,0,-10,0:show_cr2=0:ShowEntity gun3:CameraZoom cam,1

;?????????? ??? ?????(???? ?? ????????????)

GUN3_LOOPSOUND=GUN3_LOOPSOUND+1

If GUN3_LOOPSOUND>8 Then GUN3_LOOPSOUND=1

;??????????? ????????

If gun_select=3 And gun3_show=1 And gun3_patron>0 And gun3_magazin=0 And RELOAD_KEY=1 And gun3_pickup=1 Then

If gun3_patron>30 Then gun3_magazin=30

If gun3_patron<30 Then

gun3_magazin=gun3_patron

gun3_patron=0

EndIf

PlaySound reload

Animate gun3, 3,.55,3

relaod_delay_gun3=190

EndIf

If gun_select=3 And gun3_show=1 And MDOWN=1 And GUN3_LOOPSOUND=1 And gun3_magazin>0 And gun3_pickup=1 And relaod_delay_gun3=0 Then

If gun3_patron>0 Then gun3_patron=gun3_patron-1

gun3_magazin=gun3_magazin-1

 

 

PlaySound pistol_shot

 

Animate gun3, 3,1, 2

 

EndIf

;(GUN3)

;(GUN4)

;ZOOM

gun4_zoom=0

gun4_zoom=MouseDown(2)

If gun_select=4 And gun4_show=1 And gun4_zoom=1 Then PositionEntity gun4,5.5,-18,4

If gun_select=4 And gun4_show=1 And gun4_zoom=0 Then PositionEntity gun4,0,-15,0

;?????????? ??? ?????(???? ?? ????????????)

GUN4_LOOPSOUND=GUN4_LOOPSOUND+1

If GUN4_LOOPSOUND>8 Then GUN4_LOOPSOUND=1

;??????????? ????????

If gun_select=4 And gun4_show=1 And gun4_patron>0 And gun4_magazin=0 And RELOAD_KEY=1 And gun4_pickup=1 Then

If gun4_patron>30 Then gun4_magazin=30

If gun4_patron<30 Then

gun4_magazin=gun4_patron

gun4_patron=0

EndIf

PlaySound reload

Animate gun4, 3,.55,3

relaod_delay_gun4=190

EndIf

If gun_select=4 And gun4_show=1 And MDOWN=1 And GUN4_LOOPSOUND=1 And gun4_magazin>0 And gun4_pickup=1 And relaod_delay_gun4=0 Then

If gun4_patron>0 Then gun4_patron=gun4_patron-1

gun4_magazin=gun4_magazin-1

 

 

PlaySound pistol_shot

 

Animate gun4, 3,1, 2

 

EndIf

 

 

 

If gun_select=1 And gun1_show=1 And gun1_pickup=1 Then

ShowEntity gun1

HideEntity gun2

HideEntity gun3

HideEntity gun4

EndIf 

If gun_select=2 And gun2_show=1 And gun2_pickup=1 Then

ShowEntity gun2

HideEntity gun1

HideEntity gun3

HideEntity gun4

EndIf 

If gun_select=3 And gun3_show=1 And gun3_pickup=1 Then

ShowEntity gun3

HideEntity gun1

HideEntity gun2

HideEntity gun4

EndIf

If gun_select=4 And gun4_show=1 And gun4_pickup=1 Then

ShowEntity gun4

HideEntity gun1

HideEntity gun3

HideEntity gun2

EndIf

If KeyHit(2) Then gun_select=1

If KeyHit(3) Then gun_select=2

If KeyHit(4) Then gun_select=3

If KeyHit(5) Then gun_select=4

If MouseHit(3) Then gun_select=4

If KeyHit(15)

If gun1_show=0 And gun2_show=0 And gun3_show=0 And gun4_show=0

gun1_show=1

gun2_show=1

gun3_show=1

gun4_show=1

Else

gun1_show=0

gun2_show=0

gun3_show=0

gun4_show=0

EndIf

EndIf

If gun1_pickup=0

HideEntity gun1

EndIf

If gun2_pickup=0

HideEntity gun2

EndIf

If gun3_pickup=0

HideEntity gun3

EndIf

If gun4_pickup=0

HideEntity gun4

EndIf

If gun1_show=0

HideEntity gun1

EndIf

If gun2_show=0

HideEntity gun2

EndIf

If gun3_show=0

HideEntity gun3

EndIf

If show_cr2=1 And gun_select=3

HideEntity gun3

EndIf

If gun4_show=0

HideEntity gun4

EndIf

 

End Function

Сразу говорю код не тестил может даже что то упустил!
Кому не лень пользуйтесь!))))

Ответ: Смена Weapon"нов

Как всегда, возжигаешь:

Код:

;RayEngineX

А не проще ли было бы некоторые данные (pickup, show, patron) внести в массив? ;-)

Re: Ответ: Смена Weapon"нов

А не проще ли было бы некоторые данные (pickup, show, patron) внести в массив? ;-)

[/quote]
НУ каму как!:)

Ответ: Смена Weapon"нов

оооооййййй, ... очень очень плохой код имхо

Re: Смена Weapon"нов

Да я знаю что плохой)))) еслиб он был хороший яб не выкладывал его!Вообще я ща пищу новый код оружия который реал тайм работает тоесть код я написал - вот и всё в папке cfg\weapons\ создал файл cfg.ini хотя сделаю что он сам создовался и там в этой же папке создал файл ak47.ini в этом файле создал все даные о вепоне ак47 тоесть модель инфу сокок потрон мощь и т.д и в файле cfg.ini инклужу ak47.ini вот и всё игра сама считывает данные а саму вепону добовлять игроку через квест или купить у продовца!

Ответ: Смена Weapon"нов

А нах галимый код выкладывать со словами "вот вам люди. пользуйтесь" ? Человек неопытный может подумать, что этот код нормальный и заюзает его...

Re: Смена Weapon"нов

Ну воопервы человеку не опытныму это подайдет так как этот код рабочий!

Ответ: Смена Weapon"нов

Код называецца "смерть перфомансу"!

Ответ: Смена Weapon"нов

Да нафиг! 300 строк для смены оружия...

Цитата:

Ну воопервы человеку не опытныму это подайдет так как этот код рабочий!

Цитата:

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

Re: Ответ: Смена Weapon"нов

Цитата:

Сообщение от Raiter (Сообщение 75044)

Да нафиг! 300 строк для смены оружия...

Я его протестил уже!Всё работает только надо модельки с анимацией и ini.bb

Ответ: Смена Weapon"нов

ЖЖошь. Типы умеещь использовать?

Код:

Const MAX_WEAPONS=10

Dim Weapons.TWeapon(MAX_WEAPONS)



Type TWeapon

End Type



Type TWeaponPickup

End Type



Type TWeaponAmmoPickup

Ответ: Смена Weapon"нов

я так понял он решил похвастаться но как сказали что это не код,а хз что то сразу оправдываться типа я знаю.
а зачем вопще писать плохой и сложный код?

Ответ: Смена Weapon"нов

Чего до___лись до человека? Пишет как умеет, делится кодом. Я заметил странную тенденцию нападать на неопытных, обсерать их и унижать на этом форуме. А про типы знают не все. Начинающие уж точно- не знают. Раз уж такие умные напишите в теме свои менеджеры оружия. А мы посмотрим. Да и человек чему-нибудь понаучится.

Ответ: Смена Weapon"нов

Цитата:

Сообщение от dimanche13 (Сообщение 75060)

Его никто не унижает и не обсирает. Просто зачем забивать форум ненужными кодами которые все равно никто не будет использовать? И лучше бы он этот код выложил на своём сайте(а он у него 100% есть) а сайт поставил в подпись. ;)

Re: Ответ: Смена Weapon"нов

Цитата:

Сообщение от dimanche13 (Сообщение 75060)

СПАСИБА)!
Да и правда раз вы такие крутые покажите на что способны!:-)

Ответ: Смена Weapon"нов

Цитата:

А про типы знают не все. Начинающие уж точно- не знают. Раз уж такие умные напишите в теме свои менеджеры оружия. А мы посмотрим. Да и человек чему-нибудь понаучится.

1 Если человек не умеет пользоваться типами, ему рано думать о смене оружия. Аналогия из жизни: если ты не умеешь ездить на велосипеде, нефиг садиться за руль мотоцикла.
2 Подобные системы , только нормально сделанные, неоднократно выкладывались как на форуме, так и в журнале Меркулова.
Для опытного кодера они бесполезны, для начинающих нужны только для того, чтобы научиться. В приведенном выше коде учиться нечему - там все сделано через правое полупопие.

Ответ: Смена Weapon"нов

tormoz +1
Такие вещи я считаю нужно делать самому. Новичку будет больше опыта если он это сам сделает. Да и по большей части может выйти так: новичок возьмёт твой код, попробует привинтить к своей игре, у него не получится в силу того, что код у него представляет ещё более худшую кашу(думаю все помнят себя в те годы), забьёт на него и начнёт писать своё(единственная возможная польза).
2 Genius: Надо заметить что года 2 назад(когда я был ньюбом), у меня код представлял примерно тоже самое. Не переставай что то делать, но не всё выкладывай.;)

Ответ: Смена Weapon"нов

Цитата:

Сообщение от dimanche13 (Сообщение 75060)

Почему бы и нет.?, если человек выкладывает говно код- кому он нах нужен? - скажете новичкам, да новичкам нужно юзате хелп по полной.
ЗЫ\ если не согласен, представь что будут создовать темы "это создал !Я!", ТЫ ОТКРЫВАЕШ, КАЧАЕШЬ- а там кубик крутиться:-D , больно нужен этот кубик;)

Я не отрицаю что такое проходят все, но это не значит что нада сразу лить на форум!.

Ответ: Смена Weapon"нов

FDsagizi + 1

Ну челокек решил, что написал мегакод :) Ну бывает. Радость и гордость переполняли его и он захотел поделится со всеми. Тут ему сказали, что это гавнокод. А он начинает "Сделайте лучше!". Дык ведь и делаем, только не выставляем на всеобщее обозрение... Если человек не глуп, то он сделает выводы :)

Re: Смена Weapon"нов

Да и этот код я сделал для начинающих что б они как вы выражаетесь кубики не делали!

Ответ: Смена Weapon"нов

А я ещё имел где-то в глубине души надежду, что общаюсь с адекватным, возможно даже умным человеком :) Оказалось - нет. Скорее с неадекватным малолетним психом :lol:

ЗЫЖ Продолжим общение, после того как выйдеш из бани :))))

Ответ: Смена Weapon"нов

Да-да. Вот такие мы все возникающие и исчезающие и снова возникающие :)

Re: Смена Weapon"нов

Я в отличии от некоторых блиц сам учил без инета так как инет я поставил месяц назад!Млин и тут на тебе обасрали с ног до головы!

Ответ: Смена Weapon"нов

Цитата:

Не говори о том, чего не знаеш. Блиц я учил методом тыка, проб и ошибок + справка и стандартные блицовские семплы :)

Цитата:

Вот что с луюдми делается млин!Ни помощи один вред- маральный!

Подай на меня в суд :) За нанисение морального ущерба :)

ЗЫЖ 2 Модеры: Флуд уберу сам :) Потом сам поудаляю свои сообщения...

Re: Ответ: Смена Weapon"нов

Цитата:

Сообщение от Raiter (Сообщение 75285)

А я лиш методо тыка без сеймплов!

Re: Смена Weapon"нов

И мультиплеер я в отличии от некоторых сам делал без всяческих либ!

Ответ: Смена Weapon"нов

Цитата:

А я лиш методо тыка без сеймплов!

Я за тебя рад :)

Цитата:

И мультиплеер я в отличии от некоторых сам делал без всяческих либ!

Да. Думаю тебе нужно отвести специальную страничку в интернете. И посылать туда всех, что бы брали пример. А ещё виртуальный памятник поставить и доску увжения нарисовать :)

А вообще ты о чем?

Цитата:

Вот что с луюдми делается млин!Ни помощи один вред- маральный!

Сдесь тебе не помогут. Ищи помощи на форуме психоаналитиков и психиатров. А так же отведай их в реале....

Re: Смена Weapon"нов

Да ваще я ведь с тобой щас норм пытался говорить!А ты!

Ответ: Смена Weapon"нов

8) А я ещё с кубиками балусь... Тока запаралаксенными.. :rolleyes:

Ответ: Смена Weapon"нов

Цитата:

Да ваще я ведь с тобой щас норм пытался говорить!А ты!

Да-да. Я с радостью иду на контакт с людьми, которые называют меня

Цитата:

говноеды в жопу рвущиеся!

Цитата:

засранцы!

Re: Смена Weapon"нов

Типа извени!

Ответ: Смена Weapon"нов

Типа тема закрыта.

Genius бан на 10 суток за "говноедов и засранцев"

Ответ: Смена Weapon"нов

Цитата:

Genius бан на 10 суток

Типа не вышло, "Глава Проекта" живее живых.

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

Просто, имхо, этим примером вы даете понять народу что делиться своими интеллиектуальными успехами - зло - обосрут - пойдеш в отмах - забанят..

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

Ответ: Смена Weapon"нов

Цитата:

вроде не вышло, "Глава Проекта" живее живых.

Fixed.