home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / open.dir / 00004_Script_4 < prev    next >
Text File  |  1996-03-11  |  907b  |  40 lines
  1. on startMovie
  2.   global fixpal
  3.   
  4.   set the soundlevel to 4
  5.   if the machineType <> 256 then
  6.     if factory( "RearWindow" ) = 0 then OpenXLib "RearWindow.XObj" 
  7.     initRearWindow 255
  8.   end if
  9.   
  10.   set the exitLock to TRUE
  11.   set the colorDepth to 8
  12.   
  13.   set the textHeight of field "text" to 30
  14. end
  15.  
  16. on initRearWindow theColor
  17.   global rwObj
  18.   if the machineType <> 256 then
  19.     if objectP( rwObj ) then rwObj( mDispose )
  20.     put RearWindow( mNew, "M" ) into rwObj
  21.     rwObj( mIndexColorToWindow, theColor )
  22.   end if
  23. end
  24.  
  25. on disposeRearWindow
  26.   global rwObj
  27.   if the machineType <> 256 then
  28.     if objectP( rwObj ) then rwObj( mDispose )
  29.   end if
  30. end  
  31.  
  32. on xxx
  33.   global greadObject
  34.   
  35.   put fileIO( mNew "read" , the pathName & "loading lines") into greadObject
  36.   put greadObject
  37.   --put greadObject (mReadLines) into theText
  38.   --put theText
  39.   greadObject(mDispose)
  40. end