; Cyclone V1.25 Install Script V2.23 (07.02.97)
; © 1996 Gary Colville
;

; -- SET UP STRINGS ---------------------------------------
(set MSG_ASKDEST "Where would you like Cyclone 1.25c to be installed?\nA drawer called CYCLONE will be created.")
(set MSG_COPY "Please Wait - Copying Files\n")
(set MSG_THANKS "Cyclone 1.25c for 68020/030 now installed!\n\nIMPORTANT!\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 "Contribs")(infos))
(makedir (tackon dest_dir "Docs")(infos))
(makedir (tackon dest_dir "Previews")(infos))


; -- COPY FILES --------------------------------------------
(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Bin020/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 "Cyclone.XPrefs")
           (dest dest_dir)
)

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

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

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

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


(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 "Rexx")
           (dest (tackon dest_dir "Rexx"))
           (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 "Tags_Ascii")
           (dest (tackon dest_dir "Tags_Ascii"))
           (all)
)

(copyfiles (prompt MSG_COPY)
           (help @copyfiles-help)
           (source "Utils")
           (dest (tackon dest_dir "Utils"))
           (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)