pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-05-22 12:18:27 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Export $item to Fishing and Forage Events in Perl (#2876)

Browse Source 
* [Quest API] Export $item to Fishing and Forage Events in Perl

# Notes
- Exports `$item` to `EVENT_FISH_SUCCESS` in Perl.
- Exports `$item` to `EVENT_FORAGE_SUCCESS` in Perl.

* Add optional parsing to fish/forage events.

* Update forage.cpp

* Fix missing event param

---------

Co-authored-by: Akkadius <akkadius1@gmail.com>
This commit is contained in:
Alex King
2023-02-13 00:50:21 -05:00
committed by GitHub
parent 4a1d026215
commit 5b24d38d1e
4 changed files with 27 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/client_packet.cpp
+3 -1
View File
@@ -6304,7 +6304,9 @@ void Client::Handle_OP_Fishing(const EQApplicationPacket *app)
}
if (CanFish()) {
parse->EventPlayer(EVENT_FISH_START, this, "", 0);
if (parse->PlayerHasQuestSub(EVENT_FISH_START)) {
parse->EventPlayer(EVENT_FISH_START, this, "", 0);
}
//these will trigger GoFish() after a delay if we're able to actually fish, and if not, we won't stop the client from trying again immediately (although we may need to tell it to repop the button)
p_timers.Start(pTimerFishing, FishingReuseTime - 1);