; $VER: dCN!Nuke_INSTALL 1.o (11.10.96) - written by sCANDiC of (dCN-/FdEZiGN)
; Installer and Installer project icon
; (c) Copyright 1995-96 Escom AG.  All Rights Reserved.
;

(set @default-dest "FAME:Doors/dCN!Nuke")

(welcome #welcometext)

(set #turboprozessor (not (patmatch (database "cpu") "68000|68010")))


(if (= @language "deutsch")
  (
   (set #welcometext     "Willkommen zum Installationsprogramm fr\n\n")
   (set #welcomedesc     "Mit diesem Programm lt sich die Installation von dCN!Nuke sehr einfach durchfhren. Alle Dateien werden installiert und evtl. nderungen an den Systemdateien vorgenommen.")
   (set #wrongversion    "Leider ist ihr AmigaOS veraltet!\n\nSie bentigen mindestens AmigaOS 2.04 (v37).")
   (set #copyinfotext    "Eine komplette Installation des FAME Mailbox System ist notwendig fr die Installation dieses Programmes.")
   (set #nofameinstalled "Sie haben das FAME Mailboy System nicht oder nicht vollstndig installiert!\nDie Installation wird abgebrochen.")
   (set #copyfiles       "Kopiere die bentigten Datenfiles nach FAME:Doors/")
   (set #copyconfigfiles "Kopiere nun die Beispiel-Konfiguration.")
   (set #fastprocessor   "Kopiere die 68020+ Versionen der Programme.")
   (set #slowprocessor   "Kopiere die 68000 Versionen der Programme.")
   (set #installsyscmds  "Nun wird das SYSCMD EXAMINE geschrieben.")
   (set #syscmdexists    "Das SYSCMD %s existiert bereits!\nWollen Sie es ueberschreiben oder als %s kopieren?")
   (set #overwrite       "berschreiben")
   (set #next            "Umbenennen")
   (set #finishedtext    "Bevor Die nun das Program zum ersten mal starten, Stellen Sie bitte im Preferences-Editor unter \"Access/Secure\" Ihren eigenen Namen ein!\n\nWenn sie dies nicht machen, knnen Sie das Programm nicht starten!")
   (set #shareware       "Dieses Programm ist SHAREWARE!\n\nGenaueres zur Registration lesen Sie bitte in der Dokumentation!")
  )

  (
   (set #welcometext     "Welcome to the Installation utilitty for\n\n")
   (set #welcomedesc     "The installation of this program by using this program is really easy. It will copy all files to the right places an also replaces the needed systemfiles.")
   (set #wrongversion    "Sorry! Your OS is too old!\n\nYou have to use a minimum of OS2.04 (v36).")
   (set #copyinfotext    "This tool needs a complete FAME installation!.")
   (set #nofameinstalled "There is no complete FAME installation!!\nThe installation aborts!.")
   (set #copyfiles       "Copy needed files to FAME:Doors/")
   (set #copyconfigfiles "Now copy the Example Configuration")
   (set #fastprocessor   "About to copy the 68020+ versions of the doors.")
   (set #slowprocessor   "About to copy the 68000 versions of the doors.")
   (set #installsyscmds  "Now installing SYSCMD EXAMINE")
   (set #syscmdexists    "The SYSCMD %s allready exists!\nDo you want to overwrite the old one or rename the new?")
   (set #overwrite       "Overwrite")
   (set #next            "Rename!")
   (set #finishedtext    "All done! Now run the Preferences Editor and setup your name in \"Access/Secure\"!\n\nOtherwise you won't have the access to start the Program!")
   (set #shareware       "This program is SHAREWARE!\n\nRead the documenation for further information!")
  )
)


(message #welcomedesc)

(set #osversion (/ (getversion "exec.library" (resident)) 65536 ))
(if (< #osversion 36 )
  (exit #wrongosversion (quiet))
)
(complete 0)
(if (not (exists "FAME:Doors/"))

 (
  (abort #nofameinstalled)
 )

)
(complete 10)
(makedir "FAME:Doors/dCN!Nuke" (infos))
(makedir "FAME:Doors/dCN!Nuke/Config")
(makedir "FAME:Doors/dCN!Nuke/Fakes")

   (message #copyfiles)

   (copyfiles (source "FAME/Settings/Doors/bbscmd/Nuke") (dest "FAME:Settings/Doors/bbscmd/"))
   (copyfiles (source "FAME/Settings/Doors/bbscmd/Fake") (dest "FAME:Settings/Doors/bbscmd/"))
   (copyfiles (source "FAME/Doors/dCN!Nuke/dCN!Nuke.guide") (dest "FAME:Doors/dCN!Nuke/"))
   (copyfiles (source "FAME/Doors/dCN!Nuke/dCN!Nuke.guide.info") (dest "FAME:Doors/dCN!Nuke/"))
   (copyfiles (source "FAME/Doors/dCN!Nuke/dCN!NukePrefs") (dest "FAME:Doors/dCN!Nuke/"))
   (copyfiles (source "FAME/Doors/dCN!Nuke/dCN!NukePrefs.info") (dest "FAME:Doors/dCN!Nuke/"))

   (message #copyconfigfiles)

   (copyfiles (source "FAME/Doors/dCN!Nuke/Config/dCN!Nuke.cfg1") (dest "FAME:Doors/dCN!Nuke/Config/"))
   (copyfiles (source "FAME/Doors/dCN!Nuke/Config/dCN!Nuke.cfg3") (dest "FAME:Doors/dCN!Nuke/Config/"))
   (copyfiles (source "FAME/Doors/dCN!Nuke/Config/dCN!Nuke.cfg4") (dest "FAME:Doors/dCN!Nuke/Config/"))
   (copyfiles (source "FAME/Doors/dCN!Nuke/Config/dCN!Nuke.cfg5") (dest "FAME:Doors/dCN!Nuke/Config/"))
   (copyfiles (source "FAME/Doors/dCN!Nuke/Config/dCN!NukeAWD.msg") (dest "FAME:Doors/dCN!Nuke/Config/"))
   (copyfiles (source "FAME/Doors/dCN!Nuke/Config/dCN!NukeDL.msg") (dest "FAME:Doors/dCN!Nuke/Config/"))
   (copyfiles (source "FAME/Doors/dCN!Nuke/Config/dCN!NukeUL.msg") (dest "FAME:Doors/dCN!Nuke/Config/"))

(complete 50)

  (if #turboprozessor
     (
     (message #fastprocessor)

     (copyfiles (source "FAME/Doors/dCN!Nuke/dCN!Nuke.FIM.020") (dest "FAME:Doors/dCN!Nuke/") (newname "dCN!Nuke.FIM"))
     (copyfiles (source "FAME/Doors/dCN!Nuke/dCN!NukeLog.FIM.020") (dest "FAME:Doors/dCN!Nuke/") (newname "dCN!NukeLog.FIM"))
     (copyfiles (source "FAME/FileCheckers/EXAMINE/dCN!NukeLog.EXE.020") (dest "FAME:FileCheckers/EXAMINE/") (newname "dCN!NukeLog.EXE"))
     (copyfiles (source "FAME/Doors/dCN!Nuke/dCN!Fake.FIM.020") (dest "FAME:Doors/dCN!Nuke/") (newname "dCN!Fake.FIM"))
     )

     (
     (message #slowprocessor)

     (copyfiles (source "FAME/Doors/dCN!Nuke/dCN!Nuke.FIM.000") (dest "FAME:Doors/dCN!Nuke/") (newname "dCN!Nuke.FIM"))
     (copyfiles (source "FAME/Doors/dCN!Nuke/dCN!NukeLog.FIM.000") (dest "FAME:Doors/dCN!Nuke/") (newname "dCN!NukeLog.FIM"))
     (copyfiles (source "FAME/FileCheckers/EXAMINE/dCN!NukeLog.EXE.000") (dest "FAME:FileCheckers/EXAMINE/") (newname "dCN!NukeLog.EXE"))
     (copyfiles (source "FAME/Doors/dCN!Nuke/dCN!Fake.FIM.000") (dest "FAME:Doors/dCN!Nuke/") (newname "dCN!Fake.FIM"))
     )
  )

    (message #installsyscmds)
    (set #finished 0)
      (
	(set #filename ("FAME:Settings/Doors/SYSCmd/EXAMINE"))
	(set #file #filename)

	(while (and (not #finished) (exists #file))
	  (
	    (if (askbool (default 1) (prompt (#syscmdexists (fileonly #file) (cat (fileonly #filename) (+ #num 1)))) (choices #overwrite #next) (help @askbool-help))
	      (
		(set #finished 1)
	      )

	      (
		(set #num (+ #num 1))
		(set #file (cat #filename #num))
	      )
	    )
	  )
	)


	(copyfiles
	  (source (tackon "FAME/Settings/Doors/SYSCMD" "EXAMINE"))
	  (dest (pathonly #file))
	  (newname (fileonly #file))
	  (all)
	  (optional force)
	)
      )


(message #finishedtext)
(message #shareware)
(complete 100)
(exit)
