home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / main.dir / 00145_Script_145 < prev    next >
Text File  |  1996-03-11  |  474b  |  20 lines
  1. on exitFrame
  2.   sound Stop 1
  3.   sound Stop 2
  4. end
  5.  
  6. on enterFrame
  7.   global prevMovie , Sticks
  8.   
  9.   set Sticks = the ticks
  10.   if PrevMovie <> "body" or PrevMovie <> "power" then set PrevMovie = "body"
  11.   
  12.   set xx = line random(9) of field ("loadText."&prevMovie)
  13.   
  14.   if xx = "" then put line 1 of field "loadText.Body" into field "stageText"
  15.   else  put xx into field "stageText"
  16.   
  17.   puppetSprite 1, true
  18.   set the LocH of sprite 1 to 91
  19.   updateStage
  20. end