Helicopter battleground for you - Revision history

Luis46coco: /* Links */

2020-11-05T21:07:13Z

Links

← Older revision		Revision as of 17:07, 5 November 2020
Line 87:		Line 87:
	Note: Line 195, source error, change "169" to "191" in "FORI=1TO2:CIRCLE(A1,191),I,0:"		Note: Line 195, source error, change "169" to "191" in "FORI=1TO2:CIRCLE(A1,191),I,0:"
	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]		*[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]
	Virtual disk with programs from Rainbow magazine 10-1981: [[File:Rainbow 1981-10.dsk]]		*Virtual disk with programs from Rainbow magazine 10-1981: [[File:Rainbow 1981-10.dsk]]
	[[Category:Magazine Games]]		[[Category:Magazine Games]]

Luis46coco at 21:06, 5 November 2020

2020-11-05T21:06:34Z

← Older revision		Revision as of 17:06, 5 November 2020
Line 63:		Line 63:
	185 IF E1<>0 AND F1<>0 OR E2<>0 AND F2<>0 OR E3<>0 AND F3<>0 OR E4<>0 AND F4<>0 THEN 200		185 IF E1<>0 AND F1<>0 OR E2<>0 AND F2<>0 OR E3<>0 AND F3<>0 OR E4<>0 AND F4<>0 THEN 200
	190 FORI=1TO10:CIRCLE(T1,FLAK),I,0:NEXTI:T1=T2:GOTO85		190 FORI=1TO10:CIRCLE(T1,FLAK),I,0:NEXTI:T1=T2:GOTO85
	195 SF=SF+1:LINE(A,B-3)-(A1,191),PSET:CIRCLE(A1,191),2:PLAY"O1V30Tl00L64DF2DP2DP2DP2DP2D":LINE(A,B-3)-(A1,191),PRESET: FORI=1TO2:CIRCLE(A1,~~169~~),I,0:NEXTI:GOTO165		195 SF=SF+1:LINE(A,B-3)-(A1,191),PSET:CIRCLE(A1,191),2:PLAY"O1V30Tl00L64DF2DP2DP2DP2DP2D":LINE(A,B-3)-(A1,191),PRESET: FORI=1TO2:CIRCLE(A1,191),I,0:NEXTI:GOTO165
	200 TS=10:FORI=1TO40STEP2:Z1=RND(255):Z2=RND(191):LINE(A,B-7)-(Z1,Z2),PSET:CIRCLE(Z1,Z2),2:CIRCLE(A,B-7),I/2: PLAY"OlV30T100L100DDV10DD":NEXTI:GOTO25		200 TS=10:FORI=1TO40STEP2:Z1=RND(255):Z2=RND(191):LINE(A,B-7)-(Z1,Z2),PSET:CIRCLE(Z1,Z2),2:CIRCLE(A,B-7),I/2: PLAY"OlV30T100L100DDV10DD":NEXTI:GOTO25
	205 OS=10:FORI=lTO40:CIRCLE(T2,191),I,1,1.5,.5,0: PLAY"01V30T100DV20DV10D":NEXTI:GOTO25		205 OS=10:FORI=lTO40:CIRCLE(T2,191),I,1,1.5,.5,0: PLAY"01V30T100DV20DV10D":NEXTI:GOTO25
Line 85:		Line 85:
	305 GOTO15		305 GOTO15
	</pre>		</pre>
			Note: Line 195, source error, change "169" to "191" in "FORI=1TO2:CIRCLE(A1,191),I,0:"
	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]		[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]
			Virtual disk with programs from Rainbow magazine 10-1981: [[File:Rainbow 1981-10.dsk]]
	[[Category:Magazine Games]]		[[Category:Magazine Games]]

Luis46coco at 21:37, 3 May 2019

2019-05-03T21:37:38Z

← Older revision		Revision as of 17:37, 3 May 2019
Line 87:		Line 87:
	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]		[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]
			[[Category:Magazine Games]]

Luis46coco at 18:23, 26 April 2019

2019-04-26T18:23:13Z

← Older revision		Revision as of 14:23, 26 April 2019
Line 54:		Line 54:
	140 IFA>=225 THEN A=225		140 IFA>=225 THEN A=225
	145 IFB<=24 THEN B=24		145 IFB<=24 THEN B=24
	150 IFB>171 THEN B=171		150 IFB>=171 THEN B=171
	155 IFB=171 THEN 210		155 IFB=171 THEN 210
	160 PUT(A-26,B-14)-(A+30,B+7),A,PSET:PLAYS$:IFPEEK(65280)=125ORPEEK(65280)=253GOTO195		160 PUT(A-26,B-14)-(A+30,B+7),A,PSET:PLAYS$:IFPEEK(65280)=125ORPEEK(65280)=253GOTO195
