Code I

// SAFE FOR SHOCKWAVE.
#define kMoaMmDictKey_SafeForShockwave "safeForShockwave"
#define kMoaMmDictType_SafeForShockwave kMoaDictType_Bool
MoaBool bItsSafe = TRUE;
/* Mark the xtra as safe for Shockwave */
if (err == kMoaErr_NoErr)
{
err = pRegDict->Put(kMoaMmDictType_SafeForShockwave,
&bItsSafe, sizeof(bItsSafe), kMoaMmDictKey_SafeForShockwave);
}

Code II

static char msgTable[] = {
"xtra MyXtra\n" \
"-- www.penworks.com\n"
"—- by Tab Julius <tab@penworks.com>\n"
"--\n"
"new object me\n"
"* FixAllBugs -- Magically fix all bugs\n"
"* FixCertainBug integer bugNum, string fixName\n"
};

Code III

STDMETHODIMP CScript_IMoaMmXScript::Call(PMoaMmCallInfo callPtr)
{

/* variable declarations */
MoaError err = kMoaErr_NoErr;

switch ( callPtr->methodSelector ) 
{
case m_new:
/*
* --> insert additional code -->
*/
break;

case m_fixAllBugs:
err = XScrpFixAllBugs(callPtr);
break;

case m_fixCertainBug:
err = XScrpFixCertainBug(callPtr);
break;
break;
}

return(err);
}

Code IV

MoaError CScript_IMoaMmXScript::XScrpFixAllBugs(PMoaDrCallInfo callPtr)
{
UNUSED(callPtr);

MoaError err = kMoaErr_NoErr;

MessageBox(NULL, "Hello, World", "", MB_OK);

return(err);
}