This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
|
|
-
Entry name:Duck Hunt
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2016 (NOMAM 2016)
-
Year:2016
Listing 1
0 DEG:A=80:V0=10:GRAPHICS 15:POKE 752,1:Z=20:J=0:GOSUB 8:R=1:GOSUB 6:? "SHOTS",Z:? "SCORE",J:DATA 4,5,3,6 1 IF Z=0:GOTO 1:ENDIF:X=0:Y=150:N=V0*COS(A):M=V0*SIN(A):C=1:T=4:S=1:GOSUB 4:PAUSE 5:C=0:X=0:Y=150:GOSUB 4 2 Q=STICK(0):IF Q=7:A=A-1:ELSE:IF Q=11:A=A+1:ENDIF:ENDIF:IF Q=13:V0=V0-1:ELSE:IF Q=14:V0=V0+1:ENDIF:ENDIF 3 Q=STRIG(0):IF Q=1:GOTO 1:ELSE:Z=Z-1:?:?:? "SHOTS",Z:? "SCORE",J:C=3:T=50:S=0.2:GOSUB 4:GOTO 1:ENDIF 4 GOSUB 7:COLOR C:PLOT X,Y:TRAP 6:FOR I=1 TO T STEP S:X=N*I:Y=150-(M*I-((0.91*I*I)/2)):LOCATE X,Y,V:DRAWTO X,Y 5 IF V=2:COLOR 1:FOR G=1 TO 13:CIRCLE X,Y,G:NEXT G:I=T:J=J+1:?:? "SHOTS",Z:? "SCORE",J:GOSUB 8:ENDIF:NEXT I 6 IF R=0:RETURN:ELSE:? " *** DUCK-HUNT BY MGR INZ. RAFAL ***":R=0:RETURN:ENDIF:DATA 3,6,0,6,3,6,4 7 IF A>90:A=90:ENDIF:IF A<38:A=38:ENDIF:IF V0<5:V0=5:ENDIF:IF V0>16:V0=16:ENDIF:RETURN:DATA 5,3,4,1,5 8 COLOR 2:O=INT(RND(0)*105)+40:P=INT(RND(0)*20)+120:RESTORE:FOR B=0 TO 12:READ K,L:DATA 1,10,1,10,1 9 PLOT O+K,P+B:DRAWTO O+L,P+B:NEXT B:COLOR 0:PLOT O+4,P+2:RETURN:DATA 9,2,8,3,7
References
Downloads
Copyright holder