"Performing this installation will create a new drawer named 'AWorks' in the specified path. \n"
"It will also add the required 'ASSIGN' statements to your user-startup, or startup-sequence.\n"
"\n\n"
@askdir-help
)
)
(set my_help2
(cat
"ANIM workshop requires a temporary area to store intermediate data. If you have a large amount of ram, we recommend that this be located in RAM:. Otherwise you should put it somewhere that you have spare harddisk space.\n"
"\n\n"
@askdir-help
)
)
; Get the path from the user
(set dest_a
(askdir
(prompt "Where should the AWorks drawer be created/installed?")
(help my_help)
(default @default-dest)
)
)
; Get the Temp path from the user
(set dest_temp
(askdir
(prompt "Where should the AWorks store its temporary files?")
(help my_help2)
(default "T:")
)
)
; Tell the Installer program where the user wants the data
(set @default-dest dest_a)
; Make sure the AWorks disk is present
(askdisk
(prompt "Please insert the disk labeled \"AWorks\".")
(help @askdisk-help)
(dest "AWorks")
(newname "AWorks")
)
(set dest_b dest_a)
(set dest_a
(tackon dest_a "AWorks")
)
(makedir dest_a
(infos)
)
(working)
(copyfiles
(infos)
(help @copyfiles-help)
(source "AWorks:AWorks")
(dest dest_a)
)
(copyfiles
(infos)
(help @copyfiles-help)
(source "AWorks:AWorks.Data")
(dest dest_a)
)
(copyfiles
(infos)
(help @copyfiles-help)
(source "AWorks:AWorks.Options")
(dest dest_a)
)
(set rexx_name
(tackon dest_a "REXX")
)
(set data_name
(tackon dest_a "Data")
)
(makedir rexx_name
(infos)
)
(makedir data_name
(infos)
)
(copyfiles
(all)
(infos)
(help @copyfiles-help)
(source "AWorks:Rexx")
(dest rexx_name)
)
(copyfiles
(all)
(infos)
(help @copyfiles-help)
(source "AWorks:Data")
(dest data_name)
)
; Add Assignments to user-startup
(if (> @user-level 1)
(
(if
(askbool
(prompt "Should the required 'ASSIGN's be added to your startup sequence?\n")
(help @askbool-help)
)
(
(startup "ANIM Workshop"
(prompt "")
(Help "ANIM workshop will not run without these assigns.")
(command "assign AWorks: " dest_a "\n")
(command "assign AWTemp: " dest_temp "\n")
)
)
; else askbool assigns
(
(message "The program will not function properly without the following assignments:\n\n"
"assign AWorks: " dest_a "\n"
"assign AWTemp: " dest_temp "\n\n"
"Make sure that these assignments have been made prior to running the application\n"
)
)
)
)
; else novice/average user
(startup "ANIM Workshop"
(prompt "")
(Help "ANIM workshop will not run without these assigns.")