xSB_DmoMMedia Magic:PRODUCTION:Star Division 93:Star '93 WORK:Star Show '93 ohne ton:
Strings
------
rollingSnds
stxt
----
title 3
text 3. This is what should be in the box and it should be wrapping around and doing all that stuff up to four lines 14 point Helvetica
98
--macro initFile if the machineType = 256 then openxlib ("FileIO") set the text of cast a23 to " " set the text of cast b14 to " " readTextFile macro readTextFile global file, FileIO set file = FileIO(mNew, "read", the pathname & "xSWC_Dmo.txt") if not objectp(file) then puppetSprite 17, true puppetSprite 18, true puppetSprite 19, true puppetSprite 20, true return end if set the text of cast a23 to " " startCheckFramemacro readLine global file set s = file(mreadline) if s <> RETURN then set the text of cast a23 to smacro returnReadLine global file set s = file(mreadline) return(s)macro finishRead global file file(mDispose) set the text of cast a23 to " " macro doneFile global file if objectp( file ) <> 0 then file(mdispose) macro doSound theSnd if the machineType <> 256 then sound playFile 2, ":demo aiff:" & theSndend ifmacro checkForTextif the text of cast a23 = "No text" then puppetSprite 17, true puppetSprite 18, true puppetSprite 19, trueend ifmacro waitfor seconds global waitTime set waitTime to the ticks + (seconds * 60)macro waitHere global waitTime if waitTime < the ticks then go to marker(1) else go to the frameMacro stopCheckFrame global CheckFrame CheckFrame(mDispose) set the perFrameHook to falseend stop CheckFrameMacro startCheckFrame global CheckFrame set CheckFrame = CheckFramefactory(mNew) set the perFrameHook to CheckFrameend startALFactory CheckFramefactory Method mNew instance theCheckFrame, thePause set theCheckFrame = value( returnReadLine())end mNewMethod mAtFrame aframe, subFrame if theCheckFrame < the Frame AND theCheckFrame <> 0 then set thePause to value( returnReadLine()) if thePause = -1 then puppetSprite 17, true puppetSprite 18, true puppetSprite 19, true puppetSprite 20, true set the castnum of sprite 17 to 0 set the castnum of sprite 18 to 0 set the castnum of sprite 19 to 0 set the castnum of sprite 20 to 0 set theCheckFrame = value( returnReadLine()) updatestage return end if set the castnum of sprite 17 to a83 set the castnum of sprite 18 to a23 set the castnum of sprite 19 to b14 set the castnum of sprite 20 to a81 puppetSprite 17, false puppetSprite 18, false puppetSprite 19, false puppetSprite 20, false set the text of cast a23 to returnReadLine() set the text of cast b14 to returnReadLine() set theCheckFrame = value( returnReadLine()) updatestage set thePause to thePause + the ticks repeat while thePause > the ticks nothing end repeat end ifend mNew
