(set #MSG_INTRO (cat "Thanks for downloading WebView V2.1i\nBy Internext Software\n\nRemember to Register!"))
(set #MSG_CHOOSEDIR (cat "Choose a directory to install WebView\nA directory will be made there!"))
(set #MSG_LIBUPDATE (cat "I'll also copy over the\nnecessare libraries to run WebView\nand WebViewPrefs..."))
(set #MSG_COPYMSG (cat "Copying Required Files...\n\n\n\nNOW!!!"))
(set #MSG_HELP (cat "What Help?!?\nJust Click Buttons!"))
(set #MSG_WEBCLEANER (cat "Installing the WebCleaner Fonts\nBy Andrew Graham"))

(complete 1)
(message #MSG_INTRO)

(set dwr
  (askdir
    (disk)
    (prompt #MSG_CHOOSEDIR)
    (default "Work:")
    (newpath)
    (help #MSG_HELP)
  )
)
(set @default-dest dwr)
(makedir (tackon @default-dest "WebView"))
(copyfiles
  (dest @default-dest)
  (source "/WebView.info")
  (infos)
)
(set @default-dest (tackon @default-dest "WebView"))

(complete 25)

(message #MSG_COPYMSG)
(copyfiles
  (prompt #MSG_COPYMSG)
  (dest @default-dest)
  (source "WebView21i")
  (infos)
)
(copyfiles
  (prompt #MSG_COPYMSG)
  (dest "Envarc:")
  (source "envarc/webview.prefs")
)

(complete 50)
(copyfiles
  (prompt #msg_copymsg)
  (dest @default-dest)
  (source "WebView.doc")
  (infos)
)
(copyfiles
  (prompt #msg_copymsg)
  (dest @default-dest)
  (source "WebView.guide")
  (infos)
)

(message #MSG_LIBUPDATE)
(complete 75)
(copylib
  (prompt #MSG_COPYMSG)
  (source "libs/easylife.library")
  (dest "Libs:")
)
(complete 99)
(message #MSG_WEBCLEANER)
(copyfiles
  (prompt #msg_copymsg)
  (dest "Fonts:")
  (source "Fonts/")
  (all)
)

(complete 100)