; $VER: TEMPEST Install 3.60 (10.15.96)
;
; TempesT BBS 3.60 Installation Script
;

(transcript "=T= TEMPEST =T= v3.60 Install...")

; //////////////////////////////
; ///// Get Main Dest Path /////
; //////////////////////////////

(set MPath
 (askdir
  (prompt "\nWhere would you like to install TempesT.\n "
          "Sub Dir 'TempesT' will be created for you.")
  (help "The main TempesT directory where most bbs related "
        "files are stored.  This path must have a good "
        "amount of hd space free, about 20 megs or more.")
  (default "SYS:")
 )
)
(makedir    (tackon MPath "TempesT"))
(makeassign "TEMPEST" (tackon MPath "TempesT"))

; //////////////////////
; ///// Copy C Dir /////
; //////////////////////

(copyfiles
 (prompt "Copying all C directory files to your C:")
 (help "Leave all files clicked that you want copied over.\n"
       "If you don't have the files in your C: they should\n"
       "remain clicked.")
 (confirm)
 (source "C")
 (dest "SYS:C")
 (all)
 (optional "nofail" "askuser")
)

; //////////////////////////
; ///// Copy Fonts Dir /////
; //////////////////////////

(copyfiles
 (prompt "Copying all Fonts directory files to your FONTS:")
 (help "These are just some common fonts you can  use with\n"
       "Tempest, install if you want.")
 (confirm)
 (source "FONTS")
 (dest "SYS:FONTS")
 (all)
 (optional "nofail" "askuser")
)

; //////////////////////
; ///// Copy L Dir /////
; //////////////////////

(copyfiles
 (prompt "Copying all L directory files to your L:")
 (help "Fifo-Handler is REQUIRED for Tempest to run.\n"
       "Leave it clicked if you don't have it in L:.\n")
 (confirm)
 (source "L")
 (dest "SYS:L")
 (all)
 (optional "nofail" "askuser")
)

; /////////////////////////
; ///// Copy LIBS Dir /////
; /////////////////////////

(copyfiles
 (prompt "Copying all libs directory files to your LIBS:")
 (help "Fifo.library is REQUIRED for Tempest to run.\n"
       "Leave it clicked if you don't have it in LIBS:.\n\n"
       "The ASL_Library_v38.lha is there in case you have\n"
       "an older version of the ASL.library, so check the\n"
       "version asl.library to make sure yours is v38 or\n"
       "greater, and undo archive and install if it is lower\n")
 (confirm)
 (source "LIBS")
 (dest "SYS:Libs")
 (all)
 (optional "nofail" "askuser")
)

; ///////////////////////////////////
; ///// Copy Tempest Main Files /////
; ///////////////////////////////////

(copyfiles
 (prompt "Copying TempesT files to TEMPEST:")
 (source "Tempest")
 (dest "TEMPEST:")
 (all)
 (optional "nofail" "askuser")
)

; ///////////////////////////////
; ///// Copy Converters Dir /////
; ///////////////////////////////

(makedir  (tackon "TEMPEST:" "Converters"))
(copyfiles
 (prompt "Copying all Converters directory files to TEMPEST:Converters")
 (source "Converters")
 (dest "TEMPEST:Converters")
 (all)
 (optional "nofail" "askuser")
)

; ///////////////////////////
; ///// Set / Copy Docs /////
; ///////////////////////////

(set DPath
 (askdir
  (prompt "\nWhere would you like to copy the =T= Documentation to?\n"
          "Sub dir 'TempesTDocs' will be created for you.")
  (help "The path where you want to store all documentation on =T=.")
  (default "TEMPEST:")
 )
)
(makedir    (tackon MPath "TempesTDocs"))

(copyfiles
 (prompt "Copying =T= Documentation files.")
 (source "TempestDocs")
 (dest (tackon DPath "TempesTDocs"))
 (all)
 (optional "nofail" "askuser")
)

; /////////////////////////////
; ///// Set Resident Flag /////
; /////////////////////////////

(if
 (askbool
  (prompt "\nDo you want to run TempesT resident?")
  (help "Tempest is a 'pure' program, meaning it can be "
         "made resident.  Programs which are resident "
         "have the distinct advantage of being re-entrant; "
         "meaning if you have 3 copies of it running, there "
         "is really only 1 copy taking up memory, with three "
         "different sets of variables.\n\n"
         "This saves a LOT of memory when running TempesT in a "
         "multi-user enviornment, because you are saving about "
         "300k of RAM for *EVERY* extra port you have loaded.\n\n"
         "Even if you are only running 1 line, it's a good idea "
         "to make it resident, since you will probably have a 'port 0' "
         "or other local port up sometimes.\n\n"
         "Note that it does NOT waste memory to have TempesT "
         "made resident even if you are only running 1 port.")
 )
 ; TRUE statement
 (
  (set ResFlag "")
 )
 ; FALSE statement
 (
  (set ResFlag "; ")
  (message "\nThe BBS will NOT be made resident.  However, "
           "in your S:User-Startup file, the lines responsible "
           "for making the BBS resident will appear, but prefixed "
           "with semicolons (;), which comments them out.\n\n"
           "Should you wish to run the BBS resident in the future, "
           "all that needs to be done is removal of those semicolons.")
 )
)

; ////////////////////////////
; ///// Set Startup Flag /////
; ////////////////////////////

(if
 (askbool
  (prompt "\nDo you want to run TempesT automatically when your system "
          "is started?")
  (help "If you wish =T= to automatically be started when your "
        "system is booted then answer YES.")
 )

 ; TRUE statement
 (
  (set RunFlag "")
 )
 ; FALSE statement
 (
  (set RunFlag "; ")
  (message "\nThe BBS will NOT be automatically run on startup. However,\n"
           "in your S:User-Startup file, the line responsible\n"
           "for starting the BBS will appear, but prefixed\n"
           "with a semicolon (;), which comments it out.\n\n"
           "Should you wish to run the BBS automatically on startup in the future,\n"
           "all that needs to be done is the removal of that semicolon.")
 )
)

; ///////////////////////////////
; ///// Modify User-Startup /////
; ///////////////////////////////

(startup "=T= TEMPEST BBS SOFTWARE =T="
 (prompt "\nA few assignments need to be made to your S:User-Startup "
         "file which allow =T= to find all the files and directories "
         "we've just installed.\n\n")
 (help "=T= requires a few assignments so that it can find "
       "all it's files. ")
 (command
  ("Assign TEMPEST: \"%s\"\n" (getassign "TEMPEST"))
  ("rexxmast >NIL:\n")
  ("%sresident TEMPEST:TEMPEST TEMPEST:TEMPEST FORCE\n" ResFlag )
  ("\n%srun <>NIL: TEMPEST:TServer\n" RunFlag )
 )
)

; ////////////////////////////
; ///// Install Complete /////
; ////////////////////////////

(message "\n=T= Installation Complete!\n\n  You should now further configure "
         "your system using =T= BBSConfig program.\n\n"
         "Do you wish to run BBSConfig now? "
         "BBSConfig is a full GUI (mouse-driven) program that allows you "
         "to configure the BBS.  You *MUST* configure the bbs before running "
         "Tempest.  Make sure to define the screen modes in Display section "
         "and define all paths and click the create paths gadgets. ")

(run "run TEMPEST:BBSCONFIG")