home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / shoot.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  37 lines
  1. 0 'SHOOT.BA - Terry Brady
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:SEC=VAL(RIGHT$(TIME$,2)):FOR I=1TO SEC:DUM=RND(1):NEXTI:'cannon ball by Terry Brady;70055,431
  4. 3 'hacked up by trevor; 70205,1246 for the m100
  5. 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"
  6. 5 PRINT:PRINT:INPUT"HIT ENTER TO CONTINUE";Z$:DIMH(239),A1(2),A2(2),B1(4),B2(4),L(2)
  7. 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
  8. 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
  9. 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
  10. 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
  11. 10 GOTO12
  12. 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
  13. 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
  14. 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
  15. 14 PRINT"WIND TO THE LEFT AT ";-W;" MPH":FORE=1TO400:NEXTE:PRINT@0,"             <               ":GOTO16
  16. 15 PRINT"WIND TO THE RIGHT AT ";W;" MPH" :FORE=1TO400:NEXTE:PRINT@0,"             >               "
  17. 16 :FORT9=1TO500:IF INKEY$="P"THEN17ELSE NEXTT9
  18. 17 'INPUT DEGREES,BAGS
  19. 18 N=3-N :SOUND5000,10:PRINT@0,"":INPUTE,V:IFE=0THEN35
  20. 19 E=90-E:IFN=1THEN21
  21. 20 E=-E
  22. 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
  23. 22 T=T+.3:V1=V1+(V1+W)/1500:X=X1+(V1+W/50)*T:IFX<1ORX>129THEN16
  24. 23 Y=Y1+(V2-T/3)*T:IF(1.85*X)>240OR(63-(1.85*Y))<=0THEN25
  25. 24 LINE-(1.85*X,63-(1.85*Y)),1
  26. 25 IFY-H(X)<1THEN27
  27. 26 GOTO22
  28. 27 IF ABS(X-L(N))<1 AND T>2THEN31
  29. 28 IF ABS(X-L(3-N))<1THEN31
  30. 29 IFT<2THEN22
  31. 30 SOUND 6000,10:SOUND8000,10:FORT9=1TO300:NEXTT9:GOTO17:CLS
  32. 31 FORT9=1TO2:FORX=1TO10:SOUNDX*400,10:NEXTX:NEXTT9 :FORI=1TO200:NEXTI:CLS:PRINT"ANOTHER TRY? Y OR N: ";
  33. 32 A$=INKEY$:IFA$=""THEN32
  34. 33 IFA$<>"N"THEN6ELSEMENU
  35. 34 GOTO34
  36. 35 N=3-N:GOTO45
  37.