Line 84:		Line 84:
	300 IFPA$<>"Y"THENEND		300 IFPA$<>"Y"THENEND
	305 GOTO15		305 GOTO15
	~~</pre>~~
	~~==ERRORS==~~
	~~line 155 never runs~~
	~~Can be solved by removing the sign of = in line 150~~
	~~In the list is already corrected~~
	~~<pre>~~
	~~150 IF B>=171 THEN B=171~~
	~~155 IF B=171 THEN 210~~
	</pre>		</pre>
	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]		[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]

Luis46coco at 15:09, 24 April 2019

2019-04-24T15:09:43Z

← Older revision		Revision as of 11:09, 24 April 2019
Line 19:		Line 19:
	The Listing:		The Listing:
	<pre>		<pre>

	1 '**************************		1 '**************************
	2 '* HELO-BATTLE *		2 '* HELO-BATTLE *
	3 '* BY *		3 '* by *
	4 '* JARB SOFTWARE *		4 '* JARB SOFTWARE *
	5 '* (C) JARB SOFTWARE 1981 *		5 '* (c) JARB SOFTWARE 1981 *
	6 '**************************		6 '**************************
	10 CLS:PRINT@192,TAB(10)"HELO BATTLE":PRINTTAB(15)"BY":PRINTTAB(9)"JARB SOFTWARE":FORI=1TO5:PLAY"O"+STR$(I)+"V30T16L4EP8EP8EP8L1AP8EP2L4BGGEADEADDDP4":NEXTI		10 CLS:PRINT@192,TAB(10)"HELO BATTLE":PRINTTAB(15)"BY":PRINTTAB(9)"JARB SOFTWARE":FORI=1TO5:PLAY"O"+STR$(I)+"V30T16L4EP8EP8EP8L1AP8EP2L4BGGEADEADDDP4":NEXTI
	15 CLEAR200		15 CLEAR200
	20 DIMA(30,30)		20 DIMA (30, 30)
	25 ALLIES=ALLIES+DS:AXIS=AXIS+TS:DS=0:TS=0		25 ALLIES=ALLIES+OS:AXIS=AXIS+TS:OS=0:TS=0
	30 IF ALLIES>=200 THEN 225		30 IF ALLIES>=200 THEN 225
	35 IF AXIS>=200 THEN 225		35 IF AXIS>=200 THEN 225
Line 48:		Line 49:
	115 FOR FLAK=176 TO HEIGHT STEP-10:T1=T1+DRIFT:A1=JOYSTK(2)*4:A=A+INT(JOYSTK(0)/6.3)-5:B=B+INT(JOYSTK(1)/6.3)-5:PSET(T1,FLAK,1)		115 FOR FLAK=176 TO HEIGHT STEP-10:T1=T1+DRIFT:A1=JOYSTK(2)*4:A=A+INT(JOYSTK(0)/6.3)-5:B=B+INT(JOYSTK(1)/6.3)-5:PSET(T1,FLAK,1)
	120 IFPPOINT(T2,189)=0 THEN 205		120 IFPPOINT(T2,189)=0 THEN 205
	125 ~~IF A~~<=28 THEN A=28		125 IFA<=28 THEN A=28
	130 ~~IF T1~~<=20 THEN 175		130 IFT1<=20 THEN 175
	135 ~~IF T1~~>=235 THEN 175		135 IFT1>=235 THEN 175
	140 ~~IF A~~>=225 THEN A=225		140 IFA>=225 THEN A=225
	145 ~~IF B~~<=24 THEN B=24		145 IFB<=24 THEN B=24
	150 ~~IF B~~>=171 THEN B=171		150 IFB>171 THEN B=171
	155 ~~IF B~~=171 THEN 210		155 IFB=171 THEN 210
	160 PUT(A-26,B-14)-(A+30,B+7),A,PSET:PLAYS$:~~IF PEEK~~(65280)=~~125 OR PEEK~~(65280)=253GOTO195		160 PUT(A-26,B-14)-(A+30,B+7),A,PSET:PLAYS$:IFPEEK(65280)=125ORPEEK(65280)=253GOTO195
	165 PRESET (T1,FLAK)		165 PRESET(T1,FLAK)
	170 NEXT FLAK		170 NEXT FLAK
	175 PLAY"O1V30T32L32BBB":FORI=1TO10:CIRCLE(T1,FLAK),I,1:NEXTI		175 PLAY"O1V30T32L32BBB":FORI=1TO10:CIRCLE(T1,FLAK),I,1:NEXTI
