;;;; .----------------------------------------------------------------. ;;;; | Install script for Plastic Flavour. | ;;;; | Written by Tactica / Puzzle. | ;;;; |________________________________________________________________| (set F1 "pzl-pf01.lha") (set F2 "pzl-pf02.lha") (set F3 "pzl-pf03.lha") (set F4 "pzl-pf04.lha") (set F5 "pzl-pf05.lha") (set F6 "pzl-pf06.lha") (set F7 "pzl-pf07.lha") (set F8 "pzl-pf08.lha") (set F9 "pzl-pf09.lha") (set FA "pzl-pf10.lha") (set FB "pzl-pf11.lha") (set FC "pzl-pf12.lha") (set PATH_DEST "DH0:") (set PATH_SRC "DH0:") (set COUNTER "0") (complete 0) (message "\n\n\n\n" "..you're now about to install..\n\n" "··P·L·A·S·T·I·C · F·L·A·V·O·U·R··\n\n" "You need 8.5 MB free space on your \n" "harddrive for the full installation.") (set PATH_DEST (askdir (prompt "..P L A S T I Q U E DE LA F L A V O U R..\n" "Select where PLASTIC FLAVOUR should be installed.\n" "A drawer called \"PlasticFlavour\" will be created.") (help "Select a destination drawer for Plastic Flavour.") (default PATH_DEST) ) ) (if (= (exists (tackon PATH_DEST "PlasticFlavour")) 0) ( (makedir (tackon PATH_DEST "PlasticFlavour")) ) ) (set PATH_SRC (askfile (prompt "Select directory to install FROM.\n" "The installer will look for files called PZL-PF??.LHA in that drawer.") (help "Select the directory where the installer should look " "for the packed files.\n\nThe files are named\n" "PZL-PF??.LHA - where the \"?\?\" is ranging from\n " "01 to 12") (default PATH_SRC) ) ) (if (> (exists (tackon PATH_SRC F1)) 0) ( (working "Unpacking\n\n" F1 "\n\nto " PATH_DEST "/PlasticFlavour/") (run ("lha x %s %s" (tackon PATH_SRC F1) (tackon PATH_DEST "PlasticFlavour/")) ) ) ) (complete 8) (if (> (exists (tackon PATH_SRC F2)) 0) ( (working "Unpacking\n\n" F2 "\n\nto " PATH_DEST "/PlasticFlavour/") (run ("lha x %s %s" (tackon PATH_SRC F2) (tackon PATH_DEST "PlasticFlavour/")) ) ) ) (complete 16) (if (> (exists (tackon PATH_SRC F3)) 0) ( (working "Unpacking\n\n" F3 "\n\nto " PATH_DEST "/PlasticFlavour/") (run ("lha x %s %s" (tackon PATH_SRC F3) (tackon PATH_DEST "PlasticFlavour/")) ) ) ) (complete 24) (if (> (exists (tackon PATH_SRC F4)) 0) ( (working "Unpacking\n\n" F4 "\n\nto " PATH_DEST "/PlasticFlavour/") (run ("lha x %s %s" (tackon PATH_SRC F4) (tackon PATH_DEST "PlasticFlavour/")) ) ) ) (complete 32) (if (> (exists (tackon PATH_SRC F5)) 0) ( (working "Unpacking\n\n" F5 "\n\nto " PATH_DEST "/PlasticFlavour/") (run ("lha x %s %s" (tackon PATH_SRC F5) (tackon PATH_DEST "PlasticFlavour/")) ) ) ) (complete 40) (if (> (exists (tackon PATH_SRC F6)) 0) ( (working "Unpacking\n\n" F6 "\n\nto " PATH_DEST "/PlasticFlavour/") (run ("lha x %s %s" (tackon PATH_SRC F6) (tackon PATH_DEST "PlasticFlavour/")) ) ) ) (complete 48) (if (> (exists (tackon PATH_SRC F7)) 0) ( (working "Unpacking\n\n" F7 "\n\nto " PATH_DEST "/PlasticFlavour/") (run ("lha x %s %s" (tackon PATH_SRC F7) (tackon PATH_DEST "PlasticFlavour/")) ) ) ) (complete 56) (if (> (exists (tackon PATH_SRC F8)) 0) ( (working "Unpacking\n\n" F8 "\n\nto " PATH_DEST "/PlasticFlavour/") (run ("lha x %s %s" (tackon PATH_SRC F8) (tackon PATH_DEST "PlasticFlavour/")) ) ) ) (complete 64) (if (> (exists (tackon PATH_SRC F9)) 0) ( (working "Unpacking\n\n" F9 "\n\nto " PATH_DEST "/PlasticFlavour/") (run ("lha x %s %s" (tackon PATH_SRC F9) (tackon PATH_DEST "PlasticFlavour/")) ) ) ) (complete 72) (if (> (exists (tackon PATH_SRC FA)) 0) ( (working "Unpacking\n\n" FA "\n\nto " PATH_DEST "/PlasticFlavour/") (run ("lha x %s %s" (tackon PATH_SRC FA) (tackon PATH_DEST "PlasticFlavour/")) ) ) ) (complete 80) (if (> (exists (tackon PATH_SRC FB)) 0) ( (working "Unpacking\n\n" FB "\n\nto " PATH_DEST "/PlasticFlavour/") (run ("lha x %s %s" (tackon PATH_SRC FA) (tackon PATH_DEST "PlasticFlavour/")) ) ) ) (complete 88) (if (> (exists (tackon PATH_SRC FC)) 0) ( (working "Unpacking\n\n" FC "\n\nto " PATH_DEST "/PlasticFlavour/") (run ("lha x %s %s" (tackon PATH_SRC FA) (tackon PATH_DEST "PlasticFlavour/")) ) ) ) (complete 100) (run ("delete %s/~(mod.#?|Plastic.exe|Plastic.exe.info)" (tackon PATH_DEST "PlasticFlavour")) ) (message "\n\nInstall complete.\n\n" "Plastic Flavour can be found in the drawer:\n" (tackon PATH_DEST "PlasticFlavour")) (message "\n\n\n.. p L a s t i c f L a v o u r ..\n" "in the year 1996 by Puzzle\n\n" "Music..........Splif Prods\n" "Graphics...........Tactica\n" "Programming.........Mickey\n") (message "\nContact Puzzle at: \n\n" "<..snail..>\n" "Puzzle Prod.\n" "Husumgade 22, 5, 2\n" "2200 Koebenhavn N.\n" "Denmark\n\n" "<..e-mail..>\n" "puzzle@mailhost.net\n\n" "<..www..>\n" "http://www.diku.dk/students/martin/puzzle/main.html\n") (exit (quiet))