home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / CDTools / Players / HippoPlayer / Support / HiPPack12a.lha / HipPack / HipPack next >
Text File  |  1996-11-16  |  4KB  |  164 lines
  1. . $VER: HipPack 1.2a (16.11.96) © 1996 Jari Karjalainen <jaka@sci.fi>
  2. .key File1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,Work/K,ALL/S
  3. .bra {
  4. .ket }
  5. .def work eimitään
  6. .def File1 eimitään
  7. set mods "#?.mod|mod.#?|#?.s3m|s3m.#?|#?.xm|xm.#?|#?.med|med.#?|#?.mtm|mtm.#?"
  8. set pack "#?.lha|#?.lzh|#?.lzx|#?.zip|#?.arj|#?.rar"
  9. set hippackver "HipPack 1.2a © 1996 Jari Karjalainen"
  10. if {work} eq eimitään
  11.   if exists env:hpwork
  12.   set work "$hpwork"
  13.   else
  14.   set work T:
  15.   endif
  16. else
  17. set work "{work}"
  18. endif
  19. if {all}
  20. set all yes
  21. else
  22.   if "$hpplay" eq all
  23.   set all yes
  24.   endif
  25. endif
  26. if not exists env:hpckdef
  27. setenv hpckdef SYS:
  28. endif
  29. lab alku
  30. unset end
  31. setenv nro 1
  32. if not "{File1}" eq EiMitään
  33. echo "{File1} {2} {3} {4} {5} {6} {7} {8} {9} {10} {11} {12} {13} {14} {15} {16}" >env:file0
  34. else
  35. requestfile title="Select archive(s) or/and module(s)..." "$hpckdef" multiselect positive=HiP acceptpattern="($pack|$mods)" >env:file0
  36. endif
  37. failat 11
  38. if "$file0" eq "" >nil:
  39.   if not error
  40.   skip end
  41.   endif
  42. endif
  43. tr <env:file0 >env:h2
  44. failat 21
  45. list $h2 lformat %p >nil:
  46. if fail
  47.   if exists c:requestchoice
  48.   requestchoice >nil: "$hippackver" "Hmm jotain meni pieleen...*n*nEsim. tiedostonimissä saattaa olla*nvälilyöntejä tai erikoismerkkejä,*njotka eivät oikein ole hyvä juttu*nmuutenkaan." "No pahus"
  49.   else
  50.   echo "$hippackver*nHmm jotain meni pieleen...*n*nEsim. tiedostonimissä saattaa olla välilyöntejä tai erikoismerkkejä,*njotka eivät oikein ole hyvä juttu muutenkaan."
  51.   endif
  52. skip end
  53. else
  54. list "$h2" lformat "%p" >env:hpckdef
  55. endif
  56. copy >nil: env:hpckdef envarc:
  57. search >nil: env:h2 ($mods) pattern
  58. if not warn
  59. Hip `search env:h2 ($mods) pattern nonum`
  60. waithip
  61. endif
  62. search >nil: env:h2 ($pack) pattern
  63. if not warn
  64. search env:h2 ($pack) pattern nonum >t:h.0
  65. type t:h.0 >t:h.p number
  66. else
  67. set end no
  68. skip end
  69. endif
  70. lab etsi
  71. search >nil: t:h.p "  $nro "
  72. if not warn
  73. setenv file `search t:h.p "   $nro " quick nonum`
  74. setenv file `echo "$file" first 3`
  75. setenv nro `eval $nro+1`
  76. else
  77.   if "$all" eq yes
  78.   set allmods yes
  79.   skip playpack
  80.   endif
  81. set end no
  82. skip end
  83. endif
  84. lab chkpack
  85. setenv packf "$file"
  86. if exists "$Work"
  87. assign >nil: hipwr: "$Work"
  88. else
  89. assign >nil: hipwr: T:
  90. endif
  91. if not exists hipwr:tmpdir{$$}
  92. makedir hipwr:tmpdir{$$}
  93. endif
  94. failat 21
  95. search >nil: env:packf .(lha|lzh) pattern
  96. if not warn
  97. lha -qx2 e "$file" hipwr:tmpdir{$$}/
  98. else
  99.   search >nil: env:packf .zip
  100.   if not warn
  101.   unzip -qoj "$file" -d hipwr:tmpdir{$$}/
  102.   else
  103.     search >nil: env:packf .lzx
  104.     if not warn
  105.     lzx -q1x0 e "$file" hipwr:tmpdir{$$}/
  106.     else
  107.       search >nil: env:packf .arj
  108.       if not warn
  109.       assign >nil: hippsrc: ""
  110.       cd hipwr:tmpdir{$$}/
  111.       unarj >nil: e "$file"
  112.       cd hippsrc:
  113.       assign >nil: hippsrc: remove
  114.       else
  115.         search >nil: env:packf .rar
  116.         if not warn
  117.         assign >nil: hippsrc: ""
  118.         cd hipwr:tmpdir{$$}/
  119.         unrar >nil: e -o+ "$file"
  120.         cd hippsrc:
  121.         assign >nil: hippsrc: remove
  122.         else
  123.         set end no
  124.         skip end
  125.         endif
  126.       endif
  127.     endif
  128.   endif
  129. endif
  130. if "$all" eq yes
  131. skip back etsi
  132. endif
  133. lab playpack
  134. Hip `list hipwr:tmpdir{$$}/($mods) lformat "*"%p%n*""`
  135. waithip
  136. delete >nil: hipwr:tmpdir{$$} all
  137. assign >nil: hipwr: remove
  138. if "$all" eq yes
  139.   if $allmods eq yes
  140.   unset $allmods
  141.   set end no
  142.   skip end
  143.   endif
  144. endif
  145. skip back etsi
  146. lab end
  147. unsetenv file
  148. unsetenv packf
  149. delete >nil: t:h.?
  150. unsetenv nro
  151. unsetenv h2
  152. unsetenv file0
  153. unsetenv file
  154. if $end eq no
  155.   if "{File1}" eq eimitään
  156.   skip back alku
  157.   endif
  158. endif
  159. unset work
  160. unset all
  161. unset mods
  162. unset pack
  163. run >nil: delete >nil: t:command-??-t{$$}
  164.