Line 62:		Line 63:
	185 IF E1<>0 AND F1<>0 OR E2<>0 AND F2<>0 OR E3<>0 AND F3<>0 OR E4<>0 AND F4<>0 THEN 200		185 IF E1<>0 AND F1<>0 OR E2<>0 AND F2<>0 OR E3<>0 AND F3<>0 OR E4<>0 AND F4<>0 THEN 200
	190 FORI=1TO10:CIRCLE(T1,FLAK),I,0:NEXTI:T1=T2:GOTO85		190 FORI=1TO10:CIRCLE(T1,FLAK),I,0:NEXTI:T1=T2:GOTO85
	195 SF=SF+1:LINE(A,B-3)-(A1,191),PSET:CIRCLE(A1,191),2:PLAY"~~O1V30T100L64DF2DP2DP2DP2DP2D~~":LINE(A,B-3)-(A1,191),PRESET:FORI=1TO2:CIRCLE(A1,169),I,0:NEXTI:GOTO165		195 SF=SF+1:LINE(A,B-3)-(A1,191),PSET:CIRCLE(A1,191),2:PLAY"O1V30Tl00L64DF2DP2DP2DP2DP2D":LINE(A,B-3)-(A1,191),PRESET: FORI=1TO2:CIRCLE(A1,169),I,0:NEXTI:GOTO165
	200 T5=10: ~~FOR I~~=~~1 TO 40 STEP2~~:Z1=RND(255):Z2=RND(191): LINE(A,B-7)-(Z1,Z2),PSET:CIRCLE(Z1,Z2),2: CIRCLE(A,B-7),I/2: PLAY"~~O1V30T100L100DDYV10DD~~":NEXTI:GOTO25		200 TS=10:FORI=1TO40STEP2:Z1=RND(255):Z2=RND(191):LINE(A,B-7)-(Z1,Z2),PSET:CIRCLE(Z1,Z2),2:CIRCLE(A,B-7),I/2: PLAY"OlV30T100L100DDV10DD":NEXTI:GOTO25
	205 OS=10:FORI=~~1TO40~~:CIRCLE(T2,191),I,1,1.5,.5,0: PLAY"01V30T100DV20DV10D": NEXTI:GOTO25		205 OS=10:FORI=lTO40:CIRCLE(T2,191),I,1,1.5,.5,0: PLAY"01V30T100DV20DV10D":NEXTI:GOTO25
	210 T3=RND(255):DRAW"S4;BM"+STR$(T3)+",191E3F3BH3U4L1U1R2D1L1D2L3BR3R3":PLAY"O4T32V30L8AEP1DFGBP1AAEDCP1FP1FP1BP1BP1D1DP1DF1DP1":FORI=1TO100:NEXTI:LINE(T3,185)-(A,B-7),PSET:PLAY"O1V30T100L64DP2DP2DP2DP2DP2DP2DP2DP2DP2":LINE(T3,185)-(A,B-7),PSET		210 T3=RND(255):DRAW"S4;BM"+STR$(T3)+",191E3F3BH3U4L1U1R2D1L1D2L3BR3R3":PLAY"O4T32V30L8AEP1DFGBP1AAEDCP1FP1FP1BP1BP1D1DP1DF1DP1":FORI=1TO100:NEXTI:LINE(T3,185)-(A,B-7),PSET:PLAY"O1V30T100L64DP2DP2DP2DP2DP2DP2DP2DP2DP2":LINE(T3,185)-(A,B-7),PSET
	225 SCREEN0,1:CLS:FORI=1TO10:CLSRND(S):SOUNDI*10,I:NEXTI		225 SCREEN0,1:CLS:FORI=1TO10:CLSRND(8):SOUNDI*10,I:NEXTI
	230 CLS0:PRINT@64,STRING$(10,128);:PRINT"FINAL SCORES ",:PRINTSTRING$(8,128);		230 CLS0:PRINT@64,STRING$(10,128);:PRINT"FINAL SCORES ",:PRINTSTRING$(8,128);
	235 PRINT@,TAB(10)"YOUR SCORE=";ALLIES*5:PRINTTAB(10)"TOTAL SHOTS=";SF		235 PRINT@192,TAB(10)"YOUR SCORE=";ALLIES*5:PRINTTAB(10)"TOTAL SHOTS=";SF
	240 PRINTSTRING$(32,126);		240 PRINTSTRING$(32,126);
	245 PRINTTAB(10)"ENEMY SCORE=";AXIS*5:PRINTTAB(10)"TOTAL SHOTS=";ES		245 PRINTTAB(10)"ENEMY SCORE=";AXIS*5:PRINTTAB(10)"TOTAL SHOTS=";ES
