home *** CD-ROM | disk | FTP | other *** search
/ Grandes Inventos / INVENTOS.bin / pc / media / tele.dxr / 00417.ls < prev    next >
Encoding:
Text File  |  1996-01-01  |  378 b   |  18 lines
  1. on exitFrame
  2.   global gIdiom
  3.   puppetTempo(12)
  4.   UnloadAllCasts()
  5.   clearGlobals()
  6.   if objectp(gTheAnalyzer) then
  7.     set theObject to gTheAnalyzer(mGetObject)
  8.     gTheAnalyzer(mDetatchObjects)
  9.     if objectp(theObject) then
  10.       theObject(mFree)
  11.       theObject(mdispose)
  12.     end if
  13.   end if
  14.   set gIdiom to the text of cast "TheIdiom"
  15.   InitSpriteNums()
  16.   InitPuppets()
  17. end
  18.