home *** CD-ROM | disk | FTP | other *** search
/ Video Commodore 64 #2 / Video_Commodore_64_2_19xx_GEASA.d64 / patrulla (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  126 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]":print"pulsa 'space' para cargar":print"el proximo programa"
  10. 310 geta$:ifa$=""then310
  11. 400 load
  12. 410 end
  13. 1000 rem juego
  14. 1010 print"[147]"
  15. 1270 a=int(360*rnd(1))
  16. 1280 d=int(200*rnd(1)+200)
  17. 1290 r=int(20*rnd(1)+10)
  18. 1300 h=0
  19. 1310 if h=7 then1490
  20. 1320 h=h+1
  21. 1330 print "hora:";h:print"[160]"
  22. 1340 print"con que angulo quieres disparar: ";:input a1
  23. 1360 print:print"a que distancia de la nave enemiga";:inputd1:print"[160]"
  24. 1370 a=a+r
  25. 1380 if a<360 then1400
  26. 1390 a=a-360
  27. 1400 t=abs(a-a1)
  28. 1410 if t<180 then1430
  29. 1420 t=360-t
  30. 1430 c=sqr(d*d+d1*d1-2*d*d1*cos(t*3.14159/180))
  31. 1440 print "tu bomba exploto a";c;"* 100"
  32. 1445 print "millas de la nave enemiga.":print" "
  33. 1450 if c<=50 then1470
  34. 1460 goto1310
  35. 1470 print "has terminado tu mision con exito !!!"
  36. 1480 goto1500
  37. 1490 print "has dejado que escape"
  38. 1497 print"la nave imperial !!!"
  39. 1500 print "otra nave imperial entra en orbita"
  40. 1505 print"en estos momentos."
  41. 1510 print "quieres intentar destruirla ?"
  42. 1520 geta$:ifa$=""then1520
  43. 1530 ifa$="s"then1270
  44. 1540 ifa$<>"n"then1520
  45. 1999 return
  46. 3000 poke53281,14:poke53280,15:print"[147]";
  47. 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]";
  48. 3020 print"[180]           patrulla espacial          [170]";
  49. 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]";
  50. 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]";
  51. 3050 print"[180]       una nave imperial,comandada    [170]";
  52. 3060 print"[180]    por el temible zark iv,se ha      [170]";
  53. 3070 print"[180]    situado en orbita terrestre con   [170]";
  54. 3080 print"[180]    un terrible objetivo: destruir    [170]";
  55. 3090 print"[180]    la tierra !!!                     [170]";
  56. 3100 print"[180]        el consejo supremo de la      [170]";
  57. 3110 print"[180]    confederacion terrestre te ha     [170]";
  58. 3120 print"[180]    encomendado la peligrosa mision   [170]";
  59. 3130 print"[180]    de destruir la nave invasora.     [170]";
  60. 3140 print"[180]        pero...un campo electro-      [170]";
  61. 3150 print"[180]    magnetico de naturaleza desco-    [170]";
  62. 3160 print"[180]    nocida mantiene oculta la nave    [170]";
  63. 3170 print"[180]    a tus instrumentos.               [170]";
  64. 3180 print"[180]        solo dispones de unos datos   [170]";
  65. 3190 print"[180]        gira en orbita polar cons-    [170]";
  66. 3200 print"[180]    tante a una altura entre 10000    [170]";
  67. 3210 print"[180]    y 30000 millas y tarda de 12 a    [170]";
  68. 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]";
  69. 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]";
  70. 3240 print"[180]      pulsa 'space' para continuar    [170]";
  71. 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]";
  72. 3255 geta$:ifa$<>" "then3255
  73. 3260 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]";
  74. 3270 print"[180]           patrulla espacial          [170]";
  75. 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]";
  76. 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]";
  77. 3300 print"[180]    36 horas en completar una vuel-   [170]";
  78. 3310 print"[180]    ta. ademas cada vez que dispa-    [170]";
  79. 3320 print"[180]    ras,tu cuadro de mandos te in-    [170]";
  80. 3330 print"[180]    dica la distancia a que ha ex-    [170]";
  81. 3340 print"[180]    plotado tu missil con respecto    [170]";
  82. 3350 print"[180]    a la nave imperial. para calcu-   [170]";
  83. 3360 print"[180]    lar los disparos,puedes consi-    [170]";
  84. 3370 print"[180]    derar que tu nave esta en el      [170]";
  85. 3380 print"[180]    centro de la orbita de la na-     [170]";
  86. 3390 print"[180]    ve enemiga.                       [170]";
  87. 3400 print"[180]        son pocos datos...pero un     [170]";
  88. 3410 print"[180]    experimentado piloto como tu      [170]";
  89. 3420 print"[180]    lo conseguira.                    [170]";
  90. 3430 print"[180]        los ojos de nuestro viejo     [170]";
  91. 3440 print"[180]    planeta estan fijos en ti.        [170]";
  92. 3450 print"[180]        animo...y buena suerte !!!    [170]";
  93. 3460 print"[180]                                      [170]";
  94. 3470 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]";
  95. 3480 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. 3490 print"[180]      pulsa 'space' para continuar    [170]";
  97. 3500 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]";
  98. 3510 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. 3520 print"[180]           patrulla espacial          [170]";
  100. 3530 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]";
  101. 3535 geta$:ifa$<>" "then3535
  102. 3540 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]";
  103. 3550 print"[180]      [209][209][209][209][209]           esta es tu po-  [170]";
  104. 3560 print"[180]    [209][209][209][209][209][209][209][209][209]      sicion respecto a  [170]";
  105. 3570 print"[180]   [209][209][209][209][209][209][209][209][209][209][209]     la nave enemiga:   [170]";
  106. 3580 print"[180]  [209][209][209][209]     [209][209][209][209]                       [170]";
  107. 3590 print"[180] [209][209][209][209]       [209][209][209][209]      la tuya es el   [170]";
  108. 3600 print"[180] [209][209][209]         [209][209][209]   circulo interior.  [170]";
  109. 3610 print"[180][209][209][209]           [209][209][209]     los numeros in- [170]";
  110. 3620 print"[180][209][209][209]    090    [209][209][209]  dican el angulo    [170]";
  111. 3630 print"[180][209][209][209] 180 [215] 000 [209][209][209]  de tiro en grados  [170]";
  112. 3640 print"[180][209][209][209]    270    [209][209][209]  y el anillo de     [170]";
  113. 3650 print"[180][209][209][209]           [209][209][209]  circulos exterior  [170]";
  114. 3660 print"[180] [209][209][209]         [209][209][209]   es la posible or-  [170]";
  115. 3670 print"[180] [209][209][209][209]       [209][209][209][209]   bita enemiga, en-  [170]";
  116. 3680 print"[180]  [209][209][209][209]     [209][209][209][209]    tre 10000 y 30000  [170]";
  117. 3690 print"[180]   [209][209][209][209][209][209][209][209][209][209][209]     millas. la direc-  [170]";
  118. 3700 print"[180]    [209][209][209][209][209][209][209][209][209]      cion de la orbita  [170]";
  119. 3710 print"[180]      [209][209][209][209][209]        es 0-90-180-270-0. [170]";
  120. 3720 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]";
  121. 3730 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]";
  122. 3740 print"[180]      pulsa 'space' para continuar    [170]";
  123. 3750 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]";
  124. 3950 geta$:ifa$<>" "then3950
  125. 3999 return
  126.