home *** CD-ROM | disk | FTP | other *** search
- ;$VER:Script generated by ScriptMaker 2.0 for Croisière pour un cadavre
- ; Translation by JF Fabre
-
- (complete 0)
- (set @default-dest "Travail:")
-
- ; Texts
-
- (set #Intro-Txt
- (cat "\n\nWelcome to \n"
- "Croisière pour un cadavre\n"
- "Installation sur disque dur\n\n\n\n"
- "Ce script a été généré avec Script Maker 2.0\n\n"
- ))(set #Warning-Txt
- (cat "Attention !\n\n\n"
- "Croisière pour un cadavre nécessite 4.2 MB d'espace disque \n\n"
- "Pensez-y avant de saturer votre disque...\n\n"
- ))(set #Path-Txt
- (cat "Choisissez le chemin où le jeu doit être installé. "
- "Un répertoire Croisiere y sera crée."
- ))(set #Path-Help
- (cat "\nCette section vous permet de choisir le "
- "répertoire destination pour installer Croisière pour un cadavre. \n\n"
- "Un répertoire Croisiere y sera crée.\n\n"
- "Le répertoire par défaut est Travail:\n\n\n"
- @askdir-help
- ))
- (set Assign-Help-Txt
- (cat "\nUn script situé dans le répertoire destination fera "
- "les assignations. La User-Startup sera modifiée en conséquence "
- "pour appeler ce script.\n\n\n"
- @startup-help
- ))
- ; Main
-
- (message #Intro-Txt)
- (message #Warning-Txt)
- (set target
- (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
- ))
- (set @default-dest target)
- (copyfiles
- (prompt "Copie vers " #target)
- (help @copy-files-help)
- (source "Croisiere1:")
- (dest (tackon target "Croisiere"))
- (pattern "#?")
- )
- (complete 20)
- (copyfiles
- (prompt "Copie vers " #target)
- (help @copy-files-help)
- (source "Croisiere2:")
- (dest (tackon target "Croisiere"))
- (pattern "#?")
- )
- (complete 40)
- (copyfiles
- (prompt "Copie vers " #target)
- (help @copy-files-help)
- (source "Croisiere3:")
- (dest (tackon target "Croisiere"))
- (pattern "#?")
- )
- (complete 60)
- (copyfiles
- (prompt "Copie vers " #target)
- (help @copy-files-help)
- (source "Croisiere4:")
- (dest (tackon target "Croisiere"))
- (pattern "#?")
- )
- (complete 80)
- (copyfiles
- (prompt "Copie vers " #target)
- (help @copy-files-help)
- (source "Croisiere5:")
- (dest (tackon target "Croisiere"))
- (pattern "#?")
- )
- (complete 100)
-