Line 75:		Line 76:
	260 IF ALLIES<AXIS THEN 280		260 IF ALLIES<AXIS THEN 280
	265 IF ALLIES=AXIS THEN 285		265 IF ALLIES=AXIS THEN 285
	270 ~~GOTO23~~		270 GOTO235
	275 PRINT" YOU HAYE WON THIS BATTLE":GOTO290		275 PRINT" YOU HAYE WON THIS BATTLE":GOTO290
	280 PRINT" THE ENEMY HAS WON THIS BATTLE":GOTO290		280 PRINT" THE ENEMY HAS WON THIS BATTLE":GOTO290
	285 PRINT" THIS BATTLE IS DECLARED A TIE":GOTO290		285 PRINT" THIS BATTLE IS DECLARED A TIE":GOTO290
Line 83:		Line 84:
	300 IFPA$<>"Y"THENEND		300 IFPA$<>"Y"THENEND
	305 GOTO15		305 GOTO15
			</pre>
			==ERRORS==
			line 155 never runs
			Can be solved by removing the sign of = in line 150
			In the list is already corrected
			<pre>
			150 IF B>=171 THEN B=171
			155 IF B=171 THEN 210
	</pre>		</pre>
	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]		[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]

Luis46coco at 15:56, 15 April 2019

2019-04-15T15:56:36Z

← Older revision		Revision as of 11:56, 15 April 2019
Line 13:		Line 13:

	<gallery>		<gallery>
	~~Helicopter~~ Battle.~~jpg~~\|Helicopter Battle in game		Helo Battle.png\|Helicopter Battle in game
	~~Helicopter~~ Battle1.~~jpg~~\|Helicopter Battle in game		Helo Battle1.png\|Helicopter Battle in game
	</gallery>		</gallery>

Luis46coco at 15:52, 15 April 2019

2019-04-15T15:52:05Z

← Older revision		Revision as of 11:52, 15 April 2019
Line 11:		Line 11:

	Oh...watch out for the sneaky little guy!		Oh...watch out for the sneaky little guy!

			<gallery>
			Helicopter Battle.jpg\|Helicopter Battle in game
			Helicopter Battle1.jpg\|Helicopter Battle in game
			</gallery>

	The Listing:		The Listing:

Luis46coco at 15:49, 15 April 2019

2019-04-15T15:49:48Z

← Older revision		Revision as of 11:49, 15 April 2019
Line 16:		Line 16:
	1 '**************************		1 '**************************
	2 '* HELO-BATTLE *		2 '* HELO-BATTLE *
	3 '* by *		3 '* BY *
	4 '* JARB SOFTWARE *		4 '* JARB SOFTWARE *
	5 '* (c) JARB SOFTWARE 1981 *		5 '* (C) JARB SOFTWARE 1981 *
	6 '**************************		6 '**************************
	10 CLS: PRINT@192, TAB (10) "HELO ~~BATLE~~": PRINTTAB (15) "BY": PRINTTAB (9)" JARB SOFTWARE": FORI =~~1 TO5~~: PLAY"D"+STR$(I)+"~~V30T16L4EPBEP8EPBLIAP8EP2L4B66EADEADDDP4~~": NEXTI		10 CLS:PRINT@192,TAB(10)"HELO BATTLE":PRINTTAB(15)"BY":PRINTTAB(9)"JARB SOFTWARE":FORI=1TO5:PLAY"O"+STR$(I)+"V30T16L4EP8EP8EP8L1AP8EP2L4BGGEADEADDDP4":NEXTI
	15 CLEAR200		15 CLEAR200
	20 DIMA (30, 30)		20 DIMA(30,30)
	25 ALLIES=ALLIES+DS:AXIS=AXIS+TS:DS=0:TS=0		25 ALLIES=ALLIES+DS:AXIS=AXIS+TS:DS=0:TS=0
	30 IF ALLIES>=200 THEN 225		30 IF ALLIES>=200 THEN 225
