Re: Makromedia Direktor
global SysBlock_Flag, CPU_Flag, xq, VideoPlata_Flag, Monitor_Flag, EnterFrame_Flag, yq, CpuCool_Flag, CD_Cover_Flag, Pow_Button_Flag, CD_Play_Flag, SoundPlata, Kolonki_Flag, musicS
on beginSprite me
member("Comp").resetWorld()
member("Comp").model("CpuCool").addChild(member("C omp").model("CpuVentilator"))
Kolonki_Flag = 1
SoundPlata = 1
CD_Play_Flag = 1
Pow_Button_Flag = 1
CD_Cover_Flag = 1
CpuCool_Flag = 1
SysBlock_Flag = 1
CPU_Flag = 1
VideoPlata_Flag = 1
Monitor_Flag = 1
EnterFrame_Flag = 1
yq = 0 -- просто счетчик
xq = member("Comp").camera("DefaultView").fieldOfView
-- Ставим на паузу анимацию объектов.
-- К тем объектам которые анимированы костями добавляем
-- модификатор bonesPlayer иначе анимацией будет невозможно управлять.
member("Comp").model("VideoPlata").keyframePlayer. pause()
member("Comp").model("CPU").keyframePlayer.pause()
member("Comp").model("CpuCool").keyframePlayer.pau se()
member("Comp").model("Power_Button").keyframePlaye r.pause()
member("Comp").model("MonProvod").addModifier(#bon esPlayer)
member("Comp").model("MonProvod").bonesPlayer.paus e()
member("Comp").model("CD_Disk").keyframePlayer.pau se()
member("Comp").model("SoundPlata").keyframePlayer. pause()
member("Comp").model("SoundProvod").addModifier(#b onesPlayer)
member("Comp").model("SoundProvod").bonesPlayer.pa use()
member("Comp").model("CpuVentilator").keyframePlay er.pause()
end
on mouseUp
mouseTarget = the mouseLoc - point(sprite(2).left, sprite(2).top)
if sprite(2).camera.modelUnderLoc(mouseTarget) = member("Comp").model("SysBlock_Cover") then
-- открываем и закрываем корпус включая анимацию с нужного нам кадра
if SysBlock_Flag =1 then
member("Comp").model("SysBlock_Cover").keyframePla yer.play("SysBlock_Cover-Key",0,0,333,1)
SysBlock_Flag = 2
else
put "close"
member("Comp").model("SysBlock_Cover").keyframePla yer.play("SysBlock_Cover-Key",0,333,666,1)
SysBlock_Flag =1
end if
end if
-- myKeyPress
end
on enterFrame me
myKeyPress
end
on myKeyPress
--поворот слева
if keyPressed("z") then
member("Comp").model("CamDummy").rotate(0,0,2)
end if
--поворот справа
if keyPressed("c") then
member("Comp").model("CamDummy").rotate(0,0,-2)
end if
-- наезд камерой
if keyPressed("d") then
if xq>10 then
xq=xq-1
member("Comp").camera("DefaultView").fieldOfView = xq
end if
end if
-- отъезд камерой
if keyPressed("x") then
if xq<50 then
xq=xq+1
member("Comp").camera("DefaultView").fieldOfView = xq
end if
end if
-- ресет камеры
if keyPressed("r") then
xq=45
member("Comp").camera("DefaultView").fieldOfView = xq
end if
if keyPressed("p") then
go to 0
end if
updateStage()
end
|