Zone & World Emotes

[Striat]

Added for zone emote and world emotes

Add to questmgr.cpp :

void QuestManager::ze(int type, const char *str) {
entity_list.Message(0, type, str);
}

void QuestManager::we(int type, const char *str) {
worldserver.SendEmoteMessage(0, 0, type, str);
}

to questmgr.h :
void ze(int type, const char *str);
void we(int type, const char *str);

To perlparser.cpp :

XS(XS__ze);
XS(XS__ze)
{
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: ze(type, str)");

int type = (int)SvIV(ST(0));
char * str = (char *)SvPV_nolen(ST(1));

quest_manager.ze(type, str);

XSRETURN_EMPTY;
}

XS(XS__we);
XS(XS__we)
{
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: we(type, str)");

int type = (int)SvIV(ST(0));
char * str = (char *)SvPV_nolen(ST(1));

quest_manager.we(type, str);

XSRETURN_EMPTY;
}

and at the bottom of perlparser.cpp :

newXS(strcpy(buf, "ze"), XS__ze, file);
newXS(strcpy(buf, "we"), XS__we, file);

Now for usage:

sub EVENT_SPAWN {
#ze = zone emote. 15 is the type(color). Yellow in this case.
#we = world emote. 13 is the type(color). Red in this case.
quest::ze(15, "Welcome to the zone!");
quest::we(15, "Prepare for a new world of challenges!");
}