Statistics: Posted by Albert — Sun Aug 21, 2016 2:32 pm
Statistics: Posted by burger2227 — Sat Jul 23, 2016 1:34 pm
Code:
SCREEN _NEWIMAGE(800, 600, 32)white& = _RGB(255, 255, 255)green& = _RGB(0, 255, 0)fhp = 100hp = fhpDO REM Health Bar 'outter line ol_x = 797 - fhp LINE (ol_x, 0)-(799, 17), white&, B 'hp hp_x = ol_x + 1 hp_x1 = hp_x + hp LINE (hp_x, 1)-(hp_x1, 16), green&, BF _DELAY 1 hp = hp - 10 CLSLOOP UNTIL INKEY$ = CHR$(27) OR hp = 0
Statistics: Posted by Albert — Sat Jul 23, 2016 6:11 am