; F1GP Accessories Disk Installer Script
; $VER: Install_F1GP_Accessories 1.4 (9.6.96)
; Copyright © 1996 Oliver Roberts

(procedure install-app
   (set #astring ("Select where %s should be installed\n(no drawer will be created!)" #progname))
   (set #destdir
      (askdir
         (prompt #astring)
         (help @askdir-help)
         (default @default-dest)
      )
   )
   (set @default-dest #destdir)
   (set #lastchar (substr #destdir (- (strlen(#destdir)) 1) 1))
   (if (AND (NOT (= "/" #lastchar)) (NOT (= ":" #lastchar)))
      (set #destdir (cat #destdir "/"))
   )
   (working "Extracting archive and installing...")
   (run (":C/unlzx >nil: -m x F1GP_Accessories:Archives/%s \"%s\"" #progname #destdir))
)

(set #opts
   (askoptions
      (prompt "Choose what you'd like to install?")
      (help @askoptions-help)
      (choices "AGPLapTime"
               "AGPPerf"
               "F1GP-HFED"
               "F1GP-RES"
               "GPDisplay"
               "Hall of Fame"
               "HoFPoints"
               "PatchF1GP"
               "SplitTime"
      )
      (default 0)
   )
)

(set #progname "AGPLapTime")
(if (IN #opts 0)
   (install-app)
)

(set #progname "AGPPerf")
(if (IN #opts 1)
   (install-app)
)

(set #progname "F1GP-HFED")
(if (IN #opts 2)
   (install-app)
)

(set #progname "F1GP-RES")
(if (IN #opts 3)
   (install-app)
)

(set #progname "GPDisplay")
(if (IN #opts 4)
   (install-app)
)

(set #progname "HallOfFame")
(if (IN #opts 5)
   (install-app)
)

(set #progname "HoFPoints")
(if (IN #opts 6)
   (install-app)
)

(set #progname "PatchF1GP")
(if (IN #opts 7)
   (install-app)
)

(set #progname "SplitTime")
(if (IN #opts 8)
   (install-app)
)

(complete 100)

(exit
   "\n\nSelected programs successfully installed.\n\n"
   "Oliver Roberts (Oliver@defstar.gre.ac.uk)\n"
   "http://defstar.gre.ac.uk/~oliver/"
)