home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1986 #1
/
Floppy_Magazine_86-1_1986_Megasystems_Oy_fi.d64
/
tikkupeli
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
85 lines
10 rem aloitus ************************
20 poke53281,12:poke53280,0:print"[147][144]tikkupeli r.hamalainen, maaliskuu 1984";
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
40 print"[221][221]":next
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"
60 print"(k/e)?";
65 geta$:ifa$=""then65
67 ifa$="e"then150
70 rem ohjeet *************************
80 print"poytaan jaetaan[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]tikkuja neljaan"
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"
100 print"vuorollaan yhdesta[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]rivista kerrallaan"
110 print"haluamansa maaran.[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]viimeisen tikun"
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 "
130 print"konetta vastaan[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]paina return!"
140 geta$:ifa$=""then140
150 print"";:fori=1to12:print" ":next
160 print"tikkuja jaetaan[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]seuraavat maarat:"
170 fori=1to4:v(i)=int(rnd(1)*9+1):print"rivi"i":"v(i)" tikkua"
190 next:print"kumpi aloittaa?[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]1=sina, 2=kone";
200 geta$:n=val(a$):if n<1orn>2then200
210 print"rivi [146] tikkuja "
220 print"rivitikkuja1[157]2[157]3[157]4"
230 print"rivi [146] tikkuja "
240 gosub300
250 on n goto 500,700
300 rem tikut *************************
310 print"";:fori=1to4:print"";:ifv(i)=0then330
320 forj=1tov(i):print"[144][172] [157][157][158][217] [157][157][217] [145][145]";:nextj:ifv(i)=9then340
330 fork=v(i)+1to9:print" [157][157] [157][157] [145][145]";:nextk
340 print""tab(33);v(i);"":nexti:return
500 rem pelaajan otto *****************
505 z=o:fori=1to4:z=z+v(i):next:ifz=1thengoto1100
510 print" ilmoita rivinro! ":geta$:b=val(a$):ifb<1orb>4then510
520 print""b;:ifv(b)=0thenprint"[157][157][157] ":goto500
530 print"ilmoita tikkumra! "
535 geta$:c=val(a$):ifc<1orc>v(b)then530
540 print""c"paina return tai k"
550 geta$:ifa$=""then550
560 print" [157][157][157][157][157][157][157][157][157][157][157][157][157] [146] "
570 ifa$<>chr$(13)then500
580 v(b)=v(b)-c:gosub300
700 rem koneen vaDyta ****************
710 fori=1to4:x=v(i):m(i,1)=0:if8<=xthenm(i,1)=1:x=x-8
720 m(i,2)=0:if4<=xthenm(i,2)=1:x=x-4
730 m(i,3)=0:if2<=xthenm(i,3)=1:x=x-2
740 m(i,4)=0:if1<=xthenm(i,4)=1
750 next:fori=1to4:m(5,i)=0:next
760 fori=1to4:forj=1to4:m(5,i)=m(5,i)+m(j,i):nextj,i
770 n=0:s=0:r=0:fori=1to4:p(i)=0:ifv(i)<>0thenn=n+1:ifv(i)>=sthens=v(i):g=i
780 ifm(5,i)=1orm(5,i)=3thenp(i)=1:r=1
790 nexti:ifn=0then1100
800 ifn=1andv(g)=1then1110
810 ifn=1thenot=v(g)-1:v(g)=1:gosub1000:gosub300:goto1100
820 ifr<>1thenot=1:v(g)=v(g)-ot:gosub1000:gosub300:goto500
830 ifn<>2then880
840 k=0:fori=1to4:ifv(i)=1thenk=1
850 ifv(i)>1theng=i
860 nexti:ifk=0then900
865 ifn<>3thenot=v(g):v(g)=0
870 ifn=3thenot=v(g)-1:v(g)=1
875 gosub1000:gosub300:goto500
880 q=0:fori=1to4:ifv(i)>=2thenq=q+1
890 nexti:ifq=1then840
900 fori=1to4:forj=1to4:ifp(j)=0thent(j)=m(i,j):goto930
910 ifm(i,j)=1thent(j)=0:goto930
920 t(j)=1
930 nextj:a=8*t(1)+4*t(2)+2*t(3)+t(4):ifa>v(i)then950
940 ot=v(i)-a:v(i)=a:g=i:gosub1000:gosub300:goto500
950 nexti:goto840
1000 rem kone siirtaa ******************
1010 print""g""ot
1020 print" tietokone ottaa! paina return! "
1025 geta$:ifa$=""then1025
1030 print" "
1040 print" "
1050 return
1100 a$="tietokone[157][157][157][157][157][157][157][157][157]voitti!":goto1120
1110 a$="hienoa![157][157][157][157][157][157][157]olit parempi!"
1120 print""a$
1130 print"uusi peli?[157][157][157][157][157][157][157][157][157](k/e)"
1140 geta$:ifa$=""then1140
1150 ifa$="k"then150
1160 print"[147]kiitos!":end