Сообщение от VladEvil
Я новичек в мпаскале и вообще в програмировании 
Как мне сделать шкалу хп? |
И тебе напишу такой же пост как и предыдущему 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
Набросан так примерно, думаю дальше разберешься и поймешь...
Кнопками 1 и 2 отнимать и прибавлять...