home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -websites- / amigadoom / download / rtgmaster_user.lha / install_rtgmaster < prev    next >
Text File  |  1997-10-09  |  6KB  |  143 lines
  1. (set #UpDateNo    "Do not update")
  2. (set #UpDateIfNew "Update, if newer")
  3. (set #AlwaysUpDate  "Update Always.")
  4. (set #installwhat "What do you install of the Following?")
  5. (set #guidedocs "AmigaGuide File")
  6. (set #WhereToPut "Select where to put the files.\n(A directory called \"RTGMaster_User\" will be created at that place!)")
  7. (set #ctp "Install the rtgmaster c2p package ?")
  8. (set #install "RtgMaster c2p Package")
  9. (set #Demos "RtgMaster Demos")
  10. (set #Nope "No")
  11. (set #Yeah "Yes")
  12. (set app-name "Rtgmaster")
  13. (if(<(/(getversion)65536)36)
  14. (abort "Rtgmaster needs at least OS2.0\n"))
  15. (complete 0)
  16. (if(not(exists("libs:rtg")))
  17. (makedir("libs:rtg")(infos)))
  18. (if(not(exists("libs:rtgc2p")))
  19. (makedir("libs:rtgc2p")(infos)))
  20. (if(askchoice(choices #Nope #Yeah)
  21. (prompt("Do you want to delete any old versions of rtgmaster? \nThis is recommended, if old versions did not run on your system.\n"))
  22. (help "")(default 1))
  23. ((delete "libs:rtg/#?")
  24. (delete "libs:rtgmaster.library")
  25. (delete "libs:rtgc2p/c2p-garbage/#?")
  26. (delete "libs:rtgc2p/strange_c2p/#?")
  27. (delete "libs:rtgc2p/#?")
  28. (delete "envarc:rtgmaster/#?")
  29. (delete "env:rtgmaster/#?")
  30. (delete "libs:rtggadtools.library")))
  31. (set rtg1 (/(getversion "libs:rtgmaster.library")65536))
  32. (set rtg2 (-(getversion "libs:rtgmaster.library")(* rtg1 65536)))
  33. (set rtg3 (/(getversion "libs/rtgmaster.library")65536))
  34. (set rtg4 (-(getversion "libs/rtgmaster.library")(* rtg3 65536)))
  35. (set upd (askchoice
  36. (choices #UpDateNo #UpDateIfNew #AlwaysUpDate)
  37. (help "rtgmaster.library is the main-library of rtgmaster. You HAVE TO install it. ")
  38. (default 1)
  39. (prompt("Currently installed rtgmaster.library :\nVersion : %ld.%ld\n\nVersion from Update : %ld.%ld\n\nInstall Version %ld.%ld of 'rtgmaster.library' from Update ?\n" rtg1 rtg2 rtg3 rtg4 rtg3 rtg4))))
  40. (if(= upd 1)(copylib (source "libs/rtgmaster.library")(dest "libs:")))
  41. (if(= upd 2)(copyfiles
  42. (prompt("Copying now 'rtgmaster.library' to Libs:"))
  43. (source"libs/rtgmaster.library")
  44. (dest"libs:")(confirm)(infos)(help "")))
  45. (set rtg1(/(getversion "libs:rtggadtools.library")65536))
  46. (set rtg2(-(getversion "libs:rtggadtools.library")(* rtg1 65536) ))
  47. (set rtg3(/(getversion "libs/rtggadtools.library")65536))
  48. (set rtg4(-(getversion "libs/rtggadtools.library")(* rtg3 65536) ) )
  49. (set upd(askchoice
  50. (choices #UpDateNo #UpDateIfNew #AlwaysUpDate)
  51. (prompt("Currently installed rtggadtools.library :\nVersion : %ld.%ld\n\nVersion from Update : %ld.%ld\n\nInstall Version %ld.%ld of 'rtgmaster.library' from Update ?\n" rtg1 rtg2 rtg3 rtg4 rtg3 rtg4))
  52. (help "rtggadtools.library is a rtgmaster-add-on by Hans-Joerg Frieden.")
  53. (default 1)))
  54. (if(= upd 1)
  55. (copylib (source "libs/rtggadtools.library")(dest "libs:")))
  56. (if(= upd 2)
  57. (copyfiles
  58. (prompt "Copying now 'rtggadtools.library' to Libs:")
  59. (source "libs/rtggadtools.library")
  60. (dest "libs:")(confirm)(infos)(help "")))
  61. (complete 20)
  62. (set upd (askchoice
  63. (choices #Nope #Yeah)
  64. (prompt("Sublibraries :\nDo you wish to install the needed Sublibraries ?\nThis is recommended, because rtgmaster won't work without them.\n"))
  65. (help "In order to work rtgmaster needs the sublibraries.")
  66. (default 1)))
  67. (set rtg1(/(getversion "libs:cgxsystem.library")65536))
  68. (if(= upd 1)
  69. ((if(> rtg1 0)
  70. (copyfiles
  71. (prompt "Copying now 'rtgCGX.library' to Libs:rtg")
  72. (source "libs/rtg/rtgCGX.library")(dest "libs:rtg")
  73. (confirm)(infos)(help "")(set upd 2)))))
  74. (set rtg1(/(getversion "libs:egs.library")65536))
  75. (if(= upd 1)
  76. ((if(> rtg1 0)
  77. (copyfiles
  78. (prompt "Copying now 'rtgEGS.library' to Libs:rtg")
  79. (source "libs/rtg/rtgEGS.library")(dest "libs:rtg")
  80. (confirm)(infos)(help "")))))
  81. (set rtg1(/(getversion "libs:cybergraphics.library")65536))
  82. (if(= upd 1)
  83. ((if(> rtg1 0)(copyfiles
  84. (prompt "Copying now 'rtgCGX.library' to Libs:rtg")
  85. (source "libs/rtg/rtgCGX.library")(dest "libs:rtg:")
  86. (confirm)(help "")(infos)(set upd 2)))))
  87. (set rtg1(/(getversion "libs:Picasso96API.library")65536))
  88. (if(= upd 1)
  89. ((if(> rtg1 2)(copyfiles
  90. (prompt "Copying now 'rtgP96.library' to Libs:Rtg")
  91. (source "libs/rtg/rtgP96.library")(dest "libs:rtg")
  92. (help "")(confirm)(infos)(set upd 2)))))
  93. (set rtg1(/(getversion "libs:hrgsystem.library")65536))
  94. (if(= upd 1)
  95. ((if(> rtg1 0)
  96. (copyfiles
  97. (prompt "Copying 'libs:rtg/rtgCGX.library' to Libs:Rtg")(help "")
  98. (source "libs/rtg/rtgCGX.library")(dest "libs:rtg")
  99. (confirm)(infos)(set upd 2)))))
  100. (if(= upd 1)
  101. ((copyfiles (help "")
  102. (prompt "Copying now 'libs:rtg/rtgAMI.library' to Libs:rtg")
  103. (source "libs/rtg/rtgAMI.library")(dest "libs:rtg")
  104. (confirm)(infos))))
  105. (if(= upd 2)
  106. ((copyfiles
  107. (prompt "Copying npw 'libs:rtg/rtgAMI.library' to Libs:rtg")
  108. (source "libs/rtg/rtgAMI.library")(dest "libs:rtg")
  109. (help "")(confirm)(infos))))
  110. (complete 50)
  111. (set Additional(askoptions(choices #guidedocs #demos)
  112. (help "")(prompt #installwhat)(default 3)))
  113. (if(<> Additional 0)
  114. ((set RtgMaster(askdir(prompt #WhereToPut)
  115. (help   #WhereToPut)
  116. (default "Sys:")))
  117. (if(< (exists(tackon RtgMaster "RtgMaster_User")) 2)
  118. (makedir(tackon RtgMaster "RtgMaster_User")(infos)))
  119. (set whereput(tackon RtgMaster "RtgMaster_User"))
  120. (set @default-dest RtgMaster)
  121. (if (IN Additional 0)
  122. (((copyfiles(source "rtgmaster_user.guide")(dest whereput)(infos)(help "")(newname "rtgmaster_user.guide")))))
  123. (complete 60)
  124. (if(IN Additional 1)
  125. ((if(< (exists(tackon whereput "Demos"))2)
  126. (makedir(tackon whereput "Demos")(infos)))
  127. (copyfiles(source "demos")(help "")(dest(tackon whereput "demos"))(all))))
  128. (complete 80)
  129. (set RtgMaster whereput)
  130. (set c2p(askoptions(choices #install)(prompt "\nThe c2p algorithms are needed for ECS/AGA\nDo you wish to install them ?\n")
  131. (help #install)(default 1)))
  132. (if(IN c2p 0)((copyfiles(source "libs/rtgc2p")(help"")(dest("libs:rtgc2p"))(all))))))
  133. (complete 100)
  134. (exit "You should reboot now. "
  135.       "Check your devs:monitors directory, if you have "
  136.       "installed a monitor driver there. GFX Board users "
  137.       "always have something installed there, ECS/AGA "
  138.       "users not always. If you are a ECS/AGA user "
  139.       "and do not have something installed there, "
  140.       "please copy PAL or NTSC from sys:Storage to "
  141.       "devs:monitors. ")
  142.  
  143.