home *** CD-ROM | disk | FTP | other *** search
/ Video Commodore 64 #2 / Video_Commodore_64_2_19xx_GEASA.d64 / piedra (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  103 lines
  1. 5 rem piedra, papel, tijeras - vc-64 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 print"[147]"
  14. 1030 input "cuantos juegos: ";q
  15. 1040 if q<11 then1060
  16. 1050 print"la respuesta es incorrecta."
  17. 1055 print"no se pueden jugar mas de 10 juegos !!!":print:goto1030
  18. 1060 for g=1 to q
  19. 1070 print: print "juego numero ";g
  20. 1080 x=int (rnd(1)*3+1)
  21. 1090 print "1=papel...2=tijeras...3=piedra":print
  22. 1100 input "1...2...3...tu que eliges";k
  23. 1110 if (k-1)*(k-2)*(k-3)<>o thenprint:print "incorrecto !!!":print:goto1090
  24. 1120 print:print "esta es mi eleccion..."
  25. 1130 on x goto1140,1150,1160
  26. 1140 printx;"... papel": goto1170
  27. 1150 printx;"...tijeras": goto1170
  28. 1160 printx;"...piedra"
  29. 1170 if  x=k then1250
  30. 1180 if x>k then1230
  31. 1190 if x=1 then1210
  32. 1200 print:print "tu ganas !!!":h=h+1:goto1260
  33. 1210 if k<>3 then1200
  34. 1220 print:print "gano yo !!!":c=c+1:goto1260
  35. 1230 if k<>1 or x<>3 then1220
  36. 1240 goto1200
  37. 1250 print:print "empate. nadie gana"
  38. 1260 next g
  39. 1270 print: print "esta es la puntuacion final:"
  40. 1280 print:print "yo he ganado ";c;"juego(s)"
  41. 1290 print:print  "tu has ganado ";h;" juego(s)"
  42. 1300 print:print "y ";q-(c+h);" juego(s) terminaron en empate"
  43. 1310 print: print "gracias por haber jugado !!!"
  44. 1320 print"quieres jugar otra partida?":print
  45. 1330 geta$:ifa$=""then1330
  46. 1340 ifa$="s"then1000
  47. 1350 ifa$<>"n"then1330
  48. 1999 return
  49. 3000 poke53281,14:poke53280,15:print"[147]";
  50. 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]";
  51. 3020 print"[180]       piedra, papel, tijeras         [170]";
  52. 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]";
  53. 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]";
  54. 3050 print"[180]       recuerdas el viejo juego       [170]";
  55. 3060 print"[180]    'piedra, papel, tijeras'?         [170]";
  56. 3070 print"[180]                                      [170]";
  57. 3080 print"[180]       seguro que si: tu contrin-     [170]";
  58. 3090 print"[180]    cante y tu mostrabais simulta-    [170]";
  59. 3100 print"[180]    neamente una de tres posibles     [170]";
  60. 3110 print"[180]    posiciones de la mano:            [170]";
  61. 3120 print"[180]        puno cerrado (piedra), mano   [170]";
  62. 3130 print"[180]    abierta (papel) o dos dedos       [170]";
  63. 3140 print"[180]    (tijeras).                        [170]";
  64. 3150 print"[180]                                      [170]";
  65. 3160 print"[180]        como recordaras, la piedra    [170]";
  66. 3170 print"[180]    gana a las tijeras (las rompe)    [170]";
  67. 3180 print"[180]    el papel a la piedra (la en-      [170]";
  68. 3190 print"[180]    vuelve) y las tijeras al papel    [170]";
  69. 3200 print"[180]    (lo cortan). en esta version      [170]";
  70. 3210 print"[180]    puedes jugar hasta 10 partidas    [170]";
  71. 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]";
  72. 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]";
  73. 3240 print"[180]      pulsa 'space' para continuar    [170]";
  74. 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]";
  75. 3255 geta$:ifa$<>" "then3255
  76. 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]";
  77. 3270 print"[180]     piedra, papel, tijeras           [170]";
  78. 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]";
  79. 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]";
  80. 3300 print"[180]    con tu commodore-64 y gana, lo-   [170]";
  81. 3310 print"[180]    gicamente, quien mayor numero     [170]";
  82. 3320 print"[180]    de partidas tiene en su haber.    [170]";
  83. 3330 print"[180]                                      [170]";
  84. 3340 print"[180]        el papel se representa con    [170]";
  85. 3350 print"[180]    el numero 1, las tijeras con el   [170]";
  86. 3360 print"[180]    numero 2 y la piedra con el nu-   [170]";
  87. 3370 print"[180]    mero 3.                           [170]";
  88. 3380 print"[180]                                      [170]";
  89. 3390 print"[180]                                      [170]";
  90. 3400 print"[180]                                      [170]";
  91. 3410 print"[180]                                      [170]";
  92. 3420 print"[180]                                      [170]";
  93. 3430 print"[180]                                      [170]";
  94. 3440 print"[180]                                      [170]";
  95. 3450 print"[180]                                      [170]";
  96. 3460 print"[180]                                      [170]";
  97. 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]";
  98. 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]";
  99. 3490 print"[180]      pulsa 'space' para continuar    [170]";
  100. 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]";
  101. 3950 geta$:ifa$<>" "then3950
  102. 3999 return
  103.