home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Game Guide / AmigaGameGuide_CD.iso / Amiga / Game-Installer / WHD_Installers / Games_G-I / InsectsInSpaceHD / Install < prev    next >
Text File  |  1977-12-31  |  3KB  |  138 lines
  1. ;****************************
  2.  
  3. (set #sub-dir "")        ;sub directory containing data files
  4. (set #readme-file "InsectsInSpace.readme") ;name of readme file
  5.  
  6. ;----------------------------
  7. ; Checks if given program is reachable via the path
  8. ; if not abort install
  9. ; IN:  #program - to check
  10. ; OUT: -
  11.  
  12. (procedure P_chkrun
  13.   (if
  14.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  15.     ("")
  16.     (abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
  17.   )
  18. )
  19.  
  20. (if
  21.   (exists #readme-file)
  22.   (if
  23.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  24.     ("")
  25.     (run ("SYS:Utilities/More %s" #readme-file))
  26.   )
  27. )
  28.  
  29. (set #program "WHDLoad")
  30. (P_chkrun)
  31.  
  32. (set @default-dest
  33.   (askdir
  34.     (prompt ("Where should \"%s\" installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  35.     (help @askdir-help)
  36.     (default @default-dest)
  37.     (disk)
  38.   )
  39. )
  40. (set #dest (tackon @default-dest @app-name))
  41. (if
  42.   (exists #dest)
  43.   (
  44.     (set #choice
  45.       (askbool
  46.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted ?" #dest))
  47.         (default 1)
  48.         (choices "Delete" "Skip")
  49.         (help @askbool-help)
  50.       )
  51.     )
  52.     (if
  53.       (= #choice 1)
  54.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  55.     )
  56.   )
  57. )
  58. (makedir #dest
  59.   (help @makedir-help)
  60.   (infos)
  61. )
  62.  
  63. (copyfiles
  64.   (help @copyfiles-help)
  65.   (source ("%s.slave" @app-name))
  66.   (dest #dest)
  67. )
  68.  
  69.  
  70. (if
  71.   (exists ("%s.newicon" @app-name))
  72.   (set #icon
  73.     (askchoice
  74.       (prompt "\nWhich icon do you like to install ?\n")
  75.       (default 0)
  76.       (choices "Normal" "NewIcon")
  77.       (help @askchoice-help)
  78.     )
  79.   )
  80.   (set #icon 0)
  81. )
  82. (select #icon
  83.   (set #icon ("%s.inf" @app-name))
  84.   (set #icon ("%s.newicon" @app-name))
  85. )
  86. (copyfiles
  87.   (help @copyfiles-help)
  88.   (source #icon)
  89.   (newname ("%s.info" @app-name))
  90.   (dest #dest)
  91. )
  92. (if
  93.   (exists #readme-file)
  94.   (copyfiles
  95.     (help @copyfiles-help)
  96.     (source #readme-file)
  97.     (dest #dest)
  98.     (infos)
  99.   )
  100. )
  101.  
  102. (if
  103.   (exists ("%s.info" #readme-file))
  104.   (copyfiles
  105.     (help @copyfiles-help)
  106.     (source ("%s.info" #readme-file))
  107.     (dest #dest)
  108.   )
  109. )
  110.  
  111. (if
  112.   (= #sub-dir "")
  113.   ("")
  114.   (
  115.     (set #dest (tackon #dest #sub-dir))
  116.     (makedir #dest
  117.       (help @makedir-help)
  118.     )
  119.   )
  120. )
  121.  
  122. (copyfiles
  123.   (help @copyfiles-help)
  124.   (source "RipInsects.slave")
  125.   (dest #dest)
  126. )
  127.  
  128. (copyfiles
  129.   (help @copyfiles-help)
  130.   (source "loader.dat")
  131.   (dest #dest)
  132. )
  133.  
  134. (message "Please insert Insects in Space disk in DF0:\nRipper will create and encrypt all needed data.")
  135.  
  136. (run ("cd \"%s\"\nwhdload Ripinsects.slave WriteDelay=10\nDelete RipDisk1.slave loader.dat ALL QUIET FORCE" #dest))
  137.  
  138. (exit)