Hello Guys,
I need help for manage Gun-light from basic & assembly with a sprite in moving
Can you do a example for me, please??
I wait your good news
Best Regards
(^_^)
AG.
10 '-----------------------------
20 ' GUN-LIGHT
30 '-----------------------------
40 CLEAR300,&HCFFF
50 SCREEN2,2
60 DEFUSR0=&HD000:REM INIT RAYGUN
70 DEFUSR1=&HD003:REM READ RAYGUN
80 '----READ MACHINE DATA--------
90 FORGF=0TO200
100 READDT$
110 POKE&HD000+GF,VAL("&H"+DT$)
120 NEXT
130 GF=USR0(0)
140 '----INIT CHECK POINT--------
150 PX=128
160 PY=100
170 '----WRITE CHECK POINT-------
180 LINE(PX,PY)-(PX+15,PY+15),15,B
190 '----MAIN LOOP---------------
200 IFSTRIG(3)=0THENGOTO190
210 '----RAYGUN CHECK------------
220 POKE&HD006,PY
230 POKE&HD007,PX
240 GF=USR1(0)
250 FL=PEEK(&HD008)
260 IFFL=0THEN190
270 '----HIT!!-------------------
280 BEEP
290 LINE(PX,PY)-(PX+15,PY+15),0,BF
300 PX=INT(RND(1)*31)*8
310 PY=INT(RND(1)*23)*8
320 FORGF=0TO500:NEXT
330 GOTO170
340 '----MACHINE DATA------------
350 DATA C3,09,D0,C3,38,D0,00,00
360 DATA 00,F3,01,05,00,11,4F,D4
370 DATA 21,9F,FD,ED,B0,3E,C3,32
380 DATA 9F,FD,21,2D,D0,22,A0,FD
390 DATA FB,3E,FF,01,20,00,2A,CF
400 DATA F3,CD,56,00,C9,F3,E5,21
410 DATA 4E,D4,34,E1,FB,C3,4F,D4
420 DATA 3E,00,32,4E,D4,32,08,D0
430 DATA CD,BF,D0,01,00,03,11,CE
440 DATA D0,2A,C7,F3,CD,59,00,01
450 DATA 80,00,11,CE,D3,2A,CD,F3
460 DATA CD,59,00,3E,00,01,00,03
470 DATA 2A,C7,F3,CD,56,00,CD,BF
480 DATA D0,21,C9,D0,3A,06,D0,77
490 DATA 23,3A,07,D0,77,23,3E,00
500 DATA 77,23,3E,0F,77,23,3E,D0
510 DATA 77,01,05,00,ED,5B,CD,F3
520 DATA 21,C9,D0,CD,5C,00,21,4E
530 DATA D4,7E,F5,3E,01,CD,D8,00
540 DATA A7,20,05,3E,01,32,08,D0
550 DATA F1,BE,28,EE,01,00,03,ED
560 DATA 5B,C7,F3,21,CE,D0,CD,5C
570 DATA 00,01,80,00,ED,5B,CD,F3
580 DATA 21,CE,D3,CD,5C,00,C9,E5
590 DATA 21,4E,D4,7E,BE,28,FD,E1
600 DATA C9
610 END
Login or register to post comments
