home *** CD-ROM | disk | FTP | other *** search
- ; $VER: ArtStudio_AddOn_Install 1.000 (01.06.97)
- ; Script to install AddOn for ArtStudio
-
- (complete 0)
- (user 1)
-
- ;=============================================================================
- ; English strings
-
- (set default_lang 4)
-
- (set SelectDir1Msg
- (cat "Please select a directory\nto install AddOn in.\nYou need 8MB free space!"
- )
- )
-
- (set UpDateCGX "Checking and updating cgxmpeg.library, if needed...")
- (set UpDateIXE "Checking and updating ixemul.library, if needed...")
-
- (welcome)
- (set old_level @user-level)
-
- (user 2)
-
- (set target (askdir
- (prompt SelectDir1Msg)
- (help #which-dir-help)
- (default "Work:")
- ))
- (user old_level)
-
- (set @default-dest target)
-
- (complete 5)
-
- (run "lha x -M -F AddOn.lha" (tackon target "")
- (prompt "Installing AddOn...")
- )
-
- (complete 80)
-
- (startup "ArtStudioAddOn"
- (prompt ("\nAdding assignment to s:user-startup"))
- (help @startup-help)
- (command (cat "assign POST: " (tackon target "POST") "\n"))
- (command (cat "assign PSFONTS: POST:PSFONTS\n"))
- (command (cat "assign GhostScript: POST:GhostScript\n"))
- )
-
- (complete 85)
-
- (copylib
- (prompt UpDateCGX)
- (help @copylib-help)
- (source "libs/cgxmpeg.library")
- (dest "libs:")
- (confirm)
- )
-
- (complete 90)
-
- (copylib
- (prompt UpDateIXE)
- (help @copylib-help)
- (source "libs/ixemul.library")
- (dest "libs:")
- (confirm)
- )
-
- (run "c:assign POST: " (tackon target "POST")
- (prompt "Assign POST...")
- (help "Keine Hilfe verfügbar.")
- )
- (run "c:assign PSFONTS: POST:"
- (prompt "Assign PSFONTS...")
- (help "Keine Hilfe verfügbar.")
- )
- (run "c:assign GhostScript: POST:GhostScript"
- (prompt "Assign GhostScript...")
- (help "Keine Hilfe verfügbar.")
- )
-
- (complete 100)
-