0 'SHOOT.BA - Terry Brady 1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLS:SEC=VAL(RIGHT$(TIME$,2)):FOR I=1TO SEC:DUM=RND(1):NEXTI:'cannon ball by Terry Brady;70055,431 3 'hacked up by trevor; 70205,1246 for the m100 4 PRINT"It will be necessary to enter fractional values to hit opponent ie; 45.6,8.6":FORT9=1TO300:NEXTT9:FORE=1TO1000:NEXTE:CLS:PRINT"ENTER THE ELEVATION ANGLE IN DEGREES + THE NUMBER OF BAGS OF POWDER. EXAMPLE: 60,8 THEN PRESS RETURN" 5 PRINT:PRINT:INPUT"HIT ENTER TO CONTINUE";Z$:DIMH(239),A1(2),A2(2),B1(4),B2(4),L(2) 6 N=2:A1(1)=0:A1(2)=100:A2(1)=100:A2(2)=100:B1(1)=-1:B1(2)=1:B1(3)=1:B1(4)=-1:B2(1)=-1:B2(2)=-1:B2(3)=1:B2(4)=1:FORI=1TO600:NEXTI:CLS 7 X1=INT(20+(30*RND(1))):X2=INT(80+(RND(1)*30)):L(1)=INT(10+(X1-10)*((RND(1)*100)/100)):L(2)=INT(X2+(120-X2)*((100*RND(1))/100)):H9=(RND(1)*19)+2:FORI=1TOX1:H(I)=H9:NEXTI:H9=(RND(1)*19)+2:FORI=X2 TO 239:H(I)=H9:NEXTI 8 X3=X1+INT(RND(1)*(X2-X1-20))+10:H(X3)=(RND(1)*22)+5:D1=(H(X3)-H(1))/2:D2=(H(X3)-H(239))/2:IFD1*D2<=0THEN11 9 J=-180:K=180/(X3-X1+1):H9=H(1)+D1:FORI=X1+1TOX3-1:J=J+K:H(I)=H9+COS(J/57.29577951)*D1:NEXTI:J=0:K=180/(X2-X3+1):H9=H(239)+D2:FORI=X3+1TOX2-1:J=J+K:H(I)=H9+COS(J/57.29577951)*D2:NEXTI:IF H(1)>33THEN7 10 GOTO12 11 D=(H(1)-H(63))/2:J=0:K=90/(X2-X1+1):H9=H(63)+D:FORI=X1+1TOX2-1:J=J+K:H(I)=H9+COS(J/57.29577951)*D:NEXTI:CLS:IFH(1)>33THENGOTO7 12 LINE((.95),(63-(1.85*H(1))))-((.95),63-(1.85*H(1))):FORI=1.49TO129.49:LINE-(I*1.85,63-(1.85*H(I))),1:NEXTI:LINE(INT(L(1)*1.85),INT(63-(1.85*(H(L(1))+1))))-((INT(L(1)*1.85)+3),(INT(63-(1.85*(H(L(1))+1)))+2)),1,B 13 LINE(INT(L(2)*1.85),INT(63-(1.85*(H(L(2))+1))))-((INT(L(2)*1.85)+3),(INT(63-(1.85*(H(L(2))+1)))+2)),1,B:W=INT(100*((RND(1))-.5)):LINE(86.4,0)-(86.4,0),0:IFW>=0THEN15 14 PRINT"WIND TO THE LEFT AT ";-W;" MPH":FORE=1TO400:NEXTE:PRINT@0," < ":GOTO16 15 PRINT"WIND TO THE RIGHT AT ";W;" MPH" :FORE=1TO400:NEXTE:PRINT@0," > " 16 :FORT9=1TO500:IF INKEY$="P"THEN17ELSE NEXTT9 17 'INPUT DEGREES,BAGS 18 N=3-N :SOUND5000,10:PRINT@0,"":INPUTE,V:IFE=0THEN35 19 E=90-E:IFN=1THEN21 20 E=-E 21 X1=L(N):Y1=H(L(N)):T=0:M=0:V1=SIN(E/57.29577951)*V:V2=COS(E/57.29577951)*V:LINE(1.85*L(N),63-(1.85*(H(L(N)))))-(1.85*L(N),63-(1.85*H(L(N)))),0 22 T=T+.3:V1=V1+(V1+W)/1500:X=X1+(V1+W/50)*T:IFX<1ORX>129THEN16 23 Y=Y1+(V2-T/3)*T:IF(1.85*X)>240OR(63-(1.85*Y))<=0THEN25 24 LINE-(1.85*X,63-(1.85*Y)),1 25 IFY-H(X)<1THEN27 26 GOTO22 27 IF ABS(X-L(N))<1 AND T>2THEN31 28 IF ABS(X-L(3-N))<1THEN31 29 IFT<2THEN22 30 SOUND 6000,10:SOUND8000,10:FORT9=1TO300:NEXTT9:GOTO17:CLS 31 FORT9=1TO2:FORX=1TO10:SOUNDX*400,10:NEXTX:NEXTT9 :FORI=1TO200:NEXTI:CLS:PRINT"ANOTHER TRY? Y OR N: "; 32 A$=INKEY$:IFA$=""THEN32 33 IFA$<>"N"THEN6ELSEMENU 34 GOTO34 35 N=3-N:GOTO45