home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / uq_demo.exe / uq_demo.DXR / 00255.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  1.5 KB  |  65 lines
  1. on startMovie
  2.   cursor(200)
  3.   set the volume of sound 2 to 150
  4. end
  5.  
  6. on stopMovie
  7. end
  8.  
  9. on initrearwindow
  10.   global rwobj
  11.   openXLib("RearWindow.XObj")
  12.   if objectp(rwobj) then
  13.     rwobj(mdispose)
  14.   end if
  15.   makeobjifneeded()
  16.   set retvalue to rwobj(mpattowindow, -5)
  17. end
  18.  
  19. on releaserearwindow
  20.   global rwobj
  21.   if objectp(rwobj) then
  22.     rwobj(mdispose)
  23.   end if
  24.   closeXLib("RearWindow.XObj")
  25. end
  26.  
  27. on makeobjifneeded
  28.   global rwobj
  29.   if not objectp(rwobj) then
  30.     set rwobj to rearwindow(mnew, "M")
  31.     if value(rwobj) < 0 then
  32.       alert("System error" && rwobj && "trying to create the RearWindow object in RAM (multiple-monitor config).")
  33.       stopMovie()
  34.       exit
  35.     end if
  36.     writestageandscreenbounds()
  37.     if the freeBlock < rwobj(mgetmemoryneeded) then
  38.       if objectp(rwobj) then
  39.         rwobj(mdispose)
  40.         set rwobj to rearwindow(mnew, "S")
  41.       end if
  42.       if value(rwobj) < 0 then
  43.         alert("System error" && rwobj && "trying to create the RearWindow object in RAM (single-monitor config).")
  44.         stopMovie()
  45.         exit
  46.       end if
  47.       writestageandscreenbounds()
  48.     end if
  49.   end if
  50. end
  51.  
  52. on writestageandscreenbounds
  53.   global rwobj
  54.   set s to "Minimum Rect around All Screens:"
  55.   set s to s && rwobj(mgetscreentop) & ", "
  56.   set s to s && rwobj(mgetscreenleft) & ", "
  57.   set s to s && rwobj(mgetscreenbottom) & ", "
  58.   set s to s && rwobj(mgetscreenright) & RETURN
  59.   set s to s & "Stage dimensions are:"
  60.   set s to s && the stageTop & ", "
  61.   set s to s && the stageLeft & ", "
  62.   set s to s && the stageBottom & ", "
  63.   set s to s && the stageRight
  64. end
  65.