home *** CD-ROM | disk | FTP | other *** search
/ CD Action 48 / cdactioncoverdisc482000.iso / Bonus / bon.exe / pascal / Extra / xengine.exe / RCDATA / SCRIPT
Text File  |  2000-03-24  |  923b  |  109 lines
  1. MAIN
  2. {
  3.   Dialog MAINDLG
  4. }
  5.  
  6. MAINDLG:INIT
  7. {
  8.   SetText $104,"%%D"
  9. }
  10.  
  11. MAINDLG:$101
  12. {
  13.   SetPath $104
  14.   SetText $113,"Extracting"
  15.   Mask "*.*"
  16.   Disable $101
  17.   Disable $102
  18.   Disable $103
  19.   Extract $114
  20.   EndDialog
  21. }
  22.  
  23. MAINDLG:$102
  24. {
  25.   Exit
  26. }
  27.  
  28. MAINDLG:$103
  29. {
  30.   BrowsePath "Select destination folder"
  31.   SetText $104,"%%D"
  32. }
  33.  
  34. ASKVOLUME:INIT
  35. {
  36.   SetText $104,"%%A"
  37. }
  38.  
  39. ASKVOLUME:$101
  40. {
  41.   SetArcName $104
  42.   EndDialog
  43. }
  44.  
  45. ASKVOLUME:$102
  46. {
  47.   Exit
  48. }
  49.  
  50. ERRARCHIVE:INIT
  51. {
  52.   SetText $113,"%%A"
  53. }
  54.  
  55. ERRARCHIVE:$101
  56. {
  57.   EndDialog
  58. }
  59.  
  60. ERRARCHIVE:$102
  61. {
  62.   Exit
  63. }
  64.  
  65. ERRCREATE:INIT
  66. {
  67.   SetText $113,"%%D%%F"
  68. }
  69.  
  70. ERRCREATE:$101
  71. {
  72.   EndDialog
  73. }
  74.  
  75. ERRCREATE:$102
  76. {
  77.   Exit
  78. }
  79.  
  80. ERRCRC:INIT
  81. {
  82.   SetText $113,"%%F"
  83. }
  84.  
  85. ERRCRC:$101
  86. {
  87.   EndDialog
  88. }
  89.  
  90. ERRCRC:$102
  91. {
  92.   Exit
  93. }
  94.  
  95. ERRWRITE:$101
  96. {
  97.   EndDialog
  98. }
  99.  
  100. ERRWRITE:$102
  101. {
  102.   Exit
  103. }
  104.  
  105. ERRMEMORY:$101
  106. {
  107.   Exit
  108. }
  109.