forum.boolean.name - Шкала жизни(HP)

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

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Шкала жизни(HP) (http://forum.boolean.name/showthread.php?t=15136)

Ответ: Шкала жизни(HP)

Все что я хотел узнал .
И не нужно писать чуш типа : Еще один, Дурак, это вся игра? и тд.
Мне 14 лет чего вы хотите?
И хоть я уже начинаю что-то...

Ответ: Шкала жизни(HP)

Я бы ещё понял если бы тебе было 12, но 14...

Ответ: Шкала жизни(HP)

_Nox_, не все же такие смышленые

Ответ: Шкала жизни(HP)

Цитата:

Сообщение от alexprey (Сообщение 196570)

_Nox_, не все же такие смышленые

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

Ответ: Шкала жизни(HP)

по теме: о.О

Ответ: Шкала жизни(HP)

Можно в 8 лет писть программы, но скажу я вам - это ужас.
Банальное незнание английского языка давало о себе знать ещё как.
Букву N читал как русскую И. Букву I и L читал одинаково - "ЭЛ"
R - Я и так далее. Все операторы хранил в голове в дико не оптимальном виде. Как же я рад, что на спектруме было достаточно одного нажатия клавиши для ввода целого оператора. А ещё очень много плакал не понимая многие участки кода. Особенно трудно было понять про циклы и массивы.

Ответ: Шкала жизни(HP)

Цитата:

Сообщение от L-ee-X (Сообщение 195898)

И тебе напишу такой же пост как и предыдущему HP создателю :-D
Держи, потратил 5 минут на написание, зная справку и умея мыслить...
Писал на Blitz3D переправить на твой ЯП я думаю не проблема...

PHP код:


		
			
HidePointer 

Graphics3D 640,480,32,2 

SetBuffer BackBuffer() 



size_y%=32 

size_x%=240 

ind_size_x%=(240-2) 

ind_size_y%=32-2 



Blue% = 255 



Repeat 

If KeyHit(1) Then End 

Cls 

RenderWorld 

UpdateWorld 



If KeyDown(2) 

ind_size_x% = ind_size_x% -1 

Red% = Red% +1 

Blue% = Blue% - 1 

EndIf 



If KeyDown(3) 

ind_size_x% = ind_size_x% +1 

Red% = Red% - 1 

Blue% = Blue% + 1 

EndIf 



If ind_size_x% > 238 Then ind_size_x% = 238 

If ind_size_x% < 0 Then ind_size_x% = 0 



If Red% > 255 Then Red% = 255 

If Red% < 0 Then Red% = 0 



If Blue% > 255 Then Blue% = 255 

If Blue% < 0 Then Blue% = 0 



Color 255,255,255 

Rect 10,10,size_x,size_y,0  

Color Red% + 0,Green% + 0,Blue% 

Rect 11,11,ind_size_x,ind_size_y 

Flip 



Forever

Код:

Graphics 800,600

SetBuffer BackBuffer()

Const maxHP = 100

HP = 100

Const HPLength = 200 ;Длина полоски





Repeat

        Cls

        ;ограничитель

        If(HP>maxHP) HP = maxHP

        If(HP<0) HP = 0

        Local k# = Float HP/maxHP

        Color 100,0,0

        Rect 19,19,HPLength+2,7

        Color 255,0,0

        Rect 20,20,k*HPLength,5

        

        Flip

        

        ;Управление

        HP = HP + (KeyDown(32)-KeyDown(30))

Until KeyHit(1)

End

Ответ: Шкала жизни(HP)

Цитата:

Можно в 8 лет писть программы, но скажу я вам - это ужас.
Банальное незнание английского языка давало о себе знать ещё как.

а я знал англ буквы и даже некоторые слова и даже переводил с толстенным бумажным словарём хелп по qbasic o_0
зато я не понимал функции поэтому копипастил одно и то же по сто раз и юзал goto на каждой пятой строчке :-D