mirror of
https://github.com/EQEmu/Server.git
synced 2025-12-12 13:41:31 +00:00
b983fac860
- Keeps things tidier.
Perl script was used to get this in order easily.
```pl
my @perl_file_types = (
"bot",
"client",
"doors",
"entity",
"expedition",
"groups",
"hateentry",
"inventory",
"mob",
"npc",
"object",
"perlpacket",
"player_corpse",
"questitem",
"raids",
"spell"
);
foreach my $file_type (sort {$a cmp $b} @perl_file_types) {
my $perl_file = "perl_$file_type.cpp";
open my $client_file, '<', $perl_file or die "Cannot open file_name $perl_file";
{
local $/;
$content = <$client_file>;
}
close $client_file;
open my $perl_data_file, ">", "perl_$file_type\_data.cpp";
my @variables = ();
foreach my $line (split("\n", $content)) {
if ($line=~/newXSproto\(/i) {
$line =~ s/\s+/ /g;
my @line_data = split(/ /, $line);
push(@variables, join(" ", @line_data));
}
}
foreach my $variable (sort {$a cmp $b} @variables) {
$variable =~ s/^ //ig;
print $perl_data_file "\t$variable\n";
}
close $perl_data_file;
}```
201 lines
4.9 KiB
C++
201 lines
4.9 KiB
C++
#include "../common/features.h"
|
|
#include "client.h"
|
|
|
|
#ifdef EMBPERL_XS_CLASSES
|
|
|
|
#include "../common/global_define.h"
|
|
#include "embperl.h"
|
|
|
|
#ifdef seed
|
|
#undef seed
|
|
#endif
|
|
|
|
#include "../common/item_instance.h"
|
|
|
|
#ifdef THIS /* this macro seems to leak out on some systems */
|
|
#undef THIS
|
|
#endif
|
|
|
|
#define VALIDATE_THIS_IS_ITEM \
|
|
do { \
|
|
if (sv_derived_from(ST(0), "QuestItem")) { \
|
|
IV tmp = SvIV((SV*)SvRV(ST(0))); \
|
|
THIS = INT2PTR(EQ::ItemInstance*, tmp); \
|
|
} else { \
|
|
Perl_croak(aTHX_ "THIS is not of type EQ::ItemInstance"); \
|
|
} \
|
|
if (THIS == nullptr) { \
|
|
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); \
|
|
} \
|
|
} while (0);
|
|
|
|
XS(XS_QuestItem_GetName);
|
|
XS(XS_QuestItem_GetName) {
|
|
dXSARGS;
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: QuestItem::GetName(THIS)"); // @categories Inventory and Items
|
|
{
|
|
EQ::ItemInstance *THIS;
|
|
Const_char *RETVAL;
|
|
dXSTARG;
|
|
VALIDATE_THIS_IS_ITEM;
|
|
RETVAL = THIS->GetItem()->Name;
|
|
sv_setpv(TARG, RETVAL);
|
|
XSprePUSH;
|
|
PUSHTARG;
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
XS(XS_QuestItem_SetScale);
|
|
XS(XS_QuestItem_SetScale) {
|
|
dXSARGS;
|
|
if (items != 2)
|
|
Perl_croak(aTHX_ "Usage: QuestItem::SetScale(THIS, float scale_multiplier)"); // @categories Inventory and Items
|
|
{
|
|
EQ::ItemInstance *THIS;
|
|
float Mult;
|
|
VALIDATE_THIS_IS_ITEM;
|
|
Mult = (float) SvNV(ST(1));
|
|
|
|
if (THIS->IsScaling()) {
|
|
THIS->SetExp((int) (Mult * 10000 + .5));
|
|
}
|
|
}
|
|
XSRETURN_EMPTY;
|
|
}
|
|
|
|
XS(XS_QuestItem_ItemSay);
|
|
XS(XS_QuestItem_ItemSay) {
|
|
dXSARGS;
|
|
if (items != 2 && items != 3)
|
|
Perl_croak(aTHX_ "Usage: QuestItem::ItemSay(THIS, string text [int language_id])"); // @categories Inventory and Items
|
|
{
|
|
EQ::ItemInstance *THIS;
|
|
Const_char *text;
|
|
int lang = 0;
|
|
VALIDATE_THIS_IS_ITEM;
|
|
text = SvPV_nolen(ST(1));
|
|
if (items == 3)
|
|
lang = (int) SvUV(ST(2));
|
|
|
|
quest_manager.GetInitiator()->ChannelMessageSend(THIS->GetItem()->Name, 0, 8, lang, 100, text);
|
|
}
|
|
XSRETURN_EMPTY;
|
|
}
|
|
|
|
XS(XS_QuestItem_IsType); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_QuestItem_IsType) {
|
|
dXSARGS;
|
|
if (items != 2)
|
|
Perl_croak(aTHX_ "Usage: QuestItem::IsType(THIS, type)"); // @categories Inventory and Items
|
|
{
|
|
EQ::ItemInstance *THIS;
|
|
bool RETVAL;
|
|
uint32 type = (int32) SvIV(ST(1));
|
|
VALIDATE_THIS_IS_ITEM;
|
|
RETVAL = THIS->IsType((EQ::item::ItemClass) type);
|
|
ST(0) = boolSV(RETVAL);
|
|
sv_2mortal(ST(0));
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
XS(XS_QuestItem_IsAttuned); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_QuestItem_IsAttuned) {
|
|
dXSARGS;
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: QuestItem::IsAttuned(THIS)"); // @categories Inventory and Items
|
|
{
|
|
EQ::ItemInstance *THIS;
|
|
bool RETVAL;
|
|
VALIDATE_THIS_IS_ITEM;
|
|
RETVAL = THIS->IsAttuned();
|
|
ST(0) = boolSV(RETVAL);
|
|
sv_2mortal(ST(0));
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
XS(XS_QuestItem_GetCharges); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_QuestItem_GetCharges) {
|
|
dXSARGS;
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: QuestItem::GetCharges(THIS)"); // @categories Inventory and Items
|
|
{
|
|
EQ::ItemInstance *THIS;
|
|
int16 RETVAL;
|
|
dXSTARG;
|
|
VALIDATE_THIS_IS_ITEM;
|
|
RETVAL = THIS->GetCharges();
|
|
XSprePUSH;
|
|
PUSHi((IV) RETVAL);
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
XS(XS_QuestItem_GetAugment); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_QuestItem_GetAugment) {
|
|
dXSARGS;
|
|
if (items != 2)
|
|
Perl_croak(aTHX_ "Usage: QuestItem::GetAugment(THIS, int16 slot_id)"); // @categories Inventory and Items
|
|
{
|
|
EQ::ItemInstance *THIS;
|
|
int16 slot_id = (int16) SvIV(ST(1));
|
|
EQ::ItemInstance *RETVAL;
|
|
VALIDATE_THIS_IS_ITEM;
|
|
RETVAL = THIS->GetAugment(slot_id);
|
|
ST(0) = sv_newmortal();
|
|
sv_setref_pv(ST(0), "QuestItem", (void *) RETVAL);
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
XS(XS_QuestItem_GetID); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_QuestItem_GetID) {
|
|
dXSARGS;
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: QuestItem::GetID(THIS)"); // @categories Inventory and Items
|
|
{
|
|
EQ::ItemInstance *THIS;
|
|
uint32 RETVAL;
|
|
dXSTARG;
|
|
VALIDATE_THIS_IS_ITEM;
|
|
RETVAL = THIS->GetItem()->ID;
|
|
XSprePUSH;
|
|
PUSHi((IV) RETVAL);
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
#ifdef __cplusplus
|
|
extern "C"
|
|
#endif
|
|
|
|
XS(boot_QuestItem);
|
|
XS(boot_QuestItem) {
|
|
dXSARGS;
|
|
char file[256];
|
|
strncpy(file, __FILE__, 256);
|
|
file[255] = 0;
|
|
|
|
if (items != 1)
|
|
fprintf(stderr, "boot_quest does not take any arguments.");
|
|
char buf[128];
|
|
|
|
//add the strcpy stuff to get rid of const warnings....
|
|
|
|
XS_VERSION_BOOTCHECK;
|
|
newXSproto(strcpy(buf, "GetAugment"), XS_QuestItem_GetAugment, file, "$$");
|
|
newXSproto(strcpy(buf, "GetCharges"), XS_QuestItem_GetCharges, file, "$");
|
|
newXSproto(strcpy(buf, "GetID"), XS_QuestItem_GetID, file, "$");
|
|
newXSproto(strcpy(buf, "GetName"), XS_QuestItem_GetName, file, "$");
|
|
newXSproto(strcpy(buf, "IsAttuned"), XS_QuestItem_IsAttuned, file, "$");
|
|
newXSproto(strcpy(buf, "IsType"), XS_QuestItem_IsType, file, "$$");
|
|
newXSproto(strcpy(buf, "ItemSay"), XS_QuestItem_ItemSay, file, "$");
|
|
newXSproto(strcpy(buf, "SetScale"), XS_QuestItem_SetScale, file, "$");
|
|
XSRETURN_YES;
|
|
}
|
|
|
|
#endif //EMBPERL_XS_CLASSES
|