home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dictionnaire Le Robert Junior
/
DictionnaireLeRobertJunior-8-12-Ans-Win95Mac.bin
/
DEMO
/
Control.cst
/
00001_Script_1
next >
Wrap
Text File
|
1998-10-29
|
3KB
|
115 lines
on startMovie
cursor 200
end
on keyDown
global gbBoucle, gLastMovie, gbDemoSeule
if not( voidP(gLastMovie)) then
if gbBoucle AND (gbDemoSeule=FALSE) then
if the machineType=256 then
if (chartonum(the key)=113) or (the key = "q" or the key ="Q") then
quitteDemo()
abort
end if
else
if the optionDown then
if (chartonum(the key)=224) then
quitteDemo()
abort
end if
end if
if the controlDown then
if (chartonum(the key)=17) then
quitteDemo()
abort
end if
end if
end if
else
if the commandDown and ¼
(the key = "." or the key = "q" or the key ="Q") then
quitteDemo()
abort
end if
-- ALT-F4 ou ECHAP
if (the keycode=53) then
quitteDemo()
abort
end if
end if
end if
end
on mouseDown
global gbDemoSeule, gbBoucle
if gbBoucle AND (gbDemoSeule=FALSE) then
-- rien si on est dans une boucle
else
if the doubleClick then
quitteDemo()
end if
end if
end
on quitteDemo
global gLastMovie, gbDemoSeule, gLastFrame
if gbDemoSeule then
quit
else
sound stop 1
sound stop 2
sound stop 3
-- cursor -1
hGoMovie(gLastMovie, gLastFrame)
end if
end
on FinDemo
global gListeFichierBoucle, gIndexFichierBoucle, gbBoucle
if gbBoucle then
set nb=count(gListeFichierBoucle)
if gIndexFichierBoucle<nb then
set gIndexFichierBoucle=gIndexFichierBoucle+1
else
set gIndexFichierBoucle=1
end if
LanceDemo(getAt(gListeFichierBoucle, gIndexFichierBoucle))
else
quitteDemo()
end if
end
on LanceDemo pnomFichierDemo
global gPathCD, gItemPath, gbDemoSeule
sound stop 1
sound stop 2
sound stop 3
if not(gbDemoSeule) then
hGoMovie(gPathCD&pnomFichierDemo&gItemPath&pnomFichierDemo)
else
hGoMovie(gPathCD&pnomFichierDemo)
end if
end
---------------------------------------------
-- Nom du handler : hGoMovie
-- R⌠le : Go Movie avec changement de curseur
-- Parametres d'entree :
--pMovie : nom Animation
--pFrame : nom Frame
-- parametres de sorties :
-- rΘvision :
on hGoMovie pMovie, pFrame
cursor 4
set the cursor of sprite (the currentSpriteNum)=4
unloadMember
if the paramCount=1 then
go movie pMovie
else
go frame pFrame of movie pMovie
end if
cursor 0
end hGoMovie