; Install script for Divine Text-Reader V3.00 - By Pink Floyd & Jb / DVN & LSD
; $VER: 1.00  Copyright © 1995 Divine Productions
(set default_lang 4)
(set @default-dest "Work:")
(set #bad-kick
(cat "This installer requires Kickstart V2.04 or above to work."
	  "Double-click the 'Install_V1.2' icon to install Text-Reader V3.00 on"
	  "Kickstart 1.2 or 1.3 machines."
))

(welcome)
(complete 0)
(message "\n Divine presents  :  Text Reader V3.00 \n\n" 
                    "   Coded by          :    The Welder/Divine  \n"
                   "Graphics by       :    Risk/Divine     \n"
                    "  Music by          :    Aquafresh/Divine  \n"
                    " Icons and Font by :    Hampster/Divine  \n "
                    " HD Install        :    Pink Floyd/Dvn/Lsd\n"
                    " HD Install        :    JB/Dvn/Lsd       \n"
)

   (set app_locate
      (askdir
         (prompt "Please indicate where you want the Text-Reader drawer "
                 "to be located.")
         (help @askdir-help)
         (default @default-dest)
         ))


   (set app_realdest (tackon app_locate "Text-ReaderV3.00"))
   (makedir app_realdest (infos))

(complete 20)


(copylib
	(prompt "\nCopying The ReqTools.Library\n" #copying-reqtools)
	(help "")
	(source "Text-Reader_V3.00:Libs/ReqTools.Library")
	(dest "Libs:")
	(confirm)
)

(complete 30)

(copyfiles
	(prompt "\nCopying Text-Reader V3.00\n" #copying-reader)
	(help "")
	(source "Text-Reader_V3.00:")
	(dest app_realdest)
        (pattern "Text-#?")
)

(complete 40)

(copyfiles
	(prompt "\nCopying Extras\n" #copying-extras)
	(help "")
	(source "Text-Reader_V3.00:")
	(dest app_realdest)
        (pattern "read#?")
)

(complete 50)

(copyfiles
	(prompt "\nCopying Cygnus Ed\n" #copying-ed)
	(help "")
	(source "Text-Reader_V3.00:")
	(dest app_realdest)
        (pattern "Cyg#?")
)

(complete 60)

(copyfiles
	(prompt "\nCopying Test Logo\n" #copying-lo)
	(help "")
	(source "Text-Reader_V3.00:")
	(dest app_realdest)
        (pattern "lo#?")
)

(complete 70)

(copyfiles
	(prompt "\nCopying Test Letter\n" #copying-le)
	(help "")
	(source "Text-Reader_V3.00:")
	(dest app_realdest)
        (pattern "le#?")
)



(complete 85)

(copyfiles
	(prompt "\nCopying Music\n" #copying-mod)
	(help "")
	(source "Text-Reader_V3.00:")
	(dest app_realdest)
        (pattern "mod.#?")
)

(set @default-dest app_realdest)

  (complete 100)
  (message "\nThank You for installing this piece of software"
           )
(exit)