(set #Name                                              "Roulette'98")
(set @default-dest "SYS:")

;(set Asynciolib "libs/Asyncio.library")
(set #Roulette-location
(cat "Select location to put Roulette directory:"
(cat "\nA new Drawer 'Roulette'98' will be made."
)))

(set #copying-Asyncio  "Copying AsyncIO.library to Libs:...")

(set #copying-files
(cat "Copying files..."
))

(set #help-askbool
(cat "Please select Yes to install the file(s) "
         "or select No so they are not installed. "
))

(copylib
        (prompt "\n" #copying-Asyncio)
        (help @copylib-help)
        (source "Roulette '98:libs/asyncio.library")
        (dest "Libs:")
        (confirm)
)
(set dest2      (askdir (prompt #Roulette-location)
                        (default @default-dest)
                        (help @askdir-help)
                        )
)
(set #startup-prompt
(cat "Adding Assign Casino: in user-startup"
))
(Startup "Casino" (prompt #startup-prompt)
(help @startup-help)
(command(cat "Assign Casino: " (tackon dest2 "Roulette'98")))
 )
(set dest1 (tackon dest2 "Roulette'98"))
(makedir dest1 (infos))

(set dest3 (tackon dest2 "Roulette'98/CTools"))
(makedir dest3 (infos))

(set dest4 (tackon dest2 "Roulette'98/Data"))
(makedir dest4 (infos))

(set dest5 (tackon dest2 "Roulette'98/Pics"))
(makedir dest5 (infos))

(set dest6 (tackon dest2 "Roulette'98/Docs"))
(makedir dest6 (infos))

(set dest7 (tackon dest2 "Roulette'98/SoundFX"))
(makedir dest7 (infos))

(copyfiles
        (source "Roulette '98:")
        (dest dest1)
        (choices "READMEFIRST!")
        (infos)
        (help @copyfiles-help)
)
(tooltype
        (help @tooltype-help)
        (dest (tackon dest1 "READMEFIRST!"))
        (noposition)
        (setdefaulttool "more")
) 

(copyfiles
        (source "Roulette '98:")
        (dest dest3)
        (choices "Ctools/Play16")
        (infos)
        (help @copyfiles-help)
)


(copyfiles
        (source "Roulette '98:")
        (dest dest4)
        (choices "Data/Sound.dat")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest4)
        (choices "Data/Vinger21.dat")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest5)
        (choices "Pics/Tafel6.iff")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest5)
        (choices "Pics/agame.iff")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest5)
        (choices "Pics/athome.iff")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest5)
        (choices "Pics/entercasino.iff")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest5)
        (choices "Pics/intro1.iff")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest5)
        (choices "Pics/music.iff")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest5)
        (choices "Pics/border.iff")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest5)
        (choices "Pics/ultima.iff")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest6)
        (choices "Docs/Roulette.Guide")
        (infos)
        (help @copyfiles-help)
)

(copyfiles
        (source "Roulette '98:")
        (dest dest6)
        (choices "Docs/Image2.iff")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest6)
        (choices "Docs/Casino.readme")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest7)
        (choices "SoundFX/Nom.wav")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest7)
        (choices "SoundFX/Win.wav")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest7)
        (choices "SoundFX/End.wav")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest7)
        (choices "SoundFX/T.wav")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest7)
        (choices "SoundFX/Wacky.wav")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest7)
        (choices "SoundFX/applaud.wav")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette '98:")
        (dest dest7)
        (choices "SoundFX/mod.ad")
        (infos)
        (help @copyfiles-help)
)
(copyfiles
        (source "Roulette2'98:")
        (dest dest1)
        (choices "Roulette '98")
        (infos)
        (help @copyfiles-help)
)
(message "Reset now to make assign effective.")
(set @default-dest dest1)