home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / spiele / tnkwar11.bas < prev    next >
Encoding:
BASIC Source File  |  1991-05-15  |  4.6 KB  |  159 lines
  1. 4 DIM V(320):DIM X(10):DIM A(10):DIM P(10):DIM M(10):RANDOMIZE TIMER
  2. 5 KEY OFF:CLS
  3. 6 Z=1
  4. 8 FOR A=1 TO 2:A(A)=90:M(A)=100:P(A)=200:NEXT A
  5. 10 SCREEN 2:SCREEN 1
  6. 15 GOTO 54
  7. 20 FOR A=0 TO 12:LINE (0,A)-(320,A):NEXT A
  8. 21 IF P(NM)>M(NM)*10 THEN P(NM)=M(NM)*10
  9. 22 TB=0
  10. 23 LOCATE 1,32:PRINT" M:"M(NM)
  11. 24 LOCATE 1,1:PRINT" Player"NM
  12. 25 GOSUB 26:GOSUB 27:GOTO 28
  13. 26 LOCATE 1,13:PRINT" A:"A(NM):RETURN
  14. 27 LOCATE 1,22:PRINT" P:"P(NM):RETURN
  15. 28 A$=INKEY$:IF A$=CHR$(27) THEN WN=0:GOTO 5
  16. 29 IF A$="+" THEN A(NM)=A(NM)+1:GOSUB 34
  17. 30 IF A$="-" THEN A(NM)=A(NM)-1:GOSUB 34
  18. 31 IF A$=CHR$(13) THEN 48
  19. 32 IF A$=" " THEN 37
  20. 33 GOTO 28
  21. 34 IF A(NM)<0 THEN A(NM)=0
  22. 35 IF A(NM)>180 THEN A(NM)=180
  23. 36 GOSUB 26:RETURN
  24. 37 A$=INKEY$:IF A$=CHR$(27) THEN WN=0:GOTO 5
  25. 38 IF TB=1 THEN IF A$="+" THEN P(NM)=P(NM)+19 ELSE IF A$="-" THEN P(NM)=P(NM)-19
  26. 39 IF A$="+" THEN P(NM)=P(NM)+1:GOSUB 45
  27. 40 IF A$="-" THEN P(NM)=P(NM)-1:GOSUB 45
  28. 41 IF A$=CHR$(9) THEN TB=TB+1:IF TB=2 THEN TB=0
  29. 42 IF A$=CHR$(13) THEN 48
  30. 43 IF A$=" " THEN 28
  31. 44 GOTO 37
  32. 45 IF P(NM)<0 THEN P(NM)=0
  33. 46 IF P(NM)>M(NM)*10 THEN P(NM)=M(NM)*10
  34. 47 GOSUB 27:RETURN
  35. 48 A1=0:A=A(NM)
  36. 49 IF A>90 THEN A=180-A:A1=1
  37. 50 RETURN
  38. 54 IF WN>0 THEN PRINT:PRINT:PRINT"The last round's Winner was Player"WN
  39. 55 PRINT:PRINT:PRINT"Enter wind (to right): (-100 to 100)"
  40. 56 A$=INKEY$:A$=INKEY$:A$=INKEY$
  41. 57 INPUT W
  42. 58 W=W/20
  43. 60 X(1)=INT(RND*70)+5
  44. 62 X(2)=320-(INT(RND*70)+5)
  45. 64 SCREEN 2:SCREEN 1:GOTO 66
  46. 65 X=INT(RND*310)+5
  47. 66 IF R3=0 THEN GOSUB 210
  48. 67 FOR NM=1 TO 2
  49. 68 X=X(NM)
  50. 70 FOR C=1 TO 5 STEP .5:CIRCLE (X,V(X)),C,NM+1,,,5/5:NEXT C
  51. 75 NEXT NM
  52. 80 GOSUB 300
  53. 84 NM=INT(RND*2)+1:GOTO 87
  54. 85 NM=NM+1:IF NM>2 THEN NM=1
  55. 87 GOSUB 20
  56. 88 B=P(NM)
  57. 90 X=X(NM):Y=V(X):FY=0-((A/90)*B):FX=0-(((90-A)/90)*B)
  58. 95 IF A1=1 THEN FX=0-FX
  59. 100 LINE (X,Y)-(X,Y)
  60. 105 IF FY<0 THEN FY1=0-FY ELSE FY1=FY
  61. 106 IF FX<0 THEN FX1=0-FX ELSE FX1=FX
  62. 110 IF FY1>FX1 THEN 115
  63. 111 IF FX<0 THEN FX2=0-Z ELSE IF FX>0 THEN FX2=Z ELSE FX2=0
  64. 112 IF FX1=0 THEN IF FY1=0 THEN FX2=0:FY2=0:GOTO 118
  65. 113 IF FX<0 THEN FY2=FY/((0-FX)/Z) ELSE FY2=FY/(FX/Z)
  66. 114 GOTO 118
  67. 115 IF FY<0 THEN FY2=0-Z ELSE IF FY>0 THEN FY2=Z ELSE FY2=0
  68. 116 IF FY<0 THEN FX2=FX/((0-FY)/Z) ELSE FX2=FX/(FY/Z)
  69. 118 X=X+FX2:Y=Y+FY2
  70. 120 FY=FY+Z:FX=FX+(W*Z)
  71. 130 LINE -(X,Y),NM+1
  72. 140 X9=X
  73. 150 IF X9>320 THEN X9=320
  74. 160 IF X9<1 THEN X9=1
  75. 170 IF Y>=V(X9) THEN BEEP:GOTO 185
  76. 180 GOTO 105
  77. 185 IF X>0 THEN IF X<321 THEN GOSUB 330:GOSUB 600:GOSUB 410
  78. 200 R3=1:GOTO 85
  79. 210 FK=0:HK=INT(RND*168)+20:CK1=INT(RND*6)+2
  80. 215 CK5=INT(RND*25)+15
  81. 220 CK4=INT(RND*8)+1:FOR C=1 TO 320
  82. 230 CK=INT(RND*CK1)+1:CK3=CK3+1
  83. 235 IF CK3>1 THEN IF CK3/5<>INT(CK3/5) THEN 240 ELSE 250
  84. 240 IF CK<>1 THEN 260
  85. 250 CK2=INT(RND*2)+1:IF CK2=1 THEN FK=FK-1 ELSE FK=FK+1
  86. 255 IF FK>CK4 THEN FK=FK-1
  87. 256 IF FK<0-CK4 THEN FK=FK+1
  88. 260 HK=HK+FK:IF HK>198 THEN HK=198
  89. 265 IF HK<CK5 THEN HK=CK5:FK=0
  90. 270 V(C)=HK
  91. 280 NEXT C
  92. 290 RETURN
  93. 300 FOR C=0 TO 320
  94. 305 C1=C:IF C1=0 THEN C1=1
  95. 310 LINE (C,200)-(C,V(C1)),1
  96. 312 LINE (C,200)-(C,199),3
  97. 315 NEXT C
  98. 318 LINE (0,200)-(320,200),1
  99. 319 LINE (0,199)-(320,199),1
  100. 320 RETURN
  101. 330 FOR X5=1 TO 3
  102. 340 IF X5=1 THEN CL=3
  103. 350 IF X5=2 THEN CL=2
  104. 360 IF X5=3 THEN CL=0
  105. 370 FOR X6=0 TO 7 STEP .25
  106. 380 CIRCLE (X,Y),X6,CL,,,5/5
  107. 385 FOR X56=1 TO 10:NEXT X56
  108. 390 NEXT X6
  109. 400 NEXT X5:RETURN
  110. 410 REM
  111. 420 FOR X3=1 TO 15
  112. 430 H1=-7:H2=7
  113. 440 IF X3=1 THEN H1=-2:H2=2
  114. 445 IF X3=15 THEN H1=-2:H2=2
  115. 450 IF X3=14 THEN H1=-4:H2=4
  116. 455 IF X3=2 THEN H1=-4:H2=4
  117. 460 IF X3=13 THEN H1=-5:H2=5
  118. 465 IF X3=3 THEN H1=-5:H2=5
  119. 470 IF X3=12 THEN H1=-6:H2=6
  120. 475 IF X3=4 THEN H1=-6:H2=6
  121. 480 IF X3=11 THEN H1=-6:H2=6
  122. 485 IF X3=5 THEN H1=-6:H2=6
  123. 490 FOR X4=H1 TO H2 STEP 1
  124. 500 LINE (X+X4,X3+Y-7)-(X+X4,X3+Y-7),0
  125. 510 IF X+X4<1 THEN 540
  126. 520 IF X+X4>320 THEN 540
  127. 530 IF Y+X3-7>=V(X+X4) THEN LINE (X+X4,V(X+X4))-(X+X4,V(X+X4)),0:V(X+X4)=V(X+X4)+1:IF V(X+X4)>198 THEN V(X+X4)=198
  128. 535 IF Y+X3-7>=V(X+X4)-1 THEN LINE (X+X4,V(X+X4))-(X+X4,200),1
  129. 540 NEXT X4
  130. 550 NEXT X3
  131. 560 FOR NM2=1 TO 2
  132. 570 FOR C=1 TO 5 STEP .5:CIRCLE (X(NM2),V(X(NM2))),C,NM2+1,,,5/5:NEXT C
  133. 580 NEXT NM2
  134. 590 GOSUB 300:RETURN
  135. 600 FOR Y3=1 TO 2
  136. 610 REM
  137. 620 FOR X3=1 TO 15
  138. 630 H1=-7:H2=7
  139. 640 IF X3=1 THEN H1=-2:H2=2
  140. 645 IF X3=15 THEN H1=-2:H2=2
  141. 650 IF X3=14 THEN H1=-4:H2=4
  142. 655 IF X3=2 THEN H1=-4:H2=4
  143. 660 IF X3=13 THEN H1=-5:H2=5
  144. 665 IF X3=3 THEN H1=-5:H2=5
  145. 670 IF X3=12 THEN H1=-6:H2=6
  146. 675 IF X3=4 THEN H1=-6:H2=6
  147. 680 IF X3=11 THEN H1=-6:H2=6
  148. 685 IF X3=5 THEN H1=-6:H2=6
  149. 690 FOR Y4=X+H1 TO X+H2 STEP 1
  150. 700 IF Y4>X(Y3)+4 THEN 740
  151. 710 IF Y4<X(Y3)-4 THEN 740
  152. 720 IF X3+V(X)-7>V(X(Y3))+4 THEN 740
  153. 730 IF X3+V(X)-7<V(X(Y3))-4 THEN 740
  154. 735 M(Y3)=M(Y3)-1
  155. 737 IF M(Y3)>0 THEN 740
  156. 738 WN=Y3+1:IF WN=3 THEN WN=1
  157. 739 GOTO 5
  158. 740 NEXT Y4:NEXT X3:NEXT Y3:RETURN
  159.