Nascom Journal |
Oktober/November 1982 · Ausgabe 10/11 |
1534 T$=T$+" turns left' mark.": RETURN 1540 IF I=11 THEN T$="It sez `KEROSENE'":RETURN 1550 T$="Thar's writing on it.": RETURN 1560 IF O$(20,2)<>"-17" GOTO 1460 1562 O$(20,2)="17":T$="It's a message !":RETURN 1570 IF I<>11 GOTO 1550 1572 T$="It sez:"+C$+"Bring treasures to " 1574 T$=T$+"saloon, say `SCORE'": RETURN 1580 IF I<>11 GOTO 1550 1582 T$="It sez:"+C$+"Watch for other Rider " 1584 T$=T$+"Fantasy adventures!": RETURN 1590 T$="They's a savage lookin' band,"+C$ 1592 T$=T$+"`n they seen ya!": RETURN 1600 T$="Jus' an ole ore cart full o' rocks." 1602 RETURN 1610 IF O$(5,2)<>"-25" GOTO 1460 1612 O$(5,2)="1":T$="Thar's sumthin' here!!": 1613 RETURN 1620 IF I<>11 GOTO 1550 1622 T$="It sez:"+C$+"WELCOME TO FRONTIERTOWN." 1623 RETURN 1630 IF O$(10,2)<>"-6" GOTO 1460 1632 T$="Thar's a set of keys thar!" 1633 O$(10,2)="6":RETURN 1640 B=INT(RND(1)*3+1) 1642 ON B GOTO 1650,1660,1670 1650 T$="It's a barrel cactus.":RETURN 1660 T$="It's a cholla cactus.":RETURN 1670 T$="It's a saguaro cactus.":RETURN 1690 IF J=4 AND I=38 THEN 1780 1700 IF J=1 AND VAL (O$(1,3))>=0 GOTO 1710 1702 T$="Sorry, b' that ain't possible.":RETURN 1710 IF I<>38 THEN 1720 1715 IF O$(1,3)<>"" GOTO 1780 1716 T$="Tendarfoot! Ya hav'ta lead `im first." 1717 RETURN 1720 IF O$(1,3)="1" THEN 1320 1723 IF O$(7,3)<>"1" OR I=16 GOTO 1730 1724 T$="Try `LEAD'.":RETURN 1730 ON I-13 GOTO 1740,1750,1760,1770 1740 T$="He got away from ya.":RETURN 1750 T$="Yer too slow, he got away.":RETURN 1760 IF O$(7,3)="1" GOTO 1763 1761 T$="Bad luck, ya tripped and he run off." 1762 O$(1,3)="": O$(1,2)=STR$(L): RETURN 1763 IF O$(1,3)="" THEN 1280 1766 GOTO 1320 1770 T$="He bucked ya off.": RETURN 1780 INPUT"With what";QM$: IF J=4 THEN 1800 1782 IF LEFT$(QM$+" ",3)="SAD" GOTO 1790 1783 T$="It fell off."+C$+"He got away." 1784 O$(1,3)="":IN=IN-1:O$(1,2)=STR$(L):RETURN 1790 IF O$(O,3)<>"1" GOTO 1320 1791 O$(0,3)="2":IN=IN-1:GOTO 1060 1800 IF LEFT$(QM$+" ",3)<>"BUL" THEN 1050 1805 IF O$(8,3)<>"1" OR O$(4,3)<>"1" THEN 1320 1810 GOTO 120 1820 IF O$(J,3)<>"1" THEN 1320 1822 INPUT"On or in what (ie `ON TABLE')";QM$ 1823 P$=LEFT$(QM$+" ",2)
1824 IF P$<>"IN"AND P$<>"ON"THEN T$="Huh?":RETURN 1830 M1$=MID$(QM$,4,3) 1840 IF P$<>"ON" THEN 1850 1841 IF M1$="MUL" THEN 1790 1843 IF J<>13 THEN 1320 1845 IF LM=0 THEN T$="It's empty.":RETURN 1847 LM=0:GOTO 1320 1850 IF M1$<>"SAD" THEN 1860 1852 IF J>=5 AND J<>19 AND J<>22 GOTO 1855 1853 T$="Sorry, it don't fit.":RETURN 1855 IF IM>4 THEN T$="The bags `r full.": RETURN 1857 O$(J,2)="-1": O$(J,3)="": IN=IN-1 1858 IM=IM+1: T$="Ok": RETURN 1860 IF M1$="MUL" THEN T$="Ya got kicked!":RETURN 1870 IF M1$<>"LAN" THEN 1050 1872 IF O$(13,3)<>"1" OR O$(12,3)<>"1" THEN 1320 1875 IF LM=50 THEN LN=LN+50: LM=0: GOTO 120 1880 T$="Jar's empty.": RETURN 1890 T$="Ya can't do that... yet!" 1900 PRINT T$: T$="": GOTO 100 1920 PRINT"Ya got with ya: "; 1922 IF IN<>0 OR O$(1,3)="1" GOTO 1930 1924 T$="Nothin'": RETURN 1930 B=VAL(O$(0,3)):X1=B:IF B<>1 THEN 1940 1933 PRINT:PRINT O$(0,0)", containing: ";:FOR I=1 TO 22 1934 IF O$(I,2)="-1" THEN PRINT O$(I,0)". ";:X1=2 1936 NEXT:IF X1<>2 THEN PRINT"Nothin'! "; 1940 IF O$(1,3)<>"1" GOTO 1950 1942 PRINT:PRINT"The mule, which yer leadin. "; 1944 IF B=2 THEN PRINT "(carrying saddlebags) "; 1950 PRINT: X1=0: FOR I=2 TO 22 1952 IF VAL (O$(I,3))<1 THEN 1970 1955 IF CL=1 AND I=12 THEN PRINT "lit "; 1960 PRINT O$(I,0)". "; 1970 NEXT 1980 T$="": RETURN 2000 IF L<>19 GOTO 2005 2001 CLS:PRINT"Ya fell 100 feet `n landed on rocks." 2002 PRINT"Yer dead.": GOTO 2220 2005 IF J=23OR J=32OR M1$="P" THEN T$="Ok":RETURN 2006 GOTO 1050 2010 T$="Where?":RETURN 2020 IF L=25 THEN L=26: GOTO 120 2030 IF L=26 THEN L=25 2040 GOTO 120 2100 DATA"","","",0,0,0,0,0 2101 DATAIN A MINER'S SHACK 2102 DATAWINDOW. DOOR,"",1,3,3,0,0 2105 DATAIN A DESERT,ROAD. MOUNTAINS. DESERT. 2106 DATA"WNES",2,4,2,2,2 2107 DATAON A DIRT PATH 2108 DATAMINER'S SHACK. ROAD. MOUNTAINS 2109 DATA" W ",5,1,4,2,2 2110 DATAON A DIRT ROAD 2111 DATAMOUNTAINS. PATH. DESERT. TOWN 2112 DATA"NE S",2,7,3,2,5 2113 DATAIN A GHOST TOWN 2115 DATASALOON," N ",1,6,4,0,0
|
|
|
Seite 17 von 28 |
|
|
|
---|
Download des Programms von der Nascom Home Page.