home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Buyer 1997 March
/
dpcb0397.iso
/
multimed
/
MAIL
/
SCRIPTS.CST
/
00002_Script_2
< prev
next >
Wrap
Text File
|
1996-07-07
|
21KB
|
798 lines
-- Movie action handlers
on D01
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2, done3, done4, done5, done6, done7, done8, done9
set event1 = 33 -- centenary
set event2 = 179 -- hundred
set event3 = 550 -- bottom text
set event4 = 1200 -- bkgnd build 0
set event5 = 1290 -- bkgnd build 1
set event6 = 1350 -- bkgnd build 2
set event7 = 1450 -- bkgnd build 3
set event8 = 1480 -- 4
if (TC > event1 and TC <= event2 - 1) then
set the visible of sprite 6 to TRUE
if done1 <> the frame then
puppetTransition 07, 1, 2, FALSE
set done1 = the frame
updatestage
end if
else if (TC > event2 and TC <= event3 - 1) then
set the visible of sprite 7 to TRUE
if done2 <> the frame then
puppetTransition 05, 1, 1, FALSE
set done2 = the frame
updatestage
end if
else if (TC > event3 and TC <= event4 - 1) then
set the visible of sprite 8 to TRUE
if done3 <> the frame then
puppetTransition 05, 1, 2, FALSE
set done3 = the frame
updatestage
end if
else if (TC > event4 and TC <= event5 - 1) then
set the visible of sprite 9 to TRUE
if done4 <> the frame then
puppetTransition 07, 1, 4, FALSE
set done4 = the frame
updatestage
end if
else if (TC > event5 and TC <= event6 - 1) then
set the visible of sprite 10 to TRUE
if done5 <> the frame then
puppetTransition 09, 1, 4, FALSE
set done5 = the frame
updatestage
end if
else if (TC > event6 and TC <= event7 - 1) then
set the visible of sprite 11 to TRUE
if done6 <> the frame then
puppetTransition 09, 1, 4, FALSE
set done6 = the frame
updatestage
end if
else if (TC > event7 and TC <= event8 - 1) then
set the visible of sprite 12 to TRUE
if done7 <> the frame then
puppetTransition 09, 1, 4, FALSE
set done7 = the frame
updatestage
end if
else if (TC > event8 and TC <= event8 + 100) then
set the visible of sprite 13 to TRUE
if done8 <> the frame then
puppetTransition 09, 1, 4, FALSE
set done8 = the frame
updatestage
end if
end if
return
end
on D02a
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2, done3, done4, done5, done6, done7, done8, done9
global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
global hEdgesin, vblind, hblind, stripsBottomLeft
set event1 = 32 -- 5 million
set event2 = 150 -- 4 thousand
set event3 = 264 -- 50 videos
set event4 = 427 -- and graphics
set event5 = 514 -- games
set event6 = 584 -- audio summaries
set event7 = 665 -- astrology
set event8 = 764 -- calculator
set event9 = 828 -- sports
set event10 = 928 -- cook book
set event11 = 1020
if (TC > event1 and TC <= event2) then
doEvent1 6, TRUE, vcentreout, 1, 12, FALSE
else if (TC > event2 and TC <= event3) then
doEvent2 7, TRUE, vcentreout, 1, 12, FALSE
else if (TC > event3 and TC <= event4) then
set the visible of sprite 6 to FALSE
set the visible of sprite 7 to FALSE
doEvent3 8, TRUE, vcentreout, 1, 12, FALSE
else if (TC > event4 and TC <= event5) then
doEvent4 9, TRUE, hcentreout, 1, 12, FALSE
else if (TC > event5 and TC <= event6) then
doEvent5 10, TRUE, vcentreout, 1, 12, FALSE
else if (TC > event6 and TC <= event7) then
doEvent6 11, TRUE, hcentreout, 1, 12, FALSE
else if (TC > event7 and TC <= event8) then
doEvent7 12, TRUE, vcentreout, 1, 12, FALSE
else if (TC > event8 and TC <= event9) then
doEvent8 13, TRUE, hcentreout, 1, 12, FALSE
else if (TC > event9 and TC <= event10) then
doEvent9 14, TRUE, vcentreout, 1, 12, FALSE
else if (TC > event10 and TC <= event11) then
doEvent10 15, TRUE, hcentreout, 1, 12, FALSE
end if
return
end
on D02
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D03
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D04
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D05
global QTsprite, QTspriteDuration, QTspriteName, TC
set the visible of sprite 6 to TRUE
puppetTransition 09, 1, 8, FALSE
updatestage
set the visible of sprite 7 to TRUE
puppetTransition 09, 1, 8, FALSE
updatestage
return
end
on D06
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D07
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D08
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D09
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D10
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D11
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D12
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D13
global QTsprite, QTspriteDuration, QTspriteName, TC
if (TC > 100 and TC <= 300) then
set the visible of sprite 6 to TRUE
else if (TC > 401 and TC <= 500) then
set the visible of sprite 7 to TRUE
else if (TC > 501 and TC <= 600) then
set the visible of sprite 8 to TRUE
else if (TC > 601 and TC <= 700) then
set the visible of sprite 9 to TRUE
else if (TC >701 and TC <= 750) then
set the visible of sprite 10 to TRUE
else if (TC >751 and TC <= 800) then
set the visible of sprite 11 to TRUE
end if
return
end
on D14
global QTsprite, QTspriteDuration, QTspriteName, TC
if (TC > 260 and TC <= 370) then
set the visible of sprite 7 to TRUE
else if (TC > 371 and TC <= 500) then
set the visible of sprite 6 to TRUE
else if (TC > 501 and TC <= 600) then
set the visible of sprite 8 to TRUE
else if (TC > 601 and TC <= 700) then
set the visible of sprite 9 to TRUE
end if
return
end
on D15
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2, done3, done4, done5, done6, done7, done8, done9
global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
global hEdgesin, vblind, hblind, stripsBottomLeft
set event1 = 460
set event2 = 481
set event3 = 530
set event4 = 750
set event5 = 870
set event6 = 1000
set event7 = 1170
set event8 = 1221
if (TC > 460 and TC <= 480) then
set the visible of sprite 6 to TRUE
else if (TC > 481 and TC <= 520) then
set the visible of sprite 7 to TRUE
else if (TC > 530 and TC <= 570) then
set the visible of sprite 8 to TRUE
else if (TC > 630 and TC <= 680) then
set the visible of sprite 9 to TRUE
if done1 <> the frame then
puppetTransition hcentreout, 1, 6, FALSE
set done1 = the frame
updatestage
end if
else if (TC > 750 and TC <= 850) then
set the visible of sprite 10 to TRUE
if done6 <> the frame then
puppetTransition wipeup, 1, 6, FALSE
set done6 = the frame
updatestage
end if
else if (TC > 870 and TC <= 930) then
set the visible of sprite 11 to TRUE
if done5 <> the frame then
puppetTransition vblind, 1, 6, FALSE
set done5 = the frame
updatestage
end if
else if (TC > 1100 and TC <= 1170) then
set the visible of sprite 12 to TRUE
if done2 <> the frame then
puppetTransition hblind, 1, 6, FALSE
set done2 = the frame
updatestage
end if
else if (TC > 1170 and TC <= 1220) then
set the visible of sprite 13 to TRUE
if done3 <> the frame then
puppetTransition vblind, 1, 6, FALSE
set done3 = the frame
updatestage
end if
else if (TC > 1221 and TC <= 1250) then
set the visible of sprite 14 to TRUE
if done4 <> the frame then
puppetTransition hblind, 1, 6, FALSE
set done4 = the frame
updatestage
end if
end if
return
end
on D16
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2, done3, done4, done5, done6, done7, done8, done9
global vblind
set event1 = 140 -- begining
set event2 = 180 -- middle
set event3 = 224 -- end
set event4 = 550 -- foundations
set event5 = 855 -- hitler
set event6 = 1164-- intransigence
set event7 = 1440 -- vicotry
set event8 = 1749 -- interviews
set event9 = 2013 -- jews
set event10 = 2652 -- chamberlain
set event11 = 2750 -- war
set event12 = 1096 -- unrest
set event13 = 1267 -- appeasement
set event14 = 1350 -- invasion
if (TC > event1 and TC <= event2) then
set the visible of sprite 6 to TRUE
else if (TC > event2 and TC <= event3) then
set the visible of sprite 7 to TRUE
else if (TC > event3 and TC <= event4) then
set the visible of sprite 8 to TRUE
else if (TC > event4 and TC <= event5) then
set the visible of sprite 6 to FALSE
set the visible of sprite 7 to FALSE
set the visible of sprite 8 to FALSE
set the visible of sprite 9 to TRUE
if done4 <> the frame then
puppetTransition 07, 1, 4, FALSE
set done4 = the frame
updatestage
end if
else if (TC > event5 and TC <= event5 + 30) then
set the visible of sprite 10 to TRUE
else if (TC > event6 and TC <= event6 + 30) then
set the visible of sprite 11 to TRUE
else if (TC > event7 and TC <= event8) then
set the visible of sprite 13 to FALSE
set the visible of sprite 14 to FALSE
set the visible of sprite 15 to FALSE
set the visible of sprite 16 to FALSE
set the visible of sprite 12 to TRUE
if done7 <> the frame then
puppetTransition vblind, 1, 6, FALSE
set done7 = the frame
updatestage
end if
else if (TC > event10 and TC <= event11) then
hidesprites 6,12
set the visible of sprite 9 to TRUE
if done5 <> the frame then
puppetTransition 03, 1, 4, FALSE
set done5 = the frame
updatestage
end if
else if (TC > event12 and TC <= event13) then
set the visible of sprite 13 to TRUE
else if (TC > event13 and TC <= event13 + 50) then
set the visible of sprite 14 to TRUE
set the visible of sprite 15 to TRUE
else if (TC > event14 and TC <= event14 + 50) then
set the visible of sprite 16 to TRUE
end if
end
on D16a
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2, done3, done4, done5, done6, done7, done8, done9
global vblind
set event1 = 210 -- 6 foundations
set event2 = 545 -- 7 hitler
set event3 = 786 -- 8 unrest
set event4 = 854 -- 9 intransigence
set event5 = 957 -- 10 appeasement
set event6 = 1040 -- 11 invasion
set event7 = 1130 -- 12 victory
set event8 = 1439 -- 13 interviews
set event9 = 1703 -- 14 jews
set event10 = 2342 -- 15 chamberlain
set event11 = 2440 -- 16 war
if (TC > event1 and TC <= event2) then
doEvent1 6, TRUE, 0, 1, 4, FALSE
else if (TC > event2 and TC <= event3) then
doEvent2 7, TRUE, 0, 1, 4, FALSE
else if (TC > event3 and TC <= event4) then
doEvent3 8, TRUE, 0, 1, 4, FALSE
else if (TC > event4 and TC <= event5) then
doEvent4 9, TRUE, 0, 1, 4, FALSE
else if (TC > event5 and TC <= event6) then
doEvent5 10, TRUE, 0, 1, 4, FALSE
else if (TC > event6 and TC <= event7) then
doEvent6 11, TRUE, 0, 1, 4, FALSE
else if (TC > event7 and TC <= event8) then
doEvent7 12, TRUE, 0, 1, 4, FALSE
else if (TC > event8 and TC <= event9) then
doEvent8 13, TRUE, 0, 1, 4, FALSE
else if (TC > event9 and TC <= event10) then
doEvent9 14, TRUE, 0, 1, 4, FALSE
else if (TC > event10 and TC <= event11) then
doEvent10 15, TRUE, 0, 1, 4, FALSE
else if (TC > event11 and TC <= event11 + 60) then
doEvent11 16, TRUE, 0, 1, 4, FALSE
end if
end
on D17
global QTsprite, QTspriteDuration, QTspriteName, TC
if (TC > 175 and TC <= 227) then
doEvent1 6, TRUE, 01, 1, 4, FALSE -- flower girl
else if (TC > 228 and TC <= 284) then
doEvent2 7, TRUE, 02, 1, 4, FALSE -- speed record
else if (TC > 284 and TC <= 407) then
doEvent3 8, TRUE, 01, 1, 4, FALSE -- new homes
else if (TC > 408 and TC <= 479) then
doEvent4 9, TRUE, 02, 1, 4, FALSE -- women at war
else if (TC > 480 and TC <= 574) then
doEvent5 10, TRUE, 01, 1, 4, FALSE -- GIs at play
else if (TC > 575 and TC <= 620) then
doEvent6 11, TRUE, 02, 1, 4, FALSE
else if (TC > 620 and TC <= 666) then
doEvent7 12, TRUE, 01, 1, 4, FALSE -- boradway
else if (TC > 667 and TC <= 746) then
doEvent8 13, TRUE, 02, 1, 4, FALSE -- Bing
else if (TC > 747 and TC <= 780) then
doEvent9 14, TRUE, 01, 1, 4, FALSE -- BBC
end if
return
end
on D18
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2, done3, done4
global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
global hEdgesin, vblind, hblind, stripsBottomLeft
set event1 = 843 -- baby
set event2 = 979 --
set event3 = 1154 --
set event4 = 1310 --
set event5 = 1483 --
set event6 = 1558 --
set event7 = 1710 --
set event8 = 1740 --
set event9 = 494 -- curious
set event10 = 544 -- humourous
set event11 = 590 -- poignant
set event12 = 92 -- war
set event13 = 135 -- disaster
set event14 = 195 -- destruction
if (TC > event1 and TC <= event2 - 1) then
set the visible of sprite 6 to TRUE
if done1 <> the frame then
set the visible of sprite 13 to FALSE
set the visible of sprite 14 to FALSE
set the visible of sprite 15 to FALSE
puppetTransition hcentreout, 1, 4, FALSE
set done1 = the frame
updatestage
end if
else if (TC > event2 and TC <= event3 - 1) then
set the visible of sprite 7 to TRUE
else if (TC > event3 and TC <= event4 - 1) then
set the visible of sprite 8 to TRUE
else if (TC > event4 and TC <= event5 - 1) then
set the visible of sprite 9 to TRUE
else if (TC > event5 and TC <= event6 - 1) then
set the visible of sprite 10 to TRUE
else if (TC > event6 and TC <= event7 - 1) then
set the visible of sprite 11 to TRUE
else if (TC > event7 and TC <= event8 - 1) then
set the visible of sprite 12 to TRUE
else if (TC > event9 and TC <= event10) then
set the visible of sprite 13 to TRUE
set the visible of sprite 16 to FALSE
set the visible of sprite 17 to FALSE
set the visible of sprite 18 to FALSE
else if (TC > event10 and TC <= event11) then
set the visible of sprite 14 to TRUE
set the visible of sprite 16 to FALSE
set the visible of sprite 17 to FALSE
set the visible of sprite 18 to FALSE
else if (TC > event11 and TC <= event11 + 60) then
set the visible of sprite 15 to TRUE
else if (TC > event12 and TC <= event13) then
set the visible of sprite 16 to FALSE
if done2 <> the frame then
puppetTransition vblind, 1, 2, FALSE
set done2 = the frame
updatestage
end if
else if (TC > event13 and TC <= event14) then
set the visible of sprite 17 to FALSE
if done3 <> the frame then
puppetTransition hblind, 1, 2, FALSE
set done3 = the frame
updatestage
end if
else if (TC > event14 and TC <= event14 + 50) then
set the visible of sprite 18 to FALSE
if done4 <> the frame then
puppetTransition vblind, 1, 2, FALSE
set done4 = the frame
updatestage
end if
end if
return
end
on D19a
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2, done3, done4, done5, done6, done7
set event1 = 160 -- news
set event2 = 232 -- femail
set event3 = 312 -- lifestyle
set event4 = 397 -- sport
set event5 = 486 -- royality
set event6 = 576 -- arts
set event7 = 610 --
if (TC > event1 and TC <= event2) then
doEvent1 6, TRUE, 01, 1, 4, FALSE
else if (TC > event2 and TC <= event3) then
doEvent2 7, TRUE, 01, 1, 4, FALSE
else if (TC > event3 and TC <= event4) then
doEvent3 8, TRUE, 01, 1, 4, FALSE
else if (TC > event4 and TC <= event5) then
doEvent4 9, TRUE, 01, 1, 4, FALSE
else if (TC > event5 and TC <= event6) then
doEvent5 10, TRUE, 01, 1, 4, FALSE
else if (TC > event6 and TC <= event7) then
doEvent6 11, TRUE, 01, 1, 4, FALSE
end if
end
on D20
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1
set the visible of sprite 6 to TRUE
if done1 <> the frame then
puppetTransition 49, 1, 2, FALSE
set done1 = the frame
updatestage
end if
return
end
on D21
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1
set the visible of sprite 6 to TRUE
if done1 <> the frame then
puppetTransition 49, 1, 2, FALSE
set done1 = the frame
updatestage
end if
return
end
on D22
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1
set the visible of sprite 6 to TRUE
if done1 <> the frame then
puppetTransition 49, 1, 2, FALSE
set done1 = the frame
updatestage
end if
return
end
on D23
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1
set the visible of sprite 6 to TRUE
if done1 <> the frame then
puppetTransition 49, 1, 2, FALSE
set done1 = the frame
updatestage
end if
return
end
on D24
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1
set the visible of sprite 6 to TRUE
if done1 <> the frame then
puppetTransition 49, 1, 2, FALSE
set done1 = the frame
updatestage
end if
return
end
on D25
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D26
global QTsprite, QTspriteDuration, QTspriteName, TC
set event1 = 60 --
set event2 = 170 --
set event3 = 280 --
set event4 = 320 --
set event5 = 450 --
set event6 = 600 --
if (TC > event1 and TC <= event2 ) then
set the visible of sprite 6 to TRUE
else if (TC > event2 and TC <= event3) then
set the visible of sprite 7 to TRUE
else if (TC > event3 and TC <= event4) then
set the visible of sprite 8 to TRUE
else if (TC > event4 and TC <= event5) then
set the visible of sprite 9 to TRUE
else if (TC > event5 and TC <= event6) then
set the visible of sprite 10 to TRUE
end if
return
end
on D27
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2, done3, done4, done5, done6, done7, done8, done9
set the visible of sprite 6 to TRUE
set the visible of sprite 7 to TRUE
set the visible of sprite 8 to TRUE
set the visible of sprite 9 to TRUE
set the visible of sprite 10 to TRUE
set the visible of sprite 11 to TRUE
if TC > 150 and TC < 200 then
set the visible of sprite 12 to TRUE
if done1 <> the frame then
puppetTransition 49, 1, 2, FALSE
set done1 = the frame
updatestage
end if
else if (TC > 300 and TC <= 340) then
set the visible of sprite 13 to TRUE
if done2 <> the frame then
puppetTransition 49, 1, 2, FALSE
set done2 = the frame
updatestage
end if
end if
return
end
on D28
global QTsprite, QTspriteDuration, QTspriteName, TC
global wipeleft, wipedown
set event1 = 160 --
set event2 = 210 --
set event3 = 270
set event4 = 320
if (TC > event1 and TC <= event2) then
doEvent1 6, TRUE, wipeleft, 1, 4, FALSE
else if (TC > event2 and TC <= event3) then
doEvent2 7, TRUE, 0, 1, 8, FALSE
else if (TC > event3 and TC <= event4) then
doEvent3 8, TRUE, 0, 1, 8, FALSE
end if
return
end