Line 29:		Line 29:
	45 PMODE4,1:PCLS:SCREEN 1,1:A=128:B=24:A1=128:B1=96		45 PMODE4,1:PCLS:SCREEN 1,1:A=128:B=24:A1=128:B1=96
	50 T1=RND(195)+30:T2=T1		50 T1=RND(195)+30:T2=T1
	55 A$="~~BU20L10D10L1DE10B610G4D4F4R20BU22R2U2L2U4R2U2L60R122L60D2R2D4l2D2R1OFBR60EBBD4H10BF10F10BH10610BE10E10B610BU4R4D10L72612L10BR5D5R20BL20L15U5BD5L20H5~~"		55 A$="BU20L10D10L1DE10BG10G4D4F4R20BU22R2U2L2U4R2U2L60R122L60D2R2D4L2D2R10F8R60E8BD4H10BF10F10BH10G10BE10E10BG10BU4R4D10L72G12L10BR5D5R20BL20L15U5BD5L20H5"
	60 B$ ="~~BL25U20R5D5BD3D4R5U4L5BU3R5U5R5D1OR20U10R5D5BD3D4R5U4L5BU3R5U5R5D20~~"		60 B$="BL25U20R5D5BD3D4R5U4L5BU3R5U5R5D10R20U10R5D5BD3D4R5U4L5BU3R5U5R5D20"
	65 DRAW"S1BM128,29"+A$		65 DRAW"S1BM128,28"+A$
	70 GET(102,16)-(158,33),A,6		70 GET(102,16)-(158,33),A,G
	75 PCLS		75 PCLS
	80 DRAW"S3;BM"+STR$(T1)+",191"+B$:PAINT(T1,191)		80 DRAW"S3;BM"+STR$(T1)+",191"+B$:PAINT(T1,191)
