home *** CD-ROM | disk | FTP | other *** search
/ The Net Power 1997 April / NETDisc0497.iso / pc / demos / mmedia / dirwin / data.z / ANIMWIZ.DIR / 00012_Function.ls < prev    next >
Encoding:
Text File  |  1996-03-15  |  676 b   |  23 lines
  1. property iFunctionNameList, ioFunctionList, iCurrentFunction, ichTabs
  2.  
  3. on birth me
  4.   global goBanners, goZooms, goCredits, goBullets
  5.   set iFunctionNameList to ["Banners", "Zooms", "Credits", "Bullets"]
  6.   set ioFunctionList to [goBanners, goZooms, goCredits, goBullets]
  7.   set iCurrentFunction to 1
  8.   set ichTabs to 2
  9.   return me
  10. end
  11.  
  12. on mHit me
  13.   set newFunction to HitWhoH(ichTabs, count(iFunctionNameList))
  14.   if newFunction = iCurrentFunction then
  15.     return 
  16.   end if
  17.   set oCurrent to getAt(ioFunctionList, iCurrentFunction)
  18.   mCleanUp(oCurrent)
  19.   set iCurrentFunction to newFunction
  20.   set newFrameName to getAt(iFunctionNameList, iCurrentFunction)
  21.   go(newFrameName)
  22. end
  23.