home *** CD-ROM | disk | FTP | other *** search
/ My Fun Book - English Teaching / mycd.iso / main.dir / 00112_Frame Script of exit.ls < prev    next >
Encoding:
Text File  |  1995-03-22  |  266 b   |  19 lines
  1. global gM
  2.  
  3. on exitFrame
  4.   if stringp(gM) then
  5.     if gM <> EMPTY then
  6.       set t to gM
  7.       set gM to EMPTY
  8.       sound stop 1
  9.       play movie the moviePath & t
  10.     else
  11.       initVar()
  12.       go("main")
  13.     end if
  14.   else
  15.     initVar()
  16.     go("main")
  17.   end if
  18. end
  19.