Bu sayfadaki yazılar
Sayfanın metni
Sayfa 86
BASIC program köşemizde bu ay yine kısa bir oyun dökümü veriyoruz. Cadı Daması adındaki oyunumuz aslında oynanış bakımından bildiğimiz damadan pek farklı değil. Oyun, cadılar ve hayaletler olmak üzere iki kişi arasında oynanabildiği gibi, bir tarafın başlangıç ve bitiş hamleleri için RETURN tuşuna basarak bilgisayara karşı da oynayabilirsiniz. Taşların hareket edebildiği yönler ekranda gösterilmektedir. Başarılar.
GOTO Programkontrol Programkontrol:
CLEAR GOSUB Initialize GOTO istek
ikio:
h=0 :K=0 FOR a=7 TO 35 : GOSUB altmiş : NEXT a
uco:
GOSUB terk IF h<0 THEN Quarterc
h=0 : K=0 : a=t : GOSUB altmis IF h<l THEN Quarterc GOTO uco
Initialize:
SCREEN 2,320,200,4,1 : COLOR 1,0 : CLS : WINDOW 2,"CADI DAMASI",,,2 DIM hayalet(121),cadi(121),kare(98),d(28),x(35),y(35) DIM K35),xl(35),yl(35),n(28),b(42) LINE (50,80)-(81,103),l,b LOCATE 12,12:PRINT "CADI DAMASI" LINE (230,80)-(261,103),l,b GET (50,80)-(81,103),kare GOSUB hayaletyapimi
s=-l FOR a=0 TO 7 : READ m(a) : NEXT a FOR a=0 TO 28 : READ d(a) : NEXT a b=48 : c=32 : d=59 :e=12 FOR a=0 TO 4
FO R f=0 TO 4 h=6*a+f+7 : x(h)=b*f+d-15 : y(h)=c*a+e-11 : l(h)=g+97 : n(g)=h g=g+1 : xl(h)=6*f+10 : yl(h)=4*a+1 NEXT f
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 87
NEXT a CLS ' FOR a=0 TO 4
LINE(d,c*a+e)-(b*4+d,c*a+e),2 : LINE(b*a+d,e)-(b*a+d,c*4+e),2 NEXT a a=0 : f=0 GOSUB Lne a=b+b GOSUB Lne f=c+c GOSUB Lne a=0 GOSUB Lne
FOR a=0 TO 42 : READ b(a) : GOSUB yedialtio : NEXT a RETURN
Lne:
LINE (d+a,e+f)-(2*b+d+a,2*c+e+f),2 : LINE (d+a,2*c+e+f)-(2*b+d+a,e+f),2 RETURN
yedialtio:
IF b(a)=2 THEN RETURN IF b(a)<0 THEN PUT (x(a),y(a)),cadi,PSET IF b(a)=0 THEN PUT (x(a),y(a)),kare,PSET IF b(a)>0 THEN PUT (x(a),y(a)),hayalet,PSET LOCATE yl(a),xl(a) : PRINT CHR$(l(a)) RETURN
istek:
d=0 : LOCATE 20,1
IF s=l THEN PRINT:PRINT "HAYALET" ELSE PRINT:PRINT "CADI" LOCATE 21,1 PRINT TAB (16) "BAŞLANGIÇ:"; Lpl:
e=e+l : K$= INKEY$ : IF K$=" THEN Lpl IF ASC(K$)=13 THEN GOSUB Bos : RANDOMIZE TIMER : GOTO ikio IF ASC (K$)<97 OR ASC (K$)>121 THEN Lpl PRINT K$ : a=n(ASC(K$)-97) : z=a Lp3:
LOCATE 23,18 : PRINT "BITIS:"; Lp2:
K$=INKEY$ : IF K$="" THEN Lp2 IF ASC (K$)<97 OR ASC (K$)>121 THEN Lp2 PRINT K$; : tl=n(ASC(K$)-97) ck=l : 1=0 : kl=0 : GOSUB aitmiş : ok=0 : h=0 : a=7 : IF a=36 THEN calim
Dm2:
GOSUB aitmiş : IF h> = l THEN calim a=a+l : IF a<36 THEN Dm2 calim:
IF d THEN dortyedio IF 1 THEN dortsekizo ses:
SOUND 99,5 : GOTO istek dortyedio:
IF 1=0 OR kl=0 THEN SOUND 99,5 : GOTO besbir dortsekizo:
IF kl=0 AND h>=l THEN ses f=z : t=tl : K=kl : GOSUB terk IF kl=0 THEN Quarterc a=t : z=a : h=0 : GOSUB altmiş