EQEmulator Forums - Lua: Getting qglobals in event_death

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)

- Quests::LUA (https://www.eqemulator.org/forums/forumdisplay.php?f=680)

- - Lua: Getting qglobals in event_death_complete (https://www.eqemulator.org/forums/showthread.php?t=40541)

Lua: Getting qglobals in event_death_complete

Wondering if anyone can assist with this. I have a default.pl quest set to assign a quest global credit when a mob is killed in a zone. The zones i am using it in (Befallen & Crushbone) also have a lot of .lua scripts already created so I am trying to convert this section to lua as well so I can copy/paste it into the other scripts.

Perl quest:

Code:

sub EVENT_DEATH_COMPLETE {

#Prevent pets or charmed NPCs from loading the default.pl

        if (!$npc || $npc->GetOwnerID() || $npc->GetSwarmOwner())

        {

                return;

        }



#Checking if the reborn_credits global is defined for this character

    if (defined ($client->GetGlobal("reborn_credits"))) {

#Adding 1 point/credit to the reborn_credits global

                my $total = $client->GetGlobal("reborn_credits");

                $total += 1;

                $client->SetGlobal("reborn_credits", $total, 5, "F");

                $client->Message(5, "You have gained a Reborn armor credit! You currently have $total.");

    }

}

This is what I have so far for the Lua version, however GetGlobal is always returning "Undefined". SetGlobal works fine, it's only commented out for the moment because it is just setting the qglobal to 0 over and over.

Code:

function event_death_complete(e)

        local total = 0;

        if(e.other:GetGlobal("reborn_credits") ~= "Undefined") then

                total = tonumber(e.other:GetGlobal("reborn_credits"));

        end

--        total = total + 1;

--        e.other:SetGlobal("reborn_credits", tostring(total), 5, "F");

        e.other:Message(5, "You have gained a Reborn armor credit! You currently have "..total..".");

end

I had crazy absent minded drivel here.

This is lua Ghanja not perl :)

Quote:

Originally Posted by NatedogEZ (Post 248247)

This is lua Ghanja not perl :)

Ohhh, yeah ok, I see what I did there now. Welp, going back to the Perl forums where I should stay then. :p

I would suggest using `event_killed_merit` BTW! :)

Code:

function event_killed_merit(e)

        local total = 0;

        local qglobals = eq.get_qglobals(e.other);

        if (qglobals["reborn_credits"] == nil) then

                total = 1;

        else

                total = tonumber(qglobals["reborn_credits"]) + 1;

        end



        e.other:SetGlobal("reborn_credits", tostring(total), 5, "F");

        e.other:Message(5, "You have gained a Reborn armor credit! You currently have "..total..".");

end

Perfect, many thanks NatedogEZ!

Will give this a go tonight. I did use event_killed_merit in my perl example but couldn't get it to work (think I was using the old qglobal{} method instead of $client->) and eventually swapped over to death_complete. Just never swapped back after working it all out.