pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-08-30 17:58:16 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Simplify bulk Scribe and Train logic. (#1660)

Browse Source 
* [Quest API] Simplify bulk Scribe and Train logic.
- Add $client->GetFreeDisciplineSlot(starting_slot) to Perl.
- Add $client->ScribeSpells(min_level, max_level) to Perl.
- Add $client->LearnDisciplines(min_level, max_level) to Perl.
- Add client:GetNextAvailableDisciplineSlot(starting_slot) to Lua.
- Add client:ScribeSpells(min_level, max_level) to Lua.
- Add client:LearnDisciplines(min_level, max_level) to Lua.
Convert quest::scribespells() and quest::traindisc() to use new ScribeSpells and LearnDisciplines methods for consistency.

* Update command.cpp
This commit is contained in:
Kinglykrab
2021-11-03 18:31:13 -04:00
committed by GitHub
parent 17aaab1f9d
commit 9d515b20f2
8 changed files with 286 additions and 230 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/perl_client.cpp
+65
View File
@@ -5865,6 +5865,68 @@ XS(XS_Client_RemoveLDoNWin) {
XSRETURN_EMPTY;
}
XS(XS_Client_GetFreeDisciplineSlot); /* prototype to pass -Wmissing-prototypes */
XS(XS_Client_GetFreeDisciplineSlot) {
dXSARGS;
if (items != 1 || items != 2)
Perl_croak(aTHX_ "Usage: Client::GetFreeDisciplineSlot(THIS, [int starting_slot = 0])"); // @categories Spells and Disciplines
{
Client *THIS;
int free_discipline_slot;
int starting_slot = 0;
dXSTARG;
VALIDATE_THIS_IS_CLIENT;
if (items == 2) {
starting_slot = SvIV(ST(1));
}
free_discipline_slot = THIS->GetNextAvailableDisciplineSlot(starting_slot);
XSprePUSH;
PUSHi((IV) free_discipline_slot);
}
XSRETURN(1);
}
XS(XS_Client_ScribeSpells); /* prototype to pass -Wmissing-prototypes */
XS(XS_Client_ScribeSpells) {
dXSARGS;
if (items != 3)
Perl_croak(aTHX_ "Usage: Client::ScribeSpells(THIS, uint8 min_level, uint8 max_level)"); // @categories Spells and Disciplines
{
Client *THIS;
uint8 min_level = (uint8) SvUV(ST(1));
uint8 max_level = (uint8) SvUV(ST(2));
uint16 scribed_spells = 0;
dXSTARG;
VALIDATE_THIS_IS_CLIENT;
scribed_spells = THIS->ScribeSpells(min_level, max_level);
XSprePUSH;
PUSHu((UV) scribed_spells);
}
XSRETURN(1);
}
XS(XS_Client_LearnDisciplines); /* prototype to pass -Wmissing-prototypes */
XS(XS_Client_LearnDisciplines) {
dXSARGS;
if (items != 3)
Perl_croak(aTHX_ "Usage: Client::LearnDisciplines(THIS, uint8 min_level, uint8 max_level)"); // @categories Spells and Disciplines
{
Client *THIS;
uint8 min_level = (uint8) SvUV(ST(1));
uint8 max_level = (uint8) SvUV(ST(2));
uint16 learned_disciplines = 0;
dXSTARG;
VALIDATE_THIS_IS_CLIENT;
learned_disciplines = THIS->LearnDisciplines(min_level, max_level);
XSprePUSH;
PUSHu((UV) learned_disciplines);
}
XSRETURN(1);
}
#ifdef __cplusplus
extern "C"
#endif
@@ -6186,6 +6248,9 @@ XS(boot_Client) {
newXSproto(strcpy(buf, "UseDiscipline"), XS_Client_UseDiscipline, file, "$$$");
newXSproto(strcpy(buf, "WorldKick"), XS_Client_WorldKick, file, "$");
newXSproto(strcpy(buf, "ReadBookByName"), XS_Client_ReadBookByName, file, "$$$");
newXSproto(strcpy(buf, "GetFreeDisciplineSlot"), XS_Client_GetFreeDisciplineSlot, file, "$;$");
newXSproto(strcpy(buf, "ScribeSpells"), XS_Client_ScribeSpells, file, "$$$");
newXSproto(strcpy(buf, "LearnDisciplines"), XS_Client_LearnDisciplines, file, "$$$");
XSRETURN_YES;
}