home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / MagicWB / DAT-GWB2.DMS / in.adf / Graphic_Workbench < prev   
Encoding:
Text File  |  1995-10-20  |  10.4 KB  |  166 lines
  1.  (SET DRIVE (getassign "dh0" 'd' )) ; 1st partition name
  2. (SET DRIVE1 (getassign "dh1" 'd' )) ; 2nd Partition Name
  3. (SET DRIVE2 (getassign "dh2" 'd' )) ; 3rd Partition Name
  4. (SET DRIVE3 (getassign "dh3" 'd' )) ; 4th Partition Name
  5. (SET DRIVE4 (getassign "dh4" 'd' )) ; 5th Partition Name
  6. (run"delete ram: all")
  7. (SET NEWLINE "\n")
  8. (SET SYS_FREE (GETDISKSPACE "SYS:"))
  9. (SET SYS_FREE (/ SYS_FREE 1024 ))
  10. (IF(< SYS_FREE 150)
  11. (message"THE MACKS CONSPIRACY"
  12. " \n \n \n YOU HAVE ONLY GOT "SYS_FREE" KB FREE IN YOUR WORKBENCH:"
  13. " \n YOU NEED 150 KB TO INSTALL T.M.C  BACKDROPS & ICONS "
  14. " \n PLEASE TRY REMOVING SOMETHING OUT OF WORKBENCH TO GIVE SOME ROOM \n "
  15. " \n TRUST US IT WILL BE WORTH THE EFFORT "
  16. " \n \n click proceed to exit program")
  17. )
  18. (if(< SYS_FREE 150)
  19.    (EXIT (quiet))
  20. )
  21. (if (exists "sys:Prefs/T.M.C/WorkBench.info")(SET NEW_USER "NO")(SET NEW_USER "YES"))
  22. (if(= DRIVE "")
  23. (message "YOU SHOULD ABORT & COPY BOTH THESE DISK FIRST \n \n"
  24. "A Slight Change Has To Be Made To The Program As Your System "
  25. "Doesn't Have Partition Names dh0: dh1: etc \n \n "
  26. " CLICK PROCEED TO CONTINUE INSTRUCTIONS WILL BE GIVEN ON THE NEXT PAGE ")
  27. )
  28. (if(= DRIVE "")
  29. (MESSAGE " "
  30. "1 CLICK PROCEED a small window will open below \n "
  31. "2 ON THE FIRST LINE OF THE WINDOZE95 BELOW DELETE THE"
  32. " LETTERS DH0 BUT NOT THE QUOTATION MARKS AND ENTER THE"
  33. " NAME OF YOUR MAIN PARTITION THE ONE THE COMPUTER BOOTS FROM e.g. jh0 or hd0 NOT THE PET NAME LIKE WORKBENCH or BOOTBENCH ect \n "
  34. "3 DO THE SAME ON THE FOLLOWING LINES FOR ANY OTHER PARTITIONS e.g. jh1,jh2,jh3, etc"
  35. " \n After All Partition Names Have Been Entered Press The esc Key Then The x Key Then Enter \n "
  36. " Do The Same To The Next WINDOZE95 That Appears Run The Program Again And All Should Be Ok If You Got It Right If Not Read The GWb.guide On The Program Disk")
  37. )
  38. (if(= DRIVE "")(run"ed window=con:0/200/640/65/TMC_SHELL GW_Data.Disk:Graphic_Workbench"))
  39. (if(= DRIVE "")(run"ed window=con:0/200/640/65/TMC_SHELL Graphic_Workbench:tmcfiles/tmc/re-install_old_icons_etc"))
  40. (if(= DRIVE "")(exit(quiet)))
  41. (set Options
  42. (askoptions
  43. (prompt " DEMO: data disk \n \n "
  44. " Please Select \n VIEW SLIDESHOW or CONTINUE WITH PROGRAM \n "
  45. "Then Press Proceed \n \n Please note if your graphics mem is below 1 meg "
  46. " \n Press the help button before proceeding ")
  47. (help " 1. Have you tried pressing both mouse buttons to \n switch off"
  48. " music & save some memory this alone could save you 200kb of memory "
  49. " \n \n 2. To save more memory try switching off applications in your "
  50. "wbstartup drawer ") ;\n \n \n If you can't save enough memory don't worry as"
  51. ; " it only means you might not see all the slideshow ")
  52. (choices
  53. "View SlideShow"
  54. "Continue With Program"
  55. )
  56. (default 0)
  57. )
  58. )
  59. (if (= OPTIONS 1)
  60. (
  61. (run"delete ram:#?")
  62. ;(run"lha e GW_Data.Disk:backdrops/picsa.lha *#? to ram:")
  63. (run "lha -q -x0 e gw_data.disk:backdrops/pic1.lha ram:")
  64. (run"ppshow ram:babewatch nocycle")(run"delete ram:babewatch")
  65.  
  66. (run "lha -q -x0 e gw_data.disk:backdrops/pic2.lha ram:")
  67. (run"ppshow ram:doom")(run"delete ram:doom")
  68.  
  69. (run "lha -q -x0 e gw_data.disk:backdrops/pic3.lha ram:")
  70. (run"ppshow ram:jubilee")(run"delete ram:jubilee")
  71.  
  72. (run "lha -q -x0 e gw_data.disk:backdrops/pic4.lha ram:")
  73. (run"ppshow ram:nova")(run"delete ram:nova")
  74.  
  75. (run "lha -q -x0 e gw_data.disk:backdrops/pic5.lha ram:")
  76. (run"ppshow ram:slaineivory")(run"delete ram:slaineivory")
  77.  
  78. (run "lha -q -x0 e gw_data.disk:backdrops/pic6.lha ram:")
  79. (run"ppshow ram:the_journey")(run"delete ram:the_journey")
  80.  
  81. (run "lha -q -x0 e gw_data.disk:backdrops/pic7.lha ram:")
  82. (run"ppshow ram:twistedcity")(run"delete ram:twistedcity")
  83.  
  84. (run "lha -q -x0 e gw_data.disk:backdrops/pic8.lha ram:")
  85. (run"ppshow ram:vecellio")(run"delete ram:vecellio")
  86.  
  87. (run "lha -q -x0 e gw_data.disk:backdrops/pic9.lha ram:")
  88. (run"ppshow ram:Windoze95 nocycle")(run"delete ram:Windoze95")
  89.  
  90. (run "lha -q -x0 e gw_data.disk:backdrops/pic10.lha ram:")
  91. (run"ppshow ram:x-files")(run"delete ram:x-files")))
  92. (if(= NEW_USER "YES")
  93. (message "AS THIS IS THE FIRST TIME YOU HAVE USED THIS PROGRAM "NEWLINE
  94. "WE ARE GOING TO SAVE YOUR OLD ICONS etc "NEWLINE
  95. "SO YOU CAN RE-INSTALL THEM AT A LATER DATE \n \n \n"
  96. "This puts a utility in your SYS:Partition so \n"
  97. "if you find you don't like our backdrops & icons then this will retrieve "
  98. "your old icons & System configurations \n \n"
  99. "CLICK PROCEED NOW AND \n \n BODLY GO WHERE NO MAN HAS BEEN BEFORE")
  100. )
  101. (if(= NEW_USER"YES")(copyfiles(source"Ram:TMC")(dest"sys:")(pattern"Re-Install#?")))
  102. (IF(= NEW_USER"YES")(copyfiles(source"sys:DISK.INFO")(DEST"sys:PREFS/T.M.C")(NEWNAME"WorkBench.Info")))
  103. (if(= NEW_USER"YES")(if(<> DRIVE1 "")(copyfiles(source(TACKON DRIVE1"disk.Info"))(dest"sys:prefs/T.M.C")(NEWNAME"Work.Info"))))
  104. (if(= NEW_USER"YES")(if(<> DRIVE2 "")(copyfiles(source(TACKON DRIVE2"disk.info"))(dest"sys:prefs/T.M.C")(NEWNAME"Pastimes.Info"))))
  105. (if(= NEW_USER"YES")(if(<> DRIVE3 "")(copyfiles(source(TACKON DRIVE3"disk.info"))(dest"sys:prefs/T.M.C")(NEWNAME"Games.Info"))))
  106. (IF(= NEW_USER"YES")(if(<> DRIVE4 "")(copyfiles(source(TACKON DRIVE4"disk.info"))(dest"sys:prefs/T.M.C")(NEWNAME"Default.Info"))))
  107. (if(= NEW_USER"YES")(if(exists"sys:prefs/env-archive/sys/def_Disk.Info")(copyfiles(source"sys:prefs/env-archive/sys/def_Disk.Info")(dest"sys:prefs/T.M.C"))))
  108. (if(= NEW_USER"YES")(if(exists"sys:prefs/env-archive/sys/def_Ramdisk.Info")(copyfiles(source"sys:prefs/env-archive/sys/def_Ramdisk.Info")(dest"sys:prefs/T.M.C"))))
  109. (if(= NEW_USER"YES")(if(exists"sys:Prefs/Env-Archive/Sys/Screenmode.Prefs")(copyfiles(source"sys:Prefs/env-archive/sys/screenmode.prefs")(dest"sys:prefs/T.M.C"))))
  110. (if(= NEW_USER"YES")(if(exists"sys:prefs/env-archive/sys/wbpattern.prefs")(copyfiles(source"sys:prefs/env-archive/sys/wbpattern.prefs")(dest"sys:prefs/T.M.C"))))
  111. (if(= NEW_USER"YES")(if(exists"sys:prefs/backdrop.pic")(copyfiles(source"sys:prefs/backdrop.pic")(dest"sys:prefs/T.M.C")(NEWNAME "TMC.pic"))))
  112. (if(= NEW_USER"YES")(if(exists"sys:WBstartup/WBverlauf")(copyfiles(source"sys:WBstartup/WBverlauf")(dest"sys:prefs/T.M.C"))))
  113. (if(= NEW_USER"YES")(if(exists"sys:WBstartup/WBverlauf.Info")(copyfiles(source"sys:WBstartup/WBverlauf.Info")(dest"sys:prefs/T.M.C"))))
  114. (if(= NEW_USER"YES")
  115. (if(exists"sys:Disk.Info")
  116. (copyfiles(source"Ram:TMC/clear.prefs")
  117. (dest"sys:prefs/T.M.C"))))
  118. (SET FIRST_Choice "4")
  119. (IF (= First_Choice 4
  120. )
  121. (
  122. (run"copy GW_Data.Disk:Backdrops/WBverlauf ram:")
  123. (run"copy Ram:TMC/Screenmode.prefs sys:prefs/env-archive/sys")
  124. (run"sys:prefs/wbpattern Ram:TMC/clear.prefs use")
  125. (set Options
  126. (askoptions
  127. (prompt "THE MACK'S CONSPIRACY \n Please Select One Backdrop Only \n Then Press Proceed")
  128. (help "Select one backdrop only by clicking on the box to the left of the backdrop you wish to try \n \n One box only should be selected \n \n Then press return")
  129. (choices"WINDOZE95""X-FILES""BABEWATCH""DOOM""JUBILEE""SLAINEIVORY""STARTREK NOVA""THE_JOURNEY""TWISTEDCITY""VECELLIO")(default 0)))
  130. (if (= OPTIONS 1)((run"lha e GW_Data.Disk:Backdrops/WINDOZE95.lha *#? to ram:")(run"lha e GW_Data.Disk:backdrops/Pic9.lha *WINDOZE95 to ram:")(copyfiles (source "ram:WINDOZE95")(dest "sys:prefs")(NEWNAME "backdrop.pic"))))
  131. (if (= OPTIONS 2)((run"lha e GW_Data.Disk:Backdrops/x-files.lha *#? to ram:")(run"lha e GW_Data.Disk:backdrops/Pic10.lha *x-files to ram:")(copyfiles (source "ram:x-files")(dest "sys:prefs")(NEWNAME "backdrop.pic"))))
  132. (if (= OPTIONS 4)((run"lha e GW_Data.Disk:Backdrops/babewatch.lha *#? to ram:")(run"lha e GW_Data.Disk:Backdrops/Pic1.lha *babewatch to ram:")(copyfiles (source "ram:babewatch")(dest "sys:prefs")(NEWNAME "backdrop.pic"))))
  133. (if (= OPTIONS 8)((run"lha e GW_Data.Disk:Backdrops/Doom.lha *#? to ram:")(run"lha e GW_Data.Disk:Backdrops/Pic2.lha *Doom to ram:")(copyfiles (source "ram:Doom")(dest "sys:prefs")(NEWNAME "backdrop.pic"))))
  134. (if (= OPTIONS 16)((run"lha e GW_Data.Disk:Backdrops/jubilee.lha *#? to ram:")(run"lha e GW_DAta.Disk:Backdrops/Pic3.lha *Jubilee to ram:")(copyfiles (source "ram:Jubilee")(dest "sys:prefs")(NEWNAME "backdrop.pic"))))
  135. (if (= OPTIONS 32)((run"lha e GW_Data.Disk:Backdrops/slaineivory.lha *#? to ram:")(run"lha e GW_Data.Disk:Backdrops/Pic5.lha *SlaineIvory to ram:")(copyfiles (source "ram:SlaineIvory")(dest "sys:prefs")(NEWNAME "backdrop.pic"))))
  136. (if (= OPTIONS 64)((run"lha e GW_Data.Disk:Backdrops/Nova.lha *#? to ram:")(run"lha e GW_Data.Disk:Backdrops/Pic4.lha *Nova to ram:")(copyfiles (source "ram:Nova")(dest "sys:prefs")(NEWNAME "backdrop.pic"))))
  137. (if (= OPTIONS 128)((run"lha e GW_Data.Disk:Backdrops/the_journey.lha *#? to ram:")(run"lha e GW_Data.Disk:Backdrops/Pic6.lha *The_Journey to ram:")(copyfiles (source "ram:The_Journey")(dest "sys:prefs")(NEWNAME "backdrop.pic"))))
  138. (if (= OPTIONS 256)((run"lha e GW_Data.Disk:Backdrops/twistedcity.lha *#? to ram:")(run"lha e GW_Data.Disk:Backdrops/Pic7.lha *TwistedCity to ram:")(copyfiles (source "ram:TwistedCity")(dest "sys:prefs")(NEWNAME "backdrop.pic"))))
  139. (if (= OPTIONS 512)((run"lha e GW_Data.Disk:Backdrops/vecellio.lha *#? to ram:")(run"lha e GW_Data.Disk:Backdrops/Pic8.lha *Vecellio to ram:")(copyfiles (source "ram:Vecellio")(dest "sys:prefs")(NEWNAME "backdrop.pic"))))
  140. (IF (= First_Choice 4)
  141. (
  142. (run"copy Ram:TMC/WBpattern.prefs sys:prefs/env-archive/sys")
  143. (if(exists"ram:all.info")(copyfiles(source"ram:all.info")(dest"ram:")(NEWNAME"Workbench.info")))
  144. (if(exists"ram:all.info")(copyfiles(source"ram:all.info")(dest"ram:")(NEWNAME"Work.info")))
  145. (if(exists"ram:all.info")(copyfiles(source"ram:all.info")(dest"ram:")(NEWNAME"Pastimes.info")))
  146. (if(exists"ram:all.info")(copyfiles(source"ram:all.info")(dest"ram:")(NEWNAME"Games.info")))
  147. (if(exists"ram:all.info")(copyfiles(source"ram:all.info")(dest"ram:")(NEWNAME"Default.info")))
  148. (if(exists"ram:all.info")(copyfiles(source"ram:all.info")(dest"ram:")(NEWNAME"Ram.info")))
  149. (IF(<> DRIVE "")(copyfiles(source"ram:workbench.info")(dest"sys:")(NEWNAME"disk.info")))
  150. (IF(<> DRIVE1 "")(copyfiles(source"ram:work.info")(dest(TACKON DRIVE1"" ))(NEWNAME"disk.info")))
  151. (IF(<> DRIVE2 "")(copyfiles(source"ram:pastimes.info")(dest(TACKON DRIVE2""))(NEWNAME"disk.info")))
  152. (IF(<> DRIVE3 "")(copyfiles(source"ram:games.info")(dest(TACKON DRIVE3""))(NEWNAME"disk.info")))
  153. (IF(<> DRIVE4 "")(copyfiles(source"ram:default.info")(dest(TACKON DRIVE4""))(NEWNAME"disk.info")))
  154. (IF(<> DRIVE "")(copyfiles(source"ram:ram.info")(dest"sys:prefs/env-archive/sys")(NEWNAME"Def_Disk.info")))
  155. (if(exists"sys:prefs/env-archive/sys/def_ramdisk.info")(copyfiles(source"ram:ram.info")(dest"sys:prefs/env-archive/sys")(NEWNAME "Def_Ramdisk.info")
  156. )
  157. )
  158. )
  159. )
  160. )
  161. )
  162. (copyfiles(source "ram:TMC/WBverlauf")(dest "sys:WBstartup"))
  163. (copyfiles(source "ram:WBverlauf.info")(dest "sys:WBstartup"))
  164. (run"delete ram:#?")
  165. (exit (quiet))
  166.