Enkla äventyrsspel. (5 / 7 steg)

Steg 5: Bonus 1: en andra äventyrsspel.

REM som jag gjorde detta i om 2 eller 3 timmar bara för skojs skull.
REM Detta är min första riktiga om spelet.
REM Im bara 15 så gimmie sammanfatta slak om det sux lol.

FÖR s = 1 till 40 steg 5
FÄRG INT(RND * 15) + 1
Skriva ut utrymme $(s); "HAUNTED HOUSE";
Nästa s
"spela"L7O1GFGGGBABBBBCO3BBBBDGGGGFGGABCGO4DBBBBGFG"
meny:
CLS
FÄRG 4
SKRIVA UT "HAUNTED HOUSE - AV GEEK GRUNDLÄGGANDE PROGRAMVARA"
FÄRG 12
SKRIV UT
TRYCK "MENY"-
PRINT "1 >" spela spelet "
PRINT "2 > hjälp"
PRINT "0 > avsluta"
GÖRA
Låt k$ = INKEY$
OM k$ = "1" då: GOTO playgame
OM k$ = "2" sedan: GOTO hjälp
OM k$ = "0" då: CLS: slutet
LOOP

Hjälp:
CLS
FÄRG 4
SKRIVA UT "HÄR ÄR NÅGRA GRUNDLÄGGANDE KOMMANDON SOM KAN ANVÄNDAS I SPELET..."
SKRIV UT
FÄRG 12
SKRIVA UT "LOOK - KONTROLLER FÖR TILLGÄNGLIGA UTGÅNGAR"
SKRIVA UT "INVENTERING - VISA ALLA OBJEKT"
SKRIVA UT "NORR, VÄSTER, SÖDER OCH ÖSTER - FLYTTAR DU TILL TILLGÄNGLIGA PLATSER"
SKRIVA UT "UNDERSÖKA (OBJEKT) - UNDERSÖKER ETT OBJEKT"
SKRIVA UT "ANVÄNDA (OBJEKT) - ANVÄNDA ETT OBJEKT"
SKRIVA UT "TA (OBJEKT) - TA ETT OBJEKT"
SKRIVA UT "LÅSA UPP (OBJEKT) - LÅSA UPP ETT OBJEKT"
SKRIVA UT "HJÄLP - VISA DENNA SKÄRM"
SKRIVA UT "TRYCK PÅ VALFRI TANGENT..."
GÖRA
LOOP TILLS LEN(INKEY$)
Gå till menyn

playgame:

Låt r = 1
Låt gotmainkey = 0
Låt gotboxkey1 = 0
Låt gotboxkey2 = 0
Låt gotcandle = 0
Låt gotnote = 0
Låt gottp = 0
Låt boxopen = 0

CLS
FÄRG 4
SKRIVA UT "HEMSÖKTA HUS"
SKRIV UT
FÄRG 12
SKRIVA UT "DET ÄR HALLOWEEN DAG PÅ MARIPOSA ENHET."
PRINT "DIN MAMMA HAR JORDAD DU FÖR DAGEN EFTERSOM DU OCH DINA VÄNNER"
SKRIVA UT "KASTADE TOALETTPAPPER ÖVER GRANNAR HUSET IGÅR KVÄLL..."
SKRIV UT "NÄR DU SPENDERAR UNGEFÄR HÄLFTEN AV DAGEN PÅ RUMMET STIRRAR PÅ DIN"
PRINT "strumpor och att lyssna på barnen" spela utanför, att du DICIDE att lämna "
SKRIV UT "OCH GÅ PÅ DIN EGEN LILLA HALLOWEEN ÄVENTYR. DU RMEMBER LOKALEN"
SKRIVA UT "RUMERS OM DET GAMLA HUSET TVÄRS ÖVER GATAN BIENG HEMSÖKTA."
SKRIVA UT "DU TROR ATT DET KAN VARA KUL ATT GÅ IN OCH UTFORSKA DEN."
SKRIVA UT "DU PLOCKA UPP TELEFONEN ATT BJUDA IN DINA VÄNNER ATT KOMMA, MEN DU KOMMER IHÅG"
SKRIVA UT "ATT DE ÄR FÖRANKRADE TILL... DU SÄTTER TELEFONEN TILLBAKA NER, ÖPPNA FÖNSTRET "
SKRIV UT "OCH HOPPA UT."
SKRIVA UT "TRYCK PÅ VALFRI TANGENT..."
GÖRA
LOOP TILLS LEN(INKEY$)
CLS
PRINT "DU SPRINGA TVÄRS ÖVER GATAN TILL"HAUNTED HOUSE"ATT SE ATT DÖRREN"
SKRIVA UT "ÄR NÅGOT ÖPPEN, ÄVEN OM INGEN BOR DÄR."
PRINT "DU KÖR INNE I HUSET OCH DÖRREN SLÅR IGEN BAKOM DIG."
SKRIVA UT "FÖRSÖK ATT ÖPPNA DÖRREN, MEN DET FINNS ETT STORT LÅS HINDRAR DIG"
SKRIV UT "FRÅN ÖPPNA DEN."
SKRIVA UT "TRYCK PÅ VALFRI TANGENT..."
GÖRA
LOOP TILLS LEN(INKEY$)

