; Cyclone V1.10 Install Script V1.4 (08.10.96)
; © 1996 Gary Colville
;

; -- SET UP STRINGS ---------------------------------------
(set MSG_ASKDEST "Where would you like Cyclone to be installed?\nA drawer called CYCLONE will be created.") 
(set MSG_COPY "Please Wait - Copying Files\n")
(set MSG_THANKS "IMPORTANT!\nPlease RE-BOOT your Amiga before using Cyclone!\n")
(set MSG_STARTUP "The Installer will now modify your\nS:User-Startup file.")
(set starcom "Assign Cyclone: %s\nAssign MsAreas: %s\nAssign MsCache: \s\n")
(set cycdir "")



; -- GET DESTINATION DIR ----------------------------------
(set dest_dir
  (tackon
   (askdir (prompt MSG_ASKDEST ) 
                   (help @askdir-help)
                   (default @default-dest)
   )
   "Cyclone"
  )
)


; -- MAKE DIRECTORIES --------------------------------------
(set @default-dest dest_dir)      
(makedir dest_dir (infos))
(makedir (tackon dest_dir "Areas"))
(makedir (tackon dest_dir "Images"))
(makedir (tackon dest_dir "ImportCache"))
(makedir (tackon dest_dir "Rexx"))
(makedir (tackon dest_dir "HelpFiles"))
(makedir (tackon dest_dir "Scripts"))
(makedir (tackon dest_dir "Contribs")(infos))
(makedir (tackon dest_dir "Docs")(infos))
(makedir (tackon dest_dir "Previews")(infos))


; -- COPY FILES --------------------------------------------
(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Cyclone")
           (dest dest_dir)
           (infos)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Readme.NOW!")
           (dest dest_dir)
           (infos)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "OnLineHelp.Guide")
           (dest dest_dir)
           (infos)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "FastImport")
           (dest dest_dir)
           (infos)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "MakeTags")
           (dest dest_dir)
)


(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "taglines.dat")
           (dest dest_dir)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Origins.dat")
           (dest dest_dir)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Sigs.dat")
           (dest dest_dir)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Wintros.dat")
           (dest dest_dir)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Rintros.dat")
           (dest dest_dir)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "UserMenu.dat")
           (dest dest_dir)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "taglines.ascii")
           (dest dest_dir)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Cyclone.Prefs")
           (dest dest_dir)
)


(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Images")
           (dest (tackon dest_dir "Images"))
           (all)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Contribs")
           (dest (tackon dest_dir "Contribs"))
           (all)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Docs")
           (dest (tackon dest_dir "Docs"))
           (all)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Previews")
           (dest (tackon dest_dir "Previews"))
           (all)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "VFTX")
           (dest (tackon dest_dir "VFTX"))
           (all)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Scripts")
           (dest (tackon dest_dir "Scripts"))
           (all)
)


(startup   "Cyclone"   
           (prompt MSG_STARTUP)
           (help @startup-help)
           (command " Assign Cyclone: \"" dest_dir "\"\n")
           (command "  Assign MsAreas: \"" (Tackon dest_dir "Areas") "\"\n")
           (command " Assign MsCache: \"" (Tackon dest_dir "ImportCache") "\"\n")
)

(exit MSG_THANKS)
(exit)