LGram16
e067522598
Game client codebase including: - CharacterActionControl: Character and creature management - GlobalScript: Network, items, skills, quests, utilities - RYLClient: Main client application with GUI and event handlers - Engine: 3D rendering engine (RYLGL) - MemoryManager: Custom memory allocation - Library: Third-party dependencies (DirectX, boost, etc.) - Tools: Development utilities 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
353 lines
12 KiB
C++
353 lines
12 KiB
C++
//-----------------------------------------------------------------------------
|
|
// File: AudioScripts.cpp
|
|
//
|
|
// Desc: Plays a script file using DirectMusic
|
|
//
|
|
// Copyright (c) 2000-2001 Microsoft Corporation. All rights reserved.
|
|
//-----------------------------------------------------------------------------
|
|
#define STRICT
|
|
#include <windows.h>
|
|
#include <basetsd.h>
|
|
#include <commdlg.h>
|
|
#include <objbase.h>
|
|
#include <stdio.h>
|
|
#include <dmusicc.h>
|
|
#include <dmusici.h>
|
|
#include <dxerr8.h>
|
|
#include "resource.h"
|
|
#include <tchar.h>
|
|
#include "DMUtil.h"
|
|
#include "DXUtil.h"
|
|
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// Function-prototypes
|
|
//-----------------------------------------------------------------------------
|
|
INT_PTR CALLBACK MainDlgProc( HWND hDlg, UINT msg, WPARAM wParam, LPARAM lParam );
|
|
HRESULT OnInitDialog( HWND hDlg );
|
|
HRESULT OnChangeScriptFile( HWND hDlg, TCHAR* strFileName );
|
|
HRESULT OnCallRoutine( HWND hDlg, TCHAR* strRoutine );
|
|
HRESULT UpdateVariables( HWND hDlg );
|
|
HRESULT SetVariable( HWND hDlg, int nIDDlgItem );
|
|
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// Defines, constants, and global variables
|
|
//-----------------------------------------------------------------------------
|
|
CMusicManager* g_pMusicManager = NULL;
|
|
CMusicScript* g_pMusicScript = NULL;
|
|
HINSTANCE g_hInst = NULL;
|
|
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// Name: WinMain()
|
|
// Desc: Entry point for the application. Since we use a simple dialog for
|
|
// user interaction we don't need to pump messages.
|
|
//-----------------------------------------------------------------------------
|
|
INT APIENTRY WinMain( HINSTANCE hInst, HINSTANCE hPrevInst, LPSTR pCmdLine,
|
|
INT nCmdShow )
|
|
{
|
|
g_hInst = hInst;
|
|
|
|
// Display the main dialog box.
|
|
DialogBox( hInst, MAKEINTRESOURCE(IDD_MAIN), NULL, MainDlgProc );
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// Name: MainDlgProc()
|
|
// Desc: Handles dialog messages
|
|
//-----------------------------------------------------------------------------
|
|
INT_PTR CALLBACK MainDlgProc( HWND hDlg, UINT msg, WPARAM wParam, LPARAM lParam )
|
|
{
|
|
HRESULT hr;
|
|
|
|
switch( msg )
|
|
{
|
|
case WM_INITDIALOG:
|
|
if( FAILED( hr = OnInitDialog( hDlg ) ) )
|
|
{
|
|
DXTRACE_ERR( TEXT("OnInitDialog"), hr );
|
|
MessageBox( hDlg, "Error initializing DirectMusic. Sample will now exit.",
|
|
"DirectMusic Sample", MB_OK | MB_ICONERROR );
|
|
EndDialog( hDlg, 0 );
|
|
return TRUE;
|
|
}
|
|
break;
|
|
|
|
case WM_COMMAND:
|
|
switch( LOWORD(wParam) )
|
|
{
|
|
case IDC_COMBO_SCRIPT:
|
|
if ( HIWORD(wParam) == CBN_SELCHANGE )
|
|
{
|
|
char strFile[MAX_PATH] = "";
|
|
GetDlgItemText( hDlg, IDC_COMBO_SCRIPT, strFile, MAX_PATH );
|
|
if( FAILED( hr = OnChangeScriptFile( hDlg, strFile ) ) )
|
|
{
|
|
DXTRACE_ERR( TEXT("OnChangeScriptFile"), hr );
|
|
MessageBox( hDlg, "Error loading script. Sample will now exit.",
|
|
"DirectMusic Sample", MB_OK | MB_ICONERROR );
|
|
EndDialog( hDlg, 0 );
|
|
return TRUE;
|
|
}
|
|
break;
|
|
}
|
|
|
|
case IDC_BUTTON_ROUTINE1:
|
|
case IDC_BUTTON_ROUTINE2:
|
|
case IDC_BUTTON_ROUTINE3:
|
|
if ( HIWORD(wParam) == BN_CLICKED )
|
|
{
|
|
TCHAR pstrRoutine[] = TEXT("RoutineX");
|
|
pstrRoutine[_tcslen(pstrRoutine) - 1] = '1' + (LOWORD(wParam) - IDC_BUTTON_ROUTINE1);
|
|
if( FAILED( hr = OnCallRoutine(hDlg, pstrRoutine) ) )
|
|
{
|
|
DXTRACE_ERR( TEXT("OnCallRoutine"), hr );
|
|
MessageBox( hDlg, "Error calling routine. Sample will now exit.",
|
|
"DirectMusic Sample", MB_OK | MB_ICONERROR );
|
|
EndDialog( hDlg, 0 );
|
|
return TRUE;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case IDC_EDIT_VARIABLE1:
|
|
case IDC_EDIT_VARIABLE2:
|
|
if ( HIWORD(wParam) == EN_KILLFOCUS )
|
|
{
|
|
if( FAILED( hr = SetVariable( hDlg, LOWORD(wParam) ) ) )
|
|
{
|
|
DXTRACE_ERR( TEXT("SetVariable"), hr );
|
|
MessageBox( hDlg, "Error setting variable. Sample will now exit.",
|
|
"DirectMusic Sample", MB_OK | MB_ICONERROR );
|
|
EndDialog( hDlg, 0 );
|
|
return TRUE;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case IDOK:
|
|
if ( HIWORD(wParam) == BN_CLICKED )
|
|
{
|
|
// This is sent by edit boxes to click the default button
|
|
// (which we don't have) when Enter is pressed.
|
|
HWND hwndFocus = GetFocus();
|
|
int nIDDlgItem = 0;
|
|
if ( hwndFocus == GetDlgItem(hDlg, IDC_EDIT_VARIABLE1) )
|
|
nIDDlgItem = IDC_EDIT_VARIABLE1;
|
|
else if ( hwndFocus == GetDlgItem(hDlg, IDC_EDIT_VARIABLE2) )
|
|
nIDDlgItem = IDC_EDIT_VARIABLE2;
|
|
|
|
if ( nIDDlgItem != 0)
|
|
{
|
|
if( FAILED( hr = SetVariable( hDlg, nIDDlgItem ) ) )
|
|
{
|
|
DXTRACE_ERR( TEXT("SetVariable"), hr );
|
|
MessageBox( hDlg, "Error setting variable. Sample will now exit.",
|
|
"DirectMusic Sample", MB_OK | MB_ICONERROR );
|
|
EndDialog( hDlg, 0 );
|
|
return TRUE;
|
|
}
|
|
|
|
// Select the value to show that Enter committed it
|
|
SendMessage(hwndFocus, EM_SETSEL, 0, -1);
|
|
}
|
|
}
|
|
break;
|
|
|
|
case IDCANCEL:
|
|
EndDialog( hDlg, 0 );
|
|
break;
|
|
|
|
default:
|
|
return FALSE; // Didn't handle message
|
|
}
|
|
break;
|
|
|
|
case WM_DESTROY:
|
|
// Cleanup everything
|
|
SAFE_DELETE( g_pMusicScript );
|
|
SAFE_DELETE( g_pMusicManager );
|
|
break;
|
|
|
|
default:
|
|
return FALSE; // Didn't handle message
|
|
}
|
|
|
|
return TRUE; // Handled message
|
|
}
|
|
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// Name: OnInitDialog()
|
|
// Desc: Initializes the dialogs (sets up UI controls, etc.)
|
|
//-----------------------------------------------------------------------------
|
|
HRESULT OnInitDialog( HWND hDlg )
|
|
{
|
|
HRESULT hr;
|
|
|
|
// Load the icon
|
|
HICON hIcon = LoadIcon( g_hInst, MAKEINTRESOURCE( IDR_MAINFRAME ) );
|
|
|
|
// Set the icon for this dialog.
|
|
SendMessage( hDlg, WM_SETICON, ICON_BIG, (LPARAM) hIcon ); // Set big icon
|
|
SendMessage( hDlg, WM_SETICON, ICON_SMALL, (LPARAM) hIcon ); // Set small icon
|
|
|
|
g_pMusicManager = new CMusicManager();
|
|
|
|
if( FAILED( hr = g_pMusicManager->Initialize( hDlg ) ) )
|
|
return hr;
|
|
|
|
// Set the default media path (something like C:\MSSDK\SAMPLES\MULTIMEDIA\MEDIA)
|
|
// to be used as the search directory for finding DirectMusic content.
|
|
g_pMusicManager->SetSearchDirectory( DXUtil_GetDXSDKMediaPath() );
|
|
|
|
// Fill the dropdown script choices
|
|
SendDlgItemMessage( hDlg, IDC_COMBO_SCRIPT, CB_ADDSTRING,
|
|
0, (LPARAM) "ScriptDemoBasic.spt" );
|
|
SendDlgItemMessage( hDlg, IDC_COMBO_SCRIPT, CB_ADDSTRING,
|
|
0, (LPARAM) "ScriptDemoBaseball.spt" );
|
|
|
|
// Load ScriptDemoBasic
|
|
OnChangeScriptFile( hDlg, "ScriptDemoBasic.spt" );
|
|
SendDlgItemMessage( hDlg, IDC_COMBO_SCRIPT, CB_SELECTSTRING,
|
|
-1, (LPARAM) "ScriptDemoBasic.spt" );
|
|
|
|
if( g_pMusicScript )
|
|
{
|
|
if( FAILED( hr = UpdateVariables( hDlg ) ) )
|
|
return hr;
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// Name: OnChangeScriptFile()
|
|
// Desc: Called when the user changes script files from the dropdown.
|
|
//-----------------------------------------------------------------------------
|
|
HRESULT OnChangeScriptFile( HWND hDlg, TCHAR* strFileName )
|
|
{
|
|
HRESULT hr;
|
|
|
|
// Free any previous script, and make a new one
|
|
SAFE_DELETE( g_pMusicScript );
|
|
|
|
// Have the loader collect any garbage now that the old
|
|
// script has been released
|
|
g_pMusicManager->CollectGarbage();
|
|
|
|
// Load the script file
|
|
if( FAILED( hr = g_pMusicManager->CreateScriptFromFile( &g_pMusicScript, strFileName ) ) )
|
|
return hr;
|
|
|
|
// Get and display a string from the script describing itself.
|
|
// Here we will ignore any errors. The script doesn't have to tell
|
|
// about itself if it doesn't want to.
|
|
if( SUCCEEDED( g_pMusicScript->CallRoutine( TEXT("GetAbout") ) ) )
|
|
{
|
|
// Scripts are normally designed to return Number and Object variables.
|
|
// Retrieving a string is rarely used, and requires use of the more complicated
|
|
// VARIANT data type.
|
|
VARIANT varValue;
|
|
VariantInit(&varValue);
|
|
if( SUCCEEDED( g_pMusicScript->GetScript()->GetVariableVariant( L"About",
|
|
&varValue, NULL ) ) )
|
|
{
|
|
if (varValue.vt == VT_BSTR)
|
|
{
|
|
char strAbout[5000] = "";
|
|
wcstombs( strAbout, varValue.bstrVal, 5000 );
|
|
strAbout[4999] = '\0';
|
|
SetDlgItemText( hDlg, IDC_EDIT_ABOUT, strAbout );
|
|
}
|
|
|
|
// The returned VARIANT contains data fields that
|
|
// must be freed or memory will be leaked
|
|
VariantClear(&varValue);
|
|
}
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// Name: OnCallRoutine()
|
|
// Desc:
|
|
//-----------------------------------------------------------------------------
|
|
HRESULT OnCallRoutine( HWND hDlg, TCHAR* strRoutine )
|
|
{
|
|
HRESULT hr;
|
|
|
|
if( FAILED( hr = g_pMusicScript->CallRoutine( strRoutine ) ) )
|
|
return DXTRACE_ERR( TEXT("CallRoutine"), hr );
|
|
|
|
if( FAILED( hr = UpdateVariables( hDlg ) ) )
|
|
return DXTRACE_ERR( TEXT("UpdateVariables"), hr );
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// Name: UpdateVariables()
|
|
// Desc:
|
|
//-----------------------------------------------------------------------------
|
|
HRESULT UpdateVariables( HWND hDlg )
|
|
{
|
|
LONG lVal = 0;
|
|
HRESULT hr;
|
|
|
|
if( FAILED( hr = g_pMusicScript->GetVariableNumber( TEXT("Variable1"), &lVal ) ) )
|
|
return DXTRACE_ERR( TEXT("GetVariableNumber"), hr );
|
|
SetDlgItemInt( hDlg, IDC_EDIT_VARIABLE1, lVal, TRUE );
|
|
|
|
if( FAILED( hr = g_pMusicScript->GetVariableNumber( TEXT("Variable2"), &lVal ) ) )
|
|
return DXTRACE_ERR( TEXT("GetVariableNumber"), hr );
|
|
SetDlgItemInt( hDlg, IDC_EDIT_VARIABLE2, lVal, TRUE );
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// Name: SetVariable()
|
|
// Desc:
|
|
//-----------------------------------------------------------------------------
|
|
HRESULT SetVariable( HWND hDlg, int nIDDlgItem )
|
|
{
|
|
HRESULT hr;
|
|
BOOL fIntConvertOK = FALSE;
|
|
int iVal = GetDlgItemInt( hDlg, nIDDlgItem, &fIntConvertOK, TRUE );
|
|
TCHAR* pstrVariable = (nIDDlgItem == IDC_EDIT_VARIABLE1) ? TEXT("Variable1") : TEXT("Variable2");
|
|
|
|
hr = g_pMusicScript->SetVariableNumber( pstrVariable, iVal );
|
|
if( FAILED(hr) )
|
|
return hr;
|
|
|
|
return S_OK;
|
|
}
|