home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Buyer 1997 March
/
dpcb0397.iso
/
multimed
/
MAIL
/
SCRIPTS.CST
/
00003_Script_3
< prev
next >
Wrap
Text File
|
1996-07-07
|
22KB
|
775 lines
on D29
global QTsprite, QTspriteDuration, QTspriteName, TC
set event1 = 353 -- boy
set event2 = 562 -- children
set event3 = 1007 -- nightmare
set event4 = 1132 -- xmas
set event5 = 1313 -- letters
set event6 = 1402 -- adults
set event7 = 1632 -- muffin
set event8 = 1702 -- mutant
set event9 = 1974 -- sweet
if (TC > event1 and TC <= event2 - 1) then
set the visible of sprite 6 to TRUE
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 > event8 and TC <= event9 - 1) then
set the visible of sprite 13 to TRUE
else if (TC > event9 and TC <= event9 + 30) then
set the visible of sprite 14 to TRUE
end if
return
end
on D29a
global QTsprite, QTspriteDuration, QTspriteName, TC
-- Sweet rationing movie play here
end
on D30
global hblind, vblind, wipeleft
global QTsprite, QTspriteDuration, QTspriteName, TC
set event1 = 190 --
set event2 = 290 --
set event3 = 350 --
set event4 = 410 --
set event5 = 450 --
if (TC > event1 and TC <= event2) then
doEvent1 6, TRUE, vblind, 1, 8, FALSE
else if (TC > event2 and TC <= event3) then
doEvent2 7, TRUE, hblind, 1, 8, FALSE
else if (TC > event3 and TC <= event4) then
doEvent3 8, TRUE, vblind, 1, 12, FALSE
else if (TC > event4 and TC <= event5) then
doEvent4 9, TRUE, hblind, 1, 12, FALSE
else if (TC > event5 and TC <= event5 + 50) then
doEvent5 10, TRUE, vblind, 1, 12, FALSE
end if
return
end
on D31
global QTsprite, QTspriteDuration, QTspriteName, TC
set event1 = 20 --
set event2 = 100 --
set event3 = 200 --
set event4 = 350 --
set event5 = 500 --
set event6 = 650 --
set event7 = 800 --
if (TC > event1 and TC <= event2 - 1) then
set the visible of sprite 6 to TRUE
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
end if
return
end
on D32
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2, done3
global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
global hEdgesin, vblind, hblind, stripsBottomLeft
set event1 = 100 --
set event2 = 230 --
set event3 = 320 --
set event4 = 400 --
set event5 = 550 --
if (TC > event1 and TC <= event2) then
doEvent1 6, TRUE, wipedown, 1, 12, FALSE
else if (TC > event2 and TC <= event3) then
doEvent2 7, TRUE, wipedown, 1, 12, FALSE
else if (TC > event3 and TC <= event4) then
doEvent3 8, TRUE, wipedown, 1, 12, FALSE
else if (TC > event4 and TC <= event5) then
doEvent4 9, TRUE, vblind, 1, 8, FALSE
end if
return
end
on D33
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1
set event1 = 150 --
set event2 = 300 --
if (TC > event1 and TC <= event2 - 1) then
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
end if
return
end
on D34
global QTsprite, QTspriteDuration, QTspriteName, TC
set event1 = 350 --
set event2 = 510 --
set event3 = 650 --
set event4 = 750 --
if (TC > event1 and TC <= event2 - 1) then
set the visible of sprite 6 to TRUE
else if (TC > event2 and TC <= event3 - 1) then
set the visible of sprite 7 to TRUE
end if
return
end
on D35
global QTsprite, QTspriteDuration, QTspriteName, TC
set event1 = 150 --
set event2 = 300 --
set event3 = 450 --
set event4 = 575 --
set event5 = 650 --
set event6 = 700 --
set event7 = 400 --
if (TC > event1 and TC <= event2 - 1) then
set the visible of sprite 6 to TRUE
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
end if
return
end
on D36
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D37
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2
set event1 = 391 -- saw
set event2 = 494 -- wore
set event3 = 604 -- thought
set event4 = 725 -- bought
set event5 = 841 -- suffered
set event6 = 941 -- celebrated
set event7 = 1200 -- vote
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
else if (TC > event6 and TC <= event7) then
set the visible of sprite 11 to TRUE
end if
return
end
on D37a
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2
set event7 = 150 -- vote
set event8 = 315 -- powerful
set event8a = 495 -- whims
set event8b = 532 -- work
set event8c = 580 -- fear
set event9 = 629 -- pride
set event10 = 1096 -- arrogance
set event11 = 1153 -- uneasy
set event12 = 1290 -- bigotry
set event13 = 1421 -- savagery
set event14 = 1556 -- Nelson mandela
set event15 = 1821 -- politicians
set event16 = 2108 -- winston churchill
set event17 = 2200
if (TC > event7 and TC <= event8) then
set the visible of sprite 6 to TRUE
else if (TC > event8 and TC <= event8a) then
set the visible of sprite 7 to TRUE
else if (TC > event8a and TC <= event8b) then
set the visible of sprite 8 to TRUE
else if (TC > event8b and TC <= event8c) then
set the visible of sprite 9 to TRUE
else if (TC > event8c and TC <= event9) then
set the visible of sprite 10 to TRUE
else if (TC > event9 and TC <= event10) then
set the visible of sprite 11 to TRUE
end if
return
end
on D37a2
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2
set event10 = 216 -- arrogance
set event11 = 273 -- uneasy
set event12 = 430 -- bigotry
set event13 = 561 -- savagery
set event14 = 696 -- Nelson mandela
set event15 = 961 -- politicians
set event16 = 1248 -- winston churchill
set event17 = 1340
if (TC > event10 and TC <= event11) then
set the visible of sprite 12 to TRUE
else if (TC > event11 and TC <= event12) then
set the visible of sprite 13 to TRUE
else if (TC > event12 and TC <= event13) then
set the visible of sprite 14 to TRUE
else if (TC > event13 and TC <= event14) then
set the visible of sprite 15 to TRUE
else if (TC > event14 and TC <= event15) then
set the visible of sprite 16 to TRUE
else if (TC > event15 and TC <= event16) then
hidesprites 6, 16
set the visible of sprite 17 to TRUE
if done1 <> the frame then
puppetTransition 49, 1, 3, FALSE
set done1 = the frame
updatestage
end if
else if (TC > event16 and TC <= event17) then
set the visible of sprite 18 to TRUE
set the visible of sprite 17 to FALSE
if done2 <> the frame then
puppetTransition 05, 1, 4, FALSE
set done2 = the frame
updatestage
end if
end if
return
end
on D37B
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2, done3, done4, done5, done6, done7
global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
global hEdgesin, vblind, hblind, stripsBottomLeft
set event1 = 445 -- baird 6
set event2 = 487 -- bleirot 7
set event3 = 553 -- langtree 8
set event4 = 591 -- Chaplin 9
set event5 = 648 -- Marconi 10
set event6 = 697 -- Mussolini 11
set event7 = 761 -- Kipling 12
set event8 = 806 -- Shaw 13
set event9 = 994 -- Christie 14
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
else if (TC > event6 and TC <= event7) then
set the visible of sprite 11 to TRUE
else if (TC > event7 and TC <= event8) then
set the visible of sprite 12 to TRUE
else if (TC > event8 and TC <= event9) then
set the visible of sprite 13 to TRUE
end if
return
end
on D37B2
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2, done3, done4, done5, done6, done7
global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
global hEdgesin, vblind, hblind, stripsBottomLeft
set fiddle = 900
set event9 = 994 - fiddle -- Christie 14
set event10 = 1034 - fiddle -- Crippen 15
set event11 = 1081 - fiddle -- Ellis 16
set event12 = 1124 - fiddle -- Topliss 17
set event13 = 1164 - fiddle -- Haigh 18
set event14 = 1290 - fiddle -- Blake 19
set event15 = 1348 - fiddle -- Blunt 20
set event16 = 1404 - fiddle -- burgess 21
set event17 = 1434 - fiddle -- maclean 22
set event18 = 1483 - fiddle -- Philby 23
set event19 = 1588 - fiddle -- Mata Hari 24
set event20 = 1750 - fiddle -- Earthquake 25
set event21 = 1789 - fiddle -- Typhoon 26
set event22 = 1849 - fiddle -- pit 27
set event23 = 1909 - fiddle -- air disaster 28
set event24 = 2196 - fiddle -- titanic 29
set event25 = 2367 - fiddle -- captain scott 30
set event26 = 2530 - fiddle
if (TC > event9 and TC <= event10) then
set the visible of sprite 14 to TRUE
if done1 <> the frame then
hidesprites 6,13
--puppetTransition wipedown, 1, 12, FALSE
set done1 = the frame
updatestage
end if
else if (TC > event10 and TC <= event11) then
set the visible of sprite 15 to TRUE
updatestage
else if (TC > event11 and TC <= event12) then
set the visible of sprite 16 to TRUE
updatestage
else if (TC > event12 and TC <= event13) then
set the visible of sprite 16 to TRUE
set the visible of sprite 17 to TRUE
updatestage
else if (TC > event13 and TC <= event14) then
set the visible of sprite 18 to TRUE
updatestage
else if (TC > event14 and TC <= event15) then
set the visible of sprite 19 to TRUE
if done2 <> the frame then
hidesprites 6,18
set done2 = the frame
updatestage
end if
else if (TC > event15 and TC <= event16) then
set the visible of sprite 20 to TRUE
else if (TC > event16 and TC <= event17) then
set the visible of sprite 21 to TRUE
else if (TC > event17 and TC <= event18) then
set the visible of sprite 22 to TRUE
else if (TC > event18 and TC <= event19) then
set the visible of sprite 23 to TRUE
else if (TC > event19 and TC <= event20) then
set the visible of sprite 24 to TRUE
if done3 <> the frame then
hidesprites 6,23
puppetTransition hcentreout, 1, 4, FALSE
set done3 = the frame
updatestage
end if
else if (TC > event20 and TC <= event21) then
set the visible of sprite 25 to TRUE
else if (TC > event21 and TC <= event22) then
set the visible of sprite 26 to TRUE
else if (TC > event22 and TC <= event23) then
set the visible of sprite 27 to TRUE
else if (TC > event23 and TC <= event24) then
set the visible of sprite 28 to TRUE
else if (TC > event24 and TC <= event25) then
set the visible of sprite 29 to TRUE
else if (TC > event25 and TC <= event26) then
set the visible of sprite 30 to TRUE
if done4 <> the frame then
hidesprites 24,29
puppetTransition wipedown, 1, 4, FALSE
set done4 = the frame
updatestage
end if
end if
return
end
on D37C
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D38
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2, done3, done4, done5, done6, done7
global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
global hEdgesin, vblind, hblind, stripsBottomLeft
set event1 = 289 -- royal family
set event2 = 497 -- queen vic
set event3 = 631 -- despair
set event4 = 837 -- king george
set event5 = 992 -- respect
set event6 = 1050 --
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
set the visible of sprite 7 to FALSE
if done1 <> the frame then
hidesprites 24,29
puppetTransition vblind, 1, 4, FALSE
set done1 = the frame
updatestage
end if
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 D39
global QTsprite, QTspriteDuration, QTspriteName, TC
global done1, done2, done3, done4, done5, done6, done7
global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
global hEdgesin, vblind, hblind, stripsBottomLeft
set event1 = 405 -- ali 6
set event2 = 448 -- abrahams 7
set event3 = 509 -- bannister 8
set event4 = 565 -- botham 9
set event5 = 613 -- coe 10
set event6 = 681 -- compton 11
set event7 = 760 -- best 12
set event8 = 817 -- dixie 13
set event9 = 870 -- matthews 14
set event10 = 943 -- fred perry 15
set event11 = 990 -- virginia wade 16
set event12 = 1027 -- shergar 17
set event13 = 1126 -- red rum 18
set event14 = 1171 -- mick 19
set event15 = 1235 -- lara 20
set event16 = 1311 -- lomu 21
set event17 = 1504 -- index 22
set event18 = 1889 -- jim corbett 23
set event19 = 1979 -- cantona 24
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
else if (TC > event6 and TC <= event7) then
set the visible of sprite 11 to TRUE
else if (TC > event7 and TC <= event8) then
set the visible of sprite 12 to TRUE
else if (TC > event8 and TC <= event9) then
set the visible of sprite 13 to TRUE
else if (TC > event9 and TC <= event10) then
set the visible of sprite 14 to TRUE
else if (TC > event10 and TC <= event11) then
set the visible of sprite 15 to TRUE
else if (TC > event11 and TC <= event12) then
set the visible of sprite 16 to TRUE
else if (TC > event12 and TC <= event13) then
set the visible of sprite 17 to TRUE
if done1 <> the frame then
hidesprites 6,16
puppetTransition hblind, 1, 8, FALSE
set done1 = the frame
updatestage
end if
else if (TC > event13 and TC <= event14) then
set the visible of sprite 18 to TRUE
else if (TC > event14 and TC <= event15) then
set the visible of sprite 19 to TRUE
else if (TC > event15 and TC <= event16) then
set the visible of sprite 20 to TRUE
else if (TC > event16 and TC <= event17) then
set the visible of sprite 21 to TRUE
end if
return
end
on D39B
global QTsprite, QTspriteDuration, QTspriteName, TC
global hblind, vblind, wipedown
set event1 = 30 --
set event2 = 120 --
set event3 = 280 --
set event4 = 450 --
set event5 = 590
if (TC > event1 and TC <= event2) then
doEvent1 6, TRUE, wipedown, 1, 4, FALSE
else if (TC > event2 and TC <= event3) then
doEvent2 7, TRUE, wipedown, 1, 4, FALSE
else if (TC > event3 and TC <= event4) then
doEvent3 8, TRUE, wipedown, 1, 4, FALSE
else if (TC > event4 and TC <= event5) then
doEvent4 9, TRUE, wipedown, 1, 4, FALSE
end if
return
end
on D40
global QTsprite, QTspriteDuration, QTspriteName, TC
return
end
on D41
global QTsprite, QTspriteDuration, QTspriteName, TC
global hblind, vblind, wipeleft
set event1 = 90 --
set event2 = 180 --
set event3 = 280 --
set event4 = 410 --
if (TC > event1 and TC <= event2) then
doEvent1 6, TRUE, wipeleft, 1, 8, FALSE
else if (TC > event2 and TC <= event3) then
doEvent2 7, TRUE, wipeleft, 1, 8, FALSE
else if (TC > event3 and TC <= event4) then
doEvent3 8, TRUE, vblind, 1, 12, FALSE
end if
return
end
on D42
global QTsprite, QTspriteDuration, QTspriteName, TC
set event1 = 21 -- health
set event2 = 86 -- advert
set event3 = 173 + 30 -- madcap
set event4 = 243 + 50 -- ideal
set event5 = 466 + 50 -- daily mail
set event6 = 594 + 50 -- northcliffe
set event7 = 650 + 50 --
if (TC > event1 and TC <= event2) then
doEvent1 6, TRUE, 0, 1, 12, FALSE
else if (TC > event2 and TC <= event3) then
doEvent2 7, TRUE, 0, 1, 12, FALSE
else if (TC > event3 and TC <= event4) then
doEvent3 8, TRUE, 0, 1, 12, FALSE
else if (TC > event4 and TC <= event5) then
doEvent4 9, TRUE, 01, 1, 8, FALSE
else if (TC > event5 and TC <= event6) then
doEvent5 10, TRUE, 01, 1, 8, FALSE
else if (TC > event6 and TC <= event7) then
doEvent6 11, TRUE, 03, 1, 8, FALSE
end if
return
end
on D43
global QTsprite, QTspriteDuration, QTspriteName, TC
global hblind, vblind
set event1 = 160 --
set event2 = 250 --
set event3 = 350 --
set event4 = 450 --
if (TC > event1 and TC <= event2) then
doEvent1 6, TRUE, hblind, 1, 8, FALSE
else if (TC > event2 and TC <= event3) then
doEvent2 7, TRUE, vblind, 1, 8, FALSE
else if (TC > event3 and TC <= event4) then
doEvent3 8, TRUE, hblind, 1, 8, FALSE
end if
return
end
on D44
global QTsprite, QTspriteDuration, QTspriteName, TC
global hblind, vblind
set event1 = 50 --
set event2 = 90 --
set event3 = 100 --
set event4 = 300 --
if (TC > event1 and TC <= event2) then
doEvent1 6, TRUE, hblind, 1, 8, FALSE
end if
return
end
on D45
global QTsprite, QTspriteDuration, QTspriteName, TC
global hblind, vblind, wipedown
set event1 = 60 --
set event2 = 120 --
set event3 = 180 --
set event4 = 300 --
if (TC > event1 and TC <= event2) then
doEvent1 6, TRUE, wipedown, 1, 6, FALSE
else if (TC > event2 and TC <= event3) then
doEvent2 7, TRUE, wipedown, 1, 6, FALSE
end if
return
end
on D46
global QTsprite, QTspriteDuration, QTspriteName, TC
global hblind, vblind, hcentreout
set event1 = 100 --
set event2 = 200 --
set event3 = 280 --
set event4 = 380 --
if (TC > event1 and TC <= event2) then
doEvent1 6, TRUE, hblind, 1, 12, FALSE
else if (TC > event2 and TC <= event3) then
doEvent2 7, TRUE, vblind, 1, 12, FALSE
else if (TC > event3 and TC <= event4) then
doEvent3 8, TRUE, hcentreout, 1, 4, FALSE
end if
return
end
--set event1 = --
--set event2 = --
--set event3 = --
--set event4 = --
--set event5 = --
--set event6 = --
--set event7 = --
--set event8 = --
--set event9 = --
--
--
--
--
--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
--else if (TC > event7 and TC <= event8) then
-- doEvent7 12, TRUE, 01, 1, 4, FALSE
--else if (TC > event8 and TC <= event9) then
-- doEvent8 13, TRUE, 01, 1, 4, FALSE
--
--
--end if