home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -screenplay- / hd_installers / moktar / install_moktar next >
Text File  |  1998-04-23  |  3KB  |  107 lines
  1.  
  2. ;try to figure out a place where the user usually installs his games
  3. (if (exists "Games:" (noreq) )
  4.     (set @default-dest "Games:")
  5.     (if (exists "SYS:Games" (noreq) )
  6.         (set @default-dest "SYS:Games")
  7.         (if (exists "Work:Games" (noreq) )
  8.             (set @default-dest "Work:Games")
  9.             (if (exists "JEUX:" (noreq) )
  10.                (set @default-dest "JEUX:")
  11.                (set @default-dest "SYS:")
  12.             )
  13.         )
  14.     )
  15. )
  16.  
  17. ;    (message ("\"%s %s\"" (tackon @icon "patchexe") (tackon @default-dest "RoboCod") ))
  18. ;    (message ("\"xfddecrunch %s\"" (tackon @default-dest "RoboCod") ))
  19.  
  20. (set GameDir @app-name)
  21.  
  22.  
  23.  
  24. ;ask the user to select a directory to install the game into
  25. (set default-dest
  26.      (tackon (askdir (prompt "Où desirez vous que " @app-name " soit installé?\n"
  27.                              "Un tiroir nommé " GameDir " sera crée.")
  28.                      (help @askdir-help)
  29.                      (default @default-dest)
  30.              )
  31.      GameDir
  32.      )
  33. )
  34.  
  35. (set #icontype
  36.     (askchoice
  37.         (prompt "Quelle icone désirez-vous installer")
  38.         (help    @askoptions-help)
  39.         (choices
  40.            "8 couleurs (MWB)"
  41.            "16 couleurs (ROMIcons)"
  42.         )
  43.     )
  44. )
  45.  
  46. (set @default-dest default-dest)
  47.  
  48. ;    create the selected directory
  49. (makedir @default-dest
  50.          (infos)
  51. )
  52.  
  53.  
  54.     ;copy all extra files to this directory
  55.  
  56.         (copyfiles (source "moktarhd.readme")
  57.                    (dest @default-dest)
  58.            (infos)
  59.         )
  60.  
  61. (if (= 0 #icontype) (set #iconname "Moktar.icon_8") (set #iconname "Moktar.icon_16") )
  62.  
  63.  
  64.         (copyfiles (source #iconname)
  65.                    (dest @default-dest)
  66.            (newname "Moktar.info")
  67.         )
  68.  
  69.         (copyfiles (source "Moktar")
  70.                    (dest @default-dest)
  71.         )
  72.  
  73.  
  74. (askdisk
  75.         (prompt ("\n\n\n\n\n\nInsérez le disque de %s dans un lecteur" @app-name) )
  76.     (dest        "Zou_zou_zou_zou_zou_zoubidaaa")
  77.     (help        "Insérez le disque dans un lecteur\nou ça risque de trainer")
  78. )
  79.  
  80. (copyfiles (source "Zou_zou_zou_zou_zou_zoubidaaa:")
  81.            (dest @default-dest)
  82.        (pattern "#?")
  83.            (files)
  84. )
  85.  
  86.         (message "\n\n\n\n\n\nJe vais decompacter et modifier l'exécutable")
  87.  
  88.     (if
  89.  
  90.         (= 0 (run ("xfddecrunch >NIL: %s" (tackon @default-dest "main")  )) )
  91.         ("")
  92.         (abort "Installez XFDDecrunch d'abord\n\n(util/pack/XFDDecrunch.lha sur aminet)")
  93.     )
  94.  
  95. ;        (message ("%s %s" (tackon @icon "patchexe") (tackon @default-dest "main") ))
  96.  
  97.     (if
  98.  
  99.         (= 0 (run ("patchexe %s" (tackon @default-dest "main") )) )
  100.         ("")
  101.         (abort "Impossible d'exécuter patchexe!!")
  102.     )
  103.  
  104.  
  105.  
  106.  
  107.