;  Installation: Der Clou! Profidisk - Harddisk AGA
;  $VER: AGA 1.0  (16-11-94)

(procedure CreatePll
   (textfile
      (prompt "Kopiere Daten")
      (dest   (tackon (tackon @Working "datadisk") #pll-name))
      (append "0")
   ) 
)

(complete 0)
(set @abort-button "Abbrechen")

(message "Willkommen zur Installation der\nDER CLOU! PROFIDISK AGA.\nUm die Profidisk zu installieren, ist"
         " es notwendig, daß Sie bereits DER CLOU! AGA auf Ihre Festplatte installiert haben. Sollte das"
         " nicht der Fall sein, bitten wir Sie zuerst DER CLOU! AGA zu installieren, und danach diese"
         " Installation nochmals zu starten.\n\n"
         "Wir wünschen Ihnen viel Vergnügen mit den neuen Abenteuer des Matt Stuvysunt!"
)

(set @Working
   (askdir
      (prompt  "Bitte wählen Sie das Verzeichnis in welchem DER CLOU! AGA bereits installiert wurde.")
      (help    @askdir-help)
      (default @default-dest)
   )
)

(complete 1)

(askdisk
   (prompt  "Legen Sie bitte jetzt die Profidisk 1 in ein Laufwerk!")
   (help    @askdisk-help)
   (dest    "TheClouDisk8")
   (assigns)
)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk8:texts")
   (dest    (tackon @Working "texts"))
   (all)
)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk8:textsaga")
   (dest    (tackon @Working "texts"))
   (all)
)

(complete 10)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk8:pictures")
   (dest    (tackon @Working "pictures"))
   (all)
)

(complete 30)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk8:sounds")
   (dest    (tackon @Working "sounds"))
   (all)
)

(complete 40)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk8:data")
   (dest    (tackon @Working "data"))
   (all)
)

(complete 60)

(set #pll-name "BakeEta.pll")
(CreatePll)
(set #pll-name "BuckEta.pll")
(CreatePll)
(set #pll-name "BulCEta.pll")
(CreatePll)
(set #pll-name "DownEta.pll")
(CreatePll)
(set #pll-name "TateEta.pll")
(CreatePll)
(set #pll-name "TraiEta.pll")
(CreatePll)
(set #pll-name "TussEta.pll")
(CreatePll)
(set #pll-name "WestEta.pll")
(CreatePll)

(complete 70)

(askdisk
   (prompt  "Legen Sie bitte jetzt die Profidisk 2 in ein Laufwerk !")
   (help    @askdisk-help)
   (dest    "TheClouDisk9")
   (assigns)
)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk9:TC.AGA")
   (dest    @Working)
   (newname "TC.Base")
)

(complete 90)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk9:pictures")
   (dest    (tackon @Working "pictures"))
   (all)
)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk9:data")
   (dest    (tackon @Working "data"))
   (all)
)

(set #datadisk-name (tackon @Working "datadisk"))
(set #fonts-name    (tackon @Working "fonts"))

(textfile
   (prompt  "Kopiere Daten")
   (dest   (tackon @Working "Spiel starten"))
   (append ("stack 16000\nassign TheClouDisk1: \"%s\"\nassign TheClouDisk2: \"%s\"\nassign TheClouDisk3: \"%s\"\nassign TheClouDisk4: \"%s\"\nassign TheClouDisk5: TheClouDisk1:\nassign TheClouDisk6: \"%s\"\nassign TheClouDisk8: \"%s\"\nassign TheClouDisk9: \"%s\"\nassign Fonts:        \"%s\"\nDerClou!\nassign Fonts: sys:fonts\n" @Working @Working @Working @Working #datadisk-name @Working @Working #fonts-name))
)

(complete 100)

(message "Die Installation der Profidisk wurde abgeschlossen. Bitte entfernen Sie"
         " alle Disketten aus den Laufwerken, bevor Sie das Spiel starten."
)

(exit (quiet))