Извините, ничего не найдено.

AndruXa · 22.09.2007, 16:50

Ха ха ха аш самому смешно

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

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()
Спасибо за замечание, ляпнул неподумав, но ведь я тольео учусь и учусь на своих ошибках, а не путем слизывания чужого кода

AndruXa · 22.09.2007, 16:51

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

H@NON · 22.09.2007, 17:03

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

Как то так.

Crayzi · 22.09.2007, 21:35

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

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

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

Crayzi · 22.09.2007, 21:49

Сообщение от 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 НР.

Crayzi · 23.09.2007, 03:54

Еще несколько простеньких но неплохо улучшающих играбильность добавлений:
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 доп. бонуса параллельно

, первый добавляет 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

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

, всетаки клевую идею AndruXa подкинул, ну а я е чуток дополнил

. Единственное огорчает, доси непонял как работать с жизнями ботов, да и не только жизнями...
Сам же делаю замечание к "проэкту", какаято местность плосковатая

, надо чёнить придумать, ато бегаеш как по какомуто полигону где вот вот будут проводить испытания новой атомной бомбы, эх, это опять чтото с формулами гравитации/прыжка надо будет мухлевать...

impersonalis · 23.09.2007, 04:11

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

Crayzi · 23.09.2007, 05:29

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

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

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

AndruXa · 24.09.2007, 13:27

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

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

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

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

dimanche13 · 24.09.2007, 13:34

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

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

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

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

С уважением

AndruXa · 24.09.2007, 15:43

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

Я уже добавил более 300 строк, и комменты делал, только чето сейчас путаюсь не только в коде, но и в комментах

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

Crayzi · 25.09.2007, 03:45

Сообщение от 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) и убегите от ботов.

Crayzi · 26.09.2007, 06:11

Пока что думаю, как бы получше сделать набирание очков, и при каком их количестве выдавать победу.
~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

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

dimanche13 · 26.09.2007, 11:52

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

Crayzi · 26.09.2007, 14:26

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

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

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