First commit ~0,10

2021-09-03 17:42:07 +02:00
commit 474d98379e
57 changed files with 16968 additions and 0 deletions
--- a/BAS/GOB.BAS
+++ b/BAS/GOB.BAS
@ -0,0 +1,144 @@
+DECLARE SUB mensajes ()
+DIM SHARED mem$(6)
+
+CLS
+a$ = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  <20><>      <20><>      <20><>    <20><>  <20><>   <20><>   <20><>   <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>   <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
+b$ = "<22>۱<EFBFBD><DBB1>   <20><>  <20><>  <20><>      <20><>      <20><>             <20>۱<EFBFBD> <20><>   <20>۱<EFBFBD><DBB1>    <20><>"
+c$ = "<22><>      <20><>  <20><>  <20><><EFBFBD><EFBFBD><EFBFBD>   <20><><EFBFBD><EFBFBD><EFBFBD>   <20><>    <20><>  <20><>   <20>۱<EFBFBD> <20><>   <20><>       <20><>"
+d$ = "<22><> <20><><EFBFBD>  <20><>  <20><>  <20>۱<EFBFBD><DBB1><EFBFBD>  <20>۱<EFBFBD><DBB1><EFBFBD>  <20><>    <20><>  <20><>   <20><> <20><> <20>   <20><> <20><><EFBFBD>   <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
+e$ = "<22><> <20><><EFBFBD>  <20><>  <20><>  <20><> <20><><EFBFBD>  <20><> <20><><EFBFBD>  <20><>    <20><>  <20><>   <20><> <20>۱<EFBFBD>   <20>۱<EFBFBD><DBB1><EFBFBD>   <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
+f$ = "<22><>   <20>  <20><>  <20><>  <20><>  <20><>  <20><>  <20><>  <20><>    <20><>  <20><>   <20><> <20><><EFBFBD><EFBFBD>   <20><>  <20><>       <20><>"
+g$ = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  <20><><EFBFBD><EFBFBD>  <20><>  <20><>   <20><>  <20><><EFBFBD>   <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>   <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
+h$ = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  <20><><EFBFBD><EFBFBD>  <20><>  <20><>   <20><>   <20><>   <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>   <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
+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 <20>3<EFBFBD>"
+        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<6F> David Guill<6C>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
+