Posted: 18th Jul 2003 14:41
Here's something for people:

+ Code Snippet
sync on :sync rate 30 :autocam off :hide mouse :draw to front

clip=12
spare=5

do
if mouseclick()=1 and clip=12
dec clip :endif
if clip=-1 then gosub reload

set cursor 10,400 :print clip :set cursor 10,420 :print "/"
set cursor 10,440 :print spare
sync :loop

reload:
if clip=-1 and spare=>0 then clip=12
if clip=-1 and spare=-1
ink rgb(255,0,0) :set cursor 10,380 :print "OUT OF AMMO"
return


Hope this works, if not I'll make sure I re-post it.