home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boot Disc 7
/
boot-disc-1997-03.iso
/
Director.5
/
DATA.Z
/
ANIMWIZ.DIR
/
00012_Script_Function
< prev
next >
Wrap
Text File
|
1996-03-15
|
990b
|
40 lines
-- Function script
property iFunctionNameList
property ioFunctionList
property iCurrentFunction
property ichTabs
on birth me
global goBanners
global goZooms
global goCredits
global goBullets
set iFunctionNameList = ["Banners", "Zooms", "Credits", "Bullets"]
set ioFunctionList = [goBanners, goZooms, goCredits, goBullets]
set iCurrentFunction = 1
set ichTabs = 2
return me
end birth
on mHit me
set newFunction = HitWhoH(ichTabs, count(iFunctionNameList))
if newFunction = iCurrentFunction then
return -- clicked on the current function, don't do anything
end if
-- Send the current object a clean up message to say we're done with it
set oCurrent = getAt(ioFunctionList, iCurrentFunction)
mCleanup(oCurrent)
-- Finally, go to the appropriate frame of the new function
set iCurrentFunction = newFunction
set newFrameName = getAt(iFunctionNameList, iCurrentFunction)
go newFrameName
end mHit