home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 July / macformat-039.iso / MAKERS / MAIN.DIR / 00145.ls < prev    next >
Encoding:
Text File  |  1996-03-12  |  480 b   |  22 lines
  1. on exitFrame
  2.   sound stop 1
  3.   sound stop 2
  4. end
  5.  
  6. on enterFrame
  7.   global prevMovie, STIcks
  8.   set STIcks to the ticks
  9.   if (prevMovie <> "body") or (prevMovie <> "power") then
  10.     set prevMovie to "body"
  11.   end if
  12.   set xx to line random(9) of field ("loadText." & prevMovie)
  13.   if xx = EMPTY then
  14.     put line 1 of field "loadText.Body" into field "stageText"
  15.   else
  16.     put xx into field "stageText"
  17.   end if
  18.   puppetSprite(1, 1)
  19.   set the locH of sprite 1 to 91
  20.   updateStage()
  21. end
  22.