Diskuze o textových hrách
Hráli jsme => Commodore 64 => Téma založeno: zxretrosoft 31. Červenec 2010 - 10:27
-
Tak jsem si z www.textovky.cz (http://www.textovky.cz) stáhnul Akci Triton II, jednu z minima textovek na C64, abych to zkusil, a jsem mírně rozčarován... :o Nedokázal jsem se zatím odlepit z místa, možná by pomohl alespoň seznam použitelných příkazů. Žádné písmenko nic nedělá, nejde se ani rozhlédnout, ani nikam jít, ani nastartovat raketu? (nebo aspoň nevím jak), ani jakýkoli jiný standartní příkaz z textovek nefunguje.
Nezkoušel to už náhodou někdo? Nevíte si s tím trošku rady? :-\
-
To jsem nezkousel. Ale kdyz nefunguje zadne pismenko, asi blbej dotaz, ale zkusil jsi, zda to nechce mala pismenka / velka pismenka? Na to jsem narazil v jedne hre, byla tam nastavena velka pismenka, ale program rozumnel jen malym. V jine hre se muselo zase psat prvni pismeno prvniho prikazu velke. ::)
-
Zkuste LETET NA ZEMI...
-
A jen tak mimochodem, není to podle toho komixu co vycházel v ABC? Jak se sakra jmenoval? Něco o robotech, válce, jak ovládali lidstvo, ta kosmická loď se jmenovala Prométeus. Sem si ho snad i slepil z papíru Kanagomem.
Jo a co se týče téhle hry? Tak to bych nedal, ani kdybych měl robotí mozek z toho komixu, bych řekl, že tohle s textovkou snad má jen společné to, že sem tam napíšete nějaký příkaz. No čekal by snad někdo příkaz "VYSTREL Z LASEROVO PLAZMATICKYCH DEL" - hrát tuhle hru na C64 tak to mám rovnou cestou do Beřkovic.
-
Ač jsem nikdy neměl C64 tak po hodině bádání a zjišťování mám krásný listing, takže posuďte sami, nejeblo by vám?
0 REM " BLOKOVANO FIRMOU TITAN [ TTN ] ROKU 1990 (C)"
10 FOR T=1 TO 8: READ A:POKE32786+T,A:NEXT T
20 DATA 68,229,53,164,195,194,205,56,48
48 POKE808,234
49 REM ********************************
50 REM * TAK SE TI PRECE JEN PODARILO *
51 REM * PROGRAM ROZKODOVAT. *
52 REM * GRATULUJI !!! * ********************************
53 REM * NEVADI,MOHU TE ASPON TOUTO * * CESTOU POZADAT O VYMEHU *
54 REM * HER A JINYCH PROGRAMU. * ********************************
55 REM * * * MAS LI ZAJEM OZVI SE NA *
56 REM * ADRESE UVEDENE NA TITULNIM * * OBRAZKU HRY,NEBO *
57 REM * NA TELEFONNIM C.0433/235 94 * ********************************
58 REM * MOHU TI TAKE DOPORUCIT HRY * * UV KSC I,UV KSC II,CENTAURY, *
59 REM * A JINE OD FIREM TITAN[TTN] * * DRIVE DOLARSOFT [ DLS ] *
60 REM * A KRESOFT [ JSC ] !!! * ********************************
65 REM * * * UVEDENY TELEFON JE NA FIRMU *
70 REM * KRESOFT - JOSEF KRENN. * ********************************
100 PRINT"“":POKE 53280,0:POKE 53281,0:PRINT:PRINT:PRINT:POKE 19,0:POKE808,234
101 C=0:E=0:F=0:G=0:H=0:I=0:J=0:K=O:L=0:M=0:N=0:O=0:P=0:X=0:Z=0
105 PRINT" T.R.I.T.O.N II"
110 PRINT:PRINT:PRINT
115 PRINT" TITAN "
120 PRINT:PRINT
125 PRINT" ’¤¯¹¢ œ©"
130 PRINT" ž’ÍÂÎ’ ’¤¯¹¢ œ ’"
140 PRINT" ž’À ÀÀÀÀÀÀÀÀÀÀÀÀÀÀ ’£·¸ œ ’"
145 PRINT" ž’ÎÂÍ’ ’£·¸ œ’ß’"
150 PRINT:PRINT:PRINT
155 PRINT" ALES KOBER
160 PRINT" HUSOVA 685
165 PRINT" JICIN 506 01"
170 PRINT
175 PRINT" STISKNI KLAVESU"
180 GET A$
185 IF A$=" " THEN GOTO 190
186 GOTO 180
190 PRINT"“":POKE 53280,1:POKE 53281,1:PRINT:PRINT
195 PRINT" START - S"
200 PRINT" INFORMACE - I"
205 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
210 PRINT" EXPEDICE CISLO 02 S CILEM ZNICENI"
220 PRINT" ROBOTU,KTERI DONUTILI LIDSTVO ZIVORIT"
230 PRINT" NA MESICI.PRO ZNICENI ROBOTU JSI BYL"
235 PRINT" VYBRAN PRAVE TY."
340 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
345 PRINT" TAK CO SIS VYBRAL"
350 GET A$
355 IF A$="S" THEN GOTO 545
360 IF A$="I" THEN GOTO 370
365 GOTO 350
370 PRINT"“š":POKE 53280,6:POKE 53281,6:PRINT:PRINT
375 PRINT" INFORMACE !"
380 PRINT:PRINT
385 PRINT" ROBOTI DONUTILI LIDSTVO ZIT
390 PRINT" NA MESICI,VENUSI A MARSU.JAKO PRVNI"
395 PRINT" SE POKUSILI O ZNICENI ROBOTU OBYVATELE"
400 PRINT" PLANETY VENUSE.EXPEDICE VSAK NEUSPELA."
405 PRINT" NEDA SE VSAK RICI,ZE EXPEDICE BYLA "
410 PRINT" ZBYTECNA.NA ROBOTECH JE VIDET,ZE BYLI"
415 PRINT" VYPRAVOU TRITON I ZNATELNE"
420 PRINT" OSLABENI.EXPEDICE SE MUSI USKUTECNIT"
425 PRINT" CO NEJDRIVE,ABY SE ROBOTI NESTIHLI"
430 PRINT" ZOTAVIT Z PRVNITO SUBOJE S LIDSTVEM."
435 PRINT" K DISPOZICI MAS RAKETU TIPU 20-RSD-12"
440 PRINT" VYBAVENOU LASEROVYMI A PLAZMATICKYMI"
445 PRINT" DELY.U PASU TI TAKE VISI PISTOLE "
450 PRINT" NA USPAVANI ROBOTU.SE STRELBOU SE NES-"
455 PRINT" MIS MOC DLOUHO ROZMYSLET,NEBOT ROBOTI"
460 PRINT" JSOU VEVMI CHYTRE A MRSTNE STROJE."
463 PRINT""
465 PRINT" STISKI SPACE"
470 GET A$
475 IFA$=" " THEN GOTO 485
480 GOTO 470
485 PRINT"“š":POKE 53280,6:POKE 53281,6:PRINT:PRINT
490 PRINT" ENERGII ZISKAVAJI Z VYSILACE RIZENEHO"
495 PRINT" POCITACEM.TENTO POCITAC MAS ZA UKOL"
500 PRINT" VYPNOUT A TIM ZASTAVI VSECHNY ROBOTY."
505 PRINT" TEN JE VSAK HLIDANY KORDONEM ROBOTU"
510 PRINT" STRAZCU.CELA AKCE KONCI TIM,ZE U COM-"
515 PRINT" PUTERU IBM RIDICIHO VYSILAC STISKNES"
520 PRINT" RUN/STOP."
521 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
522 PRINT""
525 PRINT" STISKNI SPACE"
530 GET A$
535 IF A$=" " THEN GOTO 190
540 GOTO 530
545 PRINT"“":POKE 53280,1:POKE 53281,1:PRINT:PRINT
550 PRINT" JSI V RAKETE NA ODPALOVACI RAMPE."
555 PRINT" JEDINA CESTA LETET NA ZEMI A ZACHRA-"
560 PRINT" NIT LIDSTVO OD ROBOTU."
565 PRINT:PRINT
570 INPUT" CO VYKONAS ";O$
580 IF O$="LETET NA ZEMI"THEN GOTO 590
585 IF O$<>"LETET NA ZEMI" THEN PRINT" TY SNAD NEUMIS ANI STARTOVAT":GOTO 570
590 PRINT"“":POKE 53281,0:POKE 53280,0:PRINT:PRINT
595 PRINT" ZACALO ODPOCITAVANI......"
600 PRINT" 10,9,8,7,6,5,4,3,2,1 START......"
605 FORN=1TO5500:NEXT
610 PRINT"“":POKE 53280,1:POKE 53281,1:PRINT:PRINT
615 PRINT" LETIS 3-TI KOSMICKOU RYCHLOSTI."
620 PRINT" MISTO ZEME VIDIS VELKOU RUDOU KOULI"
625 PRINT" VYTVORENOU ENERGII,KTEROU VYZARUJE "
630 PRINT" VYSILAC.ABY JSI TOUTO CLONOU PROLETEL"
635 PRINT" MUSIS POLE NARUSIT ."
640 PRINT
645 PRINT" 'VYSTREL Z LASEROVO PLAZMATICKYCH DEL'"
650 FORN=1TO10000:NEXT
655 PRINT"“":POKE 53281,0:POKE 53281,0:PRINT:PRINT
660 PRINT" PRIBLIZIL JSI SE NA DOSTREL K ZEMI."
665 PRINT" STRILEJ,NEBO NARAZIS !!!"
670 PRINT
680 INPUT " CO TED ";O$
685 IF O$="VYSTREL Z LASEROVO PLAZMATICKYCH DEL"THEN GOTO 705
690 IF O$<>"VYSTREL Z LASEROVO PLAZMATICKYCH DEL"AND D=1 THEN GOTO 50000
695 PRINT" TY SNAD CHCES BOUCHNOUT !"
696 D=1
700 GOTO 680
705 PRINT"“":POKE 53280,1:POKE 53281,1:PRINT:PRINT
710 PRINT" PROLETEL JSI POD SARKOFAG ZEME."
720 PRINT" NEDALEKO SEBE VIDIS SKUPINU ROBOTU"
730 PRINT" V LETAJICICH TALIRICH !"
740 PRINT
745 INPUT " BUDES OPET STRILET ";O$
750 IF O$="ANO"THEN GOTO770
755 IF O$<>"ANO"THEN GOTO 756
756 INPUT " CHCES ABY TE SESTRELILI ";O$
757 IF O$="NE"THEN GOTO770
758 IF O$<>"NE"THEN GOTO759
759 PRINT"“":POKE 53280,0:POKE 53281,0:PRINT:PRINT
760 PRINT" MAS CO JSI CHTEL.ROBOTI TE SETRELILI"
761 PRINT" A PADAS JAKO OHNIVA KOULE DO MORE..."
765 FORN=1TO5000:NEXT
766 GOTO 50000
770 PRINT"“":POKE 53280,0:POKE 53281,0:PRINT:PRINT
775 PRINT" ZASAHL JSI ROBOTY A TI PADAJI DO MORE"
780 PRINT" NECHT SE TI PODARI TAKTO ZNICIT "
785 PRINT" VSECHNY ROBOTY,KTERE POTKAS!"
790 PRINT" DOLETEL JSI NA KONEC MORE A VIDIS"
795 PRINT" PRISTAVACI DRAHU.TO SE TI HODI,DOCHAZI TI PALIVO !!!"
800 PRINT
805 INPUT " CO UDELAS ";O$
810 IF O$="PRISTANU"THEN GOTO885
815 IF O$<>"PRISTANU"THEN GOTO820
820 PRINT" MAS JIZ MOC MALO PALIVA !!!"
821 PRINT" UDELALS PRELET A ZNOVU TO ZKUSIS."
830 INPUT " CO UDELAS "; O$
835 IF O$="PRISTANU"THEN GOTO885
840 IF O$<>"PRISTANU"THEN GOTO845
845 PRINT" MELES Z POSLEDNIHO !!!!"
850 PRINT" UDELALS PRELET A ZNOVU TO ZKUSIS."
855 INPUT" CO UDELAS ";O$
860 IF O$="PRISTANU"THEN GOTO885
865 IF O$<>"PRISTANU"THEN GOTO870
870 PRINT" DOSLO TI PALIVO A ZRITIL JSI SE !!!"
875 FORN=1TO5000:NEXT
880 GOTO 50000
885 PRINT"“":POKE 53280,1:POKE 53281,1:PRINT:PRINT
890 PRINT" PRISTAL JSI NA CELKEM ZACHOVALE "
895 PRINT" PRISTAVACI DRAZE.OBEVILI SE VOZITKA "
900 PRINT" S ROBOTY.MUSIS STRILET,JINAK TE ZABI-"
905 PRINT" JOU !!! NEMAS VYHNUTI,MUSIS BOJOVAT."
910 PRINT
915 INPUT" BUDES BOJOVAT ";O$
920 IF O$="ANO"THEN GOTO 1005
925 IF O$<>"ANO"THEN GOTO 930
930 PRINT" CHCES ABY TE ZABILI ?"
935 INPUT " PTAM SE TE NAPOSLED.BUDES BOJOVAT ";O$
940 IF O$="ANO"THEN GOTO 1005
945 IF O$<>"ANO"THEN GOTO 950
950 PRINT"“":POKE 53280,0:POKE 53281,0:PRINT:PRINT
955 PRINT" JA JSEM TE VAROVAL!
960 PRINT" ROBOTI TE ZNICILI I S RAKETOU"
970 FORN=1TO5500:NEXT
1000 GOTO 50000
1005 PRINT"“":POKE 53281,1:POKE 53280,1:PRINT:PRINT:B=1
1010 PRINT" ROBORI JSOU ZNICENI!Z TOHOTO SOUBOJE"
1015 PRINT" JSI ZISKAL CENNOU ZKUSENOST.PRI HORE-"
1020 PRINT" NI ROBOTU VZNIKAJI TEPLOTY,PRI KTE-"
1025 PRINT" RYCH SE TAVI ZELEZO,TECE SKLO A PRAS-"
1030 PRINT" KA BETON.PRI SOUBOJICH Z BLISKA "
1035 PRINT" MUSIS ROBOTY JENOM USPAVAT,ABYS"
1040 PRINT" NEUHOREL I S ROBOTEM.JE VSAK NA CASE"
1045 PRINT" NECO PODNIKOUT,TROSKY VOZITEK JIZ"
1050 PRINT" DOHORIVAJI.NA VYCHODE MAS VYCHOD"
1055 PRINT" Z RAKETY.NA JIHU JE VCHOD DO STRO-"
1060 PRINT" JOVNY A NA ZAPADE JE SKLAD RUCNICH"
1065 PRINT" ZBRANI !!!"
1070 PRINT
1075 INPUT " PAM PUJDES ";O$
1080 IF O$="S"THEN PRINT " NA SEVERU JE SKLO,KTERYM NEPROJDES !!!":GOTO 1075
1085 IF O$="J"THEN GOTO1230
1090 IF O$="V"THEN GOTO1258
1095 IF O$="Z"THEN GOTO 1100
1096 PRINT" TAKOVY SMER TU NENI !!":GOTO 1075
1100 PRINT"“":POKE 53280,16:POKE 53281,16:PRINT:PRINT
1105 PRINT" JSI VE SKLADU RUCNICH ZBRANI.JE ZDE:"
1106 IFE=0THENPRINT" POTRAVINY."
1107 IFG=0THENPRINT" KULOMET."
1108 IFH=0THENPRINT" NABOJE."
1110 IFC=0THENPRINT" USPAVACI PISTOLE."
1115 IFF=0THENPRINT" PISTOLE NA NICENI ROBOTU."
1120 IFI=0THENPRINT" MAPU."
1121 PRINT" MUZES JIT NA VYCHOD."
1125 INPUT " CO TED ";O$
1130 IFO$="VEZMI USPAVACI PISTOLI"THENPRINT" MAS USPAVACI PISTOLI":C=1:GOTO1125
1136 IFO$="V"THENGOTO1180
1140 IFO$="VEZMI POTRAVINY" THEN PRINT" VZAL JSI POTRAVINY":E=1:GOTO1125
1150 IFO$="VEZMI PISTOLI NA NICENI ROBOTU"THEN GOTO1155
1152 GOTO1160
1155 PRINT" MAS PISTOLI NA NICENI ROBOTU":F=1:GOTO 1125
1160 IFO$="VEZMI KULOMET"THEN PRINT" VZAL JSI KULOMET.":G=1:GOTO 1125
1165 IF O$="VEZMI NABOJE"THEN PRINT" VZAL JSI NABOJE.":H=1:GOTO 1125
1170 IF O$="VEZMI MAPU"THEN PRINT " VZAL JSI MAPU.":I=1:GOTO 1125
1172 PRINT" NIC TAKOVEHO TU NENI-DRZ SE TEXTU!":GOTO1125
1175 IFO$="V"THEN GOTO 1180
1180 PRINT"“":POKE 53280,1:POKE 53281,1:PRINT:PRINT
1185 PRINT" JSI V KABINE.NA VYCHODE JE VYCHOD"
1190 PRINT" Z RAKETY.NA ZAPADE JE ZBROJNI SKLAD"
1195 PRINT" NA JIHU JE STROJOVNA."
1200 PRINT
1205 INPUT " KAM PUJDES ";O$
1210 IF O$="Z"ANDJ=1THENGOTO1245
1211 IFO$="Z"THENGOTO1100
1215 IFO$="S"THENPRINT" NA SEVERU JE SKLO,KTERYM NEPROJDES !!":GOTO1205
1220 IFO$="J"THENGOTO1230
1225 IFO$="V"THENGOTO1258
1226 PRINT" TAKOVY SMER TU NENI !!!"
1230 PRINT"“":POKE 53280,0:POKE 53281,0:PRINT:PRINT
1234 PRINT" JSI VE STROJOVNE,MOTOR JE V KLIDU,"
1235 PRINT" NEBOT MU CHYBI 'STAVA'.MUZES JIT"
1236 PRINT" NA SEVER."
1237 PRINT
1238 INPUT" KAM PUJDES ";O$
1239 IFO$="S"THENGOTO1180
1240 IFO$<>"S"THENPRINT" TAKOVY SMER TU NENI !!!":GOTO1238
1245 PRINT"“":POKE53280,1:POKE53281,1:PRINT:PRINT
1250 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
1255 PRINT" DVERE SE ZASEKLY"
1256 FORN=1TO5000:NEXT
1257 GOTO1180
1258 IF C<>1THEN GOTO1265
1259 IFE<>1THEN GOTO1265
1260 IFF<>1THENGOTO1265
1261 IFG<>1THENGOTO1265
1262 IFH<>1THENGOTO1265
1263 IFI<>1THENGOTO1265
1264 GOTO1280
1265 PRINT"“":POKE 53280,1:POKE 53281,1:
1266 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
1267 PRINT" NECO JSI ZAPOMEL VE SKLADU"
1271 PRINT
1272 INPUT" CO TED ";O$
1273 IF O$="@"THENGOTO100
1274 IF O$="Z"THEN GOTO1180
1275 PRINT" TY NEUMIS ZMACNOUT Z."
1276 GOTO 1271
1280 PRINT"“":POKE 53280,1:POKE 53281,1:PRINT:PRINT
1285 PRINT" JE VIDET,ZE S LETEM NA ZEMI "
1290 PRINT" JSI SE DOBRE VYPORADAL.UVIDIME,"
1295 PRINT" JAK SE VYPORADAS S ROBOTY,KTERI"
1300 PRINT" CEKAJI V ZALOZE.
1305 PRINT:PRINT:PRINT:PRINT
1310 PRINT" NYNI TE CEKA DRUHA CAST BOJE."
1315 PRINT" CHVILI SI ODPOCIN,AT JSI NA DALSI"
1320 PRINT" CESTU FIT."
1325 PRINT:PRINT:PRINT:PRINT:PRINT:
1330 PRINT" STISKNI SPACE."
1335 GET A$
1340 IF A$=" "THEN GOTO1350
1345 GOTO1335
1350 PRINT"“":POKE 53280,0:POKE 53281,0:
1355 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:
1360 PRINT" ODPOCIVAS......"
1365 FORN=1TO15900:NEXT
1370 PRINT"“":POKE 53281,1:POKE 53280,1:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
1375 PRINT" JSI NA ZACAKTU DRUHE FAZE BOJE."
1380 PRINT" V TETO FAZI MAS ZA UKOL DOSTAT SE"
1385 PRINT" K BUDOVE,KDE'SIDLI CENTRAL COMPUTER'."
1390 PRINT" PRI CESTE MUSIS NAJIT KLIC A PRVNI CAST"
1395 PRINT" KODU.POTOM DVERE OD HLAVNI BUDOVY"
1400 PRINT" TIMTO KLICEM ODEMKNES."
1405 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT" STISKNI SPACE."
1410 GET A$
1415 IFA$=" "THENGOTO1425
1420 GOTO1410
1425 PRINT"“":POKE 53281,0:POKE 53280,0:PRINT:PRINT
1430 PRINT" STOJIS NA BETONOVE PRISTAVACI DRAZE."
1435 PRINT" JEDINY SMER,KTERYM MUZES JIT "
1440 PRINT" JE VYCHOD.NA ZAPAD DO RAKERY SE NEMU-"
1445 PRINT" ZES VRATIT,ROBOTI JI ZNICILI V DOMENI,"
1450 PRINT" ZE JSI STALE UVNITR.ROBOTI TED NEBU-"
1455 PRINT" DOU TAK POZORNI,PROTOZE PODLE NICH"
1460 PRINT" JSI MRTEV.PROTO TI NESMI ZADVY UNIK"
1465 PRINT" NOUT,ABY SE CENTRUM NEDOZVEDELO,"
1470 PRINT" ZE ZIJES.BUDOU-LI TE POVAZOVAT ZA MRT-"
1475 PRINT" VEHO,JSI V BEZPECI."
1480 PRINT
1485 INPUT" PUJDES NA VYCHOD ";O$
1490 IFO$="ANO"THENGOTO1500
1495 IFO$<>"ANO"THENPRINT" NEVIM CO TIM MYSLIS !":GOTO1485
1500 PRINT"“":POKE 53280,1:POKE 53281,1:PRINT:PRINT:PRINT
1505 PRINT" JSI PRED LETISTEM,UTOCI NA TEBE ASI"
1510 PRINT" DESET ROBORU.USPI JE"
1515 PRINT
1520 INPUT" CO UDELAS ";O$
1530 IFO$="USPIM JE"THENGOTO1580
1535 IFO$<>"USPIM JE"THENGOTO1540
1540 PRINT" TY SI ZAHRAVAS."
1545 INPUT" CO UDELAS ";O$
1550 IFO$<>"USPIM JE"THENGOTO1560
1555 GOTO1580
1560 PRINT"“":POKE 53281,0:POKE 53280,0:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
1565 PRINT" ZABILI TE........"
1570 FORN=1TO5000:NEXT
1575 GOTO 50000
1580 PRINT:PRINT" USPAL JSI ROBOTY.CESTA VEDE NA VYCHOD"
1590 PRINT" A NA JIH."
1595 PRINT
1600 INPUT " KAM PUJDES ";O$
1605 IFO$="J"THENGOTO1620
1610 IFO$="V"THENGOTO3140
1615 PRINT" TAM NENI NIC ZAJIMAVEHO!":GOTO1600
1620 PRINT"“":POKE 53280,1:POKE 53281,1:PRINT:PRINT
1625 PRINT" JSI NA ULICI.JE ZDE VELKY NEPORADEK."
1670 PRINT" ANI O FASADY DOMU SE ROBOTI MOC DOBRE"
1675 PRINT" NESTARAJI.MUZES JIT NA SEVER A NA JIH."
1680 INPUT" KAM TED ";O$
1685 IFO$="S"THENGOTO1500
1690 IFO$="J"THENGOTO1700
1695 PRINT" SKRZ DOMY NEPROJDU !!!":GOTO1680
1700 PRINT"“":POKE 53281,0:POKE 53280,0:PRINT:PRINT:Z=0
1705 PRINT" POZOR,VE TVE BLIZKOSTI JE ROBOT.MUZES"
1710 PRINT" JIT NA SEVER A NA JIH."
1715 PRINT
1720 INPUT" CO TED ";O$
1725 IFO$="S"ANDZ=0THENGOTO1750
1730 IFO$="S"THENGOTO1620
1735 IFO$="J"ANDZ=0THENGOTO1750
1740 IFO$="J"THENGOTO1875
1745 IFO$="USPIM ROBOTA"THENPRINT" USPAL JSI ROBOTA.":Z=1:GOTO1715
1749 PRINT" NEZAPOMEL JSI NA ROBOTA ":GOTO1715
1750 PRINT" ROBOT TE DOHONIT A ZNICIL TE !!!"
1755 FORN=1TO5000:NEXT
1780 GOTO50000
1875 PRINT"“":POKE 53280,1:POKE 53281,1:PRINT:PRINT
1880 PRINT" JSI NA KRIZOVATCE SE SVETELNYMI "
1885 PRINT" SIGNALY,KTERE NEFUNGUJI.MUZES JIT"
1890 PRINT" NA SEVER,JIH A VYCHOD."
1895 PRINT
1900 INPUT " KAM PUJDES ";O$
1905 IFO$="S"THENGOTO1700
1910 IFO$="J"THENGOTO1925
1915 IFO$="V"THENGOTO3450
1920 PRINT" DELEJ SI SRANDU Z NEKOHO JINEHO!!!":GOTO1895
1925 PRINT"“":POKE 53281,0:POKE 53280,0:PRINT:PRINT:Z=0
1930 PRINT" SETKAL JSI SE S DALSIM ROBOTEM.ZDA SE"
1935 PRINT" BYT VELMI AGRESIVNI.MUZES JIT NA SE-"
1940 PRINT" VER A NA JIH."
1945 PRINT
1950 INPUT " CO PODNIKNES ";O$
1955 IFO$="S"ANDZ=0THENGOTO1980
1960 IFO$="J"ANDZ=0THENGOTO1980
1965 IFO$="S"THENGOTO1875
1970 IFO$="J"THENGOTO1995
1974 IFO$="USPIM ROBOTA"THEN PRINT" ROBOT ZNEHYBNEL!!!":Z=1:GOTO1945
1975 PRINT" KDO TI TO NAKUKAL ?":GOTO1945
1980 PRINT" ROBOT TE ZNICIL !!!"
1985 FORN=1TO5000:NEXT
1990 GOTO50000
1995 PRINT"“":POKE 53280,1:POKE 53281,1:PRINT:PRINT
2000 PRINT" JSI NA ULICI,KTERA VEDE OD SEVERU "
2005 PRINT" NA JIH."
2010 PRINT
2015 INPUT " KAM PUJDES ";O$
2020 IFO$="S"THENGOTO1925
2025 IFO$="J"THENGOTO2040
2030 PRINT" DELEJ SI SRANDU Z NEKOHO JINYHO!!!"
2035 GOTO2010
2040 PRINT"“":POKE 53280,0:POKE 53281,0:PRINT:PRINT
2045 PRINT" JSI V OHYBU ULICE.ZADNY ROBOT TU NENI."
2050 IFK=0THENPRINT" NA ZEMI LEZI VELMI REZATY KLIC !":GOTO 2065
2055 PRINT" JSI NA MISTE,KDE JSI PRED CHVILI NASEL"
2060 PRINT" TEN VELMI REZATY KLIC."
2065 PRINT" MUZES JIT NA SEVER A NA VYCHOD."
2070 PRINT
2075 INPUT" CO TED ";O$
2080 IFO$="V"THENGOTO2100
2085 IFO$="S"THENGOTO1995
2090 IFO$="VEZMI KLIC"THENPRINT" VZAL JSI KLIC !!!":K=1:GOTO2070
2095 PRINT" NIC TAKOVEHO TU NENI !!!":GOTO2070
2100 PRINT"“":POKE53280,1:POKE53281,1:PRINT:PRINT:Z=0
2105 PRINT" JSI NA ULICI VEDOUCI Z VYCHODU"
2110 PRINT" NA ZAPAD.Z KONCE ULICE NA TEBE UTOCI"
2115 PRINT" KULOMETEM ROBOT.BYL JSI NUCEN SCHOVAT"
2120 PRINT" SE ZA HROMADU BEDEN.ROBOTI SE "
2125 PRINT" NA STRAZI STRIDAJI.TO ZNAMENA,"
2130 PRINT" ZE JAKMILE ZNICIS JEDNOHO ROBOTA"
2135 PRINT" MUSIS JEDNAT RYCHLE,NEBOT ZA CHVILI"
2140 PRINT" SE MUZE OBJEVIT DALSI ROBOT."
2145 PRINT
2150 INPUT " CO UZNAS ZA VHODNE NYNI ";O$
2155 IFO$="USPAT ROBOTA"THENPRINT"TAK DALEKO HO NEUSPIS !!!":GOTO2145
2160 IFO$="ZNICIT ROBOTA"THENPRINT" ROBOT JE ZNICEN !!!":Z=1:GOTO2145
2165 IFO$="Z"ANDZ=0THENGOTO2190
2170 IFO$="V"ANDZ=0THENGOTO2190
2175 IFO$="Z"ANDZ=1THENGOTO2040
2180 IFO$="V"ANDZ=1THENGOTO2210
2185 PRINT" NECH TOHO BEJT,JO ?!":GOTO2145
2190 PRINT"“":POKE53280,0:POKE53281,0:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
2195 PRINT" ROBOT TE SESTRELIL!!!"
2200 FORN=1TO7000:NEXT
2205 GOTO50000
2210 PRINT"“":POKE53280,0:POKE53281,0:PRINT:PRINT
2215 PRINT" JSI NA ULICI VEDOUCI OD VYCHODU"
2220 PRINT" NA ZAPAD.U CHODNIKU STOJI LAVICKA."
2222 IFN=0THENPRINT" SEDL SIS NA NI A POSILNIL JSI SE.":N=1
2225 PRINT
2230 INPUT" KAM PUJDES ";O$
2235 IFO$="Z"THENGOTO2100
2240 IFO$="V"THENGOTO2250
2245 PRINT" NEVIM O CEM HOVORIS....":GOTO2225
2250 PRINT"“":POKE53280,1:POKE53281,1:PRINT:PRINT:Z=0
2255 PRINT" STOJIS NA KRIZOVATCE TVARU T."
2260 PRINT" UPROSTRED KRIZOVATKY JE OSTRUVEK"
2265 PRINT" PRO OSOBU,KTERA V DOBE MIRU RIDILA"
2270 PRINT" DOPRAVU NA PRIZOVATCE.NYNI NA TEBE"
2275 PRINT" Z TOHOTO OSTRUVKU UTOCI ROBOT.MUZES"
2280 PRINT" JIT NA SEVER,VYCHOD A ZAPAD."
2285 PRINT
2290 INPUT" CO UDELAS ";O$
2295 IFO$="ZNICIM ROBOTA"THENGOTO2335
2300 IFO$="USPIM ROBOTA"THENPRINT" ROBOT SE ZASTAVIL !!!":Z=1:GOTO2285
2305 IFO$="Z"ANDZ=0THENGOTO2370
2310 IFO$="S"ANDZ=0THENGOTO2370
2315 IFO$="V"ANDZ=0THENGOTO2370
2320 IFO$="Z"THENGOTO2210
2323 IFO$="S"THENGOTO3385
2325 IFO$="V"THENGOTO2395
2330 PRINT" SES BLBEJ JAK POLENO !!!":GOTO2285
2335 PRINT"“":POKE53280,0:POKE53281,0:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
2340 PRINT" UHOREL JSI I S ROBOTEM!!!"
2345 PRINT
2350 PRINT" (CTI PORADNE VSECKY TEXTY!!)"
2355 PRINT" ··························
2360 FORN=1TO7000:NEXT
2365 GOTO50000
2370 PRINT"“":POKE53280,0:POKE53281,0:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
2375 PRINT" ROBOT TE ZASAHL!!!"
2380 PRINT" ··················
2385 FORN=1TO7000:NEXT
2390 GOTO50000
2395 PRINT"“":POKE53281,0:POKE53280,0:PRINT:PRINT
2400 PRINT" JSI NA ULICI VEDOUCI OD VYCHODU NA ZAPAD."
2405 PRINT
2410 INPUT" KAM PUJDES ";O$
2415 IFO$="Z"THENGOTO2250
2420 IFO$="V"THENGOTO2425
2424 PRINT" O NICEM TAKOVEM NEVIM!!!":GOTO2405
2425 PRINT"“":POKE53280,1:POKE53281,1:PRINT:PRINT:Z=0
2430 PRINT" POZOR U VCHODU DO JEDNOHO Z DOMU STOJI"
2435 PRINT" ROBOT STRAZNY.MUZES JIT NA VYCHOD A NA ZAPAD."
2440 PRINT
2445 INPUT" CO PODNIKNES ";O$
2450 IFO$="USPIM ROBOTA"THENPRINT" ROBOT JE USPAN":Z=1:GOTO2440
2455 IFO$="Z"ANDZ=0THENGOTO2370
2456 IFO$="V"ANDZ=0THENGOTO2370
2457 IFO$="Z"THENGOTO2395
2460 IFO$="ZNICIM ROBOTA"THENGOTO2335
2465 IFO$="V"THENGOTO2475
2470 PRINT" NECH TOHO NEBO SE VYPNU!!!":GOTO2440
2475 PRINT"“š":POKE53280,6:POKE53281,6:PRINT:PRINT
2480 PRINT" JSI V MISTE OHYBU NEJAKE ULICE.TOTO"
2485 PRINT" MISTO JE VELMI TICHE.ZADNEHO ROBOTA"
2490 PRINT" NENI VIDET.MUZES JIT NA SEVER A NA ZA- PAD."
2495 PRINT
2500 INPUT " KAM PUJDES ";O$
2505 IFO$="Z"THENGOTO2425
2510 IFO$="S"THENGOTO2520
2515 PRINT" TAK BLBEJ NAPAD SEM ESTE NEVIDEL!!!":GOTO2495
2520 PRINT"“ ":POKE53281,1:POKE53280,1:PRINT:PRINT
2525 PRINT" STOJIS NA ULICI VEDOUCI OD SEVERU"
2526 PRINT" NA JIH.NA VYCHODE STOJI NEJAKA VELKA"
2527 PRINT" BUDOVA,OVSEM NENI NIKDE VIDET VCHOD"
2528 PRINT" A OKNA JSOU ZAMRIZOVANA."
2529 PRINT
2530 INPUT" KAM PUJDES TED ";O$
2531 IFO$="J"THENGOTO2475
2535 IFO$="S"THENGOTO2545
2540 PRINT" VYMYSLI SI NECO LEPSIHO,JO ?!!":GOTO2529
2545 PRINT"“":POKE53280,0:POKE53281,0:PRINT:PRINT:Z=0
2550 PRINT" VE TVE BLIZKOSTI SE VYSKYTL ROBOT!"
2555 PRINT" NA TOMTO JE VSAK ZNAT,ZE PRI PRVNIM"
2560 PRINT" SOUBOJEM S LIDSTVEM UTRPEL DOST ZA-"
2565 PRINT" VAZNOU PORUCHU.PRESTO SI TROUFA UTO-"
2570 PRINT" CIT NA TEBE.MUZES JIT NA SEVER A NA JIH."
2575 PRINT
2580 INPUT" CO TE NAPADLO TED ";O$
2585 IFO$="ZNICIM ROBOTA"THENGOTO2335
2590 IFO$="USPIM ROBOTA"THENPRINT" ROBOT SE ZASTAVIL !!":Z=1:GOTO2575
2595 IFO$="S"ANDZ=0THENGOTO2370
2600 IFO$="J"ANDZ=0THENGOTO2370
2605 IFO$="J"THENGOTO2520
2610 IFO$="S"THENGOTO2620
2615 PRINT" TY SES TEDA INTELIGENT !!!":GOTO2575
2620 PRINT"“":POKE53280,1:POKE53281,1:PRINT:PRINT
2625 PRINT" STOJIS PRED VCHODEM DO VELKE BUDOVY"
2630 PRINT" S NAPISEM'CENTRAL COMPUTER'.TATO BU-"
2635 PRINT" DOVA JE NA VYCHODE.MUZES JIT TAKE"
2640 PRINT" NA SEVER,JIH A NA ZAPAD."
2645 PRINT
2650 INPUT " TAK CO TED ";O$
2655 IFO$="J"THENGOTO2545
2660 IFO$="Z"THENGOTO3555
2665 IFO$="V"THENGOTO2680
2670 IFO$="S"THENGOTO2900
2675 PRINT" TY SNAD NEUMIS ANI CHODIT !!!":GOTO2645
2680 IFK=0THENGOTO2690
2685 IFL=0THENGOTO2710
2686 GOTO2730
2690 PRINT"“":POKE53280,0:POKE53281,0:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
2695 PRINT" NEMAS KLIC !!!"
2700 FORN=1TO7000:NEXT
2705 GOTO2620
2710 PRINT"“":POKE53280,0:POKE53281,0:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
2715 PRINT" JESTE JSI NESEBRAL PRVNI CAST KODU!!!"
2720 FORN=1TO7000:NEXT
2725 GOTO2620
2730 PRINT"“":POKE53280,1:POKE53281,1:PRINT:PRINT
2735 PRINT" GRATULUJI!!!"
2740 PRINT" PODARILO SE TI PROJIT MESTEM."
2745 PRINT" V DALSIM KOLE BUDES PROCHAZET"
2750 PRINT" BUDOVOU CENTRAL COMPUTERU."
2755 PRINT:PRINT:PRINT
2760 PRINT" NYNI SI OPET CHVILI ODPOCINES."
2765 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
2770 PRINT" STISKNI SPACE"
2775 GETA$
2780 IFA$=" "THENGOTO2790
2785 GOTO2775
2790 PRINT"“":POKE53280,0:POKE53281,0:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
2795 PRINT" ODPOCIVAS......"
2800 FORN=1TO10000:NEXT
2805 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
2810 PRINT" 3.KOLO"
2815 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
2820 PRINT" STIKNI SPACE"
2825 GETA$
2830 IFA$=" "THENGOTO3600
2835 GOTO2825
2900 PRINT"“":POKE53280,1:POKE53281,1:PRINT:PRINT:Z=0
2905 PRINT" JSI NA ULICI VEDOUCI OD JIHU NA SE-"
2910 PRINT" VER.VE TVE BLIZKOSTI JE ROBOT."
2915 PRINT
2920 INPUT " CO TED ";O$
2925 IFO$="ZNIC ROBOTA"THENGOTO2335
2929 IFO$="USPI ROBOTA"THENPRINT" ROBOT SE ZASTAVIL !!!":Z=1:GOTO2915
2930 IFO$="S"ANDZ=0THENGOTO2370
2935 IFO$="J"ANDZ=0THENGOTO2370
2940 IFO$="J"THENGOTO2620
2945 IFO$="S"THENGOTO2955
2950 PRINT" TY SES CHYTREJ JAK POLENO !!!":GOTO2915
2955 PRINT"“":POKE53281,0:POKE53280,0:PRINT:PRINT
2960 PRINT" JSI NA NEJAKE HLAVNI TRIDE MESTA."
2961 PRINT" V NEDAVNE DOBE TUDY JEZDILA SPOUSTA"
2962 PRINT" AUT.NA ASFALTU JSOU JESTE VIDET STOPY"
2963 PRINT" PO PNEUMATIKACH.MUZES JIT NA SEVER A NA JIH."
2964 PRINT
2965 INPUT" KAM TED ";O$
2970 IFO$="J"THENGOTO2900
2975 IFO$="S"THENGOTO2985
2980 PRINT" TO TEDA VYSLALI TOHO PRAVYHO !!!":GOTO2964
2985 PRINT"“ ":POKE53280,1:POKE53281,1:PRINT:PRINT:Z=0
2986 PRINT" JSI V OHYBU NEJAKE ULICE.Z OKNA NE-"
2987 PRINT" JAKEHO VOZITKA NA TEBE UTOCI ROBOT."
2988 PRINT" MUZES JIT NA JIH A NA ZAPAD."
2989 PRINT
2990 INPUT" CO PODNIKNES TED ";O$
2991 IFO$="ZNICIM ROBOTA"THENGOTO2335
2992 IFO$="USPIM ROBOTA"THENPRINT" ROBOT USNUL VE VOZITKU !!!":Z=1:GOTO2989
2993 IFO$="J"ANDZ=0THENGOTO2370
2994 IFO$="Z"ANDZ=OTHENGOTO2370
2995 IFO$="J"THENGOTO2955
2996 IFO$="Z"THENGOTO3000
2997 PRINT" ASI JSI SE MALO VYSPAL !!!":GOTO2989
3000 PRINT"“š":POKE53280,6:POKE53281,6:PRINT:PRINT
3001 PRINT" JSI NA CESTE VEDOUCI Z VYCHODU NA ZA-"
3002 PRINT" PAD.ZADNY ROBOT SE TU MOMENTALNE NEVYSKYTUJE."
3003 PRINT
3004 INPUT" KAM PUJDES ";O$
3005 IFO$="V"THENGOTO2985
3010 IFO$="Z"THENGOTO3020
3015 PRINT" JE VIDET ZE SEM CHYTREJSI NEZ TY !!!":GOTO3003
3020 PRINT"“":POKE53280,14:POKE53281,14:PRINT:PRINT
3021 PRINT" V TOMTO MISTE SE NA SEVERNI STRANE"
3022 PRINT" NACHAZI BUDOVA S NAPISEM 'RADNICE'."
3023 PRINT" MUZES JIT NA ZAPAD A NA VYCHOD."
3024 PRINT
3025 INPUT " KAM TED KUJDES ";O$
3030 IFO$="V"THENGOTO3000
3035 IFO$="Z"THENGOTO3045
3040 PRINT" TY SES ALE MOULA !!":GOTO3024
3045 PRINT"“":POKE53280,0:POKE53281,0:PRINT:PRINT:Z=0
3050 PRINT" ZASLECHL JSI ZA SEBOU NEJAKY SRAMOT."
3055 PRINT" KDYZ JSI SE OTOCIL UVIDEL JSI ROBOTA."
3056 PRINT" MUZES JIT NA ZAPAD,JIH A NA VYCHOD."
3057 PRINT
3058 INPUT" PRO CO JSI SE ROZHODL ";O$
3060 IFO$="ZNICIT ROBOTA"THENGOTO2335
3065 IFO$="USPIM ROBOTA"THENPRINT" ROBOT SE UZ NEHYBE !!!":Z=1:GOTO3057
3070 IFO$="Z"ANDZ=0THENGOTO2370
3075 IFO$="J"ANDZ=0THENGOTO2370
3080 IFO$="V"ANDZ=0THENGOTO2370
3085 IFO$="Z"THENGOTO3105
3090 IFO$="J"THENGOTO3200
3095 IFO$="V"THENGOTO3020
3100 PRINT" TY SES TEDA INTELIGENT !!!":GOTO3057
3105 PRINT"“":POKE53280,0:POKE53281,0:PRINT:PRINT
3110 PRINT" JSI NA ULICI.MUZES JIT NA VYCHOD A NA ZAPAD."
3115 PRINT
3120 INPUT" KAM PUDES ";O$
3125 IFO$="Z"THENGOTO3140
3130 IFO$="V"THENGOTO3045
3135 PRINT" TY UZ ME VAZNE STVES !!!":GOTO3115
3140 PRINT"“":POKE53280,14:POKE53281,14:PRINT:PRINT:Z=0
3145 PRINT" JSI NA USEKU PLNEM ROBOTU.MUZES JIT NA VYCHOD A NA ZAPAD."
3150 PRINT
3155 INPUT " CO UZNAS ZA VHODNE NYNI ";O$
3160 IFO$="ZNICIT ROBOTY"THENGOTO2335
3165 IFO$="USPAT ROBOTY"THENPRINT" ROBOTI SE ZASTAVILI !!!":Z=1:GOTO3150
3170 IFO$="Z"ANDZ=0THENGOTO2370
3175 IFO$="V"ANDZ=0THENGOTO2370
3180 IFO$="Z"THENGOTO1500
3185 IFO$="V"THENGOTO3105
3190 PRINT" CHCES ABY TE ZABILI !!!":GOTO3150
3200 PRINT"“":POKE 53280,1:POKE53281,1:PRINT:PRINT
3205 PRINT" JSI NA ULICI VEDOUCI OD SEVERU NA JIH. ZADNY ROBOT TU NENI."
3210 PRINT
3215 INPUT" KAM PUDES ";O$
3220 IFO$="S"THENGOTO3045
3225 IFO$="J"THENGOTO3235
3230 PRINT" SES BLBEJ JAK POLENO !!!":GOTO3210
3235 PRINT"“":POKE53280,0:POKE53281,0:PRINT:PRINT:Z=0
3240 PRINT" SOTVA JSI SEM VESEL TAK NA TEBE ZACAL"
3245 PRINT" UTOCIT ROBOT.MUZES JIT NA SEVER A NA JIH"
3250 PRINT
3255 INPUT " CO BUDE TED ";O$
3260 IFO$="ZMICIM ROBOTA"THENGOTO2335
3265 IFO$="USPIM ROBOTA"THENPRINT" ROBOT SE SKACEL JAK SMRK VE VERTU !!!":Z=1:GOTO3250
3270 IFO$="S"ANDZ=0THENGOTO2370
3275 IFO$="J"ANDZ=0THENGOTO2370
3280 IFO$="S"THENGOTO3200
3285 IFO$="J"THENGOTO3295
3290 PRINT" TY SES CHYTREJ JAK CEAUCESKUOVI !!!":GOTO3250
3295 PRINT"“":POKE53280,1:POKE53281,1:PRINT:PRINT
3300 PRINT" STOJIS NA KRIZOVATCE TVARU +."
3305 IFL=0THENPRINT" NA ZEMI LEZI NEJAKA KARTICKA."
3310 PRINT" MUZES JIT NA SEVER,JIH,VYCHOD A ZAPAD."
3315 PRINT
3320 INPUT" CO JSI UZNAL ZA VHODNE ";O$
3325 IFO$="SEBER KARTICKU"THENGOTO3340
3330 IFO$="S"THENGOTO3235
3333 IFO$="J"THENGOTO3345
3334 IFO$="Z"THENGOTO3485
3335 IFO$="V"THENGOTO3520
3336 PRINT" NEZAPOMELS NA KARTICKU ?":GOTO3315
3340 PRINT" SEBRALS KARTISKU S PRVNI CASTI KODU!!!":L=1:GOTO3315
3345 PRINT"“":POKE53280,2:POKE53281,2:PRINT:PRINT
3350 PRINT" JSI NA ULICI,KDE NENI NIC ZVLASTNIHO."
3355 PRINT" MUZES JIT NA SEVER A NA JIH."
3360 PRINT
3365 INPUT" KAM PUJDES ";O$
3370 IFO$="S"THENGOTO3295
3375 IFO$="J"THENGOTO3385
3380 PRINT" TY NEZNAS SVETOVE STRANY ?":GOTO3360
3385 PRINT"“":POKE53280,1:POKE53281,1:PRINT:PRINT
3390 PRINT" PO ROBOTECH JAKO BY SE SLEHLA ZEM, ZADNY ZDE NENI.MUZES JIT"
3395 PRINT" NA SEVER A NA JIH."
3400 PRINT
3405 INPUT " KAM PUJDES ";O$
3410 IFO$="S"THENGOTO3345
3415 IFO$="J"THENGOTO2250
3420 PRINT" TY NEUMIS SNAD ANI CHODIT !!!":GOTO3400
3450 PRINT"“":POKE53280,1:POKE53281,1:PRINT:PRINT
3455 PRINT" JSI NA ULICI VEDOUCI OD ZAPADU NA VYCHOD."
3460 PRINT
3465 INPUT " KAM TED ";O$
3470 IFO$="Z"THENGOTO1875
3475 IFO$="V"THENGOTO3485
3480 PRINT" BEZ DO ......!":GOTO3460
3485 PRINT"“":POKE53280,0:POKE53281,0:PRINT:PRINT
3490 PRINT" ZASE ZADNY ROBOT.BEZ NA VYCHOD,NEBO NA ZAPAD."
3495 PRINT
3500 INPUT" CO TED ";O$
3505 IFO$="Z"THENGOTO3450
3510 IFO$="V"THENGOTO3295
3515 PRINT" NEBOLEJ TE NOZICKY ?":GOTO3495
3520 PRINT"“":POKE53280,0:POKE53281,0:PRINT:PRINT
3525 PRINT" JSI NA ULICI.MUZES JIT NA ZAPAD,NEBO NA VYCHOD"
3530 PRINT
3535 INPUT" TED KAM ";O$
3540 IFO$="Z"THENGOTO3295
3545 IFO$="V"THENGOTO3555
3550 PRINT" TY SES FAKT .....!":GOTO3530
3555 PRINT"“":POKE53280,1:POKE53281,1:PRINT:PRINT
3560 PRINT" ZASE ZADNY ROBOT.MUZES NA ZAPAD,NEBO NA VYCHOD"
3565 PRINT
3570 INPUT" CO UDELAS ";O$
3575 IFO$="Z"THENGOTO3520
3580 IFO$="V"THENGOTO2620
3585 PRINT" MUZES MI RICI,KDY HODLAS DOKONCIT TOTO KOLO ?":GOTO3565
3600 PRINT"“":POKE53280,1:POKE53281,1:PRINT:PRINT
3605 PRINT" VESEL JSI DO BUDOVY CENTRALNIHO POCI-"
3610 PRINT" TACE.STOJIS NA CHODBE VEDOUCI OD VY- CHODU NA ZAPAD."
3615 PRINT
3620 INPUT" KAM PUJDES ";O$
3625 IFO$="V"THENGOTO3930
3630 IFO$="Z"THENGOTO3640
3635 PRINT" TO ZACINAS PEKNE !!!":GOTO3620
3640 PRINT"“":POKE53280,1:POKE53281,1:PRINT:PRINT:O=0
3645 PRINT" JSI NA CHODBE VEDOUCI OD VYCHODU NA ZA-"
3650 PRINT" PAD.NA SEVERU A NA JIHU JSOU PLECHOVE"
3655 PRINT" DVERE.Z JEDNECH VYSEL ROBOT."
3660 PRINT
3665 INPUT" CO TED ";O$
3670 IFO$="USPIM ROBOTA"THENPRINT" ROBOT UZ SE NEHYBE!":O=1:GOTO3660
3675 IFO$="S"ANDO=0THENGOTO3720
3680 IFO$="V"ANDO=0THENGOTO3720
3685 IFO$="J"ANDO=0THENGOTO3720
3690 IFO$="Z"ANDO=0THENGOTO3720
3695 IFO$="S"THENGOTO3900
3700 IFO$="V"THENGOTO3600
3705 IFO$="J"THENGOTO3870
3710 IFO$="Z"THENGOTO3740
3715 PRINT" DELAS CHYBY !!!":GOTO3660
3720 PRINT"“":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
3725 PRINT" ROBOT TE DOSTIHL A ZNICIL !!!"
3730 FORN=1TO15000:NEXT
3735 GOTO50000
3740 PRINT"“":PRINT:PRINT
3745 PRINT" STOJIS NA KONCI CHODBY VEDOUCI OD VY-"
3750 PRINT" CHODU NA ZAPAD.NA SEVERU A NA JIHU"
3755 PRINT" JSOU PLECHOVE DVERE."
3760 PRINT
3765 INPUT" KAM PUJDES ";O$
3770 IFO$="V"THENGOTO3640
3775 IFO$="S"THENGOTO3835
3780 IFO$="J"THENGOTO3790
3785 PRINT" KAZDY CLOVEK DELA CHYBY !!!":GOTO3760
3790 PRINT"“":PRINT:PRINT
3795 PRINT" JSI V PRAZDNE MISTNOSTI."
3798 IFO=1THENGOTO3800
3799 PRINT" NA ZEMI LEZI DRUHA CAST KODU."
3800 PRINT" NA SEVERU JE VYCHOD."
3805 PRINT" (ZDE JE MOZNOST POMOCI-HELP)":PRINT
3810 INPUT" CO TED ";O$
3815 IFO$="VEZMI DRUHOU CAST KODU"THENPRINT" KOD JE D-15.":O=1:GOTO3810
3820 IFO$="HELP"THENPRINT" VEZMI DRUHOU CAST KODU":GOTO3810
3825 IFO$="S"THENGOTO3740
3830 PRINT" CHYBY MUZE DELAT KAZDY !!!":GOTO3810
3835 PRINT"“":PRINT:PRINT
3840 PRINT" JSI V PRAZDNE MISTNOSTI."
3841 IFP=0THENPRINT" NA ZEMI LEZI KLIC."
3845 PRINT" MUZES JIT NA JIH"
3850 PRINT
3855 INPUT" CO TED ";O$
3860 IFO$="J"THENGOTO3740
3865 IFO$="VEZMI KLIC"THENPRINT" MAS KLIC !!!":P=1:GOTO3850
3870 PRINT"“":PRINT:PRINT
3875 PRINT" JSI V PRAZDNE MISTNOSTI.NENI ZDE NIC ZVLASTNIHO.MUZES JIT NA SEVER."
3880 PRINT
3885 INPUT" KAM PUJDES ";O$
3890 IFO$="S"THENGOTO3640
3895 PRINT" CHYBY,TO JE LIDSKA VLASTNOST.":GOTO3880
3900 PRINT"“":PRINT:PRINT
3905 PRINT" TATO MISTNOST JE TAKE PRAZDNA.MUZES JIT NA JIH."
3910 PRINT
3915 INPUT" CO BUDE TED ";O$
3920 IFO$="J"THENGOTO3640
3925 PRINT" TY TO SNAD NIKDY NEDOHRAJES !!!":GOTO3910
3930 PRINT"“":PRINT:PRINT
3935 PRINT" JSI TEMER U SVEHO CILE.NA VYCHODE"
3940 PRINT" JSOU TOTIZ DVERE ZA KTERYMI JE UKRYT"
3945 PRINT" CENTRALNI POCITAC IBM.MEZI TEBOU A JIM"
3950 PRINT" JSOU VSAK PANCEROVANE DVERE HLIDANE"
3955 PRINT" DVEMA ROBOTY."
3960 PRINT
3965 INPUT" CO TED ";O$
3970 IFO$="USPIM ROBOTY"THENPRINT" UZ JE PO NICH !!!":X=1:GOTO3960
3975 IFO$="Z"ANDX=0THENGOTO4015
3980 IFO$="V"ANDX=0THENGOTO4015
3990 IFO$="V"ANDO=0THENPRINT" NEZAPOMELS NA KOD ?":GOTO3960
3995 IFO$="V"ANDP=0THENPRINT" NEZAPOMELS NA KLIC ?":GOTO3960
4000 IFO$="Z"THENGOTO3600
4005 IFO$="V"THENGOTO4035
4010 PRINT" V TETO FAZI SI JIZ CHYBY NEMUZES DOVOLIT !!!":GOTO3960
4015 PRINT"“":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
4020 PRINT " ROBOTI TE ZNICILI !!!"
4025 FORN=1TO15000:NEXT
4030 GOTO50000
4035 PRINT"“":PRINT:PRINT
4040 PRINT" JSI U SVEHO CILE.UPROSTRED TETO "
4045 PRINT" MISTNOSTI JE POCITAC IBM.NA MONITORU"
4050 PRINT" BLIKA NAPIS ZADEJ KOD."
4055 POKE 19,65
4060 PRINT:PRINT:PRINT:PRINT:PRINT
4065 INPUT" ";O$
4070 IFO$="D-15"THENGOTO4085
4075 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
4080 PRINT" ZADAL JSI SPATNE KOD !!!":FORN=1TO15000:NEXT:GOTO4035
4085 PRINT"“":PRINT:PRINT
4090 PRINT" GRATULUJI !!
-
Komix se jmenoval Vzpoura mozků. ;) A podle toho výpisu soudě, se autorovi hry skutečně taková mozková příhoda udála. :o
-
To je fakt kuriozita! :) Strašně se mi líbí ten příkaz VYSTREL Z LASEROVO PLAZMATYCKYCH DEL. Ano, to by mě opravdu nenapadlo ;D
Na druhou stranu to vypadá, že si s tím autor dal poměrně práce - proč vlastně tu hru psal, když a priori musel vědět, že si jí zahraje akorát on sám :D
-
Komix se jmenoval Vzpoura mozků. ;) A podle toho výpisu soudě, se autorovi hry skutečně taková mozková příhoda udála. :o
No jasně Vzpoura Mozků. Mimochodem ten výpis není celý, nějak sem to nedostal z toho emulátoru víc, než 32kb, anžto je tam těch textů víc.
-
To vypadá spíš na nějaký pokus o gamebook. Ani bych se nedivil, kdyby k originálce byl přiložen nějaký papír, podle kterého hráč věděl, co může zadat. Zkusim to najít, vytáhnout celý kód a udělat remake.
-
Dyk ten kód máš o pár řádek výše :)
-
Dyt ty sam pises, ze ten vypis neni cely... ??
-
Si jako myslim, ze cely je.