02-04-2003, 06:12 AM
be careful what you wish for, generic... i've modified my fire to work in text mode
dav, i've learned cheap hacks are a good thing
Code:
1 OUT &H3C8, 0
2 FOR i = 0 TO 18
3 IF i = 18 THEN CLS ELSE IF i MOD 3 = 0 THEN OUT &H3C9, (i \ 3) * 10 ELSE OUT &H3C9, 0
4 NEXT i
5 DEF SEG = &HB800
6 FOR x% = 3999 TO 2080 STEP -2
7 IF x% > 3840 THEN POKE x%, CINT(RND) * 80 ELSE POKE x%, ((PEEK(x% + 160) + PEEK(x% + 162) + PEEK(x% + 158) + PEEK(x% + 320) * 1.2) / 5)
8 NEXT
9 IF INKEY$ = "" THEN GOTO 5
dav, i've learned cheap hacks are a good thing
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry