-- jsl / mmw 7/15/94macro wfs if the soundBusy of 1 then go the frame end ifmacro gf framename global delaying,returnframe,returnmovie sfade put FALSE into delaying put the frame+1 into returnframe put the movie into returnmovie go frame framenamemacro rf global delaying,returnframe,returnmovie sfade put FALSE into delaying if returnmovie = the movie then go frame returnframe else go frame returnframe of movie returnmovie end ifmacro gm moviename,where global returnframe,returnmovie sfade put the frame+1 into returnframe put the movie into returnmovie if string(where) <> "" then go frame where of movie moviename else go movie moviename end ifmacro sfade put the timer into foo if the soundbusy of 1 then repeat while the volume of sound 1 > 0 set the volume of sound 1 = 255 - (the timer - foo)*4 end repeat sound stop 1 end if set the volume of sound 1 = 255macro dostartmovie global delaying put FALSE into delaying set the volume of sound 1 = 255 repeat with i = 1 to 24 set the immediate of sprite i = TRUE end repeatmacro dostepmoviemacro dostopmoviemacro doidlemacro del cnt global delaying,delaystart,delaytime if delaying then if the timer - delaystart < delaytime then put the timer && delaystart && delaytime go the frame else put FALSE into delaying end if else put the timer into delaystart put cnt into delaytime put TRUE into delaying go the frame end ifmacro trigger thetime if the timer < thetime * 60 then go the frame end if--@ rev4/10/94 jsl/mmwmacro ButtonSwap whichLabel, whichMovie -- swap clicked on cast for next higher one. If released in button, go to frame in movie -- this routine should be called from sprite cast -- the immediate of the sprite must be set to true to work correctly set c = the clickOn set selected = true put the castnum of sprite c into oldCast repeat while the stillDown if rollover( c ) then set selected = true set the castNum of sprite c = oldcast + 1 updateStage else set the castNum of sprite c = oldcast updateStage set selected = false end if end repeat if selected then if string(whichMovie)<> "" then if stringP(whichLabel) then sfade go frame whichLabel of movie whichMovie return (TRUE) else if string (whichLabel) <>"" then sfade go frame whichLabel of movie whichMovie return (TRUE) else sfade go frame 1 of movie whichMovie return (TRUE) end if end if else -- string (whichmovie)<>"" if string(whichLabel)<> "" then sfade go frame whichLabel return (TRUE) end if -- string(whichLabel)<>"" end if -- string(whichmovie)<>"" end if --selected return (selected)
