home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 27 / amigaformatcd27.iso / -screenplay- / hd_installers / silkworm / install-silkworm next >
Text File  |  1998-04-06  |  3KB  |  147 lines
  1. (set #CI_unit 0)
  2. (set #CI_drive ("DF%ld:" #CI_unit))
  3. (set #rip "abaddon")
  4. (set #dismount "dismount")
  5.  
  6.  
  7. ;----------------------------
  8.  
  9.  
  10. (procedure R_Install
  11. (
  12. (set @default-dest
  13. (askdir
  14.     (prompt ("Where should %s installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  15.     (help @askdir-help)
  16.     (default @default-dest)
  17.     (disk)
  18. )
  19. )
  20.  
  21. (set #dest (tackon @default-dest @app-name))
  22.  
  23.  
  24. (makedir #dest
  25.     (help @makedir-help)
  26.     (infos)
  27. )
  28. (makedir 
  29.   (tackon #dest "data")
  30.   (help @makedir-help)
  31. )
  32. (copyfiles
  33.     (help @copyfiles-help)
  34.     (source "SilkwormHD")
  35.     (dest #dest)
  36.     (infos)
  37. )
  38.  
  39. (copyfiles
  40.     (help @copyfiles-help)
  41.     (source "slkwrmhd.readme")
  42.     (dest #dest)
  43.     (infos)
  44. )
  45.     (makeassign    #rip #dest)
  46.  
  47.     (message ("\nReady to rip %s data?\n\nThe screen will go black" @app-name))
  48.  
  49.     (if
  50.         (= 0 (run ("silk2files NOCACHES QUIET")))
  51.         ("")
  52.         (abort "\"silk2files\" must be in your PATH !")
  53.     )
  54.     (makeassign    #rip)
  55.  
  56. ))
  57. (procedure S_rename #ASRC #ADEST
  58. (
  59.     (set #TSRC  (tackon @default-dest #ASRC))
  60.     (set #TDEST (tackon #datdir #ADEST))
  61.  
  62.     (rename #TSRC #TDEST)
  63. ))
  64.  
  65. (procedure Update_Installed
  66. (
  67.     (set @default-dest
  68.         (askdir
  69.             (prompt ("Where is the installed version of %s located?\n" @app-name))
  70.             (help @askdir-help)
  71.             (default @default-dest)
  72.             (disk)
  73.         )
  74.     )
  75.     (set #datdir  (tackon @default-dest "data/"))
  76.  
  77. (copyfiles
  78.     (help @copyfiles-help)
  79.     (source "SilkwormHD")
  80.     (dest @default-dest)
  81.     (infos)
  82. )
  83.  
  84. (copyfiles
  85.     (help @copyfiles-help)
  86.     (source "slkwrmhd.readme")
  87.     (dest @default-dest)
  88.     (infos)
  89. )
  90. (makedir 
  91.   (tackon @default-dest "data")
  92.   (help @makedir-help)
  93. )
  94.     (S_rename "intro.pic" "00.slk")
  95.     (S_rename "main.exe" "01.slk")
  96.     (S_rename "bkg0.bin" "50.slk")
  97.     (S_rename "bkg1.bin" "54.slk")
  98.     (S_rename "bkg2.bin" "58.slk")
  99.     (S_rename "bkg3.bin" "5c.slk")
  100.     (S_rename "bkg4.bin" "60.slk")
  101.     (S_rename "bkg5.bin" "64.slk")
  102.     (S_rename "bkg6.bin" "68.slk")
  103.     (S_rename "bkg7.bin" "6c.slk")
  104.     (S_rename "bkg8.bin" "70.slk")
  105.  
  106. ))
  107.  
  108. ;try to figure out a place where the user usually installs his games
  109. (if (exists "Games:" (noreq) )
  110.     (set @default-dest "Games:")
  111.     (if (exists "SYS:Games" (noreq) )
  112.         (set @default-dest "SYS:Games")
  113.         (if (exists "Work:Games" (noreq) )
  114.             (set @default-dest "Work:Games")
  115.             (if (exists "JEUX:" (noreq) )
  116.                (set @default-dest "JEUX:")
  117.                (set @default-dest "SYS:")
  118.             )
  119.         )
  120.     )
  121. )
  122.  
  123. (message "\n\n\nThis loader needs the JST program (NOT INCLUDED)\n to be copied in your path\n\n(if you don't have it already)\n\nJST is available from aminet (game/patch)")
  124.  
  125.  
  126. ;----------------------------
  127.  
  128.  
  129. (if (= 0 (askbool
  130.             (prompt
  131.                 (cat "\nWould you like to update a previousely"
  132.                      " installed version or install from scratch?"
  133.                 )
  134.             )
  135.             (choices
  136.                     "Update"
  137.                     "Install from scratch")
  138.             (help "Sorry no help available")
  139.          )
  140.     )
  141.     (R_Install)
  142.     (Update_Installed)
  143. )
  144.  
  145. (exit)
  146.  
  147.