3D游戏引擎 Programming Role-Playing Games with DirectX, 2nd Edition by Jim Adams

				#include 
				#include 
				#include "Script.h"
				
				cScript::cScript()
				{
				  m_NumActions = 0;
				  m_ScriptParent = NULL;
				}
				
				cScript::~cScript()
				{
				  Free();
				}
				
				BOOL cScript::Load(char *Filename)
				{
				  FILE *fp;
				  long i, j;
				  sScript *ScriptHead = NULL, *Script, *ScriptPtr = NULL;
				
				  Free();  // Free prior script
				
				  // Open the file for input
				  if((fp=fopen(Filename, "rb"))==NULL)
				    return FALSE;
				
				  // Get # of script actions and store them
				  fread(&m_NumActions, 1, sizeof(long), fp);
				
				  // Loop through each script action
				  for(i=0;i				    // Allocate a script structure and link in
				    Script = new sScript();
				    Script->Next = NULL;
				    if(ScriptPtr == NULL)
				      ScriptHead = Script;
				    else
				      ScriptPtr->Next = Script;
				    ScriptPtr = Script;
				
				    // Get type of action and # of entries
				    fread(&Script->Type, 1, sizeof(long), fp);
				    fread(&Script->NumEntries, 1, sizeof(long), fp);
				
				    // Get entry data (if any)
				    if(Script->NumEntries) {
				
				      // Allocate entry array
				      Script->Entries = new sScriptEntry[Script->NumEntries]();
				
				      // Load in each entry
				      for(j=0;jNumEntries;j++) {
				        // Get entry type and data
				        fread(&Script->Entries[j].Type, 1, sizeof(long), fp);
				        fread(&Script->Entries[j].IOValue,1,sizeof(long),fp);
				
				        // Get text (if any)
				        if(Script->Entries[j].Type == _TEXT &&                \
				           Script->Entries[j].Length) {
				          Script->Entries[j].Text =                           \
				                          new char[Script->Entries[j].Length];
				          fread(Script->Entries[j].Text, 1,                   \
				                          Script->Entries[j].Length, fp);
				        }
				      }
				    }
				  }
				
				  fclose(fp);
				
				  m_ScriptParent = ScriptHead;
				
				  return TRUE;
				}
				
				BOOL cScript::Free()
				{
				  delete m_ScriptParent;
				  m_ScriptParent = NULL;
				  m_NumActions = 0;
				
				  return TRUE;
				}
				
				BOOL cScript::Execute(char *Filename)
				{
				  sScript *ScriptPtr;
				
				  // Load script if none already
				  if(Filename != NULL)
				    Load(Filename);
				
				  // Prepare script data for execution
				  if(Prepare() == FALSE)
				    return FALSE;
				
				  // Start at beginning of script
				  if((ScriptPtr = m_ScriptParent) == NULL)
				    return FALSE;
				
				  // Loop until no more script actions
				  while(ScriptPtr != NULL) {
				    // Call script function and break on NULL return value.
				    // Any other return type is the pointer to the next function,
				    // which is typically ScriptPtr->Next.
				    ScriptPtr = Process(ScriptPtr);
				  }
				
				  // Release data
				  Release();
				
				  // Release script if execute loaded it
				  if(Filename != NULL)
				    Free();
				
				  return TRUE;
				}
				
				sScript *cScript::GetParentScript()
				{
				  return m_ScriptParent;
				}