mirror of
https://github.com/scp-fs2open/fs2open.github.com.git
synced 2026-11-09 17:52:08 -10:00
I've tested this through compiling and through hand checking. Normalises line endings in ALL files to \n.
670 lines
16 KiB
C++
670 lines
16 KiB
C++
// VoiceActingManager.cpp : implementation file
|
|
//
|
|
|
|
#include "stdafx.h"
|
|
#include "fred.h"
|
|
#include "VoiceActingManager.h"
|
|
#include "missionui/missioncmdbrief.h"
|
|
#include "mission/missionbriefcommon.h"
|
|
#include "mission/missionmessage.h"
|
|
#include "hud/hudtarget.h"
|
|
#include "parse/sexp.h"
|
|
#include "iff_defs/iff_defs.h"
|
|
#include <math.h>
|
|
|
|
#ifdef _DEBUG
|
|
#define new DEBUG_NEW
|
|
#undef THIS_FILE
|
|
static char THIS_FILE[] = __FILE__;
|
|
#endif
|
|
|
|
// to keep track of data
|
|
char Voice_abbrev_briefing[NAME_LENGTH];
|
|
char Voice_abbrev_campaign[NAME_LENGTH];
|
|
char Voice_abbrev_command_briefing[NAME_LENGTH];
|
|
char Voice_abbrev_debriefing[NAME_LENGTH];
|
|
char Voice_abbrev_message[NAME_LENGTH];
|
|
char Voice_abbrev_mission[NAME_LENGTH];
|
|
bool Voice_no_replace_filenames;
|
|
char Voice_script_entry_format[NOTES_LENGTH];
|
|
int Voice_export_selection;
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// VoiceActingManager dialog
|
|
|
|
|
|
VoiceActingManager::VoiceActingManager(CWnd* pParent /*=NULL*/)
|
|
: CDialog(VoiceActingManager::IDD, pParent)
|
|
{
|
|
//{{AFX_DATA_INIT(VoiceActingManager)
|
|
m_abbrev_briefing = _T("");
|
|
m_abbrev_campaign = _T("");
|
|
m_abbrev_command_briefing = _T("");
|
|
m_abbrev_debriefing = _T("");
|
|
m_abbrev_message = _T("");
|
|
m_abbrev_mission = _T("");
|
|
m_example = _T("");
|
|
m_no_replace = FALSE;
|
|
m_script_entry_format = _T("");
|
|
m_export_everything = FALSE;
|
|
m_export_command_briefings = FALSE;
|
|
m_export_briefings = FALSE;
|
|
m_export_debriefings = FALSE;
|
|
m_export_messages = FALSE;
|
|
//}}AFX_DATA_INIT
|
|
}
|
|
|
|
|
|
void VoiceActingManager::DoDataExchange(CDataExchange* pDX)
|
|
{
|
|
CDialog::DoDataExchange(pDX);
|
|
//{{AFX_DATA_MAP(VoiceActingManager)
|
|
DDX_Text(pDX, IDC_ABBREV_BRIEFING, m_abbrev_briefing);
|
|
DDX_Text(pDX, IDC_ABBREV_CAMPAIGN, m_abbrev_campaign);
|
|
DDX_Text(pDX, IDC_ABBREV_COMMAND_BRIEFING, m_abbrev_command_briefing);
|
|
DDX_Text(pDX, IDC_ABBREV_DEBRIEFING, m_abbrev_debriefing);
|
|
DDX_Text(pDX, IDC_ABBREV_MESSAGE, m_abbrev_message);
|
|
DDX_Text(pDX, IDC_ABBREV_MISSION, m_abbrev_mission);
|
|
DDX_Text(pDX, IDC_EXAMPLE, m_example);
|
|
DDX_Check(pDX, IDC_NO_REPLACE, m_no_replace);
|
|
DDX_Text(pDX, IDC_ENTRY_FORMAT, m_script_entry_format);
|
|
DDX_Check(pDX, IDC_EXPORT_EVERYTHING, m_export_everything);
|
|
DDX_Check(pDX, IDC_EXPORT_COMMAND_BRIEFINGS, m_export_command_briefings);
|
|
DDX_Check(pDX, IDC_EXPORT_BRIEFINGS, m_export_briefings);
|
|
DDX_Check(pDX, IDC_EXPORT_DEBRIEFINGS, m_export_debriefings);
|
|
DDX_Check(pDX, IDC_EXPORT_MESSAGES, m_export_messages);
|
|
//}}AFX_DATA_MAP
|
|
}
|
|
|
|
|
|
BEGIN_MESSAGE_MAP(VoiceActingManager, CDialog)
|
|
//{{AFX_MSG_MAP(VoiceActingManager)
|
|
ON_WM_CLOSE()
|
|
ON_EN_SETFOCUS(IDC_ABBREV_BRIEFING, OnSetfocusAbbrevBriefing)
|
|
ON_EN_SETFOCUS(IDC_ABBREV_CAMPAIGN, OnSetfocusAbbrevCampaign)
|
|
ON_EN_SETFOCUS(IDC_ABBREV_COMMAND_BRIEFING, OnSetfocusAbbrevCommandBriefing)
|
|
ON_EN_SETFOCUS(IDC_ABBREV_DEBRIEFING, OnSetfocusAbbrevDebriefing)
|
|
ON_EN_SETFOCUS(IDC_ABBREV_MESSAGE, OnSetfocusAbbrevMessage)
|
|
ON_EN_SETFOCUS(IDC_ABBREV_MISSION, OnSetfocusAbbrevMission)
|
|
ON_CBN_SETFOCUS(IDC_SUFFIX, OnSetfocusSuffix)
|
|
ON_EN_CHANGE(IDC_ABBREV_BRIEFING, OnChangeAbbrevBriefing)
|
|
ON_EN_CHANGE(IDC_ABBREV_CAMPAIGN, OnChangeAbbrevCampaign)
|
|
ON_EN_CHANGE(IDC_ABBREV_COMMAND_BRIEFING, OnChangeAbbrevCommandBriefing)
|
|
ON_EN_CHANGE(IDC_ABBREV_DEBRIEFING, OnChangeAbbrevDebriefing)
|
|
ON_EN_CHANGE(IDC_ABBREV_MESSAGE, OnChangeAbbrevMessage)
|
|
ON_EN_CHANGE(IDC_ABBREV_MISSION, OnChangeAbbrevMission)
|
|
ON_CBN_SELCHANGE(IDC_SUFFIX, OnChangeOtherSuffix)
|
|
ON_BN_CLICKED(IDC_NO_REPLACE, OnChangeNoReplace)
|
|
ON_BN_CLICKED(IDC_GENERATE_FILE_NAMES, OnGenerateFileNames)
|
|
ON_BN_CLICKED(IDC_GENERATE_SCRIPT, OnGenerateScript)
|
|
//}}AFX_MSG_MAP
|
|
END_MESSAGE_MAP()
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// VoiceActingManager message handlers
|
|
|
|
BOOL VoiceActingManager::OnInitDialog()
|
|
{
|
|
CComboBox *box = ((CComboBox *) GetDlgItem(IDC_SUFFIX));
|
|
box->AddString(".WAV");
|
|
box->AddString(".OGG");
|
|
box->SetCurSel(0);
|
|
|
|
// load saved data for file names
|
|
m_abbrev_briefing = _T(Voice_abbrev_briefing);
|
|
m_abbrev_campaign = _T(Voice_abbrev_campaign);
|
|
m_abbrev_command_briefing = _T(Voice_abbrev_command_briefing);
|
|
m_abbrev_debriefing = _T(Voice_abbrev_debriefing);
|
|
m_abbrev_message = _T(Voice_abbrev_message);
|
|
m_abbrev_mission = _T(Voice_abbrev_mission);
|
|
m_no_replace = Voice_no_replace_filenames;
|
|
|
|
// load saved data for script
|
|
m_script_entry_format = _T(Voice_script_entry_format);
|
|
m_export_everything = m_export_command_briefings = m_export_briefings = m_export_debriefings = m_export_messages = FALSE;
|
|
if (Voice_export_selection == 1)
|
|
m_export_command_briefings = TRUE;
|
|
else if (Voice_export_selection == 2)
|
|
m_export_briefings = TRUE;
|
|
else if (Voice_export_selection == 3)
|
|
m_export_debriefings = TRUE;
|
|
else if (Voice_export_selection == 4)
|
|
m_export_messages = TRUE;
|
|
else
|
|
m_export_everything = TRUE;
|
|
|
|
UpdateData(FALSE);
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
void VoiceActingManager::OnClose()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
// save data for file names
|
|
strcpy(Voice_abbrev_briefing, m_abbrev_briefing);
|
|
strcpy(Voice_abbrev_campaign, m_abbrev_campaign);
|
|
strcpy(Voice_abbrev_command_briefing, m_abbrev_command_briefing);
|
|
strcpy(Voice_abbrev_debriefing, m_abbrev_debriefing);
|
|
strcpy(Voice_abbrev_message, m_abbrev_message);
|
|
strcpy(Voice_abbrev_mission, m_abbrev_mission);
|
|
Voice_no_replace_filenames = m_no_replace == TRUE ? true : false;
|
|
|
|
// save data for script
|
|
strcpy(Voice_script_entry_format, m_script_entry_format);
|
|
if (m_export_command_briefings)
|
|
Voice_export_selection = 1;
|
|
else if (m_export_briefings)
|
|
Voice_export_selection = 2;
|
|
else if (m_export_debriefings)
|
|
Voice_export_selection = 3;
|
|
else if (m_export_messages)
|
|
Voice_export_selection = 4;
|
|
else
|
|
Voice_export_selection = 0;
|
|
|
|
CDialog::OnClose();
|
|
}
|
|
|
|
CString VoiceActingManager::get_suffix()
|
|
{
|
|
// assign suffix
|
|
if (((CComboBox *) GetDlgItem(IDC_SUFFIX))->GetCurSel() == 1)
|
|
return ".ogg";
|
|
else
|
|
return ".wav";
|
|
}
|
|
|
|
int VoiceActingManager::calc_digits(int size)
|
|
{
|
|
if (size >= 10000)
|
|
return 5;
|
|
else if (size >= 1000) // I hope we never hit this!
|
|
return 4;
|
|
else if (size >= 100)
|
|
return 3;
|
|
else
|
|
return 2;
|
|
}
|
|
|
|
void VoiceActingManager::build_example()
|
|
{
|
|
// pick a default
|
|
|
|
if (m_abbrev_command_briefing != "")
|
|
build_example(m_abbrev_command_briefing);
|
|
else if (m_abbrev_briefing != "")
|
|
build_example(m_abbrev_briefing);
|
|
else if (m_abbrev_debriefing != "")
|
|
build_example(m_abbrev_debriefing);
|
|
else if (m_abbrev_message != "")
|
|
build_example(m_abbrev_message);
|
|
else
|
|
build_example("");
|
|
}
|
|
|
|
void VoiceActingManager::build_example(CString section)
|
|
{
|
|
if (section == "")
|
|
{
|
|
m_example = "";
|
|
return;
|
|
}
|
|
|
|
m_example = generate_filename(section, 1, 2);
|
|
}
|
|
|
|
CString VoiceActingManager::generate_filename(CString section, int number, int digits)
|
|
{
|
|
if (section == "")
|
|
return "none.wav";
|
|
|
|
int i;
|
|
CString str = "";
|
|
CString num;
|
|
|
|
// build prefix
|
|
if (m_abbrev_campaign != "")
|
|
str = str + m_abbrev_campaign;
|
|
if (m_abbrev_mission != "")
|
|
str = str + m_abbrev_mission;
|
|
str = str + section;
|
|
|
|
// build number
|
|
num.Format("%d", number);;
|
|
digits -= num.GetLength();
|
|
for (i = 0; i < digits; i++)
|
|
{
|
|
num = "0" + num;
|
|
}
|
|
str = str + num;
|
|
|
|
// suffix
|
|
str = str + get_suffix();
|
|
|
|
return str;
|
|
}
|
|
|
|
void VoiceActingManager::OnGenerateFileNames()
|
|
{
|
|
int i;
|
|
int digits;
|
|
|
|
// stuff data to variables
|
|
UpdateData(TRUE);
|
|
|
|
// command briefings
|
|
digits = calc_digits(Cmd_briefs[0].num_stages);
|
|
for (i = 0; i < Cmd_briefs[0].num_stages; i++)
|
|
{
|
|
char *filename = Cmd_briefs[0].stage[i].wave_filename;
|
|
|
|
// generate only if we're replacing or if it has a replaceable name
|
|
if (!m_no_replace || !strlen(filename) || !strnicmp(filename, "none.wav", 4) || message_filename_is_generic(filename))
|
|
{
|
|
strcpy(filename, LPCTSTR(generate_filename(m_abbrev_command_briefing, i + 1, digits)));
|
|
}
|
|
}
|
|
|
|
// briefings
|
|
digits = calc_digits(Briefings[0].num_stages);
|
|
for (i = 0; i < Briefings[0].num_stages; i++)
|
|
{
|
|
char *filename = Briefings[0].stages[i].voice;
|
|
|
|
// generate only if we're replacing or if it has a replaceable name
|
|
if (!m_no_replace || !strlen(filename) || !strnicmp(filename, "none.wav", 4) || message_filename_is_generic(filename))
|
|
{
|
|
strcpy(filename, LPCTSTR(generate_filename(m_abbrev_briefing, i + 1, digits)));
|
|
}
|
|
}
|
|
|
|
// debriefings
|
|
digits = calc_digits(Debriefings[0].num_stages);
|
|
for (i = 0; i < Debriefings[0].num_stages; i++)
|
|
{
|
|
char *filename = Debriefings[0].stages[i].voice;
|
|
|
|
// generate only if we're replacing or if it has a replaceable name
|
|
if (!m_no_replace || !strlen(filename) || !strnicmp(filename, "none.wav", 4) || message_filename_is_generic(filename))
|
|
{
|
|
strcpy(filename, LPCTSTR(generate_filename(m_abbrev_debriefing, i + 1, digits)));
|
|
}
|
|
}
|
|
|
|
// messages
|
|
digits = calc_digits(Num_messages - Num_builtin_messages);
|
|
for (i = 0; i < Num_messages - Num_builtin_messages; i++)
|
|
{
|
|
char *filename = Messages[i + Num_builtin_messages].wave_info.name;
|
|
|
|
// generate only if we're replacing or if it has a replaceable name
|
|
if (!m_no_replace || !filename || !strlen(filename) || !strnicmp(filename, "none.wav", 4) || message_filename_is_generic(filename))
|
|
{
|
|
// free existing filename
|
|
if (filename != NULL)
|
|
free(filename);
|
|
|
|
// allocate new filename
|
|
Messages[i + Num_builtin_messages].wave_info.name = strdup(LPCTSTR(generate_filename(m_abbrev_message, i + 1, digits)));
|
|
}
|
|
}
|
|
|
|
// notify
|
|
MessageBox("File name generation complete.", "Woohoo!");
|
|
}
|
|
|
|
void VoiceActingManager::OnGenerateScript()
|
|
{
|
|
int i;
|
|
char pathname[256];
|
|
|
|
// stuff data to variables
|
|
UpdateData(TRUE);
|
|
|
|
// prompt to save script
|
|
CFileDialog dlg(FALSE, "txt", NULL, OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT, "Text files (*.txt)|*.txt||");
|
|
if (dlg.DoModal() != IDOK)
|
|
return;
|
|
|
|
CString dlgPathName = dlg.GetPathName( );
|
|
string_copy(pathname, dlgPathName, 256);
|
|
fp = cfopen(pathname, "wt", CFILE_NORMAL);
|
|
if (!fp)
|
|
{
|
|
MessageBox("Can't open file to save.", "Error!");
|
|
return;
|
|
}
|
|
|
|
fout("%s\n", Mission_filename);
|
|
fout("%s\n\n", The_mission.name);
|
|
|
|
if (m_export_everything || m_export_command_briefings)
|
|
{
|
|
fout("\n\nCommand Briefings\n-----------------\n\n");
|
|
|
|
for (i = 0; i < Cmd_briefs[0].num_stages; i++)
|
|
{
|
|
CString entry = m_script_entry_format;
|
|
entry.Replace("\r\n", "\n");
|
|
|
|
cmd_brief_stage *stage = &Cmd_briefs[0].stage[i];
|
|
entry.Replace("$filename", stage->wave_filename);
|
|
entry.Replace("$message", stage->text);
|
|
entry.Replace("$persona", "<no persona specified>");
|
|
entry.Replace("$sender", "<no sender specified>");
|
|
|
|
fout("%s\n\n\n", (char *) (LPCTSTR) entry);
|
|
}
|
|
}
|
|
|
|
if (m_export_everything || m_export_briefings)
|
|
{
|
|
fout("\n\nBriefings\n---------\n\n");
|
|
|
|
for (i = 0; i < Briefings[0].num_stages; i++)
|
|
{
|
|
CString entry = m_script_entry_format;
|
|
entry.Replace("\r\n", "\n");
|
|
|
|
brief_stage *stage = &Briefings[0].stages[i];
|
|
entry.Replace("$filename", stage->voice);
|
|
entry.Replace("$message", stage->new_text);
|
|
entry.Replace("$persona", "<no persona specified>");
|
|
entry.Replace("$sender", "<no sender specified>");
|
|
|
|
fout("%s\n\n\n", (char *) (LPCTSTR) entry);
|
|
}
|
|
}
|
|
|
|
if (m_export_everything || m_export_debriefings)
|
|
{
|
|
fout("\n\nDebriefings\n-----------\n\n");
|
|
|
|
for (i = 0; i < Debriefings[0].num_stages; i++)
|
|
{
|
|
CString entry = m_script_entry_format;
|
|
entry.Replace("\r\n", "\n");
|
|
|
|
debrief_stage *stage = &Debriefings[0].stages[i];
|
|
entry.Replace("$filename", stage->voice);
|
|
entry.Replace("$message", stage->new_text);
|
|
entry.Replace("$persona", "<no persona specified>");
|
|
entry.Replace("$sender", "<no sender specified>");
|
|
|
|
fout("%s\n\n\n", (char *) (LPCTSTR) entry);
|
|
}
|
|
}
|
|
|
|
if (m_export_everything || m_export_messages)
|
|
{
|
|
fout("\n\nMessages\n--------\n\n");
|
|
|
|
for (i = 0; i < Num_messages - Num_builtin_messages; i++)
|
|
{
|
|
CString entry = m_script_entry_format;
|
|
entry.Replace("\r\n", "\n");
|
|
|
|
MMessage *message = &Messages[i + Num_builtin_messages];
|
|
|
|
// replace file name
|
|
entry.Replace("$filename", message->wave_info.name);
|
|
|
|
// determine and replace persona
|
|
entry.Replace("$message", message->message);
|
|
if (message->persona_index >= 0)
|
|
entry.Replace("$persona", Personas[message->persona_index].name);
|
|
else
|
|
entry.Replace("$persona", "<none>");
|
|
|
|
// determine sender
|
|
char sender[NAME_LENGTH+1];
|
|
strcpy(sender, get_message_sender(message->name));
|
|
int shipnum = ship_name_lookup(sender);
|
|
|
|
if (shipnum >= 0)
|
|
{
|
|
ship *shipp = &Ships[shipnum];
|
|
|
|
// we may have to use the callsign
|
|
if (*Fred_callsigns[shipnum])
|
|
{
|
|
hud_stuff_ship_callsign(sender, shipp);
|
|
}
|
|
// account for hidden ship names
|
|
else if ( ((Iff_info[shipp->team].flags & IFFF_WING_NAME_HIDDEN) && (shipp->wingnum != -1)) || (shipp->flags2 & SF2_HIDE_SHIP_NAME) )
|
|
{
|
|
hud_stuff_ship_class(sender, shipp);
|
|
}
|
|
// use the regular sender text
|
|
else
|
|
{
|
|
end_string_at_first_hash_symbol(sender);
|
|
}
|
|
}
|
|
|
|
// replace sender (but print #Command as Command)
|
|
if (*sender == '#')
|
|
entry.Replace("$sender", &sender[1]);
|
|
else
|
|
entry.Replace("$sender", sender);
|
|
|
|
fout("%s\n\n\n", (char *) (LPCTSTR) entry);
|
|
}
|
|
}
|
|
|
|
cfclose(fp);
|
|
|
|
// notify
|
|
MessageBox("Script generation complete.", "Woohoo!");
|
|
}
|
|
|
|
void VoiceActingManager::OnSetfocusAbbrevBriefing()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example(m_abbrev_briefing);
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnSetfocusAbbrevCampaign()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example();
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnSetfocusAbbrevCommandBriefing()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example(m_abbrev_command_briefing);
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnSetfocusAbbrevDebriefing()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example(m_abbrev_debriefing);
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnSetfocusAbbrevMessage()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example(m_abbrev_message);
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnSetfocusAbbrevMission()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example();
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnSetfocusSuffix()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example();
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnChangeAbbrevBriefing()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example(m_abbrev_briefing);
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnChangeAbbrevCampaign()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example();
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnChangeAbbrevCommandBriefing()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example(m_abbrev_command_briefing);
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnChangeAbbrevDebriefing()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example(m_abbrev_debriefing);
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnChangeAbbrevMessage()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example(m_abbrev_message);
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnChangeAbbrevMission()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example();
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnChangeOtherSuffix()
|
|
{
|
|
UpdateData(TRUE);
|
|
|
|
build_example();
|
|
|
|
UpdateData(FALSE);
|
|
}
|
|
|
|
void VoiceActingManager::OnChangeNoReplace()
|
|
{
|
|
UpdateData(TRUE);
|
|
}
|
|
|
|
int VoiceActingManager::fout(char *format, ...)
|
|
{
|
|
char str[16384];
|
|
va_list args;
|
|
|
|
va_start(args, format);
|
|
vsprintf(str, format, args);
|
|
va_end(args);
|
|
Assert(strlen(str) < 16384);
|
|
|
|
cfputs(str, fp);
|
|
return 0;
|
|
}
|
|
|
|
// Loops through all the sexps and finds the sender of the specified message. This assumes there is only one possible
|
|
// sender of the message, which is probably nearly always true (especially for voice-acted missions).
|
|
char *VoiceActingManager::get_message_sender(char *message)
|
|
{
|
|
int i;
|
|
|
|
for (i = 0; i < Num_sexp_nodes; i++)
|
|
{
|
|
if (Sexp_nodes[i].type == SEXP_NOT_USED)
|
|
continue;
|
|
|
|
// stuff
|
|
int op = get_operator_const(Sexp_nodes[i].text);
|
|
int n = CDR(i);
|
|
|
|
// find the message sexps
|
|
if (op == OP_SEND_MESSAGE)
|
|
{
|
|
// the first argument is the sender; the third is the message
|
|
if (!strcmp(message, Sexp_nodes[CDDR(n)].text))
|
|
return Sexp_nodes[n].text;
|
|
}
|
|
else if (op == OP_SEND_MESSAGE_LIST)
|
|
{
|
|
// check the argument list
|
|
while (n != -1)
|
|
{
|
|
// as before
|
|
if (!strcmp(message, Sexp_nodes[CDDR(n)].text))
|
|
return Sexp_nodes[n].text;
|
|
|
|
// iterate along the list
|
|
n = CDDDDR(n);
|
|
}
|
|
}
|
|
else if (op == OP_SEND_RANDOM_MESSAGE)
|
|
{
|
|
// as before, sort of
|
|
char *sender = Sexp_nodes[n].text;
|
|
|
|
// check the argument list
|
|
n = CDDR(n);
|
|
while (n != -1)
|
|
{
|
|
if (!strcmp(message, Sexp_nodes[n].text))
|
|
return sender;
|
|
|
|
// iterate along the list
|
|
n = CDR(n);
|
|
}
|
|
}
|
|
else if (op == OP_TRAINING_MSG)
|
|
{
|
|
// just check the message
|
|
if (!strcmp(message, Sexp_nodes[n].text))
|
|
return "Training Message";
|
|
}
|
|
}
|
|
|
|
return "<none>";
|
|
}
|