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/STUDIO/HELPBOOK.CHT

758 lines
29 KiB
Plaintext
Raw Permalink Blame History

/* Copyright (c) Microsoft Corporation.
Licensed under the MIT License. */
// -----------------------------------------------------
// CHT file that defines the interaction with the
// Help Book.
//
// Modified / Reviewed:
// 5.29.95 ***** -- made to use ::globals
// -----------------------------------------------------
// WAVE FILES for the help book
//WAVE_CHUNK("studio\sound\hmbtn.wav", kcnoHelpMainWav )
WAVE_CHUNK("studio\sound\next.wav", kcnoHelpMainWav )
WAVE_CHUNK("studio\sound\next.wav", kcnoHelpNextWav )
WAVE_CHUNK("studio\sound\back.wav", kcnoHelpBackWav )
// WAVE_CHUNK ("studio\sound\bingo.wav", wavBingo)
//------------------------------------------------------------------
// Help book parent object
//------------------------------------------------------------------
OBJECT("Help Book Parent", kgobHelpBookParent, 100, kcrsArrow)
REP_RECT(CHID1(krepDefault), "kgobHelpBookParent", 0,0, 640, 480 )
CREATE_ANIM("help book parent created")
.last = kidNil; // .last = kid of last primary button hilited
.lasthow = kidNil; // .lasthow = kid of last how to button hilited
.hsshow = 0; // flag: is how to sub section showing?
DISABLEACCEL(fFalse);
// Note: the above disable hotkeys while the book is up.
// Note that since enables have to match with disables, any way the book is killed
// *must* reenable the keys. So far, the two book deconstructors are :
// hit cancel (easy) choose a tool topic or how to.
// eat all keys while the book is up
FilterCmdsThis(cidKey, kidNil, kchidScript9);
// Create the help gizmo and the fill
CreateChildThis( kgobHelpBookGizmo, kgobHelpBookGizmo );
CreateChildThis( kgobHelpBookFillPar, kgobHelpBookFillPar );
CreateChildThis( kgobHelpBookHowSub, kgobHelpBookHowSub );
// Switch to the current section + topic
RunScriptThis(kchidScript4, ::HBSection, ::HBtpcCur[::HBSection ] );
ENDCHUNK
//------------------------------------------------------------------
// Script to switch to a particular section (first page of)
//
//------------------------------------------------------------------
CHILD_SCRIPT( "help book : switch to section", kchidScript1 )
If( _parm[0] != 1 );
tpc = ::HBtpcEnd[ _parm[0]-1 ] +1;
Else;
tpc = ktpcBook1TOC;
End;
// display!
RunScriptThis( kchidScript4, _parm[0], tpc );
ENDCHUNK
//------------------------------------------------------------------
// Script to switch to the previous page.
// -- no parameters --
//------------------------------------------------------------------
CHILD_SCRIPT("help book : prev page", kchidScript2)
// find current section # and topic
sec = ::HBSection;
top = ::HBtpcCur[sec];
If (top == ktpcBookStart); // Can't go previous at first page TOC
Exit();
End;
top--;
// Check to see if we underflow the current section
If (sec > 1);
If (top <= ::HBtpcEnd[sec - 1]);
// Did underflow. Decrement section # (topic # is ok)
sec--;
End;
End;
// Then tell the book to switch to that page
RunScriptThis(kchidScript4, sec, top);
ENDCHUNK
//------------------------------------------------------------------
// Script to switch to the next page.
// -- no parameters --
//------------------------------------------------------------------
CHILD_SCRIPT( "help book : next page", kchidScript3 )
// find current section # and topic
sec = ::HBSection;
top = ::HBtpcCur[ sec ];
If (top == ktpcBookEnd); // Can't go next at last page
Exit();
End;
top++;
If (sec < 10);
// Check to see if we overflow the current section
If (top > ::HBtpcEnd[sec]);
// Did overflow. Decrement section # (topic # is ok)
sec++;
End;
End;
// tell the book to switch to that page
RunScriptThis(kchidScript4, sec, top );
ENDCHUNK
// -------------------------------------------------------------
// Switch book display to section passed as _parm0, topic = _parm1
//
// This is the core of the help book display; all other scripts
// fall through here for update.
//
// Parameters: _parm[0] = section #
// _parm[1] = topic id
// -------------------------------------------------------------
CHILD_SCRIPT( "help book : switch to section", kchidScript4 )
sec = _parm[0];
tpc = _parm[1];
::HBSection = sec; // update global section variable
::HBtpcCur[sec] = tpc; // and MRU page in that section (for book re-open)
// deselect last main section button
If (.last != kidNil);
ChangeStateGob(.last, kst1); // - deselect the last
End;
// select new one
gob = Select(sec, kidNil,
kgobHelpBookPrimary1, kgobHelpBookPrimary2, kgobHelpBookPrimary3,
kgobHelpBookPrimary3, kgobHelpBookPrimary3, kgobHelpBookPrimary3,
kgobHelpBookPrimary3, kgobHelpBookPrimary3, kgobHelpBookPrimary4,
kgobHelpBookPrimary5);
If( gob != kidNil );
ChangeStateGob(gob, kst2);
.last = gob;
End;
// If it's a HOW TO section -- select the second piece too
If ( sec >= 3 && sec <= 8);
// set our lastsub section value
::HBLastsub = sec;
// send out how sub bar
If (.hsshow == 0);
ChangeStateGob(kgobHelpBookHowSub, kst2);
.hsshow = 1;
End;
// deselect the last "how to" subtopic
If (.lasthow != kidNil);
ChangeStateGob(.lasthow, kst1);
End;
// Select current how to
gob = Select( sec - 2, 0,
kgobHelpHowButton1, kgobHelpHowButton2,
kgobHelpHowButton3, kgobHelpHowButton4,
kgobHelpHowButton5, kgobHelpHowButton6);
// Select & keep track of the last how to subtopic selected
ChangeStateGob(gob, kst2);
.lasthow = gob;
// wasn't a how sub section, get rid of How To subsection
Else;
If (.hsshow == 1);
ChangeStateGob(kgobHelpBookHowSub, kst3);
.hsshow = 0;
End;
End;
// Check and set state of page forward button (kst2 = disabled)
ChangeStateGob( kgobHelpBookPageFwd,
((tpc) >= ktpcBookEnd ) ? kst2 : kst1 );
// Check and set state of page back button (kst2 = disabled)
ChangeStateGob( kgobHelpBookPageBack,
(tpc <= ktpcBookStart ) ? kst2 : kst1 );
// Calculate the page # ... section one is a special case
start = (sec == 1 ) ? (ktpcBookStart - 1) : (::HBtpcEnd[sec - 1]);
// Now put values into the stringtable so help can show em.
NumToStr((::HBtpcEnd[sec] - start), stidMaxPage);
NumToStr((tpc - start), stidCurrPage);
// destroy previous gobs
If (FGobExists(kgobHelpBookBkgd));
DestroyGob(kgobHelpBookBkgd);
DestroyGob(kgobHelpBookPageNum);
DestroyGob(kgobHelpBookPageLeft);
End;
// create the title for this topic
CreateHelpGob(kgobHelpTitlePar, tpcTitle1 + sec - 1);
// and then the page itself
CreateHelpGob(kgobHelpBookGizmo, tpcPageNumber);
// set the rectangle which holds the topics up
st = (sec > 2 && sec < 9) ? kst2 : kst1;
ChangeStateGob( kgobHelpBookFillPar, st );
// and create the help topic
CreateHelpGob(kgobHelpBookFillPar, tpc);
ENDCHUNK
// -------------------------------------------------------------
// script to eat and throw away key clicks
CHILD_SCRIPT( "help book : switch to section", kchidScript9 )
Return( fTrue );
ENDCHUNK
///////////////////////////////////
// Help book gizmo object
///////////////////////////////////
// -----------------------------------------------------
// Gizmo body image that masks stuff underneath it
// -----------------------------------------------------
OBJECTTY("Help Book Gizmo", kgobHelpBookGizmo, 180, kcrsArrow, kgokkRectHit )
REP_MBMP(CHID1(krepDefault), "studio\bmp\gizmo.bmp")
CREATE_ANIM("help gizmo created")
// Spot for the Help topic title
CreateChildGob( GidParThis(), kgobHelpTitlePar, kgobHelpTitlePar );
// And controls / buttons on top...
CreateChildThis(kgobHelpBookVolume, kgobHelpBookVolume);
CreateChildThis( kgobHelpBookVolumePath, kgobHelpBookVolumePath );
CreateChildThis(kgobHelpBookVoice, kgobHelpBookVoice);
CreateChildThis(kgobHelpBookPageBack, kgobHelpBookPageBack);
CreateChildThis(kgobHelpBookPageFwd, kgobHelpBookPageFwd);
CreateChildThis(kgobHelpBookCancel, kgobHelpBookCancel);
CreateChildThis(kgobHelpBookPrimary1, kgobHelpBookPrimary1);
CreateChildThis(kgobHelpBookPrimary2, kgobHelpBookPrimary2);
CreateChildThis(kgobHelpBookPrimary3, kgobHelpBookPrimary3);
CreateChildThis(kgobHelpBookPrimary4, kgobHelpBookPrimary4);
CreateChildThis(kgobHelpBookPrimary5, kgobHelpBookPrimary5);
ENDCHUNK
// -----------------------------------------------------
// The "fill" is the background page color - it changes
// for each major book section
// -----------------------------------------------------
OBJECT("Help Book Fill parent", kgobHelpBookFillPar, 200, kcrsArrow)
REP_RECT(CHID(kst1, krepDefault), "state1:normal", kLeftPageL, kTopPage, kLeftPageR, kBottomPage )
REP_RECT(CHID(kst2, krepDefault), "state2:howto", kLeftPageL2, kTopPage, kLeftPageR, kBottomPage )
// this object is the balloon itself
OBJECT("Help Book Fill", kgobHelpBookFill, 200, kcrsArrow)
REP_FILL(CHID(kst1, krepDefault), "fill", kLeftPageL, kTopPage, kLeftPageR, kBottomPage, Transparent, Transparent)
PATTERN_0
ENDCHUNK
// -----------------------------------------------------
// Help book primary button #1
// -----------------------------------------------------
OBJECT("Help Table of Contents", kgobHelpBookPrimary1, 350, kcrsHand1)
REP_MBMP(CHID1(krepDefault), "studio\bmp\prim1.bmp")
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseDnOff))
REP_MBMP(CHID(kst2, krepDefault), "studio\bmp\prim1s.bmp")
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
CLICK_SCRIPT("button1 clicked")
// set section 1
RunScriptGob( kgobHelpBookParent, kchidScript1, 1 );
ENDCHUNK
ADOPT_WAVE( kcnoHelpMainWav, CHID1(krepClicked))
// -----------------------------------------------------
// Help book primary button #2
// -----------------------------------------------------
OBJECT("Help Basics", kgobHelpBookPrimary2, 350, kcrsHand1)
REP_MBMP(CHID1(krepDefault), "studio\bmp\prim2.bmp")
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseDnOff))
REP_MBMP(CHID(kst2, krepDefault), "studio\bmp\prim2s.bmp")
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
CLICK_SCRIPT("button2 clicked")
// set section 1
RunScriptGob( kgobHelpBookParent, kchidScript1, 2 );
ENDCHUNK
ADOPT_WAVE( kcnoHelpMainWav, CHID1(krepClicked))
// -----------------------------------------------------
// Help book primary button #3
// -----------------------------------------------------
OBJECT("Help How To", kgobHelpBookPrimary3, 350, kcrsHand1)
REP_MBMP(CHID1(krepDefault), "studio\bmp\prim3.bmp")
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseDnOff))
REP_MBMP(CHID(kst2, krepDefault), "studio\bmp\prim3s.bmp")
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
CLICK_SCRIPT("button3 clicked")
// Set book to last section within "How To" section
RunScriptGob( kgobHelpBookParent, kchidScript1, ::HBLastsub );
ENDCHUNK
ADOPT_WAVE( kcnoHelpMainWav, CHID1(krepClicked))
// -----------------------------------------------------
// Help book primary button #4
// -----------------------------------------------------
OBJECT("Help Tools", kgobHelpBookPrimary4, 350, kcrsHand1)
REP_MBMP(CHID1(krepDefault), "studio\bmp\prim4.bmp")
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseDnOff))
REP_MBMP(CHID(kst2, krepDefault), "studio\bmp\prim4s.bmp")
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
CLICK_SCRIPT("button4 clicked")
// set section 1
RunScriptGob( kgobHelpBookParent, kchidScript1, 9 );
ENDCHUNK
ADOPT_WAVE( kcnoHelpMainWav, CHID1(krepClicked))
// -----------------------------------------------------
// Help book primary button #5
// -----------------------------------------------------
OBJECT("Help Tips", kgobHelpBookPrimary5, 350, kcrsHand1)
REP_MBMP(CHID1(krepDefault), "studio\bmp\prim5.bmp")
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseDnOff))
REP_MBMP(CHID(kst2, krepDefault), "studio\bmp\prim5s.bmp")
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
CLICK_SCRIPT("button5 clicked")
// set section 1
RunScriptGob( kgobHelpBookParent, kchidScript1, 10 );
ENDCHUNK
ADOPT_WAVE( kcnoHelpMainWav, CHID1(krepClicked))
// -----------------------------------------------------
// Gizmo volume control
// -----------------------------------------------------
OBJECTTTREG("Help Book Volume", kgobHelpBookVolume, 350, kcrsHand1, ttBookVolume, 39, 168)
REP_MBMPREG(CHID1(krepDefault), "studio\bmp\volume.bmp", 39, 168)
// --------------------------------------------------------------------------------
// The thumbnail is the graphic indicator of volume level...
// positioned within the slide path - not hittable
// --------------------------------------------------------------------------------
OBJECTTY( "HelpBook - volume slider", kgobHelpBookVolumeSlider, 60, kcrsArrow1, kgokkRectNoHit )
REP_MBMP( CHID1( krepDefault ), "studio\bmp\volthmb.bmp" )
// --------------------------------------------------------------------------------
// The slider is the rectangular path the volume slider rolls around in.
// kdypHelpBookSlider is the height of the slidable area; kdypHelpBookSliderTotal includes
// height of thumbnail to be sure it will show at the min setting
// --------------------------------------------------------------------------------
OBJECTREG( "map - volume slidepath", kgobHelpBookVolumePath, kxpHelpBookSlider, kypHelpBookSlider, 500, kcrsHand1)
REP_RECT( CHID1( krepDefault), "HelpBook rectangle", 0, 0, kdxpHelpBookSlider, kdypHelpBookSliderTotal )
CREATE_SCRIPT( "create slidepath")
CreateChildThis( kgobHelpBookVolumeSlider, kgobHelpBookVolumeSlider );
// get initial volume value, move thumbnail
y = kdypHelpBookSlider -(( GetMasterVolume() * kdypHelpBookSlider )/ (2*kvlmFull));
MoveAbsGob( kgobHelpBookVolumeSlider, 0, y );
ENDCHUNK
REP_ANIM( CHID1( krepMouseDnOn), "slider")
// repeat up to 30000 times.
.siiLoop = PlaySoundThis( kctgWave, kwavDing, 2, 0x00010000, 30000, 1, 4 );
While( 1 );
y = YMouseThis();
If( y < 0 );
y=0;
Elif( y > kdypHelpBookSlider );
y =kdypHelpBookSlider;
End;
// move thumb slider
MoveAbsGob( kgobHelpBookVolumeSlider, 0, y );
// track new volume
newvol = ( (2*kvlmFull) * (kdypHelpBookSlider-y) ) / kdypHelpBookSlider;
// set the volume
SetMasterVolume( newvol );
// Sample at 10/60ths of a second.
Cell( 0 , 0,0, 10 );
End;
ENDCHUNK
REP_ANIM( CHID1( kchidDownUpOn ), "release on" )
StopSound( .siiLoop );
ENDCHUNK
ADOPT_ANIM( LAST_ANIM, CHID1( kchidDownUpOff ))
// -----------------------------------------------------
// Gizmo voice toggle control
// -----------------------------------------------------
OBJECTTTREG("Help Book Voice Toggle", kgobHelpBookVoice, 350, kcrsHand1, ttBookVoice, kxpHelpBookVoice, kypHelpBookVoice)
REP_MBMPREG(CHID1(krepDefault), "studio\bmp\vocon.bmp", kxpregHelpBookVoice, kypregHelpBookVoice )
ADOPT_MBMP(LAST_MBMP, CHID1(krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1(krepMouseDnOff))
ADOPT_MBMP( LAST_MBMP, CHID( kst2, krepMouseDnOn ))
REP_MBMPREG(CHID1( krepMouseDnOn ), "studio\bmp\vocoff.bmp", kxpregHelpBookVoice, kypregHelpBookVoice )
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
CREATE_ANIM("MZ Voice control")
// see if voice should be on or off
fMZAudio = GetProp( kpridMcZeeAudio ) & kflgMcZeeAudio;
If ( fMZAudio ); // audio suppressed = state 2
ChangeStateThis(kst2);
End;
ENDCHUNK
CLICK_SCRIPT("voice toggle clicked")
flg = GetProp( kpridMcZeeAudio );
If (StateThis() == kst1); // audio on (suppress = FALSE)
flg |= kflgMcZeeAudio; // switch to audio off (suppress = TRUE)
SetProp( kpridMcZeeAudio, flg );
ChangeStateThis(kst2);
Else;
flg &= ~kflgMcZeeAudio; // opposite of above
SetProp( kpridMcZeeAudio, flg );
ChangeStateThis(kst1); // toggle audio on / off state
End;
ENDCHUNK
// -----------------------------------------------------
// Page forward control
// -----------------------------------------------------
GOBCHUNK("Help Book Page Forward", kgobHelpBookPageFwd, kgokkNormal)
DEFAULT_POSITION( kxpHelpBookPageFwd, kypHelpBookPageFwd, 350)
ACTION(fcustNil, fcustNil, fgrfst1, kcrsHand1, CHID(kst1, kchidClick), cidNil, ttBookPageFwd)
ACTION(fcustNil, fcustNil, fgrfstAll, kcrsArrow, chidNil, cidNil, cnoNil)
ENDCHUNK
CHILD_SCRIPT("page Fwd clicked", CHID(kst1, kchidClick))
RunScriptGob( kgobHelpBookParent, kchidScript3 );
ENDCHUNK
REP_MBMPREG(CHID1(krepDefault), "studio\bmp\pgfwd.bmp" , kxpregHelpBookPageFwd, kypregHelpBookPageFwd )
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseDnOff))
REP_MBMPREG(CHID1( krepMouseDnOn), "studio\bmp\pgfwdds.bmp", kxpregHelpBookPageFwd, kypregHelpBookPageFwd )
REP_RECT( CHID(kst2, krepDefault), "hidden",0,0,0,0 )
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
ADOPT_WAVE( kcnoHelpNextWav , CHID1(krepClicked))
// -----------------------------------------------------
// Page back control
// -----------------------------------------------------
GOBCHUNK("Help Book Page Back", kgobHelpBookPageBack, kgokkNormal)
DEFAULT_POSITION( kxpHelpBookPageBack, kypHelpBookPageBack, 350)
ACTION(fcustNil, fcustNil, fgrfst1, kcrsHand1, CHID(kst1, kchidClick), cidNil, ttBookPageBack)
ACTION(fcustNil, fcustNil, fgrfstAll, kcrsArrow, chidNil, cidNil, cnoNil)
ENDCHUNK
CHILD_SCRIPT("page back clicked", CHID(kst1, kchidClick))
RunScriptGob( kgobHelpBookParent, kchidScript2 );
ENDCHUNK
REP_MBMPREG(CHID1(krepDefault), "studio\bmp\pgback.bmp" , kxpregHelpBookPageBack, kypregHelpBookPageBack)
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseDnOff))
REP_MBMPREG(CHID1(krepMouseDnOn), "studio\bmp\pgbackds.bmp", kxpregHelpBookPageBack, kypregHelpBookPageBack)
REP_RECT( CHID(kst2, krepDefault), "hidden",0,0,0,0 )
ADOPT_WAVE( kcnoHelpBackWav , CHID1(krepClicked))
// -----------------------------------------------------
// Help book cancel control -- ttBookCancel
// -----------------------------------------------------
OBJECTTTREG("Help Book Cancel", kgobHelpBookCancel, 350, kcrsHand1, ttBookCancel, kxpHelpBookCancel, kypHelpBookCancel)
REP_MBMPREG(CHID1(krepDefault), "studio\bmp\hcancel.bmp", kxpregHelpBookCancel, kypregHelpBookCancel)
ADOPT_MBMP(LAST_MBMP, CHID1(krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1(krepMouseDnOff))
REP_MBMPREG(CHID1(krepMouseDnOn), "studio\bmp\hcancelc.bmp", kxpregHelpBookCancel, kypregHelpBookCancel)
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
CLICK_SCRIPT("Cancel clicked")
ENABLEACCEL(fFalse);
DestroyGob(kgobHelpBookParent);
ENDCHUNK
ADOPT_WAVE(kcnoCancelWav, CHID1(krepClicked))
// -----------------------------------------------------
// How To Section subsection
// -----------------------------------------------------
OBJECT("Help Book How To Sub", kgobHelpBookHowSub, 250, kcrsArrow)
CREATE_ANIM("help book howsub-create")
// create all of our children and set appropriate states
CreateChildThis(kgobHelpHowButton1, kgobHelpHowButton1);
CreateChildThis(kgobHelpHowButton2, kgobHelpHowButton2);
CreateChildThis(kgobHelpHowButton3, kgobHelpHowButton3);
CreateChildThis(kgobHelpHowButton4, kgobHelpHowButton4);
CreateChildThis(kgobHelpHowButton5, kgobHelpHowButton5);
CreateChildThis(kgobHelpHowButton6, kgobHelpHowButton6);
ENDCHUNK
REP_RECT( CHID1( krepDefault ), "blank", 0, 0, 0,0 )
REP_MASK( CHID( kst2, krepDefault ), "studio\bmp\howmsk.bmp" );
REP_RECT( CHID( kst3, krepDefault ), "blank", 0, 0, 0,0 )
// -----------------------------------------------------
// First "how to" subsection button
// -----------------------------------------------------
OBJECT("Help Book How button1", kgobHelpHowButton1, 275, kcrsHand1)
REP_MBMP(CHID(kst1, krepDefault), "studio\bmp\hbut1.bmp")
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseDnOff))
REP_MBMP(CHID(kst2, krepDefault), "studio\bmp\hbut1s.bmp")
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
CLICK_SCRIPT("button1 clicked")
// set book to section 3
RunScriptGob( kgobHelpBookParent, kchidScript1, 3 );
ENDCHUNK
// -----------------------------------------------------
// Second "how to" subsection button
// -----------------------------------------------------
OBJECT("Help Book How button2", kgobHelpHowButton2, 275, kcrsHand1)
REP_MBMP(CHID(kst1, krepDefault), "studio\bmp\hbut2.bmp")
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseDnOff))
REP_MBMP(CHID(kst2, krepDefault), "studio\bmp\hbut2s.bmp")
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
CLICK_SCRIPT("button1 clicked")
RunScriptGob( kgobHelpBookParent, kchidScript1, 4 );
ENDCHUNK
// -----------------------------------------------------
// Third "how to" subsection button
// -----------------------------------------------------
OBJECT("help book How button3", kgobHelpHowButton3, 275, kcrsHand1)
REP_MBMP(CHID(kst1, krepDefault), "studio\bmp\hbut3.bmp")
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseDnOff))
REP_MBMP(CHID(kst2, krepDefault), "studio\bmp\hbut3s.bmp")
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
CLICK_SCRIPT("button1 clicked")
RunScriptGob( kgobHelpBookParent, kchidScript1, 5 );
ENDCHUNK
// -----------------------------------------------------
// Fourth "how to" subsection button
// -----------------------------------------------------
OBJECT("Help Book How button4", kgobHelpHowButton4, 275, kcrsHand1)
REP_MBMP(CHID(kst1, krepDefault), "studio\bmp\hbut4.bmp")
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseDnOff))
REP_MBMP(CHID(kst2, krepDefault), "studio\bmp\hbut4s.bmp")
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
CLICK_SCRIPT("button1 clicked")
RunScriptGob( kgobHelpBookParent, kchidScript1, 6 );
ENDCHUNK
// -----------------------------------------------------
// Fifth "how to" subsection button
// -----------------------------------------------------
OBJECT("Help Book How button5", kgobHelpHowButton5, 275, kcrsHand1)
REP_MBMP(CHID(kst1, krepDefault), "studio\bmp\hbut5.bmp")
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseDnOff))
REP_MBMP(CHID(kst2, krepDefault), "studio\bmp\hbut5s.bmp")
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
CLICK_SCRIPT("button1 clicked")
RunScriptGob( kgobHelpBookParent, kchidScript1, 7 );
ENDCHUNK
// -----------------------------------------------------
// Sixth "how to" subsection button
// -----------------------------------------------------
OBJECT("Help Book How button6", kgobHelpHowButton6, 275, kcrsHand1)
REP_MBMP(CHID(kst1, krepDefault), "studio\bmp\hbut6.bmp")
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseUpOn))
ADOPT_MBMP(LAST_MBMP, CHID1( krepMouseDnOff))
REP_MBMP(CHID(kst2, krepDefault), "studio\bmp\hbut6s.bmp")
ADOPT_MBMP(LAST_MBMP, CHID(kst2, krepDefault))
CLICK_SCRIPT("button1 clicked")
RunScriptGob( kgobHelpBookParent, kchidScript1, 8 );
ENDCHUNK
// -----------------------------------------------------
// Book Bkgd = rectangle to hold Title
// size=nil; help will resize this puppy
// -----------------------------------------------------
OBJECTTY("Help Book Bkgd", kgobHelpBookBkgd, 225, kcrsArrow, gokkNoHitThis )
REP_FILL(CHID(kst1, krepDefault), "title spot", 0,0,0,0, Palette(44), Transparent )
PATTERN_0
ENDCHUNK
// this space is the parent of the help title balloon -- its
// reg point is at 0,0 (size of the rect is -240,0 to +240, 80
// so the position must be 320, 80
GOBCHUNK( "Title space", kgobHelpTitlePar, gokkNoHitThis )
DEFAULT_POSITION(kxpHelpTitle, kypHelpTitle, kzpHelpTitle)
ACTION(fcustNil, fcustNil, fgrfstAll, kcrsArrow1, chidNil, cidNil, cnoNil )
ENDCHUNK
REP_FILL(CHID(kst1, krepDefault), "title spot", kTitleLeft, kTitleTop, kTitleRight, kTitleBottom, Palette(21), Transparent )
PATTERN_0
ENDCHUNK
// -----------------------------------------------------
// Book Bkgd = rectangle to hold page # help
// -----------------------------------------------------
OBJECT("Help Book Page Number", kgobHelpBookPageNum, 350, kcrsArrow)
REP_RECT(CHID(kst1, krepDefault), "kgobHelpBookPageNum", kxpPageNumLeft, kypPageNumTop, kxpPageNumRight, kypPageNumBot )
// ----------------------------------------------------------------
// Left Book Page - holds help topics
// auto-resized to hold the help topic
// ----------------------------------------------------------------
GOBCHUNK("Help Book Page", kgobHelpBookPageLeft, kgokkNormal)
DEFAULT_POSITION( 0,0,225 )
ACTION(fcustHotText, fcustHotText, fgrfstAll, kcrsHand1, chidNil, cidNil, cnoNil)
ENDCHUNK
REP_RECT(CHID(kst1, krepDefault), "kgobHelpBookPageLeft", 0, 0, 0, 0 )
// ----------------------------------------------------------------
// Mouse click in the tools section of the help book
// *** All tool topics have this listed as the script to run
// ----------------------------------------------------------------
HELP_SCRIPT( ktpcBookToolTopics )
// parm[0] = group # passed in. 0 indicates creation only.
If(_parm[0] != 0);
// Valid group clicked! _parm[4] is balloon to automatically
// create!
If( _parm[4] == cnoNil );
// no balloon? Error!
DEBUGCMD( AlertStr("Not linked to a topic!") );
Else;
// create the balloon and destroy the book
CreateHelpGob(kidBackground, _parm[4]);
// reenable the help book's hot keys
ENABLEACCEL(fFalse);
DestroyGob(kgobHelpBookParent);
End;
Return( fTrue ); // tell code NOT to create balloon
End;
ENDCHUNK
// -------------------------------------------------------
// choice button clicked in TOC #1 balloon
// -------------------------------------------------------
HELP_SCRIPT(ktpcBook1TOC)
// _parm[0] : 0 = initialization, 1 ==BASICS, 2 = HOWTO, 3 = TOOLS, 4 = TIPS
If(_parm[0] != 0);
// Switch to appropriate section.
If (_parm[0] < 3);
RunScriptGob(kgobHelpBookParent, kchidScript1, _parm[0]+1 );
Else;
RunScriptGob(kgobHelpBookParent, kchidScript1, _parm[0]+6 );
End;
End;
ENDCHUNK
// ----------------------------------------------------------------
// Mouse click in basics in the help book
// All how to objects have this listed as the script to run
// ----------------------------------------------------------------
HELP_SCRIPT(kidHelpBookBasics)
// parm[0] = group # passed in
If(_parm[0] != 0);
// Valid group clicked _parm[4] is id of table object to run
If( _parm[4] == cnoNil );
// no table? Error, display alert then get out
DEBUGCMD( AlertStr("Not linked to basics");)
Else;
// create the balloon and destroy the book
CreateChildGob(kidBackground, kidSequenceParent, kidSequenceParent);
CreateChildGob(kidBackground, _parm[4], _parm[4]);
// re-enable the hotkeys for the book
ENABLEACCEL(fFalse);
DestroyGob(kgobHelpBookParent);
End;
Return( fTrue ); // tell code NOT to create help sequence
End;
ENDCHUNK
// ----------------------------------------------------------------
// Mouse click in howto in the help book
// All how to objects have this listed as the script to run
// ----------------------------------------------------------------
HELP_SCRIPT(kidHelpBookHowTo)
// parm[0] = group # passed in
If(_parm[0] != 0);
// Valid group clicked _parm[4] is id of table object to run
If( _parm[4] == cnoNil );
// no table? Error, display alert then get out
DEBUGCMD( AlertStr("Not linked to a howto!"); )
Else;
// create the balloon and destroy the book
CreateChildGob(kidBackground, kidSequenceParent, kidSequenceParent);
CreateChildGob(kidBackground, _parm[4], _parm[4]);
// re-enable the hotkeys for the book
ENABLEACCEL(fFalse);
DestroyGob(kgobHelpBookParent);
End;
Return( fTrue ); // tell code NOT to create help sequence
End;
ENDCHUNK
//
// Click scripts for query help topics.
//
// -------------------------------------------------------
// Query quit
// -------------------------------------------------------
HELP_SCRIPT(ktpcQueryQuit)
// If _parm[0] != 0 then a button has been pushed.
If(_parm[0] != 0);
EnqueueCid(cidEndModal, 0, _parm[0], 0, 0, 0);
End;
ENDCHUNK
// -------------------------------------------------------
// Query document save
// -------------------------------------------------------
HELP_SCRIPT(ktpcQuerySave)
// If _parm[0] != 0 then a button has been pushed.
If(_parm[0] != 0);
EnqueueCid(cidEndModal, 0, _parm[0], 0, 0, 0);
End;
ENDCHUNK
// -------------------------------------------------------
// Query sound delete
// -------------------------------------------------------
HELP_SCRIPT(ktpcQuerySoundDelete)
// If _parm[0] != 0 then a button has been pushed.
If(_parm[0] != 0);
EnqueueCid(cidEndModal, 0, _parm[0], 0, 0, 0);
End;
ENDCHUNK
// -------------------------------------------------------
// Query overwrite existing file
// -------------------------------------------------------
HELP_SCRIPT(ktpcQueryOverwrite)
// If _parm[0] != 0 then a button has been pushed.
If(_parm[0] != 0);
EnqueueCid(cidEndModal, 0, _parm[0], 0, 0, 0);
End;
ENDCHUNK
// -------------------------------------------------------
// Query exit studio to where
// -------------------------------------------------------
HELP_SCRIPT(ktpcQueryExitStudio)
// If _parm[0] != 0 then a button has been pushed.
If(_parm[0] != 0);
EnqueueCid(cidEndModal, 0, _parm[0], 0, 0, 0);
End;
ENDCHUNK
Reference in New Issue View Git Blame Copy Permalink