GÖRA
CLS
GOSUB rum
GOSUB parser
LOOP

rum:
OM r = 1 då: GOSUB r1
OM r = 2 då: GOSUB r2
OM r = 3 då: GOSUB r3
OM r = 4 då: GOSUB r4
OM r = 5 sedan: GOSUB r5
OM r = 6 då: GOSUB r6
RETURNERA

parser:
FÄRG 12
LINE INPUT ">"; CMD$
SKRIV UT
FÄRG 4
Låt cmd$ = LTRIM$(RTRIM$(UCASE$(cmd$)))
OM cmd$ = "Slutet" OR cmd$ = "Avsluta" OR cmd$ = "Avsluta" OR cmd$ = "Q" eller cmd$ = "Avsluta" då
Gå till menyn
SLUT OM
OM cmd$ = "Hjälp" då
CLS
FÄRG 4
SKRIVA UT "HÄR ÄR NÅGRA GRUNDLÄGGANDE KOMMANDON SOM KAN ANVÄNDAS I SPELET..."
SKRIV UT
FÄRG 12
SKRIVA UT "LOOK - KONTROLLER FÖR TILLGÄNGLIGA UTGÅNGAR"
SKRIVA UT "INVENTERING - VISA ALLA OBJEKT"
SKRIVA UT "NORR, VÄSTER, SÖDER OCH ÖSTER - FLYTTAR DU TILL TILLGÄNGLIGA PLATSER"
SKRIVA UT "UNDERSÖKA (OBJEKT) - UNDERSÖKER ETT OBJEKT"
SKRIVA UT "ANVÄNDA (OBJEKT) - ANVÄNDA ETT OBJEKT"
SKRIVA UT "TA (OBJEKT) - TA ETT OBJEKT"
SKRIVA UT "LÅSA UPP (OBJEKT) - LÅSA UPP ETT OBJEKT"
SKRIVA UT "HJÄLP - VISA DENNA SKÄRM"
SKRIVA UT "TRYCK PÅ VALFRI TANGENT..."
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
OM cmd$ = "LOOK" OR cmd$ = "Titta runt" OR cmd$ = "L" då
OM r = 1 då: skriva ut "Kan du flytta norr och väst."
OM r = 2 då: skriva ut "Kan du flytta norr, söder.", och WEST
OM r = 3 då: skriva ut "Kan du flytta västerut." och söder
OM r = 4 då: skriva ut "Kan du flytta österut."
OM r = 5 sedan: skriva ut "Kan du flytta österut."
OM r = 6 då: skriva ut "Kan du flytta österut."
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
OM cmd$ = "INVENTORY" OR cmd$ = "INV" OR cmd$ = "Poster" sedan
PRINT "INVENTERING:"
OM gotmainkey = 1 då: PRINT "Brons nyckel"
OM gotboxkey1 = 1 då: PRINT "Liten nyckel"
OM gotboxkey2 = 1 då: PRINT "Liten nyckel"
OM gotnote = 1 då: PRINT "NOTE"
OM gotcandle = 1 då: PRINT "Ljus"
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
OM cmd$ = "Norra" OR cmd$ = "Gå norr" OR cmd$ = "N" då
OM r = 1 då: Låt r = 2: GOTO flyttade
OM r = 2 då: Låt r = 3: GOTO flyttade
SLUT OM
OM cmd$ = "WEST" OR cmd$ = "GO WEST" OR cmd$ = "W" då
OM r = 1 då: Låt r = 5: GOTO flyttade
OM r = 2 då: Låt r = 6: GOTO flyttade
OM r = 3 då: Låt r = 4: GOTO flyttade
OM r = 7 då: Låt r = 2: GOTO flyttade
SLUT OM
OM cmd$ = "Södra" OR cmd$ = "Gå SOUTH" OR cmd$ = "S" då
OM r = 2 då: Låt r = 1: GOTO flyttade
OM r = 3 då: Låt r = 2: GOTO flyttade
SLUT OM
OM cmd$ = "Österut" OR cmd$ = "GO EAST" OR cmd$ = "E" då
OM r = 4 då: Låt r = 3: GOTO flyttade
OM r = 5 då: Låt r = 1: GOTO flyttade
OM r = 6 då: Låt r = 2: GOTO flyttade
SLUT OM
IF (cmd$ = "Undersöka gamla matta" OR cmd$ = "Undersöka matta") och r = 1 då
SKRIVA UT "DET ÄR GAMMAL, MÅLADE OCH SLITNA."
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Undersöka stora bord" OR cmd$ = "Undersöka bord") och r = 2 då
SKRIVA UT "DET ÄR EN STOR GRAND LETAR LÖVTRÄ TABELL."
SKRIVA UT "DET ÄR TÄCKT AV DAMM OCH HAR CHIPS I DEN."
OM gotnote = 0 då: skriva ut "Det finns en liten anteckning ovanpå det.."
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Undersöka stol" OR cmd$ = "Undersöka stolar") och r = 2 då
SKRIVA UT "DET KAN INTE VARA EN BRA IDÉ ATT SITTA PÅ DE SOM INTE ÄR TRASIGA"
SKRIVA UT "EFTERSOM DE KAN BRYTA OCKSÅ."
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Undersöka målning") och r = 2 då
SKRIVA UT "DET ÄR EN BILD AV EN KORSKYRKA SLOTT."
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Undersöka SINK") och r = 3 då
SKRIVA UT "DU SER TORKADE UT FETTSTÄNK AV BLOD I DISKHON."
SKRIVA UT "DU OCKSÅ SE ETT LJUS OCH NÅGRA MATCHER I DET".
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Undersöka disk") och r = 3 då
SKRIVA UT "DET ÄR SLÄTT OCH MYCKET DAMMIG."
SKRIVA UT "DET FINNS SKRIFTLIGT I DAMMET."
PRINT "STÅR DET:"
PRINT "' JAG HAR FASTNAT I DENNA KAMMARE I DAGAR NU, DET GÅR INTE ATT FLY."
SKRIVA UT "YTTERDÖRREN KRÄVER EN SÄRSKILD NYCKEL FÖR ATT ÖPPNA FRÅN INSIDAN."
SKRIVA UT "DET ÄR INTE SAMMA SOM DEN SOM ÖPPNAS FRAMIFRÅN."
SKRIVA UT "JAG INTE KOMMER LEVA MYCKET LÄNGRE, MEN FÖR DEN SOM FINNER THEMSELF"
SKRIVA UT "INSTÄNGD I DENNA FRUKTANSVÄRDA PLATS, JAG HAR BARA GJORT EN INTRESSANT UPPTÄCKT."
PRINT "JAG ÄR INTE HUNDRA PROCENT SÄKER PÅ, MEN JAG TROR..." "
SKRIVA UT "RESTEN ÄR UTSMETAD BORT."
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Undersöka BUCKET" OR cmd$ = "Undersöka ILLALUKTANDE BUCKET") och r = 4 då
SKRIVA UT "DET ÄR FULL AV GRÖNAKTIGT BRUNA MEDELHÅRDA SAKER."
OM gotboxkey2 = 0 då: skriva ut "Det finns en liten nyckel i IT."
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "undersöka TOALETTPAPPER" OR cmd$ = "Undersöka papper") och gottp = 0 och r = 4 då
SKRIVA UT "DET ÄR MYCKET GAMLA SÖKER."
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Pröva vanlig MAT" OR cmd$ = "Undersöka MAT") och r = 5 sedan
SKRIVA UT "DET SER NÅGOT MINDRE ÄN MYSIGT..."
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Undersöka slits upp filt" OR cmd$ = "Undersöka filt") och r = 5 sedan
SKRIVA UT "DET FÖRMODLIGEN INTE KOMMER ATT HÅLLA DIG VARM."
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Undersöka stora JEWLERY BOX" OR cmd$ = "Undersöka JEWLERY BOX") och r = 5 sedan
SKRIVA UT "DET ÄR INLÄGGNINGAR MED VAD SER UT SOM MARMOR."
SKRIVA UT "DET FINNS TVÅ SMÅ NYCKEL HÅL I MITTEN."
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Undersöka ROPE") och r = 6 då
SKRIVA UT "DET HÄNGER FRÅN EN UDDA SÖKER ENHET I TAKET."
SKRIVA UT "IT SER UT SOM DET KAN AKTIVERA NÅGOT OM DU DRA."
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Undersöka blod") och r = 6 då
PRINT "DET TORKAS UPP BLOD PÅ GOLVET, VAD MER KAN JAG SÄGA!?"
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Beakta" OR cmd$ = "Få anteckning") och r = 2 och gotnote = 0 då
SKRIVA UT "DU TA ANTECKNINGEN."
Låt gotnote = 1
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Ta målning" OR cmd$ = "Få målning") och r = 2 och gotboxkey1 = 0 då
SKRIVA UT "DU TA TAG I MÅLNINGEN OCH EN LITEN NYCKEL FALLER UT FRÅN BAKSIDAN AV DEN."
SKRIVA UT "DU SÄTTER DEN MÅLNINGEN TILLBAKA OCH TA DEN LILLA NYCKELN."
Låt gotboxkey1 = 1
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Ta ljus" OR cmd$ = "Få ljus") och r = 3 och gotcandle = 0 då
SKRIVA UT "DU TAR LJUSET."
Låt gotcandle = 1
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Ta liten nyckel" OR cmd$ = "Ta nyckel" OR cmd$ = "Få liten nyckel" OR cmd$ = "Få nyckel") och r = 4 då
SKRIVA UT "DU TAR NYCKELN OCH FÅ ELAKA SAKER ÖVER HANDEN..."
Låt gotboxkey2 = 1
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Ta stor brons nyckel" OR cmd$ = "Ta brons nyckel" OR cmd$ = "Ta nyckel" OR cmd$ = "Få stor brons nyckel" OR cmd$ = "Få brons nyckel" OR cmd$ = "Få nyckel") och boxopen = 1 och r = 5 sedan
SKRIVA UT "DU TAR STOR BRONS NYCKELN."
Låt gotmainkey = 1
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "ta rulla av TOALETTPAPPER" OR cmd$ = "ta TOALETTPAPPER" OR cmd$ = "få rulla av TOALETTPAPPER" OR cmd$ = "få TOALETTPAPPER") och gottp = 0 då
SKRIVA UT "DU PLOCKA UPP TOALETTPAPPER OCH IT COMPLTELY FALLER ISÄR I HANDEN."
Låt gottp = 1
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM

