home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / show / xtras / animwiz.dir / 00012_Function.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  709 b   |  24 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.   global goPlatform
  14.   set newFunction to HitWhoH(ichTabs, count(iFunctionNameList))
  15.   if newFunction = iCurrentFunction then
  16.     return 
  17.   end if
  18.   set oCurrent to getAt(ioFunctionList, iCurrentFunction)
  19.   mCleanUp(oCurrent)
  20.   set iCurrentFunction to newFunction
  21.   set newFrameName to getAt(iFunctionNameList, iCurrentFunction)
  22.   go(newFrameName & goPlatform)
  23. end
  24.