home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 October
/
64er_Magazin_88-10_1988_Markt__Technik_de_Side_A.d64
/
pailgame
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
7KB
|
196 lines
2 poke51,.:poke52,158:poke55,.:poke56,158:poke808,225:dim c(1),c1(1)
5 print"[147][144]":fort=.to4:reada:poke53280+t,a:next:c(0)=2:c(1)=7:c1(0)=5:c1(1)=8
10 ifpeek(49152)=76then500
20 fort=828to903:readc:poket,c:next
25 data12,12,5,2,7
30 data120,169,51,133,1,169,208,162,,133,35,134,34,169,224,133,37,134,36,162,17
40 data160,,177,34,145,36,200,208,249,230,37,230,35,202,208,240,169,55,133,1,88
50 data96
60 data169,1,162,208,160,255,32,189,255,169,1,162,8,160,,32,186,255,32,192,255
70 data176,2,169,,133,255,169,1,32,195,255,96
75 sys828
80 sys871:ifpeek(255)=.then110
90 print"[147]"spc(7)"bitte floppy einschalten !!!"
100 printspc(14)"( taste )":poke198,0:wait198,1:goto80
110 gosub400:ifa<>.then80
120 sys57812"57344 zeichens.",8,1:poke780,0:sys65493
130 gosub400:ifa<>.then80
140 sys57812"49152 mp",8,1:poke780,0:sys65493
150 gosub400:ifa<>.then80
180 goto500
200 data" [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
201 data" [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
202 data" [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
203 data"[169] [151][223][146][144] [201] [201] [201] [201] [201] [201]"
204 data"[151] [146] [146][144] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
205 data"[151] [146] the[151] [146][144] [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
206 data"[151] [146] [193][193][193] [146][144] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
207 data"[151] [146] pailgame[151] [146][144] [201] [201] [201] [201] [201] [201]"
208 data"[151] [146] [193][193][193][193][193][193][193][193][193][193] [146][144] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
209 data"[151][223][155] [146][169][144] [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
210 data" [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
211 data"-von e.schwan[144]- [201] [201] [201] [201] [201] [201]"
212 data" [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
213 data" [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
214 data" [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
215 data" [201] [201] [201] [201] [201] [201]"
216 data"[193][193][193][193][193][193][193][193][193][193][193][193][193][193][193] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
217 data" [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
218 data" [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
219 data" [172][162][162][162][162][162][162][187] [201] [201] [201] [201] [201] [201]"
220 data" [151][161][146]- [149]00[151] -[161][144] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
221 data" [155][188][162][162][162][162][162][162][146][190][144] [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
222 data" [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
223 data
400 poke53265,11:open1,8,15:input#1,a,b$:close1:ifa=.thenreturn
410 poke53265,27:print"[147]disk error :"a" "b$
420 poke198,0:wait198,1:return
500 jo=56320:poke53265,11:poke56576,4:poke53272,57:poke648,204:print"[147]":mo=.
511 print"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][187]";
512 print"[161]* *[161][146]";
513 print"[161] the pailgame [161][146]";
514 print"[161] [183][183][183][183][183][183][183][183][183][183][183][183] [161][146]";
515 print"[161] [161][146]";
516 print"[161][158] sinn des spieles ist es, alle [144][161][146]";
517 print"[161][158] felder des 6 x 6 spielplanes zu [144][161][146]";
518 print"[161][158] erobern. [144][161][146]";
519 print"[161][149] das besetzen eines feldes erreicht [144][161][146]";
520 print"[161][149] man durch setzen eines punktes mit [144][161][146]";
521 print"[161][149] dem cursor. [144][161][146]";
522 print"[161][158] jedes feld kann mit mehreren punk- [144][161][146]";
523 print"[161][158] ten aufgefuellt werden. [144][161][146]";
524 print"[161][149] ist das feld jedoch ueberfuellt,so [144][161][146]";
525 print"[161][149] lauft es ueber und verteilt die [144][161][146]";
526 print"[161][149] punkte auf die umliegenden felder. [144][161][146]";
527 print"[161][158] dadurch lassen sich auch die fel- [144][161][146]";
528 print"[161][158] der des gegners erobern, da die [144][161][146]";
529 print"[161][158] ubergelaufenen punkte die benach- [144][161][146]";
530 print"[161][158] barten felder besetzen. [144][161][146]";
531 print"[161] [161][146]";
532 print"[161] [161][146]";
533 print"[161] weiter mit fire [161][146]";
534 print"[161]* *[161][146]";
535 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][145]";:poke53223,126:poke56295,.
540 poke53265,27:ifpeek(jo)<>111then540
545 p$=""
550 printp$"":a=6:e=20
555 printspc(a)" "spc(e+1);
560 printspc(a)" 1 spieler _ [144] "spc(e);
565 printspc(a)" 2 spieler [144] "spc(e);
570 printspc(a)" - demo - [144] "spc(e);
575 printspc(a)" ende [144] "spc(e);
580 printspc(a)" [144] "spc(e);
585 printspc(a+1)" "
590 t=0:a=52601:x=0
595 ifpeek(jo)=111then595
600 pokea+x*40,159:t=t+1:ifpeek(jo)=111then710
610 ifpeek(jo)<>127thengosub670
620 ift<>10then600
630 pokea+x*40,160:t=t-1:ifpeek(jo)=111then710
640 ifpeek(jo)<>127thengosub670
650 iftthen630
660 goto600
670 j=peek(jo):ifj<>126then690
680 ifx<>0thenpokea+x*40,160:x=x-1
685 goto705
690 ifj<>125thenreturn
700 ifx<>3thenpokea+x*40,160:x=x+1
705 ifpeek(jo)<>127then705
707 return
710 pokea+40*x,159:onx+1goto750,730,3000,720
720 poke56334,0:poke788,49:poke789,234:poke648,4:poke53272,21:poke56576,7
725 poke56334,1:poke53269,0:poke54296,.:poke808,237:print"[147][144]":end
730 gosub850:poke52769,177:gosub820:n$(0)=a$
740 gosub850:poke52769,178:gosub820:n$(1)=a$:poke49570,0:goto900
750 gosub850:poke52770,160:gosub820:n$(0)=a$:poke49570,128:goto1000
810 rem
820 print"";:s=0
823 poke52885+s,227:geta$:ifa$=""then823
826 ifa$<" "ora$>"z"then833
830 ifs<10thenprint"[159]"a$;:poke52885+s,160:s=s+1:goto823
833 ifa$=chr$(13)thenifsthen845
834 ifa$=chr$(20)thenifsthenprint"[157] [157]";:poke52885+s,160:s=s-1:goto823
840 goto823
845 sys50479,52845,s,a$:return
849 :
850 printp$"[159]":a=15:e=3
860 printspc(a)" "spc(e+1);
865 printspc(a)" name des .spielers [144] [159]"spc(e);
870 printspc(a)" [144] [159]"spc(e);
875 printspc(a)" * * [144] [159]"spc(e);
880 printspc(a)" [144] [159]"spc(e);
885 printspc(a)" [144] "spc(e);
890 printspc(a+1)" "
895 return
900 ifmothen1000
905 mo=1:print"[153]":a=10:e=2
910 printspc(a)" "spc(e+1);
920 printspc(a)" 2 joysticks vorhanden ? [144] [153]"spc(e);
930 printspc(a)" (j/n) [144] [153]"spc(e);
940 printspc(a)" [144] [153]"spc(e);
950 printspc(a+1)"[144] "
960 geta$:ifa$<>"j"anda$<>"n"then960
970 ifa$="j"thenja=2:goto1000
980 ja=1
990 :
1000 print"[144][147]":poke53265,27
1010 print"";:poke63,70:poke64,0:poke65,209:poke66,9
1020 fort=0to22:reada$:printa$:next
1030 sys49155:poke49816,0:poke53248,152:poke53249,59:poke53240,47:poke53269,1
1035 poke53264,0:poke53287,1:fort=.to3:poke50587+t,.:next
1040 s=int(rnd(ti)*2):ifs=1then1060
1050 sys50866:s=.:gosub1500:ifpeek(254)then2000
1060 s=1:onx+1goto1100,1065
1065 ifja=2thensys50874
1070 gosub1500:ifpeek(254)then2000
1080 goto1050
1099 rem computerzug
1100 sys49152,1:ifpeek(254)then2500
1110 goto1050
1120 :
1500 print"[159] [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"n$(s)"'s zug"
1510 sys50747:geta$:ifa$=chr$(133)then2110
1515 sys49757:sys49152,s,peek(50587)+6*peek(50588)
1520 ifpeek(253)=.then1510
1530 return
2000 print"[153]":a=10:e=8:a$=" ":poke53269,0
2010 printspc(a)" "spc(e+1);
2020 printspc(a)" bravo, "n$(s);left$(a$,11-len(n$(s)))" [144] [153]"spc(e);
2030 printspc(a)" [144] [153]"spc(e);
2040 printspc(a)" du hast gewonnen !! [144] [153]"spc(e);
2050 printspc(a)" [144] [153]"spc(e);
2060 printspc(a)" weiter mit fire ! [144] [153]"spc(e);
2070 printspc(a)" [144] "spc(e);
2080 printspc(a+1)" "
2100 ifpeek(jo)<>111andpeek(jo+1)<>239then2100
2110 p$="":poke56334,0:poke788,49:poke789,234:poke56334,1
2120 goto550
2130 :
2499 rem computer gewinnt
2500 print"[153]":a=10:e=8:a$=" ":poke53269,0
2510 printspc(a)" "spc(e+1);
2520 printspc(a)" tja, "n$(s);left$(a$,11-len(n$(s)))" [144] [153]"spc(e);
2530 printspc(a)" [144] [153]"spc(e);
2540 printspc(a)" leider verloren. [144] [153]"spc(e);
2550 printspc(a)" [144] [153]"spc(e);
2560 printspc(a)" weiter mit fire ! [144] [153]"spc(e);
2570 printspc(a)" [144] "spc(e);
2580 printspc(a+1)" "
2590 ifpeek(jo)<>111andpeek(jo+1)<>239then2590
2600 p$="":poke56334,0:poke788,49:poke789,234:poke56334,1
2610 goto550
3000 print"[144][147]":poke53265,27:n$(0)="karl":n$(1)="jupp":poke49570,128
3010 print"";:poke63,70:poke64,0:poke65,209:poke66,9
3020 fort=0to22:reada$:printa$:next
3030 sys49155:poke49816,0
3035 fort=.to3:poke50587+t,.:next
3040 s=int(rnd(ti)*2):ifs=1then3060
3050 poke49568,7:poke49567,2:s=.:gosub3500:ifpeek(254)then3100
3060 poke49568,2:poke49567,7:s=1:gosub3500:ifpeek(254)then3100
3070 goto3050
3100 poke49568,7:poke49567,2:goto2000
3120 :
3500 print"[159] [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"n$(s)"'s zug"
3510 sys49152,1:sys49757
3520 forq=0to600:next:return