forum.boolean.name - HP в Blitz

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

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

- - HP в Blitz (http://forum.boolean.name/showthread.php?t=15104)

Ответ: HP в Blitz

Поставил не за юмор, даже если он там есть. А у тебя спрашиваю - в чем прикол ? Может я что-то пропустил, тогда тоже посмеюсь.

Ответ: HP в Blitz

Для тех кто в танке:
Мне пох че я там написал, в посте было написано, всем спасибо попробую каждый пример что описан!!! Но не в одном посте кто бы ему не написал я не увидел благодарностей... Поэтому и написал что существует кнопка Полезно!, а не отдельный пост писать всем спасибо... Можно было обойтись без поста нажав кнопку Полезно! Вот тогда бы сразу видно было кому он благодарен за помощь...

Ответ: HP в Blitz

Цитата:

Сообщение от Мистер Розовый (Сообщение 196068)

Ну как бы вся шутка и основана на том, что смысл этой кнопки двоякий =) Ты довольствовался первым смыслом, а Nex вторым.:-D

Лично я могу сделать один вывод, что шутка реально тупая...
Или здесь просто шибком заумные люди сидят... Вроде Nex'a

Ответ: HP в Blitz

Я не шутил.

Цитата:

сожги себя

к тому, что как будто кнопка "полезно" что то изменит..
Понимаю, что когда человек постит "спасибо" во избежание флуда в будущем отвечаешь ему, что есть кнопка "полезно", но опять же это порождает флуд.
как@то@так.

Ответ: HP в Blitz

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

Ответ: HP в Blitz

Цитата:

а не написанное им полезных сообщений

Щито ?

А раньше была кнопка "Спасибо", но кому-то не нравилось - поменяли на "Полезно!". (Впринципе пох, но всётаки имхо кнопка "Спасибо" лучше отражает суть её смысла.)

Ответ: HP в Blitz

Цитата:

Сообщение от Clip (Сообщение 196099)

Именно именно! Спасибо написанное сообщением это больше чем просто однокликовая спасибка. Набивать спасибки - фуу.

Ответ: HP в Blitz

Может в Биореактор темку то? А что я не прав? Полезно или не?

Нажмите полезно и разошлите друзьям!

Ответ: HP в Blitz

Дословно говоря, HP - это Health Points. А в ответах даёте линии - Health Bar!
Это так, к слову.
Я сделал примерчик, в котором есть и полоска жизней, и "сердечки" жизней.
Жизни самовосстанавливаются при бездействии.
Отнимать жизни нажатием на пробел.
Есть цветовая градация шкалы в зависимости от количества (уровня) жизней.

Исходник:

Код:



Global heroHealthMax% = 100

Global heroHealth% = heroHealthMax

Global heroLives% = 5



Global heroHealthAccum# ;для автовосстановления жизней



Graphics (400, 400)

AppTitle ("HP and HB")

;SetBuffer (BackBuffer ())

ClsColor (150,200,150)



While (Not (KeyHit(1)))



        ;восстановление жизней

        If(heroHealth < heroHealthMax)

                heroHealthAccum = heroHealthAccum+0.25

                If(heroHealthAccum >= 1)

                        heroHealth = heroHealth+heroHealthAccum

                        heroHealthAccum = 0

                EndIf

        EndIf



        ;отнимание жизней

        If(KeyDown (57))

                heroHealth = heroHealth-1

                heroHealthAccum = 0

                If(heroHealth <= 0)

                        heroLives = heroLives-1 ;отнимаем "сердечко"

                        heroHealth = heroHealthMax

                EndIf 

        EndIf 



        ;рисуем

        fnDrawHealthPoints(10,8,10)

        fnDrawHealthBar(10,30,100,20)

        Flip()

        Cls()



        Delay(50) ;простой ограничитель кадров

        

Wend



End



;рисование "сердечек" жизней

Function fnDrawHealthPoints(x%, y%, size%=10)

        Color (130,30,130)

        For k%=0 To heroLives-1

                Oval (x, y, size, size)

                Rect(x+size*0.25,y+size*0.8,size*0.5,size*0.5)

                x = x+size*2

        Next

End Function



;рисование полоски жизней

Function fnDrawHealthBar(x%, y%, w%=100, h%=20)



        ;рамка и подложка

        Color(130,130,130)

        Rect(x,y,w,h,1)

        Color(50,50,50)

        Rect(x-1,y-1,w+2,h+2,0)

        

        ;разные цвета в зависимости от количества жизней

        If(heroHealth > heroHealthMax*0.75)

                Color (0,250,0)

        ElseIf(heroHealth > heroHealthMax*0.5)

                Color (210,210,0)

        ElseIf(heroHealth > heroHealthMax*0.25)

                Color (230,0,0)

        Else

                If(MilliSecs () Mod 1000 < 500)

                        Color (250,0,0)

                Else

                        Color (150,0,0)

                EndIf

        EndIf



        Rect(x,y,w*heroHealth/heroHealthMax,h)

        

End Function

Ответ: HP в Blitz

Мой пример HP... может кому то и пригодится

Код:



Graphics3D 1024,768,32,1

fntArial=LoadFont("Arial",24)



cam = CreateCamera() 

MoveEntity cam,0,0,-5 

CameraRange cam,.1,1000

CameraClsColor cam,100,100,100





Global scalex#=.045

Global scaley#=.007

Global HP=CreateSprite(cam)

PositionEntity HP,-.05,0,.3



ScaleSprite HP,scalex,scaley

HandleSprite HP,-1,-1

EntityOrder  HP,-2

tex_pp=LoadTexture ("hud_life.png")

EntityTexture HP,tex_pp

;

Global HP2=CreateSprite(hp)

PositionEntity HP2,.0435,.009,.1

ScaleSprite HP2,.061,.01

EntityColor HP2,0,0,0



SetFont fntArial 

Repeat 



If KeyDown(203) Then 

         ScaleSprite HP,scalex,scaley

scalex=scalex-.0005

EndIf



If KeyDown(205) Then 

         ScaleSprite HP,scalex,scaley

scalex=scalex+.0005

EndIf







If scalex>.045 Then scalex=.045

If scalex<0 Then scalex=0





UpdateWorld ()

RenderWorld ()

Flip 1

Until KeyHit(1) 

End

Ответ: HP в Blitz

Цитата:

Сообщение от impersonalis (Сообщение 196714)

http://forum.boolean.name/showpost.p...46&postcount=5

у тебя клёвый тутор:) но не каждый осилит такой объём.
хотя, естественный отбор полезен:)