IF (cmd$ = "Läs anteckning" OR cmd$ = "Använd anteckning") och gotnote = 1 då
PRINT "ANTECKNINGEN SÄGER:"
PRINT "" BAKOM GAMLA SLOTTET LIGGER HÄLFTEN AV ETT VERKTYG FÖR DIN FRIHET. ""
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "Dra ROPE" OR cmd$ = "Använd ROPE") och r = 6 då
Gå till förlora
SLUT OM
IF (cmd$ = "Låsa upp JEWLERY BOX" OR cmd$ = "Låsa upp BOX") och gotboxkey1 = 1 och gotboxkey2 = 1 och r = 5 sedan
PRINT "DU INFOGA TVÅ SMÅ KNAPPARNA I RUTAN OCH ÄR FJÄDRAR ÖPPEN"
SKRIVA UT "FÖR ATT AVSLÖJA EN LAGRE BRONS NYCKEL."
Låt boxopen = 1
GÖRA
LOOP TILLS LEN(INKEY$)
SLUT OM
IF (cmd$ = "låsa upp dörren" OR cmd$ = "Låsa upp dörren") och gotmainkey = 1 och r = 1 då
Gå till win
SLUT OM
Flyttad:
RETURNERA

R1:
FÄRG 4
SKRIVA UT "DU ANGE POST VÄGEN."
SKRIVA UT "DU SER EN GAMMAL MATTA LEDER TILL VAD SOM VERKAR VARA MATSALEN."
SKRIVA UT "EN ANNAN MATTA LEDER TILL ETT ANNAT RUM."
SKRIV UT
RETURNERA

