; $VER: Overshaker Theme Install Script 0.1 (07.07.2002)
;       Script Author: ShdW <shdw@iquebec.com> ©2002
;        Theme Author: Nowee <Nowee@fr.fm> ©1998,1999,2000,2001,2002


(set ThemeDir "ColdNowee")    ; Directory name where theme files are located
(set Birdie 0)                ; 0=NoNeedForBirdie, 1=NeedsBirdie



(set osver (/ (getversion "Libs:version.library") 65536))
(if (= osver 37) (set wb "2.0"))
(if (= osver 38) (set wb "2.1"))
(if (= osver 39) (set wb "3.0"))
(if (= osver 40) (set wb "3.1"))
(if (= osver 41) (set wb "3.5"))
(if (= osver 45) (set wb "3.9"))

(set cpu (database "cpu"))
(if (> (exists ("Libs:68060.library")) 0) (set #cpu 6))
(if (> (exists ("68060.library") (resident)) 0) (set #cpu 6))
(if (= cpu 68000) (set cpu 0))
(if (= cpu 68010) (set cpu 1))
(if (= cpu 68020) (set cpu 2))
(if (= cpu 68030) (set cpu 3))
(if (= cpu 68040) (set cpu 4))
(if (= cpu 68060) (set cpu 6)) 


(set @default-dest "Sys:Prefs/Presets/GUI/")

(set sourcedir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
 (expandpath @icon))
)



(set #header "Overshaker Theme Installation\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n")
(set #welcome ("%sCopyright © 1998-2002 by\nTreveur Bretaudiere\n<Nowee@fr.fm>\nhttp://www.nowee.org/overshaker\n" #header))
(set #workbench ("%sYou only have Workbench %s.\nThis may cause problems with backgrounds.\n\nContinue anyway ?" #header wb))
(set #nohelp "There's no help for this.")
(set #wassign ("%sAbout to install a command in s:user-startup to automatically assign GUI: when you boot your system..." #header))
(set #bakc0 "Backup prefs files")
(set #back1 "Replace prefs files")
(set #bak ("%sSome prefs files included in this package must be installed.\nYou may already have those files.\n\nWhat do you want to do ?" #header))
(set #bakf ("%sAbout to backup some prefs files to\nSys:Storage/Envarc/ directory." #header))
(set #copf ("%sAbout to copy needed prefs files to\nSys:Prefs/Env-Archive/Sys/ directory." #header))
(set #copt ("%sAbout to copy the theme directory to\nSys:Prefs/Presets/GUI/ directory." #header))
(set #ayes "Yes")
(set #ano "No")


(if (= @language "français")
 (
  (set #header "Installation d'un thème Overshaker\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n")
  (set #welcome ("%sCopyright © 1998-2002 par\nTreveur Bretaudiere\n<Nowee@fr.fm>\nhttp://www.nowee.org/overshaker\n" #header))
  (set #workbench ("%sVous n'avez que le Workbench %s.\nCeci pourrait poser problème avec les images de fond (backgrounds).\n\nContinuer quand même ?" #header wb))
  (set #nohelp "Il n'y a pas d'aide pour ceci.")
  (set #wassign ("%sSur le pount d'installer une commande dans votre in s:user-startup pour assigner automatiquement GUI: lors du démarrage de votre système..." #header))
  (set #bakc0 "Faire une copie de sauvegarde des fichiers")
  (set #back1 "Remplacer les fichiers")
  (set #bak ("%sQuelques fichiers de préférences inclus dans cette archive doivent être installés.\nVous avez peut-être déjà ces fichiers.\n\nQue voulez-vous faire ?" #header))
  (set #bakf ("%sSur le point de faire la copie de sauvegarde de quelques fichiers de préférences vers le répertoire\nSys:Storage/Envarc/." #header))
  (set #copf ("%sSur le point de copier les fichiers de préférences requis vers le répertoire\nSys:Prefs/Env-Archive/Sys/." #header))
  (set #copt ("%sSur le point de copier le répertoire du thème vers le répertoire\nSys:Prefs/Presets/GUI/." #header))
  (set #ayes "Oui")
  (set #ano "Non")
 )
)





;;; Starts here!

(welcome #welcome)

(complete 0)

(if (< osver 39)
 (
  (set CONT (askchoice (choices #ayes #ano)
                       (prompt #workbench)
                       (help #nohelp)
                       (default 0)
            )
  )
  (if (= CONT 1) (exit (quiet)))
 )
)


(if (not (exists (@default-dest)))
 (makedir (@default-dest))
)

(complete 10)

(startup "Overshaker Theme Startup"
 (prompt #header #wassign)
 (help #nohelp)
 (command "Assign GUI: Sys:Prefs/Presets/GUI")
)

(complete 20)

(set BAK (askchoice (choices #bakc0 #back1)
                    (prompt #bak)
                    (help #nohelp)
                    (default 0)
         )
)

(complete 30)

(if (= BAK 0)
 (
  (if (not (exists ("Sys:Storage")))
   (makedir ("Sys:Storage"))
  )
  (if (not (exists ("Sys:Storage/Envarc")))
   (makedir ("Sys:Storage/Envarc"))
  )
  (if (not (exists ("Sys:Storage/Envarc/Sys")))
   (makedir ("Sys:Storage/Envarc/Sys"))
  )
  (message #bakf)
  (if (exists ("Sys:Prefs/Env-Archive/Sys/Birdie.prefs"))
   (copyfiles (source "Sys:Prefs/Env-Archive/Sys/Birdie.prefs")
              (dest "Sys:Storage/Envarc/Sys/")
   )
  )
  (if (exists ("Sys:Prefs/Env-Archive/Sys/font.prefs"))
   (copyfiles (source "Sys:Prefs/Env-Archive/Sys/font.prefs")
              (dest "Sys:Storage/Envarc/Sys/")
   )
  )
  (if (exists ("Sys:Prefs/Env-Archive/Sys/fullpalette.prefs"))
   (copyfiles (source "Sys:Prefs/Env-Archive/Sys/fullpalette.prefs")
              (dest "Sys:Storage/Envarc/Sys/")
   )
  )
  (if (exists ("Sys:Prefs/Env-Archive/Sys/gui.prefs"))
   (copyfiles (source "Sys:Prefs/Env-Archive/Sys/gui.prefs")
              (dest "Sys:Storage/Envarc/Sys/")
   )
  )
  (if (exists ("Sys:Prefs/Env-Archive/Sys/palette.prefs"))
   (copyfiles (source "Sys:Prefs/Env-Archive/Sys/palette.prefs")
              (dest "Sys:Storage/Envarc/Sys/")
   )
  )
  (if (exists ("Sys:Prefs/Env-Archive/Sys/wbpattern.prefs"))
   (copyfiles (source "Sys:Prefs/Env-Archive/Sys/wbpattern.prefs")
              (dest "Sys:Storage/Envarc/Sys/")
   )
  )
  (message #copf)
  (copyfiles (source (tackon sourcedir "ENVARC/Sys/"))
             (dest "ENVARC:Sys/")
             (all)
  )
 )
 (
  (message #copf)
  (copyfiles (source (tackon sourcedir "ENVARC/Sys/"))
             (dest "ENVARC:Sys/")
             (all)
  )
 )
)

(complete 50)


(message #copt)

(set nsrcdir ("%s/%s" sourcedir ThemeDir))
(set destdir ("%s%s" @default-dest ThemeDir))

(if (not (exists (destdir)))
 (makedir (destdir))
)
(copyfiles (source (tackon sourcedir ThemeDir))
           (dest destdir)
           (all)
)

(complete 100)