home *** CD-ROM | disk | FTP | other *** search
/ Video Commodore 64 #2 / Video_Commodore_64_2_19xx_GEASA.d64 / bombardeo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  147 lines
  1. 5 rem patrulla espacial vc64-02
  2. 10 gosub3000:goto100
  3. 30 print"[147]quieres instrucciones(s/n)?: ";
  4. 40 geta$:ifa$=""then40
  5. 50 ifa$="s"then10
  6. 60 ifa$="n"then100
  7. 70 goto40
  8. 100 gosub1000
  9. 300 print"[147]pulsa 'space' para cargar el proximo programa"
  10. 310 geta$:ifa$<>"[160]"then310
  11. 400 load
  12. 410 end
  13. 1000 rem juego
  14. 1260 dim m(100)
  15. 1350 z=0:q=0:print"[147]"
  16. 1380 c=int(rnd(1)*25)+1
  17. 1390 d=int(rnd(1)*25)+1
  18. 1400 e=int(rnd(1)*25)+1
  19. 1410 f=int(rnd(1)*25)+1
  20. 1420 if c=d then1390
  21. 1430 if c=e then1400
  22. 1440 if c=f then1410
  23. 1450 if d=e then1400
  24. 1460 if d=f then1410
  25. 1470 if e=f then1410
  26. 1480 print "cuales son tus 4 posiciones:";
  27. 1490 input g,h,k,l
  28. 1495 print
  29. 1500 print "donde quieres disparar tu missil:";
  30. 1510 input y:print
  31. 1520 if y=c then1710
  32. 1530 if y=d then1710
  33. 1540 if y=e then1710
  34. 1550 if y=f then1710
  35. 1560 goto1630
  36. 1570 m=int(rnd(1)*25)+1
  37. 1575 goto 2160
  38. 1580 if x=g then1920
  39. 1590 if x=h then1920
  40. 1600 if x=l then1920
  41. 1610 if x=k then1920
  42. 1620 goto1670
  43. 1630 print"fallaste !!!":fori=1to200:next:print:print"ahora es mi turno":print
  44. 1640 goto1570
  45. 1670 print"elegi la base";m;"y falle.":fori=1to200:next
  46. 1680 print:print"es tu turno.":fori=1to200:next:print:goto1500
  47. 1710 q=q+1
  48. 1720 if q=4 then1890
  49. 1730 print:print "alcanzaste una de mis bases !!!":fori=1to200:next:print
  50. 1740 if q=1 then1770
  51. 1750 if q=2 then1810
  52. 1760 if q=3 then1850
  53. 1770 print "has destruido una base !!!":print:print"quedan tres bases ocultas."
  54. 1780 print: print:fori=1to200:next:goto1570
  55. 1810 print "has destruido dos bases !!!":print:print"quedan dos bases ocultas."
  56. 1820 print: print:fori=1to200:next:goto1570
  57. 1850 print "has destruido tres bases !!!":print:print"queda una base oculta."
  58. 1860 print: print:fori=1to200:next:goto1570
  59. 1890 print "han sido destruidas todas las bases":print
  60. 1910 fori=1to200:next:goto 2235
  61. 1920 z=z+1
  62. 1930 if z=4 then 2110
  63. 1940 print "alcanzada y destruida la base";x;"!!!":fori=1to200:next:print
  64. 1950 if z=1 then1990
  65. 1960 if z=2 then 2030
  66. 1970 if z=3 then 2070
  67. 1990 print "solo te quedan tres bases"
  68. 2000 print: print:fori=1to200:next:goto1500
  69. 2030 print "solo te quedan dos bases"
  70. 2040 print: print:fori=1to200:next:goto1500
  71. 2070 print "solo te queda una base"
  72. 2080 print: print:fori=1to200:next:goto1500
  73. 2110 print "acabe contigo !!!":print
  74. 2112 print "tu ultima base estaba en ";x;"."
  75. 2115 print:fori=1to200:next
  76. 2120 print "espero que la proxima"
  77. 2130 print "vez tengas mas suerte"
  78. 2140 fori=1to200:next
  79. 2150 goto 2235
  80. 2160 p=p+1
  81. 2170 n=p-1
  82. 2180 for t=1 to m
  83. 2190 if m=m(t) then1570
  84. 2200 next t
  85. 2210 x=m
  86. 2220 m(p)=m
  87. 2230 goto1580
  88. 2235 print"quieres jugar otra partida?":print""
  89. 2240 geta$:ifa$=""then2240
  90. 2250 ifa$="n"then2999
  91. 2260 ifa$="s"then1350
  92. 2270 goto2240
  93. 2999 return
  94. 3000 poke53281,14:poke53280,15:print"[147]";
  95. 3010 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  96. 3020 print"[180]           b o m b a r d e o          [170]";
  97. 3030 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  98. 3040 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  99. 3050 print"[180]       en el centro de entrenamien-   [170]";
  100. 3060 print"[180]    to espacial de la confederacion   [170]";
  101. 3070 print"[180]    en ganimedes, te preparas para    [170]";
  102. 3080 print"[180]    luchar contra el imperio galac-   [170]";
  103. 3090 print"[180]    tico. la lucha es dura...igual    [170]";
  104. 3100 print"[180]    que los entrenamientos.           [170]";
  105. 3110 print"[180]        en este debes destruir las    [170]";
  106. 3120 print"[180]    cuatro bases camufladas por el    [170]";
  107. 3130 print"[180]    ordenador gigante del centro de   [170]";
  108. 3140 print"[180]    entrenamiento, antes de que el    [170]";
  109. 3150 print"[180]    descubra y destruya las tuyas.    [170]";
  110. 3160 print"[180]        hay 25 posiciones posibles    [170]";
  111. 3170 print"[180]    y debes acertar las 4 posicio-    [170]";
  112. 3180 print"[180]    nes correctas antes de que el     [170]";
  113. 3190 print"[180]    super-ordenador destruya las 4    [170]";
  114. 3200 print"[180]    tuyas.                            [170]";
  115. 3210 print"[180]                                      [170]";
  116. 3220 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  117. 3230 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  118. 3240 print"[180]      pulsa 'space' para continuar    [170]";
  119. 3250 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  120. 3255 geta$:ifa$<>" "then3255
  121. 3260 print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  122. 3270 print"[180]           b o m b a r d e o          [170]";
  123. 3280 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  124. 3290 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  125. 3300 print"[180]       copia esta matriz con la nu-   [170]";
  126. 3310 print"[180]    meracion de las posiciones indi-  [170]";
  127. 3320 print"[180]    cada y utilizala para apuntar     [170]";
  128. 3330 print"[180]    las jugadas:                      [170]";
  129. 3340 print"[180]                                      [170]";
  130. 3350 print"[180]            [176][192][192][178][192][192][178][192][192][178][192][192][178][192][192][174]          [170]";
  131. 3360 print"[180]            [194] 1[221] 2[221] 3[221] 4[221] 5[200]          [170]";
  132. 3370 print"[180]            [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]          [170]";
  133. 3380 print"[180]            [194] 6[221] 7[221] 8[221] 9[221]10[200]          [170]";
  134. 3390 print"[180]            [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]          [170]";
  135. 3400 print"[180]            [194]11[221]12[221]13[221]14[221]15[200]          [170]";
  136. 3410 print"[180]            [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]          [170]";
  137. 3420 print"[180]            [194]16[221]17[221]18[221]19[221]20[200]          [170]";
  138. 3430 print"[180]            [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]          [170]";
  139. 3440 print"[180]            [194]21[221]22[221]23[221]24[221]25[200]          [170]";
  140. 3450 print"[180]            [173][192][192][177][192][192][177][192][192][177][192][192][177][192][192][189]          [170]";
  141. 3460 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  142. 3470 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  143. 3480 print"[180]      pulsa 'space' para continuar    [170]";
  144. 3490 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  145. 3950 geta$:ifa$<>" "then3950
  146. 3999 return
  147.