Шкала жизни(HP)

[VladEvil]

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

[_Nox_]

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

[alexprey]

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

[DIMMON4IK]

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

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

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

[im_zorg]

Вот не ху**ое расследование)) А причем вообще возраст? признак школоло он по жизни, либо его нет. Можно и в 10 написать игру на уровне gameloft
(2008г конечно, но всё же)

по теме: о.О

[Randomize]

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

[Reizel]

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

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

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

L-ee-X, доставил!

[Mr_F_]

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

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