home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 1272.INSTALL.BAS < prev    next >
BASIC Source File  |  1993-05-15  |  7KB  |  209 lines
  1. DECLARE SUB Menu (TD AS STRING, XD AS STRING)
  2. DECLARE SUB Install (TD AS STRING, XD AS STRING)
  3. DECLARE SUB ReInstall (XD AS STRING)
  4.  
  5. Global:
  6.   CLS
  7.   SCREEN 9
  8.   COLOR 14, 8
  9.  
  10. LineDraw:
  11.   LINE (1, 1)-(1, 350)
  12.   LINE (1, 1)-(639, 1)
  13.   LINE (1, 349)-(639, 349)
  14.   LINE (639, 349)-(639, 1)
  15.   LINE (1, 65)-(639, 65)
  16.   COLOR 10, 8
  17.   LOCATE 2, 2: PRINT "TOD Installation Program V1.0"
  18.   COLOR 15, 8
  19.   LOCATE 4, 2: PRINT "1993 GekkoSoft"
  20.   LOCATE 3, 2: PRINT "By Glenn Price"
  21.   LOCATE 2, 52: PRINT "Take From: "
  22.   LOCATE 3, 52: PRINT "Copy To: "
  23.   
  24. WhichFile:
  25.   COLOR 15, 8
  26.   LOCATE 10, 4: PRINT "What is the name of the directory that contains the"
  27.   LOCATE 12, 4: PRINT "Example: C:\EXETER"
  28.   LOCATE 11, 4: PRINT "Exeter Tour of Duty missions?"; : COLOR 10, 8: LINE INPUT " "; TD$
  29.   
  30. Process:
  31.   O = 0
  32.   TDL = LEN(TD$)
  33.   IF RIGHT$(TD$, 1) = "\" THEN GOTO NooNooNoo
  34.   IF LEFT$(TD$, 3) = "C:\" OR LEFT$(TD$, 1) = "A:\" OR LEFT$(TD$, 1) = "c:\" OR LEFT$(TD$, 1) = "a:\" OR LEFT$(TD$, 1) = "B:\" OR LEFT$(TD$, 1) = "b:\" THEN O = 1
  35.   IF O <> 1 THEN GOTO Oops
  36.   GOTO Continue
  37.  
  38. NooNooNoo:
  39.   BEEP
  40.   LOCATE 14, 4: PRINT "There is no need for a backslash (\) after the directory name."
  41.   LOCATE 15, 4: PRINT "Please re-enter the drive and directory."
  42.   FOR X = 1 TO 10000: NEXT X
  43.   LOCATE 14, 4: PRINT "                                                              "
  44.   LOCATE 15, 4: PRINT "                                        "
  45.   IF BN = 1 THEN GOTO Continue
  46.   GOTO WhichFile
  47.  
  48. Oops:
  49.   BEEP
  50.   LOCATE 14, 4: PRINT "Preceeding the directory name must be either A:\, B:\, or C:\."
  51.   LOCATE 15, 4: PRINT "Please re-enter the drive and directory."
  52.   FOR X = 1 TO 10000: NEXT X
  53.   LOCATE 14, 4: PRINT "                                                              "
  54.   LOCATE 15, 4: PRINT "                                        "
  55.   GOTO WhichFile
  56.  
  57. Continue:
  58.   BN = 1
  59.   COLOR 15, 8
  60.   LOCATE 10, 4: PRINT "What is the name of the directory that contains X-Wing?"
  61.   LOCATE 11, 4: PRINT "Note: You only have to enter the directory name."
  62.   LOCATE 12, 4: PRINT "Example: XWING    "
  63.   LOCATE 10, 60: COLOR 10, 8: LINE INPUT " "; XD$
  64.   IF RIGHT$(XD$, 1) = "\" THEN GOTO NooNooNoo
  65.  
  66. CallMenu:
  67.   LOCATE 2, 64: COLOR 13, 8: PRINT TD$
  68.   LOCATE 3, 64: PRINT "C:\"; XD$
  69.   COLOR 15, 8
  70.   LOCATE 10, 4: PRINT "                                                       "
  71.   LOCATE 11, 4: PRINT "                                                "
  72.   LOCATE 12, 4: PRINT "                  "
  73.   LOCATE 10, 60: PRINT "               "
  74.   CALL Menu(TD$, XD$)
  75.   END
  76.  
  77. SUB Install (TD AS STRING, XD AS STRING)
  78.  
  79. Installation:
  80.   CLS
  81.   HE = LEN(TD$)
  82.   E = HE - 3
  83.   BB$ = RIGHT$(TD$, E)
  84.   BGB$ = LEFT$(TD$, 3)
  85.   SHELL BGB$
  86.   SHELL "CD\NEWTOD"
  87.   SHELL "INSTALL " + TD$ + " C:\" + XD$ + "\MISSION"
  88.   END SUB
  89.  
  90. SUB Menu (TD AS STRING, XD AS STRING)
  91.  
  92. ProduceMenu:
  93.   CLS
  94.   COLOR 14, 8
  95.   LINE (1, 1)-(1, 350)
  96.   LINE (1, 1)-(639, 1)
  97.   LINE (1, 349)-(639, 349)
  98.   LINE (639, 349)-(639, 1)
  99.   LINE (1, 65)-(639, 65)
  100.   COLOR 10, 8
  101.   LOCATE 2, 2: PRINT "TOD Installation Program V1.0"
  102.   COLOR 15, 8
  103.   LOCATE 4, 2: PRINT "1993 GekkoSoft"
  104.   LOCATE 3, 2: PRINT "By Glenn Price"
  105.   LOCATE 2, 52: PRINT "Take From: "; : COLOR 13, 5: PRINT TD$
  106.   COLOR 15, 8
  107.   LOCATE 3, 52: PRINT "Copy To:   "; : COLOR 13, 5: PRINT "C:\"; XD$
  108.   COLOR 15, 8
  109.   LOCATE 10, 4: PRINT "1= Install Exeter TOD"
  110.   LOCATE 11, 4: PRINT "2= ReInstall Original TOD"
  111.   LOCATE 12, 4: PRINT "3= Backup Missions"
  112.   LOCATE 13, 4: PRINT "4= Exit"
  113.   LOCATE 15, 4: COLOR 10, 8: LINE INPUT "Which number? "; NU$
  114.   IF LEN(NU$) = 0 THEN GOTO ProduceMenu
  115.   NUM = VAL(NU$): IF NUM = 0 THEN GOTO ProduceMenu
  116.   ON NUM GOSUB Exeter, Replace, Backup, Bye
  117.   GOTO ProduceMenu
  118.  
  119. Exeter:
  120.   LOCATE 10, 4: PRINT "                     "
  121.   LOCATE 11, 4: PRINT "                         "
  122.   LOCATE 12, 4: PRINT "                  "
  123.   LOCATE 13, 4: PRINT "       "
  124.   LOCATE 15, 4: PRINT "                                       "
  125.   LOCATE 10, 4: PRINT "The Exeter TOD will be installed in the X-Wing TOD I slot."
  126.   LOCATE 11, 4: PRINT "If you have not made backups of your missions they will be erased."
  127.   LOCATE 12, 4: LINE INPUT "Continue? "; CO$
  128.   IF LEN(CO$) = 0 THEN GOTO Exeter
  129.   IF CO$ = "Y" OR CO$ = "y" OR CO$ = "YES" OR CO$ = "Yes" OR CO$ = "yes" THEN GOTO Install
  130.   IF CO$ = "N" OR CO$ = "n" OR CO$ = "NO" OR CO$ = "No" OR CO$ = "no" THEN GOTO ProduceMenu
  131.   GOTO Exeter
  132.  
  133. Install:
  134.   LOCATE 10, 4: PRINT "                                                          "
  135.   LOCATE 11, 4: PRINT "                                                                  "
  136.   LOCATE 12, 4: PRINT "                                  "
  137.   CALL Install(TD$, XD$)
  138.   RETURN
  139.  
  140. Replace:
  141.   LOCATE 10, 4: PRINT "                     "
  142.   LOCATE 11, 4: PRINT "                         "
  143.   LOCATE 12, 4: PRINT "                  "
  144.   LOCATE 13, 4: PRINT "       "
  145.   LOCATE 15, 4: PRINT "                                       "
  146.   LOCATE 10, 4: PRINT "The original TOD will be reinstalled."
  147.   LOCATE 11, 4: PRINT "Note: All three TODs will be replaced with the originals."
  148.   LOCATE 12, 4: LINE INPUT "Continue? "; CO$
  149.   IF LEN(CO$) = 0 THEN GOTO ReInstall
  150.   IF CO$ = "Y" OR CO$ = "y" OR CO$ = "YES" OR CO$ = "Yes" OR CO$ = "yes" THEN GOTO ReInstall
  151.   IF CO$ = "N" OR CO$ = "n" OR CO$ = "NO" OR CO$ = "No" OR CO$ = "no" THEN GOTO ProduceMenu
  152.   GOTO Replace
  153.  
  154. ReInstall:
  155.   LOCATE 10, 4: PRINT "                                                          "
  156.   LOCATE 11, 4: PRINT "                                                                  "
  157.   LOCATE 12, 4: PRINT "                                  "
  158.   CALL ReInstall(XD$)
  159.   RETURN
  160.   
  161. Backup:
  162.   LOCATE 10, 4: PRINT "                     "
  163.   LOCATE 11, 4: PRINT "                         "
  164.   LOCATE 12, 4: PRINT "                  "
  165.   LOCATE 13, 4: PRINT "       "
  166.   LOCATE 15, 4: PRINT "                                       "
  167.   LOCATE 10, 4: PRINT "This will backup each mission in X-Wing."
  168.   LOCATE 11, 4: LINE INPUT "Continue? "; CO$
  169.   IF LEN(CO$) = 0 THEN GOTO Backup
  170.   IF CO$ = "Y" OR CO$ = "y" OR CO$ = "YES" OR CO$ = "Yes" OR CO$ = "yes" THEN GOTO Back
  171.   IF CO$ = "N" OR CO$ = "n" OR CO$ = "NO" OR CO$ = "No" OR CO$ = "no" THEN GOTO ProduceMenu
  172.   GOTO Backup
  173.  
  174. Back:
  175.   CLS
  176.   SHELL "MD\XWING\BACKUP"
  177.   SHELL "COPY C:\XWING\MISSION\*.BRF C:\XWING\BACKUP\*.BRF"
  178.   SHELL "COPY C:\XWING\MISSION\*.XWI C:\XWING\BACKUP\*.XWI"
  179.   SCREEN 9
  180.   COLOR 15, 8
  181.   GOTO ProduceMenu
  182.  
  183. Bye:
  184.   SYSTEM
  185.   END
  186.  
  187.  
  188.   
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198. END SUB
  199.  
  200. SUB ReInstall (XD AS STRING)
  201.  
  202. Perform:
  203.   CLS
  204.   PRINT "Now reinstalling, please be patient..."
  205.   SHELL "COPY C:\XWING\BACKUP\*.BRF C:\XWING\MISSION\*.BRF"
  206.   SHELL "COPY C:\XWING\BACKUP\*.XWI C:\XWING\MISSION\*.XWI"
  207.   END SUB
  208.  
  209.