home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Today - The Disc! 15
/
cdrt15.iso
/
pc
/
contentp.dir
/
00133_Script_133
< prev
next >
Wrap
Text File
|
1995-04-05
|
1KB
|
46 lines
on john2
puppetsprite 5, 1
repeat while the mousecast >=119 and the mousecast <=128 and the mouseup
set x = the mousecast
if x <> -1 then
set the castnum of sprite (x-104) = (x-10)
set the castnum of sprite 5 to (x + 681)
end if
puppetSound "click"
updatestage
repeat while the mousecast = x and the mousedown <> 1
end repeat
go the frame
end repeat
if the mousecast = 800 then teleplay
if the mousedown then
if the mousecast <= 128 and the mousecast >= 120 then go "e"
if the mousecast <= 809 and the mousecast >= 801 then go "e"
if the mousecast = 119 and the castnum of sprite 5 = 800 then go "TVs+"
end if
go the frame
end
on movielistset
global movielist
set movielist = list("@:ATLAS:01.dir", "@:TWTW:01.dir", "@:stowaway:01title.dir","@:Science:01Start.DIR", "@:NATURE:01Intro.DIR", ┬
"@:HISTORY:01Hia.dir", "@:MFIAD:01Title.DIR","@:Body:01.DIR", "@:PB:01.DIR", 1)
end
on teleplay
--set the castnum of sprite 5 to 1
go "TVs"
abort
end