R2:
FÄRG 4
SKRIVA UT "DU ANGE MATSALEN."
PRINT "DET FINNS INGA FÖNSTER I HÄR, MEN DET FINNS LJUS FLÖDAR I FRÅN DEN"
SKRIVA UT "ANDRA RUMMET, DU KAN KNAPPT SE NÅGOT."
SKRIVA UT "DET FINNS FLERA DÖRRAR SOM LEDER TILL OLIKA PLATSER."
SKRIVA UT "DU SER EN LUCKA SOM FÖRMODLIGEN LEDER NER TILL KÄLLAREN."
SKRIVA UT "DET FINNS ETT STORT BORD I MITTEN AV RUMMET."
SKRIVA UT "DE FLESTA AV STOLARNA RUNT BORDET HAR BRUTIT BEN."
SKRIVA UT "DU OCKSÅ SE EN MÅLNING PÅ VÄGGEN".
SKRIV UT
RETURNERA

R3:
FÄRG 4
SKRIVA UT "DU ANGE KÖKET."
SKRIVA UT "DU SER EN DÖRRÖPPNING MED DÖRR SAKNAS."
SKRIVA UT "DET FINNS EN DISKBÄNK OCH A COUNTER."
SKRIVA UT "DET FINNS MASSOR AV DAMM PÅ DISKEN."
SKRIV UT
RETURNERA

