home *** CD-ROM | disk | FTP | other *** search
- on LocalStartMovie
- global stopState, soundPathName, R1Sounds, R2Sounds, R3Sounds, R4Sounds, R5Sounds, gFlash, gTheMatches, PartOneDone
- set R1Sounds to the text of cast "Radio1Sounds"
- set R2Sounds to the text of cast "Radio2Sounds"
- set R3Sounds to the text of cast "Radio3Sounds"
- set R4Sounds to the text of cast "Radio4Sounds"
- set R5Sounds to the text of cast "Radio5Sounds"
- set gTheMatches to the text of cast "TheMatches"
- set soundPathName to "VPRO:VPRO1:"
- set stopState to 0
- showItems(0)
- set PartOneDone to 0
- repeat with i = 1 to 5
- put string(random(10) + 5) & "," after gFlash
- end repeat
- delete char length(gFlash) of gFlash
- end
-
- on SpecialNavigation
- global Char3, stopState
- set stopState to 0
- puppetSound(0)
- if soundBusy(1) then
- sound stop 1
- end if
- if Char3 = "3" then
- HideRandoms()
- end if
- repeat with count = 7 to 9
- if Char3 = "2" then
- set the visible of sprite count to 0
- next repeat
- end if
- set the visible of sprite count to 1
- end repeat
- end
-
- on getMyText theVidName
- global gTheMatches
- if theVidName contains ".mov" then
- delete char 9 to 12 of theVidName
- end if
- repeat with i = 1 to the number of lines in gTheMatches
- if item 1 of line i of gTheMatches = theVidName then
- return item 2 of line i of gTheMatches
- end if
- end repeat
- end
-
- on checkMatches
- global gTheMatches
- repeat with i = 1 to the number of lines in gTheMatches
- set temp to line i of gTheMatches
- if the number of items in temp = 2 then
- set tekstNaam to item 2 of temp
- end if
- end repeat
- end
-
- on showItems theValue
- repeat with i = 11 to 27
- set the visible of sprite i to theValue
- end repeat
- end
-
- on flashItems startSprite, endSprite
- repeat with i = startSprite to endSprite
- if the ink of sprite i = 5 then
- set the ink of sprite i to 0
- next repeat
- end if
- set the ink of sprite i to 5
- end repeat
- updateStage()
- end
-
- on playMySound
- global soundPathName, R1Sounds, R2Sounds, R3Sounds, R4Sounds, R5Sounds
- set soundNumber to the clickOn - 10
- if the frame < label("MD102") then
- set theSound to line soundNumber of R1Sounds
- else
- if the frame < label("MD103") then
- set theSound to line soundNumber of R2Sounds
- else
- if the frame < label("MD104") then
- set theSound to line soundNumber of R3Sounds
- else
- if the frame < label("MD105") then
- set theSound to line soundNumber of R4Sounds
- else
- set theSound to line soundNumber of R5Sounds
- end if
- end if
- end if
- end if
- set theFullSoundPath to soundPathName & char 1 to 2 of theSound & "audio:" & theSound
- put theSound
- sound playFile 1, theFullSoundPath
- end
-
- on playStationCall number
- set theCall to "VPROMR" & string(number) & "CorGalis"
- puppetSound(theCall)
- end
-
- on flashEm spritelist
- global gFlash
- repeat with i = 1 to length(spritelist)
- if value(item i of gFlash) < 1 then
- set newCast to the name of cast the castNum of sprite value(char i of spritelist) & ".inv"
- set the castNum of sprite value(char i of spritelist) to the number of cast newCast
- updateStage()
- put string(random(10) + 5) into item i of gFlash
- next repeat
- end if
- put string(value(item i of gFlash) - 1) into item i of gFlash
- end repeat
- end
-
- on goSubject where
- go(where)
- end
-
- on showGadgets which
- global gLastSprite
- if which = 0 then
- repeat with i = 4 to 8
- set the visible of sprite i to 0
- puppetSprite(i, 0)
- end repeat
- else
- set the visible of sprite gLastSprite to 1
- puppetSprite(gLastSprite, 0)
- set gLastSprite to gLastSprite + 1
- if gLastSprite > 8 then
- set gLastSprite to 4
- end if
- set the visible of sprite gLastSprite to 1
- puppetSprite(gLastSprite, 1)
- set the ink of sprite gLastSprite to 2
- end if
- end
-