home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / spiele / tankwar2.bas < prev    next >
Encoding:
BASIC Source File  |  1991-05-15  |  1.0 KB  |  33 lines
  1. 5 KEY OFF
  2. 10 SCREEN 2:SCREEN 1
  3. 20 PRINT"Enter angle: (0 to 180 - 0 is left)"
  4. 30 INPUT A
  5. 40 PRINT:PRINT:PRINT"Enter power: (0 to 1000)
  6. 50 INPUT B
  7. 56 PRINT:PRINT:PRINT"Enter wind (to right): (-100 to 100)"
  8. 57 INPUT W
  9. 58 W=W/20
  10. 60 SCREEN 2:SCREEN 1
  11. 70 FOR C=1 TO 5 STEP .5:CIRCLE (319,195),C,1,,,5/5:NEXT C
  12. 80 FOR C=1 TO 5:LINE (0,195+C)-(320,195+C),2:NEXT C
  13. 90 X=319:Y=195:FY=0-((A/90)*B):FX=0-(((90-A)/90)*B)
  14. 100 LINE (X,Y)-(X,Y)
  15. 105 IF FY<0 THEN FY1=0-FY ELSE FY1=FY
  16. 106 IF FX<0 THEN FX1=0-FX ELSE FX1=FX
  17. 110 IF FY1>FX1 THEN 115
  18. 111 IF FX<0 THEN FX2=-1 ELSE IF FX>0 THEN FX2=1 ELSE FX2=0
  19. 112 IF FX1=0 THEN IF FY1=0 THEN FX2=0:FY2=0:GOTO 118
  20. 113 IF FX<0 THEN FY2=FY/(0-FX) ELSE FY2=FY/FX
  21. 114 GOTO 118
  22. 115 IF FY<0 THEN FY2=-1 ELSE IF FY>0 THEN FY2=1 ELSE FY2=0
  23. 116 IF FY<0 THEN FX2=FX/(0-FY) ELSE FX2=FX/FY
  24. 118 X=X+FX2:Y=Y+FY2
  25. 120 FY=FY+1:FX=FX+W
  26. 130 LINE -(X,Y)
  27. 135 GOTO 170
  28. 140 IF X<1 THEN BEEP:END
  29. 150 IF X>320 THEN BEEP:END
  30. 160 IF Y<1 THEN BEEP:END
  31. 170 IF Y>195 THEN BEEP:END
  32. 180 GOTO 105
  33.