home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #1 / Floppy_Magazine_86-1_1986_Megasystems_Oy_fi.d64 / tikkupeli (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  3.3 KB  |  85 lines
  1. 10 rem aloitus ************************
  2. 20 poke53281,12:poke53280,0:print"[147][144]tikkupeli   r.hamalainen, maaliskuu 1984";
  3. 30 print"[146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":fori=1to12
  4. 40 print"[221][221]":next
  5. 50 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][145][145][145][145][145][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]haluatko ohjeet"
  6. 60 print"(k/e)?";
  7. 65 geta$:ifa$=""then65
  8. 67 ifa$="e"then150
  9. 70 rem ohjeet *************************
  10. 80 print"poytaan jaetaan[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]tikkuja neljaan"
  11. 90 print"riviin, a 1-9 kpl.[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]tikkuja voi ottaa"
  12. 100 print"vuorollaan yhdesta[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]rivista kerrallaan"
  13. 110 print"haluamansa maaran.[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]viimeisen tikun"
  14. 120 print"saanut on haviaja.[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]sina pelaat "
  15. 130 print"konetta vastaan[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]paina return!"
  16. 140 geta$:ifa$=""then140
  17. 150 print"";:fori=1to12:print"                  ":next
  18. 160 print"tikkuja jaetaan[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]seuraavat maarat:"
  19. 170 fori=1to4:v(i)=int(rnd(1)*9+1):print"rivi"i":"v(i)" tikkua"
  20. 190 next:print"kumpi aloittaa?[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]1=sina, 2=kone";
  21. 200 geta$:n=val(a$):if n<1orn>2then200
  22. 210 print"rivi   [146] tikkuja   "
  23. 220 print"rivitikkuja1[157]2[157]3[157]4"
  24. 230 print"rivi   [146] tikkuja   "
  25. 240 gosub300
  26. 250 on n goto 500,700
  27. 300 rem tikut *************************
  28. 310 print"";:fori=1to4:print"";:ifv(i)=0then330
  29. 320 forj=1tov(i):print"[144][172] [157][157][158][217] [157][157][217] [145][145]";:nextj:ifv(i)=9then340
  30. 330 fork=v(i)+1to9:print"  [157][157]  [157][157]  [145][145]";:nextk
  31. 340 print""tab(33);v(i);"":nexti:return
  32. 500 rem pelaajan otto *****************
  33. 505 z=o:fori=1to4:z=z+v(i):next:ifz=1thengoto1100
  34. 510 print" ilmoita rivinro! ":geta$:b=val(a$):ifb<1orb>4then510
  35. 520 print""b;:ifv(b)=0thenprint"[157][157][157]  ":goto500
  36. 530 print"ilmoita tikkumra! "
  37. 535 geta$:c=val(a$):ifc<1orc>v(b)then530
  38. 540 print""c"paina return tai k"
  39. 550 geta$:ifa$=""then550
  40. 560 print"                  [157][157][157][157][157][157][157][157][157][157][157][157][157]  [146]  "
  41. 570 ifa$<>chr$(13)then500
  42. 580 v(b)=v(b)-c:gosub300
  43. 700 rem koneen vaDyta ****************
  44. 710 fori=1to4:x=v(i):m(i,1)=0:if8<=xthenm(i,1)=1:x=x-8
  45. 720 m(i,2)=0:if4<=xthenm(i,2)=1:x=x-4
  46. 730 m(i,3)=0:if2<=xthenm(i,3)=1:x=x-2
  47. 740 m(i,4)=0:if1<=xthenm(i,4)=1
  48. 750 next:fori=1to4:m(5,i)=0:next
  49. 760 fori=1to4:forj=1to4:m(5,i)=m(5,i)+m(j,i):nextj,i
  50. 770 n=0:s=0:r=0:fori=1to4:p(i)=0:ifv(i)<>0thenn=n+1:ifv(i)>=sthens=v(i):g=i
  51. 780 ifm(5,i)=1orm(5,i)=3thenp(i)=1:r=1
  52. 790 nexti:ifn=0then1100
  53. 800 ifn=1andv(g)=1then1110
  54. 810 ifn=1thenot=v(g)-1:v(g)=1:gosub1000:gosub300:goto1100
  55. 820 ifr<>1thenot=1:v(g)=v(g)-ot:gosub1000:gosub300:goto500
  56. 830 ifn<>2then880
  57. 840 k=0:fori=1to4:ifv(i)=1thenk=1
  58. 850 ifv(i)>1theng=i
  59. 860 nexti:ifk=0then900
  60. 865 ifn<>3thenot=v(g):v(g)=0
  61. 870 ifn=3thenot=v(g)-1:v(g)=1
  62. 875 gosub1000:gosub300:goto500
  63. 880 q=0:fori=1to4:ifv(i)>=2thenq=q+1
  64. 890 nexti:ifq=1then840
  65. 900 fori=1to4:forj=1to4:ifp(j)=0thent(j)=m(i,j):goto930
  66. 910 ifm(i,j)=1thent(j)=0:goto930
  67. 920 t(j)=1
  68. 930 nextj:a=8*t(1)+4*t(2)+2*t(3)+t(4):ifa>v(i)then950
  69. 940 ot=v(i)-a:v(i)=a:g=i:gosub1000:gosub300:goto500
  70. 950 nexti:goto840
  71. 1000 rem kone siirtaa ******************
  72. 1010 print""g""ot
  73. 1020 print" tietokone ottaa!  paina return!    "
  74. 1025 geta$:ifa$=""then1025
  75. 1030 print"    "
  76. 1040 print"                                    "
  77. 1050 return
  78. 1100 a$="tietokone[157][157][157][157][157][157][157][157][157]voitti!":goto1120
  79. 1110 a$="hienoa![157][157][157][157][157][157][157]olit parempi!"
  80. 1120 print""a$
  81. 1130 print"uusi peli?[157][157][157][157][157][157][157][157][157](k/e)"
  82. 1140 geta$:ifa$=""then1140
  83. 1150 ifa$="k"then150
  84. 1160 print"[147]kiitos!":end
  85.