KEY OFF: SCREEN 0: WIDTH 40: COLOR 0, 6: CLS
DIM S$(15), SP(15), VS(4, 4), V$(9)

PRINT : PRINT : PRINT
PRINT "          GROTTOR": PRINT
PRINT " I DET HˇR ˇVENTYRET SKALL DU FINNA"
PRINT " EN SKATT I N¸GON AV GROTTORNA OCH"
PRINT " SEDAN FLY MED DEN.": PRINT
PRINT " DU KAN ANVˇNDA ORDEN G¸ N ,G¸ ™, G¸ S,"
PRINT " G¸ V, TA, SLˇPPA, FYLLA, T™MMA, SˇTTA,"
PRINT " SVˇNGA, KLˇTTRA.": PRINT
PRINT " ANVˇND ALLTID TV¸ ORD, T EX TA FLASKA."
PRINT " ORDEN KAN F™RKORTAS TILL TRE BOKSTˇVER.": PRINT
PRINT " SLUTA AVSLUTAR SPELET": PRINT : PRINT
PRINT " TRYCK RETURN F™R START.";
WHILE INKEY$ <> CHR$(13): WEND

FOR I = 1 TO 4:  READ P$(I), VS(I, 1), VS(I, 2), VS(I, 3), VS(I, 4): NEXT
FOR I = 1 TO 14: READ S$(I), SP(I): NEXT
FOR I = 1 TO 8:  READ V$(I): NEXT
R = 1: B = -1

slingan:
CLS : PRINT
PRINT "DU ˇR "; P$(R)
PRINT "DU KAN G¸ ";
FOR I = 1 TO 4
  IF VS(R, I) > 0 THEN PRINT S$(I); ", ";
NEXT I
PRINT : PRINT
IF R = 1 THEN PRINT "H™GT OVANF™R DIG FINNS ETT H¸L I TAKET"
IF R = 1 AND B = -1 THEN PRINT "I VˇSTER FINNS EN DJUP KLYFTA"
IF R = 4 AND B = -1 THEN PRINT "I ™STER FINNS EN DJUP KLYFTA"
IF R = 4 AND SP(12) = -1 THEN PRINT "DIMMA STR™MMAR UT GENOM ETT H¸L I VˇGGEN"
PRINT "DU SER ";
G = 0
FOR I = 5 TO 14
  IF SP(I) = R THEN PRINT S$(I); ", "; : G = 1
NEXT
IF G = 0 THEN PRINT "INGENTING";
PRINT : PRINT
PRINT "DU HAR ";             'Uppr„kning av vad man har med sig (SP(I)=0).
G = 0
FOR I = 5 TO 14
  IF SP(I) = 0 THEN PRINT S$(I); ", "; : G = 1
NEXT
IF G = 0 THEN PRINT "INGENTING";
PRINT : PRINT

slingan2:
INPUT "VAD VILL DU G™RA? ", A$
IF A$ = "" THEN GOTO slingan2
IF A$ = "SLUTA" THEN END

A$ = A$ + " "
FOR X = 1 TO 8
  B$ = LEFT$(V$(X), 3)
  IF INSTR(A$, B$) = 1 THEN EXIT FOR
NEXT
FOR Y = 1 TO 14
  B$ = LEFT$(S$(Y), 3)
  IF INSTR(A$, B$) > 2 THEN EXIT FOR
NEXT

ON X GOTO v1, v2, v3, v4, v5, v6, v7, v8

PRINT "JAG F™RST¸R INTE '"; A$; "'": GOTO slingan2

v1: '=== G¸ ===
IF Y = 3 AND R = 2 AND SP(11) <> 2 THEN PRINT "GOLVET ˇR F™R HALT": GOTO slingan2
IF ((Y = 2 AND R = 4) OR (Y = 4 AND R = 1)) AND B = 1 AND SP(10) = 0 THEN
  PRINT "DU KAN INTE TA TROLLSTAVEN ™VER BRON!": GOTO slingan2
END IF
IF Y > 4 THEN GOTO slingan
IF VS(R, Y) > 0 THEN R = VS(R, Y)
GOTO slingan

