; Bombsquare Installer script

(if (= x 1) (welcome))

(onerror (FEHLER))

(procedure FEHLER
    (message "Ein Fehler ist aufgetreten! Die Installation wird abgebrochen.")
    (CLEANUP)
    (exit)
)

; Stop InstallerFX !
(procedure CLEANUP
    (delete "t:bs")
    (delete "t:bs.prefs")
    (delete "t:VDLogo")
    (delete "t:VDLogo.prefs")
    (delete "t:Background")
    (delete "t:Background.prefs")
    (delete "ram:Bombsquare/gfx/#?")
    (delete "ram:Bombsquare/gfx")
    (delete "ram:Bombsquare/sfx/#?")
    (delete "ram:Bombsquare/sfx")
    (delete "ram:Bombsquare/InstallerFX/#?")
    (delete "ram:Bombsquare/InstallerFX")
    (delete "ram:Bombsquare/#?")
    (delete "ram:Bombsquare")
    (delete "ram:Bombsquare.info")
) ; CLEANUP

(set @user-level 0)

;(set Opt 3)
(complete 0)

(copyfiles
   (source "InstallerFX/stars")
   (dest "t:")
   (nogauge)
   (newname "Background")
)

(copyfiles
   (source "InstallerFX/Background.prefs")
   (nogauge)
   (dest "t:")
   (newname "Background.prefs")
)
(complete 5)

(copyfiles
   (source "InstallerFX/vdlogo")
   (nogauge)
   (dest "t:")
   (newname "VDLogo")
)

(copyfiles
   (source "InstallerFX/vdlogo.prefs")
   (nogauge)
   (dest "t:")
   (newname "VDLogo.prefs")
)
(complete 5)

(copyfiles
   (source "InstallerFX/bs")
   (nogauge)
   (dest "t:")
   (newname "bs")
)

(copyfiles
   (source "InstallerFX/bs.prefs")
   (nogauge)
   (dest "t:")
   (newname "bs.prefs")
)

(complete 10)

(run "run InstallerFX/InstallerFX t:Background")

(set @user-level 2)

(run "wait 3")
; Waiting for InstallerFX to finished Background Picture!
(complete 15)

(run "run InstallerFX/InstallerFX t:VDlogo")

(run "wait 2")

(run "run InstallerFX/InstallerFX t:bs")
(complete 20)

(welcome "Willkommen zu Bombsquare !")

(
     (set bs_dest
        (tackon
        (askdir
        (prompt "Wohin soll Bombsquare installiert werden (eine Schublade wird erstellt) ?")
        (help @askdir-help)
        (default @default-dest)
        )"Bombsquare")
)
)

(complete 30)

(run "wait 1")
(run "/lha x Bombsquare.lha ram:")

(complete 50)

(copyfiles
  (source "ram:Bombsquare/")
  (dest bs_dest)
  (pattern "Bomb#?")
  (infos)
  (files)
)

(copyfiles
  (source "ram:Bombsquare/")
  (dest bs_dest)
  (pattern "his#?")
  (infos)
  (files)
)

(complete 60)

(set gfx_dest (tackon bs_dest "gfx"))
(makedir gfx_dest(infos))
(copyfiles
  (source "ram:Bombsquare/gfx/")
  (dest gfx_dest)
  (pattern "#?")
  (infos)
  (files)
)
(complete 80)

(set sfx_dest (tackon bs_dest "sfx"))
(makedir sfx_dest)
(copyfiles
  (source "ram:Bombsquare/sfx/")
  (dest sfx_dest)
  (pattern "#?")
  (infos)
  (files)
)
(complete 95)

(set delfile (tackon bs_dest "gfx.info"))
(delete delfile)

(set delfile (tackon bs_dest "sfx.info"))
(delete delfile)

(complete 100)
(CLEANUP)
(exit)