home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -readerstuff- / richard_burke / scripts / dmsmakerenk_v2.1 < prev    next >
Text File  |  1998-05-02  |  5KB  |  202 lines
  1. Resident >NIL: C:RequestChoice PURE
  2. Resident >NIL: C:RequestFile PURE
  3. Resident >NIL: C:RequestString PURE
  4.  
  5. ; $VER: DMSMakerEnk v2.1 (17.7.97) Richard Burke
  6.  
  7. lab Start
  8. unset pas
  9. unset pass
  10. unset pass1
  11. unset pas1
  12.  
  13. which DMS all >ENV:wDMS
  14.  
  15. RequestChoice >ENV:Choice "Welcome!" "Welcome to the DMSMaker! Choose an action" "Crunch" "Decrunch" "Repack" "View" "Test" "Quit"
  16.  
  17. if $Choice EQ 1
  18.     lab Dev
  19.     RequestFile >ENV:Cr DRAWERSONLY TITLE "Choose DEVICE to crunch" POSITIVE "Crunch" NEGATIVE "Return to menu"
  20.     if WARN
  21.         skip Start BACK
  22.     endif
  23.     if NOT EXISTS $Cr
  24.         RequestChoice "! Error !" "DEVICE does not exist! Choose again!" "Okay"
  25.         skip Dev BACK
  26.     endif
  27.     RequestChoice >ENV:Mode1 "Crunch Mode" "Choose degree of crunching" "Best" "None" "Heavy1" "Heavy2" "Return to menu"
  28.     if $Mode1 EQ 0
  29.         skip Start BACK
  30.     endif
  31.     if $Mode1 EQ 1
  32.         echo "BEST" >ENV:Mode
  33.     endif
  34.     if $Mode1 EQ 2
  35.         echo "NONE" >ENV:Mode
  36.     endif
  37.     if $Mode1 EQ 3
  38.         echo "HEAVY1" >ENV:Mode
  39.     endif
  40.     if $Mode1 EQ 4
  41.         echo "HEAVY2" >ENV:Mode
  42.     endif
  43.     RequestFile >ENV:CrSv TITLE "Save crunched file as..." ACCEPTPATTERN "#?.dms" FILE ".dms" POSITIVE "Save" NEGATIVE "Return to menu"
  44.     if WARN
  45.         skip Start BACK
  46.     endif
  47.  
  48.     lab enk
  49.     RequestChoice >ENV:En "Encryption" "Do you wish to encrypt the FILE when saving?" "Yes" "No" "Return to menu"
  50.     if $En EQ 1
  51.         lab pa
  52.         set pass `RequestString "" "Type password:" INVISIBLE`
  53.         if "$pass" EQ "*$pass"        ;Cancel was pressed
  54.             skip NoEnk
  55.         endif
  56.         set pass1 `RequestString "" "Verify password:" INVISIBLE`
  57.         if $pass1 EQ $pass
  58.             $wDMS read $CrSv FROM $Cr CMODE $Mode ENCRYPT $Pass
  59.             if NOT ERROR
  60.                 RequestChoice "Encryption Successful" "File encrypted and crunched!" "Okay"
  61.             endif
  62.         else
  63.             RequestChoice "! Error !" "Password incorrect!*nTry again!" "Okay"
  64.             skip pa back
  65.         endif
  66.         if $En EQ 0
  67.             skip Start BACK
  68.         endif
  69.  
  70.         lab NoEnk
  71.         if $En EQ 2
  72.             $wDMS read $CrSv FROM $Cr CMODE $Mode
  73.         endif
  74.     endif
  75. endif
  76.  
  77. if $Choice EQ 2
  78.     lab Dec
  79.     RequestFile >ENV:De TITLE "Choose FILE to decrunch" ACCEPTPATTERN "#?.dms" POSITIVE "Decrunch" NEGATIVE "Return to menu"
  80.     if WARN
  81.         skip Start BACK
  82.     endif
  83.     if NOT EXISTS $De
  84.         RequestChoice "! Error !" "FILE does not exist! Choose again!" "Okay"
  85.         skip Dec BACK
  86.     endif
  87.     
  88.     lab DecDev
  89.     RequestFile >ENV:DeDev TITLE "Choose DEVICE to decrunch TO" DRAWERSONLY POSITIVE "Write" NEGATIVE "Return to menu"
  90.     if WARN
  91.         skip Start BACK
  92.     endif
  93.     if NOT EXISTS $DeDev
  94.         RequestChoice "! Error !" "DEVICE does not exist! Choose again!" "Okay"
  95.         skip DecDev BACK
  96.     endif
  97.  
  98.     lab DeEnk
  99.     RequestChoice >ENV:DeEnc "De-Encrypt" "Was FILE encrypted when saved? If unsure, read General Info*n on View -if it says ENCRYPTED, it's encrypted." "Yes" "No" "View" "Return to menu"
  100.     if $DeEnc EQ 0
  101.         skip Start BACK
  102.     endif
  103.     if $DeEnc EQ 1
  104.         lab pa1
  105.         set pas `RequestString "" "Type password:" INVISIBLE`
  106.         if "$pas" EQ "*$pas"
  107.             skip DeEnk back
  108.         endif
  109.         set pas1 `RequestString "" "Verify password:" INVISIBLE`
  110.         if $pas1 EQ $pas
  111.             RequestChoice "Password Successful" "Password verified!" "Okay"
  112.             $wDMS write $De TO $DeDev DECRYPT $Pas
  113.             if NOT ERROR
  114.                 RequestChoice "Decryption Successful" "File decrypted and decrunched!" "Okay"
  115.             else
  116.                 RequestChoice "! Error !" "Incorrect password!*nTry again!" "Okay"
  117.                 skip pa1 back
  118.             endif
  119.         endif
  120.     endif
  121.     if $DeEnc EQ 2
  122.         $wDMS write $De TO $DeDev
  123.     endif
  124.     if $DeEnc EQ 3
  125.         $wDMS view $De
  126.         skip DeEnk BACK
  127.     endif
  128. endif
  129.  
  130. if $Choice EQ 3
  131.     lab Rep
  132.     RequestFile >ENV:Re TITLE "Choose FILE to repack" ACCEPTPATTERN "#?.dms" POSITIVE "Repack" NEGATIVE "Return to menu" FILE ".dms"
  133.     if WARN
  134.         skip Start BACK
  135.     endif
  136.     if NOT EXISTS $Re
  137.         RequestChoice "! Error !" "FILE does not exist! Choose again!" "Okay"
  138.         skip Rep BACK
  139.     endif
  140.     RequestChoice >ENV:Mode1 "Crunch Mode" "Choose degree of crunching" "Best" "None" "Heavy1" "Heavy2" "Return to menu"
  141.     if WARN
  142.         skip Start BACK
  143.     endif
  144.     if $Mode1 EQ 1
  145.         echo "BEST" >ENV:Mode
  146.     endif
  147.     if $Mode1 EQ 2
  148.         echo "NONE" >ENV:Mode
  149.     endif
  150.     if $Mode1 EQ 3
  151.         echo "HEAVY1" >ENV:Mode
  152.     endif
  153.     if $Mode1 EQ 4
  154.         echo "HEAVY2" >ENV:Mode
  155.     endif
  156.     RequestFile >ENV:CrSv TITLE "Save repacked file as..." ACCEPTPATTERN "#?.dms" FILE ".dms" POSITIVE "Save" NEGATIVE "Return to menu"
  157.     if WARN
  158.         skip Start BACK
  159.     endif
  160.     $wDMS repack $Re TO $CrSv CMODE $Mode
  161. endif
  162.  
  163. if $Choice EQ 4
  164. lab View
  165.     RequestFile >ENV:V TITLE "Choose DMS FILE to view" POSITIVE "View" NEGATIVE "Return to menu" ACCEPTPATTERN "#?.dms" FILE ".dms"
  166.     if WARN
  167.         skip Start BACK
  168.     endif
  169.     if NOT EXISTS $V
  170.         RequestChoice "! Error !" "FILE does not exist! Choose again!" "Okay"
  171.         skip View BACK
  172.     endif
  173.     $wDMS view $V
  174. endif
  175.  
  176. if $Choice EQ 5
  177.     lab Test
  178.     RequestFile >ENV:Tst TITLE "Choose FILE to test" ACCEPTPATTERN "#?.DMS" POSITIVE "Test" NEGATIVE "Return to menu" FILE ".dms"
  179.     if WARN
  180.         skip Start BACK
  181.     endif
  182.     if NOT EXISTS $Tst
  183.         RequestChoice "! Error !" "FILE does not exist! Choose again!" "Okay"
  184.         skip Test BACK
  185.     endif
  186.     $wDMS test $Tst
  187. endif
  188.  
  189. if $Choice EQ 0
  190.     skip End
  191. endif
  192.  
  193. skip Start BACK
  194.  
  195. lab End
  196. if EXISTS ENV:Choice
  197.     delete ENV:Choice >NIL:
  198. endif
  199. if EXISTS ENV:wDMS
  200.     delete ENV:wDMS >NIL:
  201. endif
  202. quit