; RO Installer script by Juergen Schubert, RO ©1994 by Oliver Rummeyer

(transcript "Installing RO...")

(set @app-name "RO")

(complete 0)


; Test, ob MUI installiert
(if (= (exists "MUI:" (noreq)) 0)
   (message	"MUI not found! You need version 2.2 or better! Should I continue the installation procedure of RO?")
)


(set destdir
   (askdir
      (prompt "In which disk or drawer should RO be installed?\n"
              "(A drawer \"RO\" will be created there)")
          (help "Please select a disk or a drawer where RO should be installed. If you are not sure what to select here, just click 'Proceed' and RO will be installed into SYS:Tools on your boot partition.")
          (default "SYS:Tools")
   )
)

(set destdir (tackon destdir "RO"))

(set @default-dest destdir)



(if (= (exists destdir) 2)
   (message
	"A drawer \"RO\" already exists in the specified disk or drawer. Should I continue the installation procedure of RO?"
   )
)



(makedir destdir
   (help @makedir-help)
   (infos)
)

(complete 20)



(set installguide
   (askchoice
          (prompt "Do you want me to install the english online documentation?")
          (choices "Yes" "No")
          (help "If you want to save some bytes on your hard disk you should select \"No\"")
   )
)


; Onlinehilfe installieren
(if (= installguide 0)
   (copyfiles
      (source "")
      (choices "/Docs/RO.guide")
      (dest destdir)
   )
)

(complete 40)



(set icontype
   (askchoice
          (prompt "Please choose a program icon")
          (choices "MagicWB-Style Icon" "Classic-WB-Style Icon" "No Icon")
          (help "You should select \"MagicWB-Style Icon\" if you use MagicWB by Martin Huttenloher on your system otherwise you should select 'Classic-WB-Style Icon'. If you hate icons you may select 'No Icon'.\n")
   )
)
(complete 60)


; Magic-WB-Style icon
(if (= icontype 0)
   (copyfiles
      (source "")
      (choices "/RO.info")
      (dest destdir)
   )
)


; Normal icon
(if (= icontype 1)
   (copyfiles
      (source "/RO.info.old")
      (newname "RO.info")
      (dest destdir)
   )
)
(complete 80)



(copyfiles
          (prompt "Installing RO to " destdir)
          (help @copyfiles-help)
          (source "")
          (choices "/RO" "/RO.prefs")
          (dest destdir)
          (files)
)
(complete 100)