pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-19 12:21:34 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

More perl_groups.cpp formatting

Browse Source
This commit is contained in:
Akkadius 2018-07-01 20:02:53 -05:00
parent cf6a9d6b2a
commit 465071c2cf
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
zone/perl_groups.cpp
View File

@ -71,8 +71,8 @@ XS(XS_Group_IsGroupMember) {
Perl_croak(aTHX_ "Usage: Group::IsGroupMember(THIS, client)"); Perl_croak(aTHX_ "Usage: Group::IsGroupMember(THIS, client)");
{ {
Group *THIS; Group *THIS;
bool RETVAL; bool RETVAL;
Mob *client; Mob *client;
if (sv_derived_from(ST(0), "Group")) { if (sv_derived_from(ST(0), "Group")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
@ -103,8 +103,8 @@ XS(XS_Group_CastGroupSpell) {
if (items != 3) if (items != 3)
Perl_croak(aTHX_ "Usage: Group::CastGroupSpell(THIS, Mob* caster, uint16 spell_id)"); Perl_croak(aTHX_ "Usage: Group::CastGroupSpell(THIS, Mob* caster, uint16 spell_id)");
{ {
Group *THIS; Group *THIS;
Mob *caster; Mob *caster;
uint16 spellid = (uint16) SvUV(ST(2)); uint16 spellid = (uint16) SvUV(ST(2));
if (sv_derived_from(ST(0), "Group")) { if (sv_derived_from(ST(0), "Group")) {
@ -134,9 +134,9 @@ XS(XS_Group_SplitExp) {
if (items != 3) if (items != 3)
Perl_croak(aTHX_ "Usage: Group::SplitExp(THIS, uint32 exp, Mob* other)"); Perl_croak(aTHX_ "Usage: Group::SplitExp(THIS, uint32 exp, Mob* other)");
{ {
Group *THIS; Group *THIS;
uint32 exp = (uint32) SvUV(ST(1)); uint32 exp = (uint32) SvUV(ST(1));
Mob *other; Mob *other;
if (sv_derived_from(ST(0), "Group")) { if (sv_derived_from(ST(0), "Group")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
@ -168,7 +168,7 @@ XS(XS_Group_GroupMessage) {
Group *THIS; Group *THIS;
Mob *sender; Mob *sender;
uint8 language; uint8 language;
char *message; char *message;
if (sv_derived_from(ST(0), "Group")) { if (sv_derived_from(ST(0), "Group")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
@ -206,10 +206,10 @@ XS(XS_Group_GetTotalGroupDamage) {
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Group::GetTotalGroupDamage(THIS, Mob* other)"); Perl_croak(aTHX_ "Usage: Group::GetTotalGroupDamage(THIS, Mob* other)");
{ {
Group *THIS; Group *THIS;
uint32 RETVAL; uint32 RETVAL;
dXSTARG; dXSTARG;
Mob *other; Mob *other;
if (sv_derived_from(ST(0), "Group")) { if (sv_derived_from(ST(0), "Group")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
@ -240,7 +240,7 @@ XS(XS_Group_SplitMoney) {
if (items != 5) if (items != 5)
Perl_croak(aTHX_ "Usage: Group::SplitMoney(THIS, uint32 copper, uint32 silver, uint32 gold, uint32 platinum)"); Perl_croak(aTHX_ "Usage: Group::SplitMoney(THIS, uint32 copper, uint32 silver, uint32 gold, uint32 platinum)");
{ {
Group *THIS; Group *THIS;
uint32 copper = (uint32) SvUV(ST(1)); uint32 copper = (uint32) SvUV(ST(1));
uint32 silver = (uint32) SvUV(ST(2)); uint32 silver = (uint32) SvUV(ST(2));
uint32 gold = (uint32) SvUV(ST(3)); uint32 gold = (uint32) SvUV(ST(3));
@ -406,8 +406,8 @@ XS(XS_Group_IsLeader) {
Perl_croak(aTHX_ "Usage: Group::IsLeader(THIS, Mob* target)"); Perl_croak(aTHX_ "Usage: Group::IsLeader(THIS, Mob* target)");
{ {
Group *THIS; Group *THIS;
bool RETVAL; bool RETVAL;
Mob *leadertest; Mob *leadertest;
if (sv_derived_from(ST(0), "Group")) { if (sv_derived_from(ST(0), "Group")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
@ -463,7 +463,7 @@ XS(XS_Group_GetHighestLevel) {
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Group::GetHighestLevel(THIS)"); Perl_croak(aTHX_ "Usage: Group::GetHighestLevel(THIS)");
{ {
Group *THIS; Group *THIS;
uint32 RETVAL; uint32 RETVAL;
dXSTARG; dXSTARG;
@ -489,8 +489,8 @@ XS(XS_Group_TeleportGroup) {
Perl_croak(aTHX_ Perl_croak(aTHX_
"Usage: Group::TeleportGroup(THIS, Mob* sender, uint32 zone_id, float x, float y, float z, float heading)"); "Usage: Group::TeleportGroup(THIS, Mob* sender, uint32 zone_id, float x, float y, float z, float heading)");
{ {
Group *THIS; Group *THIS;
Mob *sender; Mob *sender;
uint32 zoneID = (uint32) SvUV(ST(2)); uint32 zoneID = (uint32) SvUV(ST(2));
float x = (float) SvNV(ST(3)); float x = (float) SvNV(ST(3));
float y = (float) SvNV(ST(4)); float y = (float) SvNV(ST(4));
@ -524,7 +524,7 @@ XS(XS_Group_GetID) {
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Group::GetID(THIS)"); Perl_croak(aTHX_ "Usage: Group::GetID(THIS)");
{ {
Group *THIS; Group *THIS;
uint32 RETVAL; uint32 RETVAL;
dXSTARG; dXSTARG;