;  Installation: Der Clou!
;  $VER: AGA 1.1  (23-02-94)

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

(complete 0)

(set @abort-button "Abbrechen")

(set @Working
   (askdir
      (prompt  "Bitte wählen Sie das Verzeichnis in welches\nDER CLOU! installiert werden soll.")
      (help    @askdir-help)
      (default @default-dest)
   )
)

(complete 1)

(askdisk
   (prompt  "Legen Sie bitte jetzt Diskette 1 des Pakets in ein Laufwerk !")
   (help    @askdisk-help)
   (dest    "TheClouDisk1")
   (assigns)
)

(makedir 
   (prompt  "Erstellle Verzeichnis")
   (tackon @Working "datadisk")
)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk1:texts/origin.list")
   (dest    (tackon @Working "datadisk"))
)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk1:texts/origin.list")
   (dest    (tackon @Working "datadisk"))
   (newname "games.list")
)

(set #pll-name "TobaEta.pll")
(CreatePll)
(set #pll-name "AuntEta.pll")
(CreatePll)
(set #pll-name "JuweEta.pll")
(CreatePll)
(set #pll-name "AntiEta.pll")
(CreatePll)
(set #pll-name "TranEta.pll")
(CreatePll)
(set #pll-name "SeniEta.pll")
(CreatePll)
(set #pll-name "MarxEta.pll")
(CreatePll)
(set #pll-name "VillEta.pll")
(CreatePll)
(set #pll-name "KenwEta.pll")
(CreatePll)
(set #pll-name "HamHEta.pll")
(CreatePll)
(set #pll-name "OsteEta.pll")
(CreatePll)
(set #pll-name "ChisEta.pll")
(CreatePll)
(set #pll-name "SothEta.pll")
(CreatePll)
(set #pll-name "BritEta.pll")
(CreatePll)
(set #pll-name "NatuEta.pll")
(CreatePll)
(set #pll-name "NatiEta.pll")
(CreatePll)
(set #pll-name "VictEta.pll")
(CreatePll)
(set #pll-name "BankEta.pll")
(CreatePll)
(set #pll-name "ToweEta.pll")
(CreatePll)

(set #pll-name "KaseEta.pll")
(textfile
     (prompt "Kopiere Daten")
     (dest   (tackon (tackon @Working "datadisk") #pll-name))
     (append "15")
) 

(complete 3)

(copyfiles
   (prompt  "Kopiere Zeichensätze")
   (source  "TheClouDisk1:fonts")
   (dest    (tackon @Working "fonts"))
   (all)
   (fonts)
)

(complete 4)

(copyfiles
   (prompt  "Kopiere Daten")
   (source "TheClouDisk1:DerClou!")
   (dest   @Working)
)

(copyfiles
   (prompt  "Kopiere Daten")
   (source "TheClouDisk1:TCIntro")
   (dest   @Working)
)

(copyfiles
   (prompt  "Kopiere Daten")
   (source "TheClouDisk1:TC.Base")
   (dest   @Working)
)

(complete 10)

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

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

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

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

(complete 20) 

(askdisk 
   (prompt "Legen Sie bitte jetzt Diskette 2 des Pakets in ein Laufwerk !") 
   (help @askdisk-help) 
   (dest "TheClouDisk2") 
)

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

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

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

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

(complete 35)
(askdisk
   (prompt  "Legen Sie bitte jetzt Diskette 3 des Pakets in ein Laufwerk !")
   (help    @askdisk-help)
   (dest    "TheClouDisk3")
)

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

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

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

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


(complete 50)
(askdisk
   (prompt  "Legen Sie bitte jetzt Diskette 4 des Pakets in ein Laufwerk !")
   (help    @askdisk-help)
   (dest    "TheClouDisk4")
)

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

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

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

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

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk4:data/KaseEta.pln")
   (dest    (tackon @Working "datadisk"))
   (newname "KaseEta1.pln")
)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk4:data/KaseEta.pln")
   (dest    (tackon @Working "datadisk"))
   (newname "KaseEta2.pln")
)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk4:data/KaseEta.pln")
   (dest    (tackon @Working "datadisk"))
   (newname "KaseEta3.pln")
)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk4:data/KaseEta.pln")
   (dest    (tackon @Working "datadisk"))
   (newname "KaseEta4.pln")
)


(complete 85)
(askdisk
   (prompt  "Legen Sie bitte jetzt Diskette 5 des Pakets in ein Laufwerk !")
   (help    @askdisk-help)
   (dest    "TheClouDisk5")
)

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


(complete 95)
(askdisk
   (prompt  "Legen Sie bitte nochmals Diskette 1 des Pakets in ein Laufwerk !")
   (help    @askdisk-help)
   (dest    "TheClouDisk1")
)

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

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

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk1:SSIcon")
   (dest    @Working)
   (newname ("Spiel starten.info"))
)

(tooltype
   (prompt  "Kopiere Daten")
   (dest (tackon @Working "Spiel starten.info"))
   (noposition)
   (swapcolors)
)

(copyfiles
   (prompt  "Kopiere Daten")
   (source  "TheClouDisk1:c/IconX")
   (dest    @Working)
)

(complete 100)

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

(exit (quiet))