This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:Cabbage
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2016 (NOMAM 2016)
-
Year:2016
Listing 1
1 REM CABBAGE - A TEXT ADVENTURE IN 10 LINES OF BASIC BY KEVIN@SAVETZ.COM - JANUARY 17, 2016 2 REM GET ALL ITEMS NORTH ACROSS THE RIVER. YOUR LITTLE BOAT ONLY FITS 1 ITEM AT A TIME. 3 REM COMMANDS ARE: INVENTORY, NORTH, SOUTH, GET <ITEM>, DROP <ITEM> 10 DIM A$(20),B$(1),RN$(20),RN(2,2),IN$(100),IN(3,2),IL(3),EX(2,4):EX(1,1)=2:EX(2,2)=1:L=1:H=3 20 RN$="South BankNorth Bank":RN(1,0)=1:RN(1,1)=10:RN(2,0)=11:RN(2,1)=20:IN$="WOLFGOATCABBAGE":IN(1,1)=1 25 IN(1,2)=4:IN(2,1)=5:IN(2,2)=8:IN(3,1)=9:IN(3,1)=9:IN(3,2)=15:D=0:?:? RN$(RN(L,0),RN(L,1)):? "You see:":Y=L:EXEC LL 50 INPUT ">",A$:IF A$="":GOTO 25:ENDIF:B$=A$(1,1):IF B$="N":D=1:ELSE:IF B$="S":D=2:ENDIF:ENDIF 70 IF D:IF EX(L,D):IF H>1:? "Boat too full.":ELSE:L=EX(L,D):ENDIF:ELSE:? "YOU CAN'T GO THAT WAY.":ENDIF:ENDIF 80 IF B$="I":? "You're carrying:":Y=0:EXEC LL:ENDIF:I=0:IF H=3 AND L=2:? "All safe on North Shore, you win!":END:ENDIF 90 IF B$="G" OR B$="D":IF INSTR(A$,"WOLF"):I=1:ENDIF:IF INSTR(A$,"GOAT"):I=2:ENDIF:IF INSTR(A$,"CABBAGE"):I=3:ENDIF 95 IF B$="G":IF IL(I)=L:IL(I)=0:? "Got it":H=H+1:ELSE:? "NOT HERE":ENDIF:ELSE:IF IL(I)=0:IL(I)=L:? "Dropped":H=H-1:ENDIF:ENDIF 96 ENDIF:IF IL(2)=L:IF IL(1)=L:? "Wolf gobbles goat!":END:ELSE:IF IL(3)=L:? "Goat eats cabbage!":END:ENDIF:ENDIF:ENDIF:GOTO 25 99 PROC LL:Z=0:FOR X=1 TO 3:IF IL(X)=Y:? IN$(IN(X,1),IN(X,2)):Z=1:ENDIF:NEXT X:IF Z=0:? "Nothing.":ENDIF:ENDPROC
References
Listing downloads
Copyright holder