Paso 5: Bonus 1: un segundo juego de la aventura.
[código]
REM HOUNTED HOUSE
REM yo hice esto en 2 o 3 horas apenas para la diversión.
REM Este es mi primer juego REAL si.
REM soy sólo 15 para gimmie definitiva slak si sux jajaja.
PARA s = 1 a 40 paso 5
COLOR INT(RND * 15) + 1
$(S) impresión de espacio; "LA CASA ENCANTADA";
S siguiente
' jugar "L7O1GFGGGBABBBBCO3BBBBDGGGGFGGABCGO4DBBBBGFG"
menú:
CLS
COLOR 4
IMPRIMIR "CASA EMBRUJADA - POR GEEK SOFTWARE BÁSICO"
COLOR 12
IMPRIMIR
IMPRIMIR "MENÚ-"
PRINT "1 >" juego "
PRINT "2 > ayuda"
PRINT "0 > dejar de fumar"
HACER
Deje k$ = $ INKEY
IF k$ = "1" entonces: GOTO playgame
IF k$ = "2" THEN: ayuda GOTO
IF k$ = "0" entonces: CLS: final
LAZO
Ayuda:
CLS
COLOR 4
IMPRIMIR "AQUÍ ALGUNOS COMANDOS BÁSICOS QUE PUEDEN UTILIZARSE EN EL JUEGO..."
IMPRIMIR
COLOR 12
IMPRIMIR "LOOK - CONTROLES PARA SALIDAS DISPONIBLES"
IMPRIMIR "INVENTARIO - VER TODOS SUS ARTÍCULOS"
IMPRIMIR "HACIA EL NORTE, OESTE, SUR Y ESTE - LE MUEVE A LUGARES DISPONIBLES"
IMPRIMIR "EXAMINAR (OBJETO) - EXAMINA UN OBJETO"
IMPRIMIR "(OBJETO) - USAR UN OBJETO"
IMPRIMIR "TOMAR (OBJETO) - TOMAR UN OBJETO"
IMPRIMIR "UNLOCK (OBJETO) - DESBLOQUEAR UN OBJETO"
IMPRIMIR "AYUDA - VE ESTA PANTALLA"
IMPRIMIR "PRESIONE CUALQUIER TECLA..."
HACER
BUCLE HASTA LEN(INKEY$)
Menu de la GOTO
PlayGame:
QUE r = 1
QUE gotmainkey = 0
QUE gotboxkey1 = 0
QUE gotboxkey2 = 0
QUE gotcandle = 0
QUE gotnote = 0
QUE gottp = 0
QUE boxopen = 0
CLS
COLOR 4
IMPRIMIR "CASA EMBRUJADA"
IMPRIMIR
COLOR 12
IMPRIMIR "ES DÍA DE HALLOWEEN EN EL ACCIONAMIENTO DE LA MARIPOSA".
PRINT "TU MAMÁ HA TIERRA DEL DÍA PORQUE TÚ Y TUS AMIGOS"
IMPRIMIR "ARROJÓ PAPEL HIGIÉNICO LA CASA DE VECINOS ANOCHE..."
IMPRIMIR "DESPUÉS DE QUE PASA CERCA DE LA MITAD DEL DÍA EN SU HABITACIÓN MIRANDO A SU"
Imprimir "calcetines y escuchando a los niños ' jugar al aire libre, usted DICIDE a dejar"
IMPRIMIR "Y SEGUIR TU PROPIA AVENTURA DE HALLOWEEN POCO. RMEMBER LOCAL"
IMPRIMIR A "RUMERS SOBRE LA VIEJA CASA EN LA CALLE SER EMBRUJADO".
IMPRIMIR "CREES QUE SERÍA DIVERTIDO ENTRAR Y EXPLORARLA".
IMPRIMIR "LEVANTAR EL TELÉFONO PARA INVITAR A TUS AMIGOS A VENIR, PERO TE ACUERDAS"
IMPRIMIR "QUE ESTÁN BASADOS EN... COLOQUE EL TELÉFONO HACIA ABAJO, ABRA LA VENTANA"
IMPRIMIR "Y SALTAR.
IMPRIMIR "PRESIONE CUALQUIER TECLA..."
HACER
BUCLE HASTA LEN(INKEY$)
CLS
IMPRIMIR "SE EJECUTA A TRAVÉS DE LA CALLE A LA 'CASA EMBRUJADA' A VER QUE LA PUERTA"
IMPRIMIR "LIGERAMENTE ABIERTA, AUNQUE NADIE VIVE ALLÍ."
IMPRIMIR "SE CORRE DENTRO DE LA CASA Y LA PUERTA CIERRA DETRÁS DE USTED."
IMPRIMIR "INTENTA ABRIR LA PUERTA, PERO HAY UNA ENORME CERRADURA EVITANDO QUE"
IMPRIMIR "DE APERTURA."
IMPRIMIR "PRESIONE CUALQUIER TECLA..."
HACER
BUCLE HASTA LEN(INKEY$)
HACER
CLS
Sala de GOSUB
Analizador GOSUB
LAZO
habitación:
IF r = 1 entonces: r1 GOSUB
IF r = 2 entonces: GOSUB r2
IF r = 3 entonces: GOSUB r3
IF i = 4 THEN: GOSUB r4
IF r = 5 entonces: GOSUB r5
IF r = 6 entonces: GOSUB r6
VOLVER
analizador sintáctico:
COLOR 12
ENTRADA de línea ">"; $ CMD
IMPRIMIR
COLOR 4
QUE cmd$ = LTRIM$(RTRIM$(UCASE$(cmd$)))
IF cmd$ = "Fin" OR cmd$ = "Salir" OR cmd$ = "Salida" OR cmd$ = "Q" o cmd$ = "Salir" luego
Menu de la GOTO
END IF
IF cmd$ = "Ayuda" luego
CLS
COLOR 4
IMPRIMIR "AQUÍ ALGUNOS COMANDOS BÁSICOS QUE PUEDEN UTILIZARSE EN EL JUEGO..."
IMPRIMIR
COLOR 12
IMPRIMIR "LOOK - CONTROLES PARA SALIDAS DISPONIBLES"
IMPRIMIR "INVENTARIO - VER TODOS SUS ARTÍCULOS"
IMPRIMIR "HACIA EL NORTE, OESTE, SUR Y ESTE - LE MUEVE A LUGARES DISPONIBLES"
IMPRIMIR "EXAMINAR (OBJETO) - EXAMINA UN OBJETO"
IMPRIMIR "(OBJETO) - USAR UN OBJETO"
IMPRIMIR "TOMAR (OBJETO) - TOMAR UN OBJETO"
IMPRIMIR "UNLOCK (OBJETO) - DESBLOQUEAR UN OBJETO"
IMPRIMIR "AYUDA - VE ESTA PANTALLA"
IMPRIMIR "PRESIONE CUALQUIER TECLA..."
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF cmd$ = "Mirar" OR cmd$ = "Mirar alrededor" OR cmd$ = "L" THEN
IF r = 1 entonces: Imprimir "Puede mover norte y oeste."
IF r = 2 entonces: Imprimir "Puede mover hacia el norte, hacia el sur." y al oeste
IF r = 3 entonces: Imprimir "Puede mover oeste." y al sur
IF i = 4 THEN: Imprimir "Puede mover este."
IF r = 5 entonces: Imprimir "Puede mover este."
IF r = 6 entonces: Imprimir "Puede mover este."
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF cmd$ = «Inventario» OR cmd$ = "INV" OR cmd$ = "Artículos" entonces
IMPRIMIR "INVENTARIO:"
IF gotmainkey = 1 entonces: PRINT "Llave de bronce"
IF gotboxkey1 = 1 entonces: PRINT "Llave pequeña"
IF gotboxkey2 = 1 entonces: PRINT "Llave pequeña"
IF gotnote = 1 entonces: PRINT "Nota"
IF gotcandle = 1 entonces: PRINT "Vela"
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF cmd$ = "Norte" OR cmd$ = "GO NORTH" OR cmd$ = "N" THEN
IF r = 1 entonces: LET r = 2: GOTO se trasladó
IF r = 2 entonces: LET r = 3: GOTO se trasladó
END IF
IF cmd$ = "Oeste" OR cmd$ = "GO WEST" OR cmd$ = "W" entonces
IF r = 1 entonces: LET r = 5: GOTO se trasladó
IF r = 2 entonces: LET r = 6: GOTO se trasladó
IF r = 3 entonces: LET r = 4: GOTO se trasladó
IF r = 7 entonces: LET r = 2: GOTO se trasladó
END IF
IF cmd$ = "Sur" OR cmd$ = "Ir sur" OR cmd$ = "S" entonces
IF r = 2 entonces: LET r = 1: GOTO se trasladó
IF r = 3 entonces: LET r = 2: GOTO se trasladó
END IF
IF cmd$ = "Este" OR cmd$ = "Este ir" OR cmd$ = "E" entonces
IF i = 4 THEN: LET r = 3: GOTO se trasladó
IF r = 5 entonces: LET r = 1: GOTO se trasladó
IF r = 6 entonces: LET r = 2: GOTO se trasladó
END IF
IF ($ cmd = "Examinar vieja alfombra" OR cmd$ = "Alfombra examinar") y r = 1 entonces
IMPRIMIR "ES VIEJA, MANCHADA Y DESGASTADA".
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Examinar tabla enorme" OR cmd$ = "Examinar tabla") y r = 2 entonces
IMPRIMIR "ES UNA GRAN MESA DE MADERA BUSCANDO GRAND".
IMPRIMIR "ESTÁ CUBIERTO DE POLVO Y TIENE FICHAS EN ÉL."
IF gotnote = 0 THEN: Imprimir "Hay una pequeña nota en la parte superior".
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Examinar la silla" OR cmd$ = "Examinar sillas") y r = 2 entonces
IMPRIMIR "NO SERÍA UNA BUENA IDEA PARA LOS QUE NO SE ROMPEN"
IMPRIMIR "PORQUE PUEDE ROMPER TAMBIÉN."
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "pintura examinar") y r = 2 entonces
IMPRIMIR "ES UNA IMAGEN DE UN CASTILLO MEDIEVAL".
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Examinar fregadero") y r = 3 entonces
IMPRIMIR "VER SECO LAS SALPICADURAS DE SANGRE EN EL FREGADERO".
IMPRIMIR "TAMBIÉN SE VE UNA VELA Y ALGUNOS PARTIDOS EN ÉL."
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Contador de examinar") y r = 3 entonces
IMPRIMIR "ES LLANO Y ES MUY POLVORIENTO".
IMPRIMIR "ES ESCRITO EN EL POLVO".
IMPRIMIR "DICE:"
IMPRIMIR "' ME HE SIDO ATRAPADA EN ESTA CASA DURANTE DÍAS, INCAPAZ DE ESCAPAR."
IMPRIMIR "LA PUERTA DE ENTRADA REQUIERE UNA LLAVE ESPECIAL PARA ABRIRSE DESDE EL INTERIOR".
IMPRIMIR "NO ES LO MISMO QUE UNO QUE SE ABRE DESDE LA PARTE DELANTERA."
IMPRIMIR "NO SE VIVE MUCHO MÁS TIEMPO, PERO A QUIEN ENCUENTRA THEMSELF"
IMPRIMIR "ATRAPADOS EN ESTE LUGAR TERRIBLE, HE ACABO DE HACER UN DESCUBRIMIENTO DE INTERÉS."
PRINT "NO ESTOY CIEN POR CIENTO SEGURO, PERO CREO QUE...'"
IMPRIMIR "EL RESTO ES MANCHADO LEJOS."
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Examinar cubo" OR cmd$ = "Examinar cubo MALOLIENTE") y r = 4 entonces
IMPRIMIR "ESTÁ LLENO DE COSAS SEMIDURA MARRÓN VERDOSO".
IF gotboxkey2 = 0 THEN: Imprimir "Hay una pequeña clave en ti".
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "examinar papel de higiénico" OR cmd$ = "Examinar papel") y gottp = 0 y r = 4 entonces
IMPRIMIR "ES MUY VIEJO MIRANDO".
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Examinar llano MAT" OR cmd$ = "Examinar MAT") y r = 5 entonces
IMPRIMIR "PARECE UN POCO MENOS ACOGEDOR..."
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Examinar rasgado encima de manta" OR cmd$ = "Examinar manta") y r = 5 entonces
IMPRIMIR "PROBABLEMENTE NO MANTENERLE MUY CALIENTE."
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Caja de joyería grande examinar" OR cmd$ = "Examinar JEWLERY BOX") y r = 5 entonces
IMPRIMIR "ES CON INCRUSTACIONES CON ASPECTO DE MÁRMOL".
IMPRIMIR "HAY DOS PEQUEÑOS ORIFICIOS EN EL MEDIO".
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Examinar el cable") y r = 6 entonces
IMPRIMIR "COLGANTE DE UN DISPOSITIVO DE ASPECTO EXTRAÑO EN EL TECHO."
IMPRIMIR "IT PARECE QUE PODRÍA ACTIVAR ALGO SI LO TIRA."
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "examinar la sangre del") y r = 6 entonces
IMPRIMIR "SE SECA PARA ARRIBA DE SANGRE EN EL PISO, QUÉ MÁS ME DICEN!?"
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Tomar nota" OR cmd$ = "Que nota") y r = 2 y gotnote = 0 THEN
IMPRIMIR "TOMAN LA NOTA".
QUE gotnote = 1
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Tomar pintura" OR cmd$ = "Obtener la pintura") y r = 2 y gotboxkey1 = 0 THEN
IMPRIMIR "USTED AGARRE LA PINTURA Y UN PEQUEÑO CLAVE CAE FUERA DE LA PARTE POSTERIOR DE LA MISMA".
IMPRIMIR "PUSO LA PINTURA DETRÁS Y COGE LA LLAVE PEQUEÑA.
QUE gotboxkey1 = 1
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Tomar vela" OR cmd$ = "Obtener vela") y r = 3 y gotcandle = 0 THEN
IMPRIMIR "USTED TOMA LA VELA".
QUE gotcandle = 1
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Tomar la llave pequeña" OR cmd$ = "Llave de toma" OR cmd$ = "Obtener clave pequeño" OR cmd$ = "Obtener clave") y r = 4 entonces
IMPRIMIR "USTED TOMA LA LLAVE Y SALE COSAS DESAGRADABLES EN TODO LA MANO..."
QUE gotboxkey2 = 1
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Tomar gran llave de bronce" OR cmd$ = "Tomar llave de bronce" OR cmd$ = "Llave de toma" OR cmd$ = "Obtener gran llave de bronce" OR cmd$ = "Obtener clave de bronce" OR cmd$ = "Obtener clave") y boxopen = 1 y r = 5 entonces
IMPRIMIR "USTED TOMA LA GRAN LLAVE DE BRONCE".
QUE gotmainkey = 1
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "tomar rollo de papel higiénico" OR cmd$ = "tomar papel de higiénico" OR cmd$ = "Haz rollo de papel higiénico" OR cmd$ = "obtener papel de higiénico") y gottp = 0 THEN
IMPRIMIR "USTED RECOGER EL PAPEL HIGIÉNICO Y TI COMPLTELY CAE APARTE EN LA MANO."
QUE gottp = 1
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Leer nota" OR cmd$ = "Nota") y gotnote = 1 THEN
PRINT "LA NOTA DICE:"
IMPRIMIR "' DETRÁS DEL ANTIGUO CASTILLO SE ENCUENTRA LA MITAD DE UN INSTRUMENTO DE SU LIBERTAD.'"
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "Tirar la cuerda" OR cmd$ = "Cuerda de uso") y r = 6 entonces
GOTO perder
END IF
IF ($ cmd = "Desbloquear caja de joyería" OR cmd$ = "Abrir caja") y gotboxkey1 = 1 y gotboxkey2 = 1 y r = 5 entonces
IMPRIMIR "INSERTE LAS DOS LLAVES PEQUEÑAS EN LA CAJA Y ES DE RESORTES ABIERTOS"
IMPRIMIR "PARA REVELAR UNA LLAVE DE BRONCE AMPLIA."
QUE boxopen = 1
HACER
BUCLE HASTA LEN(INKEY$)
END IF
IF ($ cmd = "abrir puerta" OR cmd$ = "Abrir puerta") y gotmainkey = 1 y r = 1 entonces
Victoria GOTO
END IF
movido:
VOLVER
R1:
COLOR 4
IMPRIMIR "ENTRAS EN EL CAMINO DE ENTRADA".
IMPRIMIR "SE VE UNA VIEJA ALFOMBRA A LO QUE PARECE SER EL COMEDOR."
IMPRIMIR "ALFOMBRA OTRO CONDUCE A UNA HABITACIÓN DIFERENTE."
IMPRIMIR
VOLVER
R2:
COLOR 4
IMPRIMIR "USTED ENTRAR EN EL COMEDOR."
IMPRIMIR "HAY NINGÚN WINDOWS EN AQUÍ, PERO ALLÍ ES LUZ QUE FLUYE EN DE LA"
IMPRIMIR "OTRA HABITACIÓN, APENAS PUEDE VER NADA."
IMPRIMIR "HAY VARIAS PUERTAS QUE CONDUCEN A DIFERENTES LUGARES.
IMPRIMIR "VERÁS UNA TRAMPILLA QUE CONDUCE PROBABLEMENTE HASTA EL SÓTANO."
IMPRIMIR "HAY UNA GRAN MESA EN MEDIO DEL SALÓN".
IMPRIMIR "LA MAYORÍA DE LAS SILLAS ALREDEDOR DE LA MESA HA ROTO LAS PIERNAS".
IMPRIMIR "TAMBIÉN VER UNA PINTURA EN LA PARED."
IMPRIMIR
VOLVER
R3:
COLOR 4
IMPRIMIR "ENTRAS A LA COCINA".
IMPRIMIR "VERÁS UNA PUERTA CON LA PUERTA QUE FALTA."
IMPRIMIR "HAY UN FREGADERO Y UN CONTADOR".
IMPRIMIR "HAY UN MONTÓN DE POLVO EN EL MOSTRADOR".
IMPRIMIR
VOLVER
R4:
COLOR 4
IMPRIMIR "ENTRAS EN EL BAÑO".
IMPRIMIR "HAY UNA PEQUEÑA VENTANA OPACA EN LA PARED".
IMPRIMIR "HAY UNA PUERTA QUE CONDUCE A LA COCINA".
IMPRIMIR "VERÁS UN CUBO DE COSAS VILES QUE HUELE EN LA ESQUINA".
IF gottp = 0 THEN: Imprimir "Es un rollo de papel higiénico al lado".
IMPRIMIR
VOLVER
R5:
COLOR 4
IMPRIMIR "ENTRAS EN EL DORMITORIO".
IMPRIMIR "HAY UNA PUERTA QUE CONDUCE HACIA EL COMEDOR."
IMPRIMIR "VES UNA SIMPLE ESTERA EN EL PISO CON UN RASGADO PARA ARRIBA DE LA MANTA".
IMPRIMIR "TAMBIÉN APARECE UN CUADRO DE GRANDES JOYAS".
IMPRIMIR
VOLVER
R6:
COLOR 4
IMPRIMIR "ENTRAS EN EL SÓTANO".
IF gotcandle = 1 THEN
IMPRIMIR "USTED ENCIENDA UNA VELA."
IMPRIMIR "SE VE UNA CUERDA EN EL CENTRO DE LA HABITACIÓN."
IMPRIMIR "TAMBIÉN HAY DREID CON SANGRE EN EL PISO".
OTRA COSA
IMPRIMIR "HAY QUE NINGÚN WINDOWS AQUÍ Y USTED NO PUEDE VER NADA.
IMPRIMIR "PROBAR A VER SI ENCUENTRAS UNA VELA."
IMPRIMIR "CABEZA HACIA ATRÁS EN LA ESCALERA".
QUE r = 2
END IF
IMPRIMIR
VOLVER
Win:
COLOR 14
IMPRIMIR "ABRA LA PUERTA, ABRIRLA Y SALIR Y OLER EL AIRE FRESCO.
IMPRIMIR "ESTÁ PONIENDO EL SOL. SI HUBIERA QUEDADO ALLÍ MÁS TIEMPO, LO HARÍA"
IMPRESIÓN DE "ESTAR EN COMPLETA OSCURIDAD Y PROBABLEMENTE TUVO QUE PASAR LA NOCHE ALLÍ!"
IMPRIMIR "DARSE CUENTA DE QUE ESTÁS CONECTADO A TIERRA, CABEZA DE VUELTA A CASA ANTES DE SU"
IMPRIMIR "LA MAMÁ NOTA QUE ESTABAS DESAPARECIDO..."
IMPRIMIR
IMPRIMIR "¡ GANAR!"
IMPRIMIR "PRESIONE CUALQUIER TECLA..."
HACER
BUCLE HASTA LEN(INKEY$)
Menu de la GOTO
perder:
COLOR 14
IMPRIMIR "USTED OYE ALGO DESBLOQUEAR Y POR UN ACCIDENTE GRANDE."
IMPRIMIR "LA VELA SE APAGA."
IMPRIMIR "UNA HOJA GRANDE OSCILACIONES POR FROOM LA MOLDURA Y LE DECAPITA.
IMPRIMIR
IMPRIMIR "JUEGO MÁS!"
IMPRIMIR "PRESIONE CUALQUIER TECLA..."
HACER
BUCLE HASTA LEN(INKEY$)
Menu de la GOTO
[/ code]
