global GNavCastNum, LNAvCastNum, MedCastNum, FaderCastNum
if (the mouseCast = MedCastNum) or (the mouseCast = FaderCastNum) then
DispQTControls()
else
HideQTControls()
end if
end
on ToggleAudioControls
global GNavCastNum, LNAvCastNum, MedCastNum, FaderCastNum, MaskCastNum
if (the mouseCast = MedCastNum) or (the mouseCast = FaderCastNum) or (the mouseCast = MaskCastNum) then
DispAudioControls()
else
HideAudioControls()
end if
end
on DispControls
repeat with i = 42 to 48
set the visible of sprite i to 1
end repeat
end
on HideControls
repeat with i = 42 to 48
set the visible of sprite i to 0
end repeat
if chars(the movieName, 1, 2) = "JG" then
set the visible of sprite 48 to 1
end if
end
on DispNavControls
repeat with i = 42 to 43
set the visible of sprite i to 1
end repeat
end
on HideNavControls
repeat with i = 42 to 43
set the visible of sprite i to 0
end repeat
end
on DispQTControls
set the visible of sprite 46 to 0
repeat with i = 44 to 45
set the visible of sprite i to 1
end repeat
puppetSprite(45, 1)
end
on HideQTControls
repeat with i = 44 to 45
set the visible of sprite i to 0
end repeat
puppetSprite(45, 0)
end
on DispAudioControls
repeat with i = 44 to 46
set the visible of sprite i to 1
end repeat
puppetSprite(45, 1)
end
on HideAudioControls
repeat with i = 44 to 46
set the visible of sprite i to 0
end repeat
puppetSprite(45, 0)
end
on DispLowerLeftControls
set the visible of sprite 48 to 1
end
on Disp2LowerLeftControls
repeat with i = 47 to 48
set the visible of sprite i to 1
end repeat
end
on HideLowerLeftControls
set the visible of sprite 48 to 0
end
on Hide2LowerLeftControls
repeat with i = 47 to 48
set the visible of sprite i to 0
end repeat
end
on LogIt theCurLoc
global gReturnList, gRetraceLoc, gMaxRetrace, gDontLog
if gDontLog <> 1 then
if voidp(gRetraceLoc) or (gRetraceLoc = 0) then
set gRetraceLoc to 1
end if
put "," & theCurLoc after gReturnList
set Jtemp to the number of items in gReturnList
if (chars(item Jtemp of gReturnList, 1, 2) = "JG") and (char 3 of item Jtemp of gReturnList <> "0") then
delete item Jtemp of gReturnList
end if
repeat with i = the number of items in gReturnList - 1 down to 2
if (item i of gReturnList = theCurLoc) or (item i of gReturnList = EMPTY) or ((chars(item i of gReturnList, 1, 2) = "JG") and (char 3 of item i of gReturnList <> "0")) then
delete item i of gReturnList
end if
end repeat
if the number of items in gReturnList > gMaxRetrace then
delete item 2 of gReturnList
end if
set gRetraceLoc to the number of items in gReturnList
end if
set gDontLog to 0
end
on UpTheLog
global gReturnList, gRetraceLoc, gDontLog, LLHolder, gWasAt, ProductStatus
set ProductStatus to "hidden"
HideRandoms()
set gRetraceLoc to gRetraceLoc - 1
if gRetraceLoc = 1 then
set gRetraceLoc to the number of items in gReturnList
end if
set FraNam to item gRetraceLoc of gReturnList
if FraNam = "Home" then
go(chars(gWasAt, 1, 2), "Home")
exit
end if
if not ("AGBWJGKLKNMDPSRMSFSTWWZP" contains chars(FraNam, 1, 2)) then
set gDontLog to 1
go(FraNam)
exit
end if
if "01234" contains char 3 of FraNam then
set MovNam to chars(FraNam, 1, 2)
else
set MovNam to chars(FraNam, 1, 3)
end if
if StripExt(the movieName) = MovNam then
set gDontLog to 1
go(FraNam)
else
set gDontLog to 1
go(FraNam, MovNam)
end if
end
on HubWarning
global gCurrentLoc
alert("U bent nu in het centrum van " & gCurrentLoc & ". Klik op een woord (boven, onder, rechts, of links).")
end
on testlists
testSinglelists()
repeat with i = 1 to 6
testNames("RandomVideoList" & string(i))
testNames("RandomAudioList" & string(i))
testNames("RandomTextList" & string(i))
end repeat
end
on testNames theListName
if the number of cast theListName > 0 then
put "testing:" && theListName & RETURN & RETURN
set testText to the text of cast theListName
repeat with i = 1 to the number of lines in testText
