
(complete 0)

(set name
   (askdir
      (prompt "Where do you wish to install Slamtilt?\n"
              "A directory named Slamtilt will be created there")
      (help "Select a drawer in which you wish to install Slamtilt,"
           ' for instance "Dh0:Games/"\n'
           "You will *NOT* need to create a new drawer for Slamtilt")
      (default "Sys:")
   )
)

(complete 5)

(set fullname (tackon name "Slamtilt"))
(makedir fullname (infos))

(complete 15)

(copyfiles
   (prompt "Copying files from Disk 5")
   (help "We're copying files.")
   (source "Slam5:")
   (dest fullname)
   (pattern "Demon#?")
)

(complete 30)

(askdisk
   (prompt "Please insert Slamtilt Disk 1")
   (help "Insert Disk 1 please...")
   (dest "Slam1")
)

(copylib
   (prompt "Updating lowlevel.library")
   (help "This action will install lowlevel.library on your HD.")
   (source "Slam1:Libs/lowlevel.library")
   (dest "Libs:")
   (confirm)
)

(copyfiles
   (prompt "Copying files from Disk 1")
   (help "We're copying files.")
   (source "Slam1:")
   (dest fullname)
   (pattern "~(S)")
)

(complete 45)

(askdisk
   (prompt "Please insert Slamtilt Disk 2")
   (help "Insert Disk 2 please...")
   (dest "Slam2")
)

(copyfiles
   (prompt "Copying files from Disk 2")
   (help "We're copying files.")
   (source "Slam2:")
   (dest fullname)
   (pattern "Mean#?")
)

(complete 60)

(askdisk
   (prompt "Please insert Slamtilt Disk 3")
   (help "Insert Disk 3 please...")
   (dest "Slam3")
)

(copyfiles
   (prompt "Copying files from Disk 3")
   (help "We're copying files.")
   (source "Slam3:")
   (dest fullname)
   (pattern "Pirate#?")
)

(complete 75)

(askdisk
   (prompt "Please insert Slamtilt Disk 4")
   (help "Insert Disk 4 please...")
   (dest "Slam4")
)

(copyfiles
   (prompt "Copying files from Disk 4")
   (help "We're copying files.")
   (source "Slam4:")
   (dest fullname)
   (pattern "Space#?")
)

(complete 90)

(textfile
   (prompt "Hello!")
   (help "mmm...")
   (dest (cat fullname "/HD"))
)

(complete 100)
