etc
/
Microsoft-3D-Movie-Maker
mirror of https://github.com/microsoft/Microsoft-3D-Movie-Maker.git
0
0
Fork 0
Code Issues Projects Releases Wiki Activity
Microsoft-3D-Movie-Maker/SRC/BUILDING/PROJECTS.CHT

369 lines
12 KiB
Plaintext
Raw Permalink Blame History

/* Copyright (c) Microsoft Corporation.
Licensed under the MIT License. */
/*****************************************************************************
*
* PROJECTS.CHT
*
* Copyright (C) Microsoft Corporation 1995.
* All Rights reserved.
*
******************************************************************************
*
* Module Intent
*
* Contains all of the scripting for the Projects Room.
*
******************************************************************************
*
* Revision History: Created 05/08/95 by *****.
*
* 06/07/95 ***** Added Flowchart logic.
*
*****************************************************************************/
// -----------------------------------------------------
// Projects 1 - front view, and objects
// Called Projects Main on the flowchart.
// -----------------------------------------------------
WAVE_CHUNK( "building\sound\projects\Prjt1.wav", kwavPrjt1 )
// WAVE_CHUNK( "building\sound\projects\Prjt2A.wav", kwavPrjt2A )
WAVE_CHUNK( "building\sound\projects\monitor.wav", kwavPrjtMonitor )
GOBCHUNK("melanie - AVI ", kgobMelAVI, gokkNoHitThis )
DEFAULT_POSITION( 64, 140, 999 )
ACTION(fcustNil, fcustNil, fgrfstAll, kcrsArrow, chidNil, cidNil, cnoNil)
ENDCHUNK
REP_VIDEO( CHID1( krepDefault ), "projt2.avi", fTrue )
CREATE_SCRIPT( "created" )
FilterCmdsThis( cidMouseDown, kidNil, kchidScript1);
FilterCmdsThis( cidMap, kidNil, kchidScript1 ); // ctrl+M hotkey and
FilterCmdsThis( cidNew, kidNil, kchidScript1 );
FilterCmdsThis( cidOpen, kidNil, kchidScript1 );
ENDCHUNK
CHILD_SCRIPT( "mouse down", kchidScript1 )
// stop playing... the polling will catch and remove us.
StopThis();
DestroyThis(); // destroy the AVI too
Return( fFalse ); // don't eat the cidMouseDown message
ENDCHUNK
OBJECT("projects1: mon1", kgobProj1Mon1, 75, kcrsHand1)
REP_PPMBMP( CHID(kst1, krepDefault ), "building\pbm\projects\prj1mon1.pbm" )
REP_ANIM(CHID(kst2, krepDefault ), "projects1: monitor1")
DISABLEHOTSPOTS(kflgBuildingMin);
DEBUGCMD(PrintStr("Monitor1: animation"));
DestroyGob( kgobTvViewL );
// Place this monitor at a higher Z depth than the right monitor and balloon
SetZThis( 2160 );
If ( FGobExists(kgobBalloon1d)); // destroy help balloon iff exists
DestroyGob(kgobBalloon1d);
End;
VOICE( kwavPrjtMonitor, 0 );
cnt = kcell2;
Cell( cnt++, 0, 0, 6 );
SetNoSlipThis( fTrue ); // we can now drop frames!
While( cnt <= kcell16 );
Cell( cnt++, 0, 0, 6 );
End;
CreateChildGob( kgobProjects1, kgobFlyingLogos, kgobFlyingLogos);
ENDCHUNK
CLICK_SCRIPT( "projects1 monitor1 clicked" )
ChangeStateThis( kst2 );
ENDCHUNK
#include "PrjMon1.seq"
OBJECTTY( "Projects1: TV animation", kgobTvViewL, 150, kcrsHand1, gokkNoHitThis )
REP_MBMP( CHID(kst1, krepDefault ), "building\bitmaps\projects\holder1.bmp" )
OBJECT("projects1: mon2", kgobProj1Mon2, 155, kcrsHand1)
REP_PPMBMP( CHID(kst1, krepDefault ), "building\pbm\projects\prj1mon2.pbm" )
REP_ANIM(CHID(kst2, krepDefault ), "projects1: monitor2")
DISABLEHOTSPOTS(kflgBuildingMin);
DEBUGCMD(PrintStr("Monitor2: animation"));
DestroyGob( kgobTvViewR );
// Place this monitor at a higher Z depth than the right monitor and balloon
SetZThis( 2160 );
If ( FGobExists(kgobBalloon1d)); // destroy help balloon iff exists
DestroyGob(kgobBalloon1d);
End;
VOICE( kwavPrjtMonitor, 0 );
cnt = kcell2;
Cell( cnt++, 0, 0, 6 );
SetNoSlipThis( fTrue ); // we can now drop frames!
While( cnt <= kcell16 );
Cell( cnt++, 0, 0, 6 );
End;
CreateChildGob(kgobProjects1, kgobMovieTech, kgobMovieTech);
ENDCHUNK
CLICK_SCRIPT( "projects1 monitor2 clicked" )
ChangeStateThis( kst2 );
ENDCHUNK
#include "PrjMon2.seq"
OBJECTTY( "Projects1: TV animation", kgobTvViewR, 155, kcrsHand1, gokkNoHitThis )
REP_MBMP( CHID(kst1, krepDefault ), "building\bitmaps\projects\holder2.bmp" )
// -----------------------------------------------------
// Projects Main Melanie
// -----------------------------------------------------
OBJECT( "projects1: melanie", kgobProj1Melanie, 100, kcrsHand1 )
#include "melproj1.seq" // include all melanie cells
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// State 1: Default and hidden state.
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
REP_RECT(CHID(kst1, krepDefault), "projects1:melanie", 0, 0, 640, 480)
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// State 2: Wait state or been here before -- no intro.
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
REP_ANIM( CHID(kst2, krepDefault), "projects1: melanie")
DEBUGCMD(PrintStr("Melanie state 2 rep."));
Cell(kcell201, 0, 0, 0);
// Help stuff
If (GLOBAL(fHelpOn));
DEBUGCMD(PrintStr("Help is on."));
CreateHelpGob(kgobProjects1, ktpcProject1);
End;
// Idle loop animation
While( fTrue );
VOICE( kwavPrjt1, 0 );
i = kcell201;
While (i <= kcell221 );
Cell(i, 0, 0, 6);
i++;
End;
ENDVOICE();
End;
ENDCHUNK
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// State 3: First time to projects room this session -- run intro
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
REP_ANIM(CHID(kst3, krepEnterAnimation), "projects1: melanie")
DEBUGCMD(PrintStr("Melanie state 3 rep."));
// create the avi object
CreateChildGob( kgobProjects1, kgobMelAVI, kgobMelAVI );
// delay while AVI queues up then watch it and proceed appropriately
Cell( kcell1, 0,0, 100 );
While( PlayingGob( kgobMelAVI ));
Cell( kcell1, 0, 0, 10 ); // poll at 1/6ths of a second
End;
If( FGobExists( kgobMelAVI ));
DestroyGob( kgobMelAVI );
End;
// Switch to wait state (State 2)
SETGLOBAL(fHelpOn, fTrue);
ChangeStateThis(kst2);
ENDCHUNK
CLICK_SCRIPT("Clicked Melanie: Toggle help")
// If Melanie is giving her intro, stop her and set help on. The
// Melanie kst2 animation will pop up the help balloon.
If (StateThis() == kst3);
SETGLOBAL(fHelpOn, fTrue);
ENDVOICE();
ChangeStateThis(kst2);
// Run the intro before showing the help.
Elif (!GLOBAL(fHelpOn)); // Turning help on
ChangeStateThis(kst3);
Else; // Turning help off
SETGLOBAL(fHelpOn, fFalse);
DestroyGob(kgobBalloon1d); // This destroys the balloon that holds the tip
End;
ENDCHUNK
HELP_SCRIPT(ktpcProject1)
If (_parm[0] == 0);
DEBUGCMD(PrintStr("On Help tip create..."));
// Maybe read the tip?
Elif (_parm[0] == 1); // FLYING LOGOS
ChangeStateGob( kgobProj1Mon1, kst2 );
// CreateChildGob(kgobProjects1, kgobFlyingLogos, kgobFlyingLogos);
Elif (_parm[0] == 2); // MOVIE TECHNIQUES
ChangeStateGob( kgobProj1Mon2, kst2 );
End;
ENDCHUNK
OBJECT("FLYING LOGOS", kgobFlyingLogos, 200, kcrsHand1)
REP_RECT(CHID1(krepDefault), "flying logos rect", 0, 0, 640, 480)
CREATE_SCRIPT("FLYING LOGOS startup")
DEBUGCMD(PrintStr("Creating FLYING LOGOS object."));
ENABLEHOTSPOTS(kflgBuildingAll);
// turn guide help off
SetProp(kpridStudioFlags, GetProp(kpridStudioFlags) & 0xfffffffe);
DestroyGob(kgobBalloon1d);
LOADTOOLS(kgobProjects1, kst2, kchidFlyingLogo);
ENDCHUNK
OBJECT("MOVIE TECHNIQUES", kgobMovieTech, 200, kcrsHand1)
REP_RECT(CHID1(krepDefault), "movie techniques rect", 0, 0, 640, 480)
CREATE_SCRIPT("MOVIE TECHNIQUES startup")
DEBUGCMD(PrintStr("Creating MOVIE TECHNIQUES object."));
ENABLEHOTSPOTS(kflgBuildingAll);
// be sure guide help is off.
SetProp(kpridStudioFlags, GetProp(kpridStudioFlags) & 0xfffffffe);
DestroyGob(kgobBalloon1d);
LOADTOOLS(kgobProjects1, kst2, kchidMovieTechniques);
ENDCHUNK
// project back view object
OBJECT( "project2 map", kgobProj2Map, 44, kcrsHand1 )
REP_MASK( CHID1( krepDefault ), "building\bitmaps\projects\prj2map.bmp", 0, 0 )
CLICK_SCRIPT( "project 2 map clicked" )
CreateChildGob( GET_CURRENTPLACE(), kgobMapMain, kgobMapMain );
ENDCHUNK
OBJECT( "project2 exit", kgobProj2Exit, 44, kcrsHand1 )
REP_MASK( CHID1( krepDefault ), "building\bitmaps\projects\prj2exit.bmp", 0, 0 )
CLICK_SCRIPT( "project 2 exit clicked")
QUITAPP();
ENDCHUNK
OBJECT( "doors out", kgobProj2Doors, 33, kcrsHand1 )
REP_MASK( CHID1( krepDefault ), "building\bitmaps\projects\prj2door.bmp", 0, 0 )
CLICK_SCRIPT( "project doors out clicked" )
NEXTPLACE1(kgobBackstage1, kst2);
ENDCHUNK
//--------------------------------------------------------
// Bio page hotspots
//--------------------------------------------------------
OBJECT( "Biopage 37 mask", kgobPrjt1m1, 0, kcrsHand1 )
REP_MASK( CHID1( krepDefault ), "building\bitmaps\projects\p1mask.bmp", 0, 0 )
CLICK_SCRIPT( "mask clicked" )
If(fBIO_AVAIL( 37 ) );
// Bio Page already found
PlaySoundThis(kctgWave, kwavBioAlreadyFound, 0, 0x00010000, 1, 0,
ksclBldgSound);
Else;
BIO_MARKFOUND( 37 );
BIO_CREATEBOOK( 37, fFalse, kgobProjects1 );
End;
ENDCHUNK
OBJECT( "Biopage 34 mask", kgobPrjt2m1, 0, kcrsHand1 )
REP_MASK( CHID1( krepDefault ), "building\bitmaps\projects\prjt2m1.bmp", 0, 0 )
CLICK_SCRIPT( "mask clicked" )
If(fBIO_AVAIL( 34 ) );
// Bio Page already found
PlaySoundThis(kctgWave, kwavBioAlreadyFound, 0, 0x00010000, 1, 0,
ksclBldgSound);
Else;
BIO_MARKFOUND( 34 );
BIO_CREATEBOOK( 34, fFalse, kgobProjects2 );
End;
ENDCHUNK
OBJECT( "Biopage 1 mask", kgobPrjt2m2, 0, kcrsHand1 )
REP_MASK( CHID1( krepDefault ), "building\bitmaps\projects\prjt2m2.bmp", 0, 0 )
CLICK_SCRIPT( "mask clicked" )
If(fBIO_AVAIL( 1 ) );
// Bio Page already found
PlaySoundThis(kctgWave, kwavBioAlreadyFound, 0, 0x00010000, 1, 0,
ksclBldgSound);
Else;
BIO_MARKFOUND( 1 );
BIO_CREATEBOOK( 1, fFalse, kgobProjects2 );
End;
ENDCHUNK
OBJECT( "Biopage 2 mask", kgobPrjt2m3, 0, kcrsHand1 )
REP_MASK( CHID1( krepDefault ), "building\bitmaps\projects\prjt2m3.bmp", 0, 0 )
CLICK_SCRIPT( "mask clicked" )
If(fBIO_AVAIL( 2 ) );
// Bio Page already found
PlaySoundThis(kctgWave, kwavBioAlreadyFound, 0, 0x00010000, 1, 0,
ksclBldgSound);
Else;
BIO_MARKFOUND( 2 );
BIO_CREATEBOOK( 2, fFalse, kgobProjects2 );
End;
ENDCHUNK
OBJECT( "Biopage 3 mask", kgobPrjt2m4, 0, kcrsHand1 )
REP_MASK( CHID1( krepDefault ), "building\bitmaps\projects\prjt2m4.bmp", 0, 0 )
CLICK_SCRIPT( "mask clicked" )
If(fBIO_AVAIL( 3 ) );
// Bio Page already found
PlaySoundThis(kctgWave, kwavBioAlreadyFound, 0, 0x00010000, 1, 0,
ksclBldgSound);
Else;
BIO_MARKFOUND( 3 );
BIO_CREATEBOOK( 3, fFalse, kgobProjects2 );
End;
ENDCHUNK
OBJECT( "Biopage 4 mask", kgobPrjt4m1, 0, kcrsHand1 )
REP_MASK( CHID1( krepDefault ), "building\bitmaps\projects\prjt4m1.bmp", 0, 0 )
CLICK_SCRIPT( "mask clicked" )
If(fBIO_AVAIL( 4 ) );
// Bio Page already found
PlaySoundThis(kctgWave, kwavBioAlreadyFound, 0, 0x00010000, 1, 0,
ksclBldgSound);
Else;
BIO_MARKFOUND( 4 );
BIO_CREATEBOOK( 4, fFalse, kgobProjects4 );
End;
ENDCHUNK
OBJECT( "Biopage 5 mask", kgobPrjt4m2, 0, kcrsHand1 )
REP_MASK( CHID1( krepDefault ), "building\bitmaps\projects\prjt4m2.bmp", 0, 0 )
CLICK_SCRIPT( "mask clicked" )
If(fBIO_AVAIL( 5 ) );
// Bio Page already found
PlaySoundThis(kctgWave, kwavBioAlreadyFound, 0, 0x00010000, 1, 0,
ksclBldgSound);
Else;
BIO_MARKFOUND( 5 );
BIO_CREATEBOOK( 5, fFalse, kgobProjects4 );
End;
ENDCHUNK
OBJECT( "Biopage 6 mask", kgobPrjt4m3, 0, kcrsHand1 )
REP_MASK( CHID1( krepDefault ), "building\bitmaps\projects\prjt4m3.bmp", 0, 0 )
CLICK_SCRIPT( "mask clicked" )
If(fBIO_AVAIL( 6 ) );
// Bio Page already found
PlaySoundThis(kctgWave, kwavBioAlreadyFound, 0, 0x00010000, 1, 0,
ksclBldgSound);
Else;
BIO_MARKFOUND( 6 );
BIO_CREATEBOOK( 6, fFalse, kgobProjects4 );
End;
ENDCHUNK
Reference in New Issue View Git Blame Copy Permalink