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