Thanks Ian. My Healthbar does not show up now though! Like, You can see a red chunk of it following the Mouse but that is it!
Sync On
Sync Rate 0
Backdrop On
Color Backdrop 0
Rem Player Health/Ammunition
Player_Health = 100
Player_Ammunition = 10
Rem Enemy Health/Ammunition
Enemy_Health = 100
Enemy_Ammunition = 10
Rem Display Player Health/Ammunition
Text 0,30,"Player Health: "+str$(Player_Health)
Text 0,15,"Player Ammunition: "+str$(Player_Ammunition)
Rem Display Player HealthBar
Box 10, 10, 210, 20, rgb(255,0,0), rgb(255,0,0), rgb(0,255,0), rgb(0,255,0)
Box Player_Health*2+10, 10, 210, 20, rgb(0,0,0), rgb(0,0,0), rgb(0,0,0), rgb(0,0,0)
Rem Draw My Own Cross Hairs
Line 8, 0, 8, 16
Line 0, 8, 16, 8
Box 6, 6, 11, 11, 0xff000000, 0xff000000, 0xff000000, 0xff000000
Rem Grab It Into An Image
Get Image 2, 0, 0, 17, 17
Rem Set Up Crosshair Sprite
Sprite 1, 0, 0, 1
Offset Sprite 1, Image Width(1)/2, Image Height(1)/2
Rem Hide Mouse
Hide Mouse
Do
Rem Bullet Fired
If Mouseclick()=1 and BulletFired=0
BulletFired=1
Endif
If BulletFired=1
Gosub Bullet
Else
Sleep 1
Endif
Rem Position Sprite At Current Mouse Position
Sprite 1, Mousex(), Mousey(), Sprite Image(1)
Rem Display
Sync
Loop
Bullet:
Player_Ammunition = Player_Ammunition - 1
Return