Line 42:		Line 42:
	110 ES=ES+1:SOUND1,1:FORI=1TO3:CIRCLE(T1,176),I,1:NEXTI:FORI=1TO3:CIRCLE(T1,176),I,0:NEXTI		110 ES=ES+1:SOUND1,1:FORI=1TO3:CIRCLE(T1,176),I,1:NEXTI:FORI=1TO3:CIRCLE(T1,176),I,0:NEXTI
	115 FOR FLAK=176 TO HEIGHT STEP-10:T1=T1+DRIFT:A1=JOYSTK(2)*4:A=A+INT(JOYSTK(0)/6.3)-5:B=B+INT(JOYSTK(1)/6.3)-5:PSET(T1,FLAK,1)		115 FOR FLAK=176 TO HEIGHT STEP-10:T1=T1+DRIFT:A1=JOYSTK(2)*4:A=A+INT(JOYSTK(0)/6.3)-5:B=B+INT(JOYSTK(1)/6.3)-5:PSET(T1,FLAK,1)
	120 IFPPOINT(T2,189)=0 ~~then~~ 205 125 IF a<=28 THEN A=28		120 IFPPOINT(T2,189)=0 THEN 205
			125 IF A<=28 THEN A=28
	130 IF T1<=20 THEN 175		130 IF T1<=20 THEN 175
	135 IF T1>=235 THEN 175		135 IF T1>=235 THEN 175
	140 IF A>=225 THEN A=225		140 IF A>=225 THEN A=225
	145 IF B<=24 THEN B=24		145 IF B<=24 THEN B=24
	150 IF B)=171 THEN B=171		150 IF B>=171 THEN B=171
	155 IF B=171 THEN 210		155 IF B=171 THEN 210
	160 PUT(A-26,B-14)-(A+30,B+7),A,PSET:PLAYS$:IF PEEK(65280)=125 OR PEEK(65280)=~~253:GOTO195~~		160 PUT(A-26,B-14)-(A+30,B+7),A,PSET:PLAYS$:IF PEEK(65280)=125 OR PEEK(65280)=253GOTO195
	165 PRESET (T1,FLAK)		165 PRESET (T1,FLAK)
	170 NEXT FLAK		170 NEXT FLAK
	175 PLAY"~~O1V30T32L32BBS~~":FORI=1TO10:CIRCLE(T1,FLAK),I,1:NEXTI		175 PLAY"O1V30T32L32BBB":FORI=1TO10:CIRCLE(T1,FLAK),I,1:NEXTI
	180 E1=PPOINT(A-15,B):F1=PPOINT(A-17,B):E2=PPOINT(A+25,B):F2=PPOINT(A+23,B): E3=PPOINT(A,B-15):F3=PPOINT(A,B-13):E4=PPOINT(A,B+B) :F4=PPOINT (A,B+10)		180 E1=PPOINT(A-15,B):F1=PPOINT(A-17,B):E2=PPOINT(A+25,B):F2=PPOINT(A+23,B): E3=PPOINT(A,B-15):F3=PPOINT(A,B-13):E4=PPOINT(A,B+8):F4=PPOINT(A,B+10)
	185 IF E1<>0 AND F1<>0 OR E2<>0 AND F2<>0 OR E3<>0 AND F3<>0 OR E4<>0 AND F4<>0 THEN 200		185 IF E1<>0 AND F1<>0 OR E2<>0 AND F2<>0 OR E3<>0 AND F3<>0 OR E4<>0 AND F4<>0 THEN 200
	190 FORI=1TO10:CIRCLE(T1,FLAK),I,0:~~NEXT1~~=T2:GOTO85		190 FORI=1TO10:CIRCLE(T1,FLAK),I,0:NEXTI:T1=T2:GOTO85
	195 SF=SF+1:LINE(A,B-3)-(A1,191),PSET:CIRCLE(A1,191),2: PLAY"~~O1V30Tl00L64DF2DP2DP2DP2DP2D~~": LINE(A,B-3)-(A1,191),PRESET: FORI=1TO2: CIRCLE(A1,169),I,0:NEXTI:GOTO165		195 SF=SF+1:LINE(A,B-3)-(A1,191),PSET:CIRCLE(A1,191),2:PLAY"O1V30T100L64DF2DP2DP2DP2DP2D":LINE(A,B-3)-(A1,191),PRESET:FORI=1TO2:CIRCLE(A1,169),I,0:NEXTI:GOTO165
	200 T5=10: FOR I=1 TO 40 STEP2:Z1=RND(255):Z2=RND(191): LINE(A,B-7)-(Z1,Z2),PSET:CIRCLE(Z1,Z2),2: CIRCLE(A,B-7),I/2: PLAY"~~OlV30T100L100DDYV10DD~~":NEXTI:GOTO25		200 T5=10: FOR I=1 TO 40 STEP2:Z1=RND(255):Z2=RND(191): LINE(A,B-7)-(Z1,Z2),PSET:CIRCLE(Z1,Z2),2: CIRCLE(A,B-7),I/2: PLAY"O1V30T100L100DDYV10DD":NEXTI:GOTO25
	205 OS=10:FORI=~~lTO40~~:CIRCLE(T2,191),I,1,1.5,.5,0: PLAY"01V30T100DV20DV10D": NEXTI:GOTO25		205 OS=10:FORI=1TO40:CIRCLE(T2,191),I,1,1.5,.5,0: PLAY"01V30T100DV20DV10D": NEXTI:GOTO25
	210 T3=RND(255): DRAW"S4;BM"+STR$(T3)+",~~19lE3F3BH3U4LlUlR2D1LlD2L3BR3R3~~": PLAY"~~O4T32V30LBAEP1DFGBPlAAEDCP1FPIFP1BP1BP1D1DP1DF1DP1~~":~~F ORI~~=1TO100: NEXTI:LINE(T3,185)-(A,B-7),PSET: PLAY"O1V30T100L64DP2DP2DP2DP2DP2DP2DP2DP2DP2":LINE(T3,185)-(A,B-7),~~PRESET 215 SF=SF+1 220 GOTO200~~		210 T3=RND(255):DRAW"S4;BM"+STR$(T3)+",191E3F3BH3U4L1U1R2D1L1D2L3BR3R3":PLAY"O4T32V30L8AEP1DFGBP1AAEDCP1FP1FP1BP1BP1D1DP1DF1DP1":FORI=1TO100:NEXTI:LINE(T3,185)-(A,B-7),PSET:PLAY"O1V30T100L64DP2DP2DP2DP2DP2DP2DP2DP2DP2":LINE(T3,185)-(A,B-7),PSET
	225 SCREEN0,1:CLS:FORI=1TO10:CLSRND(S):SOUNDI*10,I:NEXTI		225 SCREEN0,1:CLS:FORI=1TO10:CLSRND(S):SOUNDI*10,I:NEXTI
	230 CLS0:PRINT@64,STRING$(10,~~l28~~);:PRINT"FINAL SCORES ",:PRINTSTRING$(8,128);		230 CLS0:PRINT@64,STRING$(10,128);:PRINT"FINAL SCORES ",:PRINTSTRING$(8,128);
	235 PRINT@~~192~~,TAB(10)"YOUR SCORE=";ALLIES*5:PRINTTAB(10)"TOTAL SHOTS=";SF		235 PRINT@,TAB(10)"YOUR SCORE=";ALLIES*5:PRINTTAB(10)"TOTAL SHOTS=";SF
	240 PRINTSTRING$(32,126);		240 PRINTSTRING$(32,126);
	245 PRINTTAB(10)"ENEMY SCORE=";AXIS*5:PRINTTAB(10)"TOTAL SHOTS=";ES		245 PRINTTAB(10)"ENEMY SCORE=";AXIS*5:PRINTTAB(10)"TOTAL SHOTS=";ES
