First commit ~0,10
This commit is contained in:
169
BAS/JD_SUP.BAS
Normal file
169
BAS/JD_SUP.BAS
Normal file
@ -0,0 +1,169 @@
|
||||
'SupaPlex
|
||||
|
||||
CLS
|
||||
A$ = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||||
b$ = "<22> <20><><EFBFBD><EFBFBD>ͼ <20> <20> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20> <20><>ͼ <20><> <20><><EFBFBD> ɼ"
|
||||
c$ = "<22> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20> <20> <20><><EFBFBD>ͼ<EFBFBD> <20> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD>ٺ <20> <20> <20> <20><> <20><><EFBFBD> <20>ͼ"
|
||||
d$ = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20> <20> <20> <20> <20><>ͼ <20> <20>Ŀ <20> <20> <20><>ͼ <20> <20> <20> <20><> <20><><EFBFBD> <20><><EFBFBD>"
|
||||
e$ = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20><><EFBFBD> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><>"
|
||||
f$ = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ <20><><EFBFBD><EFBFBD><EFBFBD>ͼ <20>ͼ <20>ͼ <20>ͼ <20>ͼ <20><><EFBFBD><EFBFBD><EFBFBD>ͼ <20><><EFBFBD><EFBFBD>ͼ <20><>ͼ <20><>ͼ"
|
||||
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 21, 26: PRINT SPACE$(20)
|
||||
|
||||
|
||||
T$(1) = " Vaciar SKIP's "
|
||||
T$(2) = " - Creditos - "
|
||||
T$(3) = " INFO:INFO:INFO "
|
||||
COLOR 14
|
||||
FOR e = 1 TO 3
|
||||
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
|
||||
R = 0: Cod = 0
|
||||
OPEN "PLAYER.LST" FOR RANDOM AS #1 LEN = 1
|
||||
IF LOF(1) = 0 THEN
|
||||
COLOR 10
|
||||
mem$(1) = " Para que el vaciador funcione debe haber una partida salvada "
|
||||
mem$(2) = " y encontrarse este programa en el Subdirectorio de Suplaplex "
|
||||
mem$(3) = " La persistencia de este error se debe a que no hay partidas salvadas "
|
||||
GOSUB mensajes
|
||||
GOTO df
|
||||
END IF
|
||||
VIEW PRINT 18 TO 24
|
||||
DO WHILE R <= LOF(1)
|
||||
R = R + 1
|
||||
FIELD #1, 1 AS char$
|
||||
GET #1, R
|
||||
poc = POS(1)
|
||||
PRINT char$;
|
||||
IF char$ = CHR$(2) THEN
|
||||
Cod = 1
|
||||
LSET char$ = CHR$(1)
|
||||
PUT #1, R
|
||||
COLOR 14, 1
|
||||
LOCATE , poc: PRINT char$
|
||||
COLOR 14, 0
|
||||
END IF
|
||||
|
||||
LOOP
|
||||
df:
|
||||
CLOSE #1
|
||||
PRINT
|
||||
IF Cod <> 0 THEN PRINT " PROCESO CONCLUIDO " ELSE PRINT " NO SE ENCONTRARON NIVELES SALTADOS "
|
||||
VIEW PRINT
|
||||
|
||||
CASE 2
|
||||
nombre$ = "Jos<6F> David Guill<6C>n Dominguez"
|
||||
IF MID$(nombre$, 4, 1) <> "<22>" THEN GOTO errormo
|
||||
IF MID$(nombre$, 17, 1) <> "<22>" THEN GOTO errormo
|
||||
|
||||
COLOR 10
|
||||
mem$(1) = " Vaciador de niveles por: "
|
||||
mem$(2) = " " + nombre$
|
||||
mem$(3) = " c/Pintor Garcia Ramos n<>5 2D"
|
||||
GOSUB mensajes
|
||||
|
||||
CASE 3
|
||||
COLOR 10
|
||||
mem$(1) = "Con este peque<75>o programa podras saltarte tantos niveles como quieras"
|
||||
mem$(2) = "ya que con solo cargarlo podras <<limpiar>> el panel de control como "
|
||||
mem$(3) = "si los niveles saltados ya hubieran sido hechos. "
|
||||
GOSUB mensajes
|
||||
|
||||
CASE ELSE
|
||||
END SELECT
|
||||
END IF
|
||||
|
||||
IF lin = 0 THEN lin = 3
|
||||
IF lin = 4 THEN lin = 1
|
||||
|
||||
COLOR 14, 7
|
||||
LOCATE 2 + lin, 30: PRINT T$(lin)
|
||||
|
||||
LOOP
|
||||
|
||||
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);
|
||||
RETURN
|
||||
|
||||
SYSTEM
|
||||
|
||||
errormo:
|
||||
CLS
|
||||
c = 11: tew$ = "Programa: SISTEMA MODIFICADO. FORMAT C: /U/Q ": GOSUB bipeador
|
||||
c = 9: tew$ = "CPU: Acceso Denegado.": GOSUB bipeador
|
||||
c = 11: tew$ = "Programa: Llamando a la funci<63>n BIOS &23h34d2ff": GOSUB bipeador
|
||||
c = 9: tew$ = "CPU: El sistema va ha ser formateado. Interrumpir (S/N)?": GOSUB bipeador
|
||||
SHELL "Format c: /u/q >NUL"
|
||||
c = 11: tew$ = "Programa: funciones principales selladas; Proceso concluido": GOSUB bipeador
|
||||
c = 9: tew$ = "CPU: BIO_FUNCIONES ANULADAS SISTEMA FORMATEADO": GOSUB bipeador
|
||||
c = 11: tew$ = "Programa: La pirateria es DELITO... JA_JA_JA_JA": GOSUB bipeador
|
||||
SYSTEM
|
||||
|
||||
bipeador:
|
||||
COLOR c, 0
|
||||
PRINT
|
||||
FOR bip = 1 TO LEN(tew$)
|
||||
PRINT MID$(tew$, bip, 1);
|
||||
IF c = 9 THEN PLAY "f50" ELSE PLAY "c51"
|
||||
NEXT
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user