R4:
FÄRG 4
SKRIVA UT "DU ANGE BADRUMMET."
SKRIVA UT "DET FINNS EN LITEN OGENOMSKINLIG FÖNSTER PÅ VÄGGEN."
SKRIVA UT "DET FINNS EN DÖRR SOM LEDER TILLBAKA TILL KÖKET."
SKRIVA UT "DU SER EN HINK MED VILE LUKTA GREJER I HÖRNET."
OM gottp = 0 då: skriva ut "Det finns en rulle TOALETTPAPPER bredvid."
SKRIV UT
RETURNERA

R5:
FÄRG 4
SKRIVA UT "DU ANGE SOVRUMMET."
SKRIVA UT "DET FINNS EN DÖRR SOM LEDER TILLBAKA TILL MATSALEN."
SKRIVA UT "SER DU EN VANLIG MATTA PÅ GOLVET MED EN SÖNDERRIVEN UPP FILT."
SKRIVA UT "DU OCKSÅ SE EN STOR JEWLERY BOX."
SKRIV UT
RETURNERA

R6:
FÄRG 4
SKRIVA UT "DU ANGE KÄLLAREN."
OM gotcandle = 1 då
SKRIVA UT "DU TÄNDA ETT LJUS."
SKRIVA UT "DU SER ETT REP I MITTEN AV RUMMET."
SKRIVA UT "DET FINNS OCKSÅ JOHANS UPP BLOD PÅ GOLVET."
ANNAT
SKRIVA UT "DET FINNS INGA FÖNSTER I HÄR OCH DU SKRÄNANDE SE NÅGOT."
SKRIVA UT "FÖRSÖK ATT SE OM DU HITTAR ETT LJUS."
SKRIVA UT "DU BEGE DIG TILLBAKA UPP PÅ STEGEN."
Låt r = 2
SLUT OM
SKRIV UT
RETURNERA

Vinn:
FÄRG 14
SKRIVA UT "DU LÅSA UPP DÖRREN, ÖPPNA DEN OCH GÅ UT OCH KÄNNA LUKTEN AV FRISK LUFT."
SKRIVA UT "SOLEN ÄR INSTÄLLNINGEN. OM DU HADE STANNAT DÄR LÄNGRE, SKULLE DU"
SKRIV UT "I FULLSTÄNDIGT MÖRKER OCH HADE FÖRMODLIGEN ATT TILLBRINGA NATTEN DÄR!"
PRINT "INSER ATT DU FORTFARANDE ÄR JORDAD, DU HUVUDET TILLBAKA HEM INNAN DIN"
SKRIVA UT "MAMMA MÄRKER ATT DU VAR BORTA..."
SKRIV UT
SKRIVA UT "VINNER DU!"
SKRIVA UT "TRYCK PÅ VALFRI TANGENT..."
GÖRA
LOOP TILLS LEN(INKEY$)
Gå till menyn

förlora:
FÄRG 14
SKRIVA UT "DU HÖRA NÅGOT LÅSA UPP FOLLOWD AV EN STOR KRASCH."
SKRIVA UT "DITT LJUS BLÅSER."
SKRIVA UT "ETT STORT BLAD SVÄNGER NER FROOM CIELING OCH HALSHUGGER DU!"
SKRIV UT
PRINT "GAME OVER!"
SKRIVA UT "TRYCK PÅ VALFRI TANGENT..."
GÖRA
LOOP TILLS LEN(INKEY$)
Gå till menyn
[/code]