Line 68:		Line 69:
	255 IF ALLIES>AXIS THEN 275		255 IF ALLIES>AXIS THEN 275
	260 IF ALLIES<AXIS THEN 280		260 IF ALLIES<AXIS THEN 280
	265 IF ~~ALLlES~~=AXIS THEN 285		265 IF ALLIES=AXIS THEN 285
	270 ~~GOTO235~~		270 GOTO23
	275 PRINT" YOU HAYE WON THIS BATTLE":GOTO290		275 PRINT" YOU HAYE WON THIS BATTLE":GOTO290
	280 PRINT" THE ENEMY HAS WON THIS BATTLE":GOTO290		280 PRINT" THE ENEMY HAS WON THIS BATTLE":GOTO290
	285 PRINT" THIS BATTLE IS DECLARED A TIE":GOTO290		285 PRINT" THIS BATTLE IS DECLARED A TIE":GOTO290

Luis46coco at 14:41, 15 April 2019

2019-04-15T14:41:11Z

← Older revision		Revision as of 10:41, 15 April 2019
Line 61:		Line 61:
	210 T3=RND(255): DRAW"S4;BM"+STR$(T3)+",19lE3F3BH3U4LlUlR2D1LlD2L3BR3R3": PLAY"O4T32V30LBAEP1DFGBPlAAEDCP1FPIFP1BP1BP1D1DP1DF1DP1":F ORI=1TO100: NEXTI:LINE(T3,185)-(A,B-7),PSET: PLAY"O1V30T100L64DP2DP2DP2DP2DP2DP2DP2DP2DP2":LINE(T3,185)-(A,B-7),PRESET 215 SF=SF+1 220 GOTO200		210 T3=RND(255): DRAW"S4;BM"+STR$(T3)+",19lE3F3BH3U4LlUlR2D1LlD2L3BR3R3": PLAY"O4T32V30LBAEP1DFGBPlAAEDCP1FPIFP1BP1BP1D1DP1DF1DP1":F ORI=1TO100: NEXTI:LINE(T3,185)-(A,B-7),PSET: PLAY"O1V30T100L64DP2DP2DP2DP2DP2DP2DP2DP2DP2":LINE(T3,185)-(A,B-7),PRESET 215 SF=SF+1 220 GOTO200
	225 SCREEN0,1:CLS:FORI=1TO10:CLSRND(S):SOUNDI*10,I:NEXTI		225 SCREEN0,1:CLS:FORI=1TO10:CLSRND(S):SOUNDI*10,I:NEXTI
	230 CLS0:PRINT@64,STRING$(10,l28);:PRINT"FINAL SCORES ",:PRINTSTRING$(8,128); 235 PRINT@192,TAB(10)"YOUR SCORE=";ALLIES*5:PRINTTAB(10)"TOTAL SHOTS=";SF		230 CLS0:PRINT@64,STRING$(10,l28);:PRINT"FINAL SCORES ",:PRINTSTRING$(8,128);
			235 PRINT@192,TAB(10)"YOUR SCORE=";ALLIES*5:PRINTTAB(10)"TOTAL SHOTS=";SF
	240 PRINTSTRING$(32,126);		240 PRINTSTRING$(32,126);
	245 PRINTTAB(10)"ENEMY SCORE=";AXIS*5:PRINTTAB(10)"TOTAL SHOTS=";ES		245 PRINTTAB(10)"ENEMY SCORE=";AXIS*5:PRINTTAB(10)"TOTAL SHOTS=";ES

