forum.boolean.name - Мод FPS от impersonalis-a.

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

- FAQ (http://forum.boolean.name/forumdisplay.php?f=15)

- - Мод FPS от impersonalis-a. (http://forum.boolean.name/showthread.php?t=4515)

Re: Мод FPS от impersonalis-a.

Ха ха ха аш самому смешно :-D сморозил-же, а извеняюсь за тупость больше такого не повторится. Посидел подумал и придумал ВОТ:

Код:

Global per

Function update_user()

per=20

If user_H > 100  Then per=per-40

If user_H = 120 Then user_H = 100

If user_H = 110 Then user_H = 100

If EntityCollided (user,TypeBonus) Then PositionEntity Bonus,Rnd(-40,40),0,Rnd(-40,40)

If EntityCollided (user,TypeBonus) Then user_H=user_H + per

Во, поменяйте в ф-ции update_user()
Спасибо за замечание, ляпнул неподумав, но ведь я тольео учусь и учусь на своих ошибках, а не путем слизывания чужого кода:)

Re: Мод FPS от impersonalis-a.

Кстати как сделать, зависимость полоски жизней от цифры, ато число жизней меняется, а полоска не хочет?

Re: Мод FPS от impersonalis-a.

число_жизней/100*общая_длина_полоски.

Как то так.

Re: Мод FPS от impersonalis-a.

Цитата:

Сообщение от impersonalis

не совсем понял вопрос.

Короче я незнаю откуда взять текущее количество жизней ботов, я нащел только их базовое количество... Сейчас еще посморю код, мож что прийдет в голову хорошего... Вот смотрю как в "Function update_shot()" пули колизеятся и отнимают у ботов НР и думаю... думаю... ща мож что надумаю... Неа, ненадумал, пощел я шарится по форуму, мож где найду чтото подобное.

Re: Мод FPS от impersonalis-a.

Цитата:

Сообщение от AndruXa

Кстати как сделать, зависимость полоски жизней от цифры, ато число жизней меняется, а полоска не хочет?

Про какую именно говориш, про ту что я навешал над ботами или про игрока? Кстати насчет бонуса, опять ты его в землю закапуеш после того как подобрал (изначально он у тебя появляется на определенной высоте, я видел ты выставил, а терь он у тя появляется на высоте по Y=0. Насчет того что я свой бонус чуток переделал на вид, то только временно, я думал сделать крутящуюся красноватую бутылку из сферы и цилиндра, но чёто цилиндр к сфере нехочет привязыватся, вроде все правильно делал, ну это проехали... И еще, думаю стоит сделать так чтобы бонусом можно было набрать 200 жизней, ато использовать бонус как аптечку както неприкольно. И сделаю чуток по другому, ато у меня идея как получше реализовать "непривышение максимума жизней"(который я сделаю равным 200).
Вот как я это реализовал:
Добавил

Код:

Global user_H_max

потом поставил после функций создания бонуса

Код:

user_H_max=200

потом в "Function update_user()" после

Код:

If EntityCollided (user,TypeBonus) Then 

PositionEntity Bonus,Rnd(-40,40),2,Rnd(-40,40)

 user_H=user_H+20

EndIf

добавил

Код:

If user_H>200 Then 

user_H=user_H_max

EndIf

и теперь можно насобирать максимум 200 НР.

Re: Мод FPS от impersonalis-a.

Еще несколько простеньких но неплохо улучшающих играбильность добавлений:
1. добавлены бонусы брони (+ 15 ед. брони за каждый подобранный бонус)
Появляется еще одна константа(Const)

Код:

Const TypeBonus_sheyd=7

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

Код:

Global user_sheyd_max=300

(p.s. Да кстати пока не забыл, можно убрать "user_HP_max=200" и дописать к уже существующему "Global user_HP_max" =200, будет смотрется "Global user_HP_max=200".)

так же создаем собственно бонус к броне какой надо будет "подбирать"
p.s. там я использовал новую картинку (просьба не пинать, это не окончательное оформление, а просто чтобы лучше смотрелось в первое время, картинку выложу в конце сообщения)

Код:

Global Bonus_sheyd=CreateSphere()

ScaleEntity Bonus_sheyd,0.2,0.4,0.2

texBonus_sheyd=LoadTexture(".\Tex_enerji_1.bmp")

EntityTexture Bonus_sheyd,texBonus_sheyd

EntityType Bonus_sheyd,TypeBonus_sheyd

PositionEntity Bonus_sheyd,Rnd(-40,40),2,Rnd(-40,40)

далее в функцию "Function create_world()" дописываем колизею нашего бонуса с User`ом

Код:

Collisions USERT,TypeBonus_sheyd,2,2

далее добавляем в "Function update_user()" еще одно действие или как это назвать, If`ку короче :)

Код:

If EntityCollided (user,TypeBonus_sheyd) Then 

PositionEntity Bonus_sheyd,Rnd(-40,40),2,Rnd(-40,40)

 user_H0=user_H0+15

EndIf

If user_H0>300 Then 

 user_H0=user_sheyd_max

EndIf

Вроде как ничего незабыл, тогда приступаем к дополнению №2.
Здесь я сделал аш 3 доп. бонуса параллельно :-D, первый добавляет 6 зарядов к дробовику (первому оружию), второй добавляет 30 зарядов к "пукалке" (второе оружие), третий добавляет 2 заряда к (хмм, ну пусть будет базука, чёто мне так хочется, знач надо будет позже попарится над взрывом, дамагом по области, траэкторией полета заряда чтоли, но то позже) "базуке".
Вот и дополнения:
добавляем константу, я сказал констану? я хотел сказать константы, их аш 3

Код:

Const TypeBonus_ammo_0=8

Const TypeBonus_ammo_1=9

Const TypeBonus_ammo_2=10

вначале сделал по другому но потом дошло что можноиспользовать уже имеющиеся поля, значит так, изменяем максимальное количество зарядов для оружий, теперь у нас:

Код:

shot_S(0)\max=60

 

shot_S(1)\max=480

 

shot_S(2)\max=40

поехали дальше, задаем коллизеи (в функции "Function create_world()") для соответствующих типов зарядов:

Код:

 Collisions USERT,TypeBonus_ammo_0,2,2

 

 Collisions USERT,TypeBonus_ammo_1,2,2

 

 Collisions USERT,TypeBonus_ammo_2,2,2

Ну и наконец вписуем в функцию "Function update_user()" следующее:

Код:

If EntityCollided (user,TypeBonus_ammo_0) Then 

PositionEntity Bonus_ammo_0,Rnd(-40,40),2,Rnd(-40,40)

user_inv\s[0]=user_inv\s[0]+6

EndIf

If user_inv\s[0]>shot_S(0)\max Then 

user_inv\s[0]=shot_S(0)\max

EndIf

 

If EntityCollided (user,TypeBonus_ammo_1) Then 

PositionEntity Bonus_ammo_1,Rnd(-40,40),2,Rnd(-40,40)

user_inv\s[1]=user_inv\s[1]+30

EndIf

If user_inv\s[1]>shot_S(1)\max Then 

user_inv\s[1]=shot_S(1)\max

EndIf

 

If EntityCollided (user,TypeBonus_ammo_2) Then 

PositionEntity Bonus_ammo_2,Rnd(-40,40),2,Rnd(-40,40)

user_inv\s[2]=user_inv\s[2]+2

EndIf

If user_inv\s[2]>shot_S(2)\max Then 

user_inv\s[2]=shot_S(2)\max

EndIf

А, чуть незабыл, надо же видеть сколько же у нас всетаки зарядов в наличии, в функцию "While Not KeyHit(1)=1" после "RenderWorld()" добавьте вот это:

Код:

Color 0,0,175

Text 350,20,"B_0 : "+user_inv\s[0],True,True

Text 500,20,"B_1 : "+user_inv\s[1],True,True

Text 650,20,"B_2 : "+user_inv\s[2],True,True

теперь даже прикольно побегать в погоне за бонусами :-D, всетаки клевую идею AndruXa подкинул, ну а я е чуток дополнил:-D. Единственное огорчает, доси непонял как работать с жизнями ботов, да и не только жизнями...
Сам же делаю замечание к "проэкту", какаято местность плосковатая :dontknow:, надо чёнить придумать, ато бегаеш как по какомуто полигону где вот вот будут проводить испытания новой атомной бомбы, эх, это опять чтото с формулами гравитации/прыжка надо будет мухлевать...

Re: Мод FPS от impersonalis-a.

Вы хоть выкладывайте ап-ы кода

Re: Мод FPS от impersonalis-a.

Цитата:

Сообщение от impersonalis

Вы хоть выкладывайте ап-ы кода

Ты имееш в виду, изредка прикреплять целиком файл кода? Ну сейчас выложу.
Здесь все вышеописанные изменения кроме "реалистичных шагов" от "AndruXa".
P.s. Решил поэкономить место и перезалил просто файл кода + пару доп. картинок какие буду использовать в последствие, остальные нужные файлы имеются в выложенных ранее архивах.

To impersonalis Подскажи пожалста все переменные, которые отвечают за перемещение каких-нить объектов. Ато пишу замедление игры когда жизней меньше 10 + эффект размытой, красной камеры. Неохота разбираться самому в таком объемном коде ~1000 строк. А для тебя это все родное!!!! Кстати можно сделать эффект замедления без уменьшения скорости перемещения всех объектов??? может как-нить через тамер чтоли????????

Цитата:

Сообщение от AndruXa
Кстати как сделать, зависимость полоски жизней от цифры, ато число жизней меняется, а полоска не хочет?

Цитата:

Про какую именно говориш, про ту что я навешал над ботами или про игрока?

Я имею ввиду полоску жизней игрока. Когда подбираеш бонус число жизней увеличивается, а полоска нет, пока бот в тебя не пальнет. Я хочу сделать прямую зависимость полоски от числа.

Re: Мод FPS от impersonalis-a.

Цитата:

Сообщение от AndruXa

Неохота разбираться самому в таком объемном коде ~1000 строк.

прикольно! и ты еще хочешь что-то МОДифицировать? Надо самому все узнать, чтобы каждая строчка стала родная, как у импера. :crazy:
Совет: напротив каждой строки делай коммент,что она делает, так и поймешь... конечно не сразу. Но совесть будет чиста, хоть попытался бы что-то понять.
Про полоску жизни, читай статью в известном журнале.

С уважением

Re: Мод FPS от impersonalis-a.

Цитата:

прикольно! и ты еще хочешь что-то МОДифицировать? Надо самому все узнать, чтобы каждая строчка стала родная, как у импера.
Совет: напротив каждой строки делай коммент,что она делает, так и поймешь... конечно не сразу. Но совесть будет чиста, хоть попытался бы что-то понять.
Про полоску жизни, читай статью в известном журнале.

Я уже добавил более 300 строк, и комменты делал, только чето сейчас путаюсь не только в коде, но и в комментах:4to: так как мечты большие, а опыта маловато. В Глобале около 80 переменных, со своими то я разобрался, а вот с impersonalista уже жесткого диска в голове не хватает. Вот я и решил спросить у него самого, чтобы он перечислил переменные, если конечно не трудно. P.S. первый раз работаю с таким кол-вом текста, до этого максималка было 250 строк. Даже боюсь представлять что бывает в голове у програмистов профессионалов, пишущих проекты класса А 200 000 строк :4to:

Re: Мод FPS от impersonalis-a.

Цитата:

Сообщение от AndruXa

Щас напишу коечто что поидее исправит сею проблемму.
Ну покачто временно решил сделать по подобию того как после попадения пули в игрока оно обновлялось.(сделал пока что для НР и для НО, точнее не сделал а методом копи/пасте дополнил действия при подбирании бонуса)
на строку ниже после "user_H=user_H+20" (это у нас в "упдате юзер" если помните) добавь

Код:

Change_H(user_xline,user_H)

аналогичто на строку ниже после "user_H0=user_H0+15" добавь

Код:

Change_H(user_xline0,user_H0)

.

Так же где нибудь в начале "Function update_user()" добавь

Код:

Change_H(user_b_xline,user_inv\s[user_inv\current])

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

Ща еще пару сек и сделаю чтобы когда подбираеш бонус дающий пули то полоска означающая их максимум сразуже "пополнялась".
тэкс, короче так, в функции "Function update_user()" надо добавить еще 3 одинаковые строчки в 3 ифки подбирания бонуса к зарядам.
Вот это
"Change_H(user_b_xline,user_inv\s[user_inv\current])"
добавь в

Код:

If EntityCollided (user,TypeBonus_ammo_0) Then 

PositionEntity Bonus_ammo_0,Rnd(-40,40),2,Rnd(-40,40)

user_inv\s[0]=user_inv\s[0]+6

EndIf

If user_inv\s[0]>shot_S(0)\max Then 

user_inv\s[0]=shot_S(0)\max

EndIf

получится вот так:

Код:

If EntityCollided (user,TypeBonus_ammo_0) Then 

PositionEntity Bonus_ammo_0,Rnd(-40,40),2,Rnd(-40,40)

user_inv\s[0]=user_inv\s[0]+6

;вот оно-

Change_H(user_b_xline,user_inv\s[user_inv\current])

;--------

EndIf

If user_inv\s[0]>shot_S(0)\max Then 

user_inv\s[0]=shot_S(0)\max

EndIf

далее в

Код:

If EntityCollided (user,TypeBonus_ammo_1) Then 

PositionEntity Bonus_ammo_1,Rnd(-40,40),2,Rnd(-40,40)

user_inv\s[1]=user_inv\s[1]+30

EndIf

If user_inv\s[1]>shot_S(1)\max Then 

user_inv\s[1]=shot_S(1)\max

EndIf

будет сморется вот так:

Код:

 

If EntityCollided (user,TypeBonus_ammo_1) Then 

PositionEntity Bonus_ammo_1,Rnd(-40,40),2,Rnd(-40,40)

user_inv\s[1]=user_inv\s[1]+30

;-----------

Change_H(user_b_xline,user_inv\s[user_inv\current])

;-----------

EndIf

If user_inv\s[1]>shot_S(1)\max Then 

user_inv\s[1]=shot_S(1)\max

EndIf

и последнее

Код:

If EntityCollided (user,TypeBonus_ammo_2) Then 

PositionEntity Bonus_ammo_2,Rnd(-40,40),2,Rnd(-40,40)

user_inv\s[2]=user_inv\s[2]+2

EndIf

If user_inv\s[2]>shot_S(2)\max Then 

user_inv\s[2]=shot_S(2)\max

EndIf

станет выглядеть так:

Код:

If EntityCollided (user,TypeBonus_ammo_2) Then 

PositionEntity Bonus_ammo_2,Rnd(-40,40),2,Rnd(-40,40)

user_inv\s[2]=user_inv\s[2]+2

Change_H(user_b_xline,user_inv\s[user_inv\current])

EndIf

If user_inv\s[2]>shot_S(2)\max Then 

user_inv\s[2]=shot_S(2)\max

EndIf

Вот с чем я доси неразобрался, так это как к текущим НР ботов попривязывать полоски их НР...

Добавлено(1):
Щас будем сносить тот недо-прыжок какой я сделал ранее (там было слишком много нерабочего, и он был сам по себе какойто не такой) и ставить тот какой я сделал из прыжка impersonalis.
1. Такс короче добавляем новую константу:

Код:

Const jumpvel#=.003

2. Удаляем:

Код:

gravity#=.01

jumpvel#=.3

3. Удаляем в "Function update_user()":

Код:

 pick_ent=LinePick(EntityX(user,1),EntityY(user,1),EntityZ(user,1),0,-3.6,0)

 TranslateEntity user,0,user_vy#*delta_t,0,True

 If pick_ent

 jumping=0

 Else

    jumping=1

  user_vy#=user_vy#-G#*delta_t

 EndIf

4. Добавляем вместо того что удалили вот это:

Код:

 pick_ent=LinePick(EntityX(user,1),EntityY(user,1),EntityZ(user,1),0,-3.6,0)

 TranslateEntity user,0,user_vy#*delta_t,0,True

 

 

If pick_ent

  jump_bool=False

 

 Else

  jump_bool=True

  user_vy#=user_vy#-G#*delta_t;

 EndIf

Код:

If KeyHit(57) And jump_bool=False Then user_vy#=jumpvel#*delta_t jump_bool=True

5. Удаляем в "While Not KeyHit(1)=1":

Код:

If jumping=0

 If KeyDown(57) Then user_vy#=jumpvel# jumping=1

EndIf

If jumping=1

 user_vy#=user_vy#-gravity#*delta_t

 by#=by#+user_vy#

EndIf

If by#<1 Then jumping=0

6. Любуемся нормальным кодом (без лишних кусочков раскиданных повсюду) и плавным прыжком.
Добавлено(2): Ща чудю, мудрю, хочу сделать так чтобы был смысл игры, допустим, надо будет собирать определенный бонус за который будут давать очки, набрав определенное количество очков вы выигруете. Вот думаю, сделать чтоль чтото типо сложности игры, токо это надо делать кнопки... но всеравно ведь до кнопок дело дойдет... пока что сделаю только бонус, и реген НР тож сделаю, будет 1 НР раз в 2.5 сек, но после пополнения до 100 реген отключится.
Тэкс, щас добавим регенерацию.
1. Добавляем новую константу какая будет отвечать за промежуток времени между восстановлением НР:

Код:

Const regen_HP_time=2500

2. Добавляем новую глобальную переменную какая будет содержать число восстанавливаемых жизней:

Код:

Global user_H_regen=1

3. В "Type inventar" добавим еще 2 строчки:

Код:

 Field regen_HP_Flag

 Field last_regen_HP_time

4. В "Function update_user()" добавим перед "End Function"(дабы избежать путаници):

Код:

If user_inv\regen_HP_Flag=False And user_H>0 And user_H<100 Then

user_inv\Regen_HP_flag=True

user_H=user_H+user_H_regen

user_inv\last_regen_HP_time=MilliSecs()

Change_H(user_xline,user_H)

EndIf

If MilliSecs()-user_inv\last_regen_HP_time>regen_HP_time And user_inv\Regen_HP_flag=True Then

user_inv\Regen_HP_flag=False 

EndIf

5. Смотрим что у нас получилось, для этого потеряйте в бою какоенибудь количество НР(чтобы было менее 100) и убегите от ботов.

Re: Мод FPS от impersonalis-a.

Пока что думаю, как бы получше сделать набирание очков, и при каком их количестве выдавать победу.
~1-1.5 часа спустя:
Фух, сделал условия победы и поражения(высветится обычная надпись типо "You Win" или "You Dead", позже сделаю блокировку стрельбы, перемещения и т. д., и возможность начать заново), добавил кубик который надо подбирать, после "подбирания" он перемещается в рандомное место, при этом вам добавляется 1 очко (Score), когда количество очков будет равно 30, вы выиграли, если количество ваших НР равно 0 то вы проиграли. Короч мож еще что добавил, хз... Уже почти несоображаю, спать хо...
П.с. Долгое ща будет описание чаво и куда добавить...
1. Добавьте пару глобальных переменных, первые 2 со значками доллара на конце рассчитаны для хранения текстовых данных, они у нас будут отвечать за текст "You Win" и "You Dead"б Третья глобальная переменная у нас(Score) для хранения данных о количестве набранных очков:

Код:

Global Win$

Global Dead$

Global Score=0

2. ВОт еще добавляем пару констант, первая у нас будет "порогом" количества очко (Score) нужного для выиграша, вторая понадобится для того чтобы сделать коллизион этого бонуса с игроком:

Код:

Const Win_qantiti_score=30

Const Type_Smoll_score=11

3. Этот кусочек кода отвечает за создание кубика, придание ему размера, присвоение этому кубику типа, по которому его потом можно будет "колизеить" и размещение его в случайном месте:

Код:

 

Global Smoll_score=CreateCube()

ScaleEntity Smoll_score,0.5,0.5,0.5

EntityType Smoll_score,Type_Smoll_score

PositionEntity Smoll_score,Rnd(-40,40),2,Rnd(-40,40)

4. В функцию "Function update_user()" добавим кусочек кода отвечающий за проверку, произошла ли колизея юзера с типом бонуса отвечающего за Score, если коллизея произошла, то +1 к Score и переместить скоре в случайное место:

Код:

If EntityCollided (user,Type_Smoll_score) Then 

PositionEntity Smoll_score,Rnd(-40,40),2,Rnd(-40,40)

Score=Score+1

EndIf

5. В функцию "Function create_world()", а это отвечает за колизею типа (Type) игрока(USERT) с типом бонуса отвечающего за Score(Type_Smoll_Score):

Код:

 

Collisions USERT,Type_Smoll_score,2,2

6. В функцию "While Not KeyHit(1)=1"(в самом начале) добавим условия победы и поражения, 1. - если количество очков (Score) равно значению которое занесено в константе (постоянной) "Win_qantiti_score"(а там у нас 30) и DeadT=0 тогда добавить в переменную "Win$" текст "You Win". 2. Если жизни игрока меньше или равны нулю, тогда переменную "DeadT" равна 1, а в переменную "Dead$" дописуем "You Dead". 3. Tckb ;если жизни игрока меньше 0, тогда прировнять их к 0. 4. Если количество очков больше максимума то приравнять к максимуму.:

Код:

;1.

If Score=Win_qantiti_score And DeadT=0 Then

Win$="You Win"

EndIf

;2.

If user_H<=0

DeadT=1

Dead$="You Dead"

EndIf

;3.

If user_H<0

 user_H=0

EndIf

4.If Score>Win_qantiti_score

Score=Win_qantiti_score

EndIf

7. Между "RenderWorld()" (все в той же функции "While Not KeyHit(1)=1") и Flip добавляем оператор "Text" далее пишем позицию выведения текста, далее в ковычках вписуем "Score :", эта надпись будет у нас перед циферкой количества очков какие набрал игрок, сразуже после той надписи добавляем +Score, это у нас будут сами очки (циферка) потом 2 раза прописуем True тобес - Правда. 2. делает тоже самое, только выводит на экран значёк "/" и цифру максимального количества очков нужных для выиграша. 3. Меняем цвет текста какой будем выводить далее. 4. Добавляем оператор кода "Text", выбираем координаты куда разместить текст, и "говорим" что текстом у нас будет переменная Win$. 5. Опять меняем цвет текста какой будем высвечивать далее. 6. Здесь тоже вписуем оператор текст, координаты задаем (я задал те же что и при высвечивании победы) и говорим что тут у нас будет надпись находящаяся в переменной Dead$:

Код:

1.

Text 130,60,"Score : "+Score,True,True

2.

Text 210,60,"/ "+Win_qantiti_score,True,True

3.

Color 0,255,0

4.

Text 450,60,Win$,True,True

5.

Color 255,0,0

6.

Text 450,60,Dead$,True,True

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

Re: Мод FPS от impersonalis-a.

Всё отлично, но ты бы давал маленькие объяснения к коду, а еще очень напрягают слова впихните, запихайте, всуньте...

Re: Мод FPS от impersonalis-a.

Цитата:

Сообщение от dimanche13

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