; ************************************************************************
;
; $VER: Install 1.01 (27.03.2000)
; 
; Install script for VirusExecutor v1.85 Copyright © 2000 Jan Erik Olausen
;
; ************************************************************************

(set old_level @user-level)
(set @default-dest "")
(set #wbversion 0)
(set #wbversion (getversion "libs:version.library"))
(set #wbversion (/ #wbversion 65536) )

;=============================================================================
; Make sure we are running under a 2.04 ROM

(if (< (/ (getversion) 65536) 37)
(
    (abort #bad-kick)
))

(set destination
	(tackon
		(askdir
			(prompt "Please select the path where you want to install\nthe VirusExecutor program.\n\nA drawer named VirusExecutor will be created there.\n")
			(help @askdir-help)
			(default "Work:")
			(newpath)
		)
		"VirusExecutor"
	)
)
(set @default-dest destination)

(copyfiles
	(source "")
	(dest destination)
	(pattern "VirusExecutor#?")
	(infos)
	
)

(copyfiles
	(source "JEOPlay")
	(dest "C:")
	
)

(copyfiles
	(source "Sounds")
	(dest (cat destination "/Sounds"))
	(pattern "#?")
)

;************************
;** VirusExecutor.info **
;************************

(if (< #wbversion 44)	; Not OS 3.5?
	(copyfiles
		(source "Icons/Glow/VirusExecutor.info")
		(dest (destination))
	)
)
(if (> #wbversion 43)	; Yes! OS 3.5
	(copyfiles
		(source "Icons/Glow/VirusExecutor.info")
		(dest (destination))
	)
)

;*********************
;** Libraries stuff **
;*********************


(copylib
	(prompt "This will copy the 'xvs.library' to your LIBS: directory.")
	(source "libs/xvs.library")
	(help "VirusExecutor uses the 'xvs.library' to find and remove virus.")
	(confirm)
	(dest "LIBS:")
)

;******************
;** Locale stuff **
;******************

      (set lang
        (askoptions
      	(prompt "Which languages do want installed?")
        (help "Checkmark the languages you want installed, and click Proceed.")
      	(choices "Dansk" "Deutsch" "Français" "Norsk" "Português" "Svenska")
      	(default 0)
      ))

      (set n 0)

      (while (set language (select n "Dansk" "Deutsch" "Français" "Norsk" "Português" "Svenska" ""))
      (
      	(if (IN lang n)
     		(copyfiles
          		(source (cat "catalogs/" language "/VirusExecutor.catalog" ))
      			(dest (cat "LOCALE:catalogs/" language ))
      			(all)
      		)
      	)
      	(set n (+ n 1))
      ))

;*****************
;** Guide stuff **
;*****************

(set guide
   (askoptions
	  (prompt "What guide would you like to install?")
	  (help
		"This will install the VirusExecutor docs."
	  )
      (choices "English" "Français")
      (default 1)
   )
)

(if (bitand 1 guide)
	(copyfiles
		(source "Docs/VirusExecutor.guide")
		(dest (cat destination))
		(infos)
	)
)

(if (bitand 2 guide)
	(copyfiles
		(source "Docs/VirusExecutor_fr.guide")
		(dest (cat destination))
		(infos)
	)
)

;********************
;** s:user-startup **
;********************

(startup "VirusExecutor"
	(prompt "An assign is needed in to your \"s:user-startup\" file.")
	(help @startup-help)
	(command "if exists \"" destination "\"\n")
	(command "   assign VirusExecutor: \"" destination "\"\n")
	(command "   endif\n")
	(command "endif")
)