v2: '=== TA ===              F r„knar antal saker man b„r.
IF Y = 8 OR Y = 9 OR SP(Y) <> R THEN GOTO slingan    'Man kan inte ta palmen eller vattnet eller saker som inte finns utlagda i rummet.
F = F + 1: IF F > 3 THEN F = 3: PRINT "DU KAN BARA TA TRE SAKER": GOTO slingan2
SP(Y) = 0: GOTO slingan     'SP(Y)=0 : du b„r saken.

v3: '=== SLˇPPA === Om du b„r sak Y s† s„tt SP(Y) till rummets nummer och minska r„knaren p† antal saker du b„r.
IF Y < 15 AND SP(Y) = 0 THEN F = F - 1: SP(Y) = R
GOTO slingan

v4: '=== FYLLA === Det „r bara flaskan som kan fyllas och man m†ste vara vid sj”n.
IF R = 2 AND Y = 6 AND SP(6) = 0 THEN H = 1: PRINT "O. K. FLASKAN ˇR FULL": GOTO slingan2
GOTO slingan      'H=1 om flaskan „r fylld

v5: '=== T™MMA ===
IF Y <> 6 OR SP(6) <> 0 OR H = 0 THEN GOTO slingan
PRINT "O. K.": H = 0  'Om den finns fr”n i rummet d„r man t”mmer flaskan h„nder n†got...
IF SP(7) = R THEN PRINT "EN PALM VˇXER UPP TILL TAKET": SP(7) = -1: SP(8) = R
GOTO slingan2     'Obs att fr”na tas bort: SP(7)=-1

v6: '=== SˇTTA === 'S„tt stenen i h†let. Ta bort stenen, ta fram skatterna.
IF Y = 5 AND SP(5) = 0 AND R = 4 THEN SP(5) = -1: SP(12) = 4: SP(13) = 4: SP(14) = 4: F = F - 1
GOTO slingan

v7: '=== SVˇNGA === trollstav vid klyftan
IF Y <> 10 OR SP(10) <> 0 OR R = 2 OR R = 3 THEN GOTO slingan
B = -1 * B    'v„xla tecken p† B: -1 ingen bro, 1 bro.
IF B = 1 THEN
  PRINT "EN BRO VISAR SIG ™VER KLYFTAN"
  VS(1, 4) = 4: VS(4, 2) = 1  'Nu kan man g† mellan rum 1 och rum 4.
ELSE
  PRINT "BRON F™RSVINNER"
  VS(1, 4) = 0: VS(4, 2) = 0
END IF
GOTO slingan2

v8: '=== KLˇTTRA ===
'Kl„ttra palm i flyktrummet ... om man har skatterna med sig ... och om
'piraten „r utest„ngd.
IF Y <> 8 OR R > 1 OR SP(8) <> 1 THEN GOTO slingan
IF SP(12) <> 0 OR SP(13) <> 0 OR SP(14) <> 0 THEN PRINT "DU HAR INTE ALLA SKATTER MED DIG": GOTO slingan2
IF B = 1 OR SP(11) = 2 THEN PRINT "PIRATEN TAR DINA SKATTER": F = 0: SP(12) = 3: SP(13) = 3: SP(14) = 3: GOTO slingan2
   
'Kan man kl„ttra p† palmen har man klarat spelet.

COLOR 4, 3: CLS : LOCATE 10, 1
PRINT "***************************************"
PRINT "*                                     *"
PRINT "* GRATULERAR, DU KLARADE DITT UPPDRAG *"
PRINT "*                                     *"
PRINT "***************************************": PRINT : PRINT : PRINT
PRINT "              TRYCK ENTER "
WHILE INKEY$ <> CHR$(13): WEND: END

DATA I FLYKT-RUMMET,2,0,0,0,VID EN UNDERJORDISK SJ™,0,0,1,3
DATA I PIRAT-RUMMET,0,2,4,0,I DIM-RUMMET,3,0,0,0
DATA " N ",-1," ™ ",-1," S ",-1," V ",-1
DATA STEN,1,FLASKA,3,FR™N,2,PALM,10,VATTEN,2,TROLLSTAV,3,SAND,3
DATA GULD,-1,SILVER,-1,DIAMANTER,-1
DATA G¸,TA,SLˇPPA,FYLLA,T™MMA,SˇTTA,SVˇNGA,KLˇTTRA