HP в Blitz

[NitE]

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

[L-ee-X]

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

[L-ee-X]

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

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

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

[Nex]

Я не шутил.

сожги себя

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

[Clip]

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

[NitE]

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

Щито ?

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

[Randomize]

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

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

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

[Артем Валерьевич]

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

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

[Жека]

Дословно говоря, 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

[FREE MAN]

Мой пример 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

[impersonalis]

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

[Жека]

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

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

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