home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / ch05.Design / Autodeterminator / BitManual.dcr / 00001_general movie scripts.ls next >
Encoding:
Text File  |  1996-10-23  |  597 b   |  33 lines
  1. global gPrefSettings
  2.  
  3. on startMovie
  4.   set the randomSeed to the ticks
  5.   readPrefs()
  6.   readExternalParams()
  7.   if not voidp(getaProp(gPrefSettings, "bandwidth")) then
  8.     set bandOp to string(getaProp(gPrefSettings, "bandwidth"))
  9.   else
  10.     set bandOp to "0"
  11.   end if
  12.   radio(bandOp & "-band")
  13. end
  14.  
  15. on stopMovie
  16.   writePrefs()
  17. end
  18.  
  19. on idle
  20.   global gBitTestFlag
  21.   if gBitTestFlag = 1 then
  22.     checkBitstream()
  23.   end if
  24. end
  25.  
  26. on debug arg, theField
  27.   if voidp(theField) then
  28.     set theField to "debugger"
  29.   end if
  30.   set the text of field theField to arg
  31.   set the textSize of field theField to 9
  32. end
  33.