(procedure CreatePll
   (textfile
      (dest   (tackon "TheClouDisk6:" #pll-name))
      (append "0")
   ) 
)

(set #disksalv-install 
     (cat "\nSpielstanddiskette erstellen\n"
          "\nDieses Hilfsprogramm ermöglicht es Ihnen, eine Spielstands"
          "diskette zu erstellen. Diese wird benötigt, falls Sie Ihren "
          "aktuellen Spielstand oder Ihre Einbruchspläne speichern wollen!"))

(set #which-disk
     "In welchem Laufwerk soll Ihre Spielstanddiskette erzeugt werden?")

(set #ds-done
     (cat "\nDie Spielstanddiskette ist jetzt bereit.\n"
          "\nBitte benützen Sie diese Diskette ausschließlich zum "
          "speichern von \"Der Clou!\" Spielständen oder Plänen!"))

(procedure formatdisk
    (if (askbool (prompt (cat "Bitte legen Sie eine Diskette zum Formatieren "
                              "in das Laufwerk " #outputdisk))
                     (choices "Eingelegt!" "Abbrechen")
                     (help "\nLegen Sie bitte eine leere Diskette in Ihre internes Laufwerk.\n")
                     (default 1))
        ((working "Formatiere Diskette " #outputdisk " als \"" #outdisk-name "\"")
         (run (cat "RAM:Format <NIL: >\"CON:10/10/500/50/Formatiere...\" DRIVE " 
                   #outputdisk " NAME \"" #outdisk-name "\" NOICONS")))
         (exit "Erstellung abgebrochen")))

(set @default-dest  "Df0:")
(set #outputdisk    "DF0:")
(set #outdisk-name  "TheClouDisk6")

(if (askbool 
        (prompt #disksalv-install)
	     (help "\nWenn Sie die Spielstanddiskette erstellen wollen, klicken Sie das Feld \"Weitermachen\" an, ansonst das Feld \"Abbrechen\"\n")
        (choices "Weitermachen" "Abbrechen")
        (default 1))
   ((set #outputdisk  
        (askdir (prompt  #which-disk)
  		  (help   ("\nBitte wählen Sie das Laufwerk auf dem Sie Ihre Spielstanddiskette erstellen wollen, aus!\n")
		  (default @default-dest))))
		  
    (set @default-dest #outputdisk)
    
    (copyfiles 
        (prompt "Suche Format Befehl")
        (help   " ")
        (source "sys:system/format")
        (dest   "ram:")
    )
    
    (formatdisk)
    
    (delete
        ("ram:format")
        (prompt " ")
        (help   " ")
    )

    (askdisk
        (prompt  "Legen Sie bitte jetzt Diskette 1 des Pakets in ein Laufwerk !")
        (help    "\nEs müssen gewisse Datei vom Paket auf Ihre Spielstanddiskette kopiert werden!\n")
        (dest    "TheClouDisk1"))
        
    (copyfiles
        (source  "TheClouDisk1:texts/origin.list")
        (dest    "RAM:"))
        
    (askdisk
        (prompt  "Legen Sie bitte jetzt die Spielstanddiskette in ein Laufwerk !")
        (help    "\nEs müssen gewisse Dateien vom Paket auf Ihre Spielstanddiskette kopiert werden!\n")
        (dest    "TheClouDisk6"))
        
    (copyfiles
        (source "RAM:origin.list")
        (dest   "TheClouDisk6:"))

    (copyfiles
        (source "RAM:origin.list")
        (dest   "TheClouDisk6:")
        (newname "games.list"))

    (delete
        ("RAM:origin.list")
        (prompt " ")
        (help   " ")
    )
        
    (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 "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)
    
    (set #pll-name "KaseEta.pll")
    (textfile
      (dest   (tackon "TheClouDisk6:" #pll-name))
      (append "15")
    ) 

    (askdisk
        (prompt  "Legen Sie bitte jetzt Diskette 4 des Pakets in ein Laufwerk !")
        (help    "\nEs müssen gewisse Dateien vom Paket auf Ihre Spielstanddiskette kopiert werden!\n")
        (dest    "TheClouDisk4"))
        
    (copyfiles
        (prompt  "Kopiere Daten")
        (source  "TheClouDisk4:data/KaseEta.pln")
        (dest    "RAM:")
    )

    (askdisk
        (prompt  "Legen Sie bitte jetzt die Spielstanddiskette in ein Laufwerk !")
        (help    "\nEs müssen gewisse Dateien vom Paket auf Ihre Spielstanddiskette kopiert werden!\n")
        (dest    "TheClouDisk6"))
        
    (copyfiles
        (prompt  "Kopiere Daten")
        (source  "RAM:KaseEta.pln")
        (dest    "TheClouDisk6:")
        (newname "KaseEta1.pln")
    )

    (copyfiles
        (prompt  "Kopiere Daten")
        (source  "RAM:KaseEta.pln")
        (dest    "TheClouDisk6:")
        (newname "KaseEta2.pln")
    )

    (copyfiles
        (prompt  "Kopiere Daten")
        (source  "RAM:KaseEta.pln")
        (dest    "TheClouDisk6:")
        (newname "KaseEta3.pln")
    )

    (copyfiles
        (prompt  "Kopiere Daten")
        (source  "RAM:KaseEta.pln")
        (dest    "TheClouDisk6:")
        (newname "KaseEta4.pln")
    )

    (message #ds-done)))

(exit (quiet))