Luis46coco at 12:07, 15 April 2019

2019-04-15T12:07:45Z

← Older revision		Revision as of 08:07, 15 April 2019
Line 13:		Line 13:

	The Listing:		The Listing:
	</pre>		<pre>
	1 '**************************		1 '**************************
	2 '* HELO-BATTLE *		2 '* HELO-BATTLE *
Line 29:		Line 29:
	45 PMODE4,1:PCLS:SCREEN 1,1:A=128:B=24:A1=128:B1=96		45 PMODE4,1:PCLS:SCREEN 1,1:A=128:B=24:A1=128:B1=96
	50 T1=RND(195)+30:T2=T1		50 T1=RND(195)+30:T2=T1
	55 A$="~~BU20L10D10L1DE10B610G4D4F4R20BU22R2U2L2U4R2U2L60R122L60D2R2D4l2D2R1OFBR60EBBD4H10BF10F10BH106 10BE10E10B610BU4R4D10L72612L10BR5D5R20BL20L15U5BD5L20H5~~"		55 A$="BU20L10D10L1DE10B610G4D4F4R20BU22R2U2L2U4R2U2L60R122L60D2R2D4l2D2R1OFBR60EBBD4H10BF10F10BH10610BE10E10B610BU4R4D10L72612L10BR5D5R20BL20L15U5BD5L20H5"
	60 B$ ="BL25U20R5D5BD3D4R5U4L5BU3R5U5R5D1OR20U10R5D5BD3D4R5U4L5BU3R5U5R5D20"		60 B$ ="BL25U20R5D5BD3D4R5U4L5BU3R5U5R5D1OR20U10R5D5BD3D4R5U4L5BU3R5U5R5D20"
	65 DRAW"S1BM128,29"+A$		65 DRAW"S1BM128,29"+A$
Line 41:		Line 41:
	105 DRIFT=RND(32)-16		105 DRIFT=RND(32)-16
	110 ES=ES+1:SOUND1,1:FORI=1TO3:CIRCLE(T1,176),I,1:NEXTI:FORI=1TO3:CIRCLE(T1,176),I,0:NEXTI		110 ES=ES+1:SOUND1,1:FORI=1TO3:CIRCLE(T1,176),I,1:NEXTI:FORI=1TO3:CIRCLE(T1,176),I,0:NEXTI
	115 FOR FLAK=176 TO HEIGHT STEP-10:T1=T1+DRIFT:A1=JOYSTK(2)*4:A=A+INT(JOYSTK(0)/6.3)-5:B=B+INT(JOYSTK(1)/6.3)-5:PSET(T1,FLAK,1) 120 IFPPOINT(T2,189)=0 then 205 125 IF a<=28 THEN A=28		115 FOR FLAK=176 TO HEIGHT STEP-10:T1=T1+DRIFT:A1=JOYSTK(2)*4:A=A+INT(JOYSTK(0)/6.3)-5:B=B+INT(JOYSTK(1)/6.3)-5:PSET(T1,FLAK,1)
			120 IFPPOINT(T2,189)=0 then 205 125 IF a<=28 THEN A=28
	130 IF T1<=20 THEN 175		130 IF T1<=20 THEN 175
	135 IF T1>=235 THEN 175		135 IF T1>=235 THEN 175
Line 48:		Line 49:
	150 IF B)=171 THEN B=171		150 IF B)=171 THEN B=171
	155 IF B=171 THEN 210		155 IF B=171 THEN 210
	160 PUT(A-26,B-14)-(A+30,B+7),A,PSET:PLAYS$:IF PEEK(65280)=125 OR PEEK(65280) =253:GOTO195		160 PUT(A-26,B-14)-(A+30,B+7),A,PSET:PLAYS$:IF PEEK(65280)=125 OR PEEK(65280)=253:GOTO195
	165 PRESET (T1,FLAK)		165 PRESET (T1,FLAK)
	170 NEXT FLAK		170 NEXT FLAK
Line 74:		Line 75:
	295 PA$=INKEY$:IFPA$=""THEN295		295 PA$=INKEY$:IFPA$=""THEN295
	300 IFPA$<>"Y"THENEND		300 IFPA$<>"Y"THENEND
	305 ~~GOTOl5~~		305 GOTO15
	</pre>		</pre>
	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]		[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]