145 lines
3.8 KiB
QBasic
145 lines
3.8 KiB
QBasic
DECLARE SUB mensajes ()
|
||
DIM SHARED mem$(6)
|
||
|
||
CLS
|
||
a$ = "±ÛÛÛÛÛ ±ÛÛÛÛÛ ±Û ±Û ±Û ±Û ±Û ±Û ±Û ±ÛÛÛÛÛ ±ÛÛÛÛÛ"
|
||
b$ = "±Û±±± ±Û ±Û ±Û ±Û ±Û ±Û±Û ±Û ±Û±±± ±Û"
|
||
c$ = "±Û ±Û ±Û ±ÛÛÛÛ ±ÛÛÛÛ ±Û ±Û ±Û ±Û±Û ±Û ±Û ±Û"
|
||
d$ = "±Û ÛÛÛ ±Û ±Û ±Û±±ÛÛ ±Û±±ÛÛ ±Û ±Û ±Û ±Û ±Û Û ±Û ÛÛÛ ±ÛÛÛÛÛ"
|
||
e$ = "±Û ±±Û ±Û ±Û ±Û ±±Û ±Û ±±Û ±Û ±Û ±Û ±Û ±Û±Û ±Û±±±Û ±±±±±Û"
|
||
f$ = "±Û Û ±Û ±Û ±Û ±Û ±Û ±Û ±Û ±Û ±Û ±Û ±±ÛÛ ±Û ±Û ±Û"
|
||
g$ = "±ÛÛÛÛÛ ±ÛÛÛÛÛ ±ÛÛÛÛÛ ±ÛÛÛÛÛ ±ÛÛÛ ±Û ±Û ±Û ±±Û ±ÛÛÛÛÛ ±ÛÛÛÛÛ"
|
||
h$ = "±±±±±± ±±±±±± ±±±±±± ±±±±±± ±±±± ±± ±± ±± ±± ±±±±±± ±±±±±±"
|
||
LOCATE 21, 26: PRINT "Pulse una Tecla"
|
||
|
||
|
||
COLOR 12
|
||
|
||
RANDOMIZE TIMER
|
||
a = 1
|
||
DO
|
||
kdb$ = INKEY$
|
||
x% = INT(RND * 8) + 1
|
||
y% = INT(RND * 79) + 1
|
||
SELECT CASE x%
|
||
CASE 1: l$ = a$
|
||
CASE 2: l$ = b$
|
||
CASE 3: l$ = c$
|
||
CASE 4: l$ = d$
|
||
CASE 5: l$ = e$
|
||
CASE 6: l$ = f$
|
||
CASE 7: l$ = g$
|
||
CASE 8: l$ = h$
|
||
CASE ELSE
|
||
END SELECT
|
||
|
||
|
||
LOCATE x% + 10, y%: PRINT MID$(l$, y%, 1)
|
||
LOOP WHILE kdb$ = ""
|
||
|
||
LOCATE 11, 1: PRINT a$
|
||
LOCATE 12, 1: PRINT b$
|
||
LOCATE 13, 1: PRINT c$
|
||
LOCATE 14, 1: PRINT d$
|
||
LOCATE 15, 1: PRINT e$
|
||
LOCATE 16, 1: PRINT f$
|
||
LOCATE 17, 1: PRINT g$
|
||
LOCATE 18, 1: PRINT h$
|
||
LOCATE 21, 26: PRINT SPACE$(20)
|
||
|
||
|
||
T$(1) = " Conservar Joker's "
|
||
T$(2) = " Restaurar Joker's "
|
||
T$(3) = " - Creditos - "
|
||
T$(4) = " INFO:INFO:INFO "
|
||
COLOR 14
|
||
FOR e = 1 TO 4
|
||
LOCATE 2 + e, 30: PRINT T$(e)
|
||
NEXT
|
||
fin = false
|
||
lin = 1
|
||
|
||
DO
|
||
|
||
kdb$ = INKEY$
|
||
COLOR 14, 0
|
||
IF kdb$ = CHR$(0) + "H" THEN LOCATE 2 + lin, 30: PRINT T$(lin); : lin = lin - 1
|
||
IF kdb$ = CHR$(0) + "P" THEN LOCATE 2 + lin, 30: PRINT T$(lin); : lin = lin + 1
|
||
|
||
IF kdb$ = CHR$(27) THEN END
|
||
|
||
IF kdb$ = CHR$(13) THEN
|
||
SELECT CASE lin
|
||
CASE 1
|
||
SHELL "copy *.inf *.jd>nul"
|
||
IF CHR$(SCREEN(4, 1)) = "A" THEN
|
||
LOCATE 4, 1: PRINT SPACE$(80);
|
||
LOCATE 4, 30: PRINT T$(2)
|
||
COLOR 10
|
||
mem$(1) = " Para que el conservador funcione debe haber una partida salvada "
|
||
mem$(2) = " y encontrarse este programa en el Subdirectorio de Gobblings ú3ú"
|
||
mem$(3) = " La persistencia de este error se debe a que no hay partidas salvadas "
|
||
mensajes
|
||
ELSE
|
||
END
|
||
END IF
|
||
|
||
|
||
CASE 2
|
||
SHELL "copy *.jd *.inf>nul"
|
||
IF CHR$(SCREEN(5, 1)) = "A" THEN
|
||
LOCATE 5, 1: PRINT SPACE$(80);
|
||
LOCATE 5, 30: PRINT T$(3)
|
||
COLOR 10
|
||
mem$(1) = " Para que el restaurador funcione debe haber "
|
||
mem$(2) = " un Joker's salvado "
|
||
mem$(3) = " La persistencia de este error se debe a que no hay Joker's Salvados "
|
||
mensajes
|
||
ELSE
|
||
END
|
||
END IF
|
||
|
||
CASE 3
|
||
COLOR 10
|
||
mem$(1) = " Conservador de Joker's por:"
|
||
mem$(2) = " Jos‚ David Guill‚n"
|
||
mem$(3) = " c/Pintor Garcia Ramos n§5 2D"
|
||
mensajes
|
||
|
||
CASE 4
|
||
COLOR 10
|
||
mem$(1) = " Salve una partida, salga del juego y escoja CONSERVAR JOKER'S "
|
||
mem$(2) = " Carge el juego nuevamente y utilice todos los Joker's que necesite"
|
||
mem$(3) = " Luego SALGA del juego y escoja RESTAURAR JOKER'S y carge el juego."
|
||
mensajes
|
||
|
||
CASE ELSE
|
||
END SELECT
|
||
END IF
|
||
|
||
IF lin = 0 THEN lin = 4
|
||
IF lin = 5 THEN lin = 1
|
||
|
||
COLOR 14, 7
|
||
LOCATE 2 + lin, 30: PRINT T$(lin)
|
||
|
||
LOOP
|
||
|
||
|
||
SUB mensajes
|
||
|
||
COLOR 10
|
||
LOCATE 8, 1: PRINT mem$(1)
|
||
LOCATE 9, 1: PRINT mem$(2)
|
||
LOCATE 10, 1: PRINT mem$(3)
|
||
|
||
SLEEP
|
||
COLOR 14, 0
|
||
LOCATE 8, 1: PRINT SPACE$(80);
|
||
LOCATE 9, 1: PRINT SPACE$(80);
|
||
LOCATE 10, 1: PRINT SPACE$(80);
|
||
|
||
|
||
END SUB
|
||
|