Secrets: Added functionality to Perl/Server for $client->PlayMP3("name of file").

This commit is contained in:
SecretsOTheP
2013-12-24 01:28:32 -05:00
parent bddb03ba3b
commit a7c15ef598
15 changed files with 54 additions and 12 deletions
+10
View File
@@ -8061,4 +8061,14 @@ void Client::SendMarqueeMessage(uint32 type, uint32 priority, uint32 fade_in, ui
strcpy(cms->msg, msg.c_str());
QueuePacket(&outapp);
}
void Client::PlayMP3(const char* fname)
{
std::string filename = fname;
EQApplicationPacket *outapp = new EQApplicationPacket(OP_PlayMP3, filename.length() + 1);
PlayMP3_Struct* buf = (PlayMP3_Struct*)outapp->pBuffer;
strncpy(buf->filename, fname, filename.length());
QueuePacket(outapp);
safe_delete(outapp);
}