|
|
|
KK
Added on 6/28/2000
|
I"ve changed this,being a moviescript first into a behaviorscript because I had a lot of requests to mail the QTversionChecker, and requests for support afterwards.Now it just has to be in frame 1 in the scriptchannel, just fill out the parameterlist change the stagesize to 0 x 0 pixels, and remove ALL the xtras from the "Movie xtras-Include in projector" list Then create a projector from this file, no titlebar, standard projector.Don"t forget to put the QTsetupprogram file in the moviemap or else this projector does nothing else then launch your mainmovie.
--QuickTimeVersionChecker/Installer
--by Kurt Koenig * Belgium
--Moviescript rewritten as Behaviorscript and updated 04/28/2000
--and again 05/06/2000
property pWhichversion, pWhichMovie, pThisProjector, pSetupExe
on getPropertyDescriptionList me
list = [:]
addProp list, #pWhichVersion, [#comment: "Put the QTversion (single) number to check for/install:", #format: #integer, #default:3]
addProp list, #pSetupExe, [#comment: "Enter the name of your setupprogram:", #format: #string, #default:"QuickTimeInstaller"]
addProp list, #pWhichmovie, [#comment: "Enter a moviename (dxr) to play, if or after installed:", #format: #string, #default: "Mainmovie"]
addProp list, #pThisProjector, [#comment: "Enter the name youre going to use for this projector:", #format: #string, #default:"Start"]
return list
end
on getBehaviorDescription me
return "¬
I"ve changed this,being a moviescript first into a behaviorscript"&return&"¬
because I had a lot of requests to mail the QTversionChecker,"&return&"¬
and requests for support afterwards.Now it just has to be"&return&"¬
in frame 1 in the scriptchannel, just fill out the parameterlist"&return&"¬
change the stagesize to 0 x 0 pixels, and remove ALL the xtras"&return&"¬
from the "Movie xtras-Include in projector" list"&return&"¬
Then create a projector from this file, no titlebar, standard"&return&"¬
projector.Don"t forget to put the QTsetupprogram file in the"&return&"¬
moviemap or else this projector does nothing else then launch"&return&"¬
your mainmovie. The QuickTimeInstaller I use shows"&return&"¬
Installation created by Vise Installer from MindVision on"&return&"¬
startup, and it consists out of two files (484 KB and 7.50 MB)"&return&"¬
QuickTimeInstaller.exe and QuickTimeInstallCache.qdat.This"&return&"¬
behavior can be used to install other self registering programs to."&return&"¬
Read more details in the other (field) cast member"&return&return&"¬
Kurt * Belgium"
end getBehaviorDescription
on getBehaviorTooltip me
return "¬
Put this behavior in the scriptchannel frame 1,"&return&"¬
and fill out the parameterlist"
end getBehaviorTooltip
on enterframe
if quicktimeversion() < pWhichVersion then
set OK = baRunProgram( pSetupExe, "normal", true )
open the moviepath&pThisProjector
halt
else
go to movie pWhichMovie
end if
end
|
|