EQEmulator Forums

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)
-   Support::Windows Servers (https://www.eqemulator.org/forums/forumdisplay.php?f=587)
-   -   Missing global_player.pl / dbstr? (https://www.eqemulator.org/forums/showthread.php?t=41390)

Baelu 06-14-2017 09:41 PM
Missing global_player.pl / dbstr?
 
Just did a fresh install and dont appear to have a global_player.pl or a dbstr_us file. Tried searching for one bout couldnt find, anyone able to post an original perhaps?

Kingly_Krab 06-14-2017 09:53 PM
The global_player.pl in your quests/global folder is now a global_player.lua file. dbstr_us.txt is a client file and is located in your client folder.

Baelu 06-14-2017 10:17 PM
Ah gotcha, is there a easy way of switching the lua to pl? or would i be better off just doing it in lua instead?

Kingly_Krab 06-14-2017 10:24 PM
Either way is fine, I don't have the default global_player.pl, but if you post your global_player.lua I should be able to translate the code.

jpyou127 06-15-2017 07:22 AM
Thumbs up for this thread!

Baelu 06-15-2017 08:00 AM
Quote:
Originally Posted by Kingly_Krab (Post 254938)
Either way is fine, I don't have the default global_player.pl, but if you post your global_player.lua I should be able to translate the code.
Awesome, here ya go.

Code:
function event_enter_zone(e)
        local qglobals = eq.get_qglobals(e.self);
        if(e.self:GetLevel() >= 15 and qglobals['Wayfarer'] == nil) then
                local zoneid = eq.get_zone_id();
                if(e.self:GetStartZone() ~= zoneid and (zoneid == 1 or zoneid == 2 or zoneid == 3 or zoneid == 8 or zoneid == 9
                or zoneid == 10 or zoneid == 19 or zoneid == 22 or zoneid == 23 or zoneid == 24 or zoneid == 29 or zoneid == 30
                or zoneid == 34 or zoneid == 35 or zoneid == 40 or zoneid == 41 or zoneid == 42 or zoneid == 45 or zoneid == 49
                or zoneid == 52 or zoneid == 54 or zoneid == 55 or zoneid == 60 or zoneid == 61 or zoneid == 62 or zoneid == 67
                or zoneid == 68 or zoneid == 75 or zoneid == 82 or zoneid == 106 or zoneid == 155 or zoneid == 202 or zoneid == 382
                or zoneid == 383 or zoneid == 392 or zoneid == 393 or zoneid == 408)) then
                        e.self:Message(15,
                                "A mysterious voice whispers to you, \'If you can feel me in your thoughts, know this -- "
                                .. "something is changing in the world and I reckon you should be a part of it. I do not know much, but I do know "
                                .. "that in every home city and the wilds there are agents of an organization called the Wayfarers Brotherhood. They "
                                .. "are looking for recruits . . . If you can hear this message, you are one of the chosen. Rush to your home city, or "
                                .. "search the West Karanas and Rathe Mountains for a contact if you have been exiled from your home for your deeds, "
                                .. "and find out more. Adventure awaits you, my friend.\'");
                end
        end
end

function event_combine_success(e)
        if (e.recipe_id == 10904 or e.recipe_id == 10905 or e.recipe_id == 10906 or e.recipe_id == 10907) then
                e.self:Message(1,
                "The gem resonates with power as the shards placed within glow unlocking some of the stone's power. "
                .. "You were successful in assembling most of the stone but there are four slots left to fill, "
                .. "where could those four pieces be?"
                );
        elseif(e.recipe_id == 10903 or e.recipe_id == 10346 or e.recipe_id == 10334) then
                local reward = { };
                reward["melee"] =  { ["10903"] = 67665, ["10346"] = 67660, ["10334"] = 67653 };
                reward["hybrid"] = { ["10903"] = 67666, ["10346"] = 67661, ["10334"] = 67654 };
                reward["priest"] = { ["10903"] = 67667, ["10346"] = 67662, ["10334"] = 67655 };
                reward["caster"] = { ["10903"] = 67668, ["10346"] = 67663, ["10334"] = 67656 };

                local ctype = eq.ClassType(e.self:GetClass());
                e.self:SummonItem(reward[ctype][tostring(e.recipe_id)]);
                e.self:SummonItem(67704);
                e.self:Message(1, "Success");
        --cleric 1.5
        elseif(e.recipe_id == 19460) then
                e.self:AddAAPoints(5);
                e.self:Ding();
                e.self:Message(15,'You have gained 5 ability points!');
                eq.set_global("cleric_epic","7",5,"F");
        --rogue 1.5
        elseif(e.recipe_id == 13402 or e.recipe_id == 13403 or e.recipe_id == 13404 or e.recipe_id == 13405) then
                e.self:Message(15,"The piece of the metal orb fuses together with the blue diamonds under the intense heat of the forge. As it does, a flurry of images flash through your mind... A ranger and his bear side by side, stoic and unafraid, in a war-torn forest. A bitter tattooed woman with bluish skin wallowing in misery in a waterfront tavern. An endless barrage of crashing thunder and lightning illuminating a crimson brick ampitheater. Two halflings locked in a battle of wits using a checkered board. The images then fade from your mind");
        --ranger 1.5 tree
        elseif(e.recipe_id ==13412) then
                eq.set_global("ranger_epic","3",5,"F");
                if(eq.get_zone_short_name()=="jaggedpine") then
                        e.self:Message(15,"The seed grows rapidly the moment you push it beneath the soil. It appears at first as a mere shoot, but within moments grows into a stout sapling and then into a gigantic tree. The tree is one you've never seen before. It is the coloration and thick bark of a redwood with the thick bole indicative of the species. The tree is, however, far too short and has spindly branches sprouting from it with beautiful flowers that you would expect on a dogwood. You take all of this in at a glance. It takes you a moment longer to realize that the tree is moving.");                       
                        eq.spawn2(181222, 0, 0, e.self:GetX()+3,e.self:GetY()+3,e.self:GetZ(),0);
                else
                        e.self:Message(15,"The soil conditions prohibit the seed from taking hold");
                        e.self:SummonItem(72091);
                        e.self:SummonItem(62621);
                        e.self:SummonItem(62622);
                        e.self:SummonItem(62844);
                end
        --ranger 1.5 final
        elseif(e.recipe_id ==13413) then
                e.self:AddAAPoints(5);
                e.self:Ding();
                e.self:Message(15,'You have gained 5 ability points!');
                eq.set_global("ranger_epic","5",5,"F");
        end
end

function event_command(e)
        return eq.DispatchCommands(e);
end

--[[ the main key is the ID of the AA
--  the first set is the age required in seconds
--  the second is if to ignore the age and grant anyways live test server style
--  the third is enabled
--]]
vet_aa = {
    [481]  = { 31536000, true, true}, -- Lesson of the Devote 1 yr
    [482]  = { 63072000, true, true}, -- Infusion of the Faithful 2 yr
    [483]  = { 94608000, true, true}, -- Chaotic Jester 3 yr
    [484]  = {126144000, true, true}, -- Expedient Recovery 4 yr
    [485]  = {157680000, true, true}, -- Steadfast Servant 5 yr
    [486]  = {189216000, true, true}, -- Staunch Recovery 6 yr
    [487]  = {220752000, true, true}, -- Intensity of the Resolute 7 yr
    [511]  = {252288000, true, true}, -- Throne of Heroes 8 yr
    [2000] = {283824000, true, true}, -- Armor of Experience 9 yr
    [8081] = {315360000, true, true}, -- Summon Resupply Agent 10 yr
    [8130] = {346896000, true, true}, -- Summon Clockwork Banker 11 yr
    [453]  = {378432000, true, true}, -- Summon Permutation Peddler 12 yr
    [182]  = {409968000, true, true}, -- Summon Personal Tribute Master 13 yr
    [600]  = {441504000, true, true}, -- Blessing of the Devoted 14 yr
}

function event_connect(e)
    local age = e.self:GetAccountAge();
    for aa, v in pairs(vet_aa) do
        if v[3] and (v[2] or age >= v[1]) then
            e.self:GrantAlternateAdvancementAbility(aa, 1)
        end
    end
end

--[[
0  /*13855*/ Skill1HBlunt = 0,
1  /*13856*/ Skill1HSlashing,
2  /*13857*/ Skill2HBlunt,
3  /*13858*/ Skill2HSlashing,
4  /*13859*/ SkillAbjuration,
5  /*13861*/ SkillAlteration,
6  /*13862*/ SkillApplyPoison, X
7  /*13863*/ SkillArchery, X
8  /*13864*/ SkillBackstab,
9  /*13866*/ SkillBindWound,
10 /*13867*/ SkillBash,
11 /*13871*/ SkillBlock,
12 /*13872*/ SkillBrassInstruments,
13 /*13874*/ SkillChanneling,
14 /*13875*/ SkillConjuration,
15 /*13876*/ SkillDefense,
16 /*13877*/ SkillDisarm,
17 /*13878*/ SkillDisarmTraps,
18 /*13879*/ SkillDivination,
19 /*13880*/ SkillDodge,
20 /*13881*/ SkillDoubleAttack,
21 /*13882*/ SkillDragonPunch,
21 /*13924*/ SkillTailRake = SkillDragonPunch, // Iksar Monk equivilent
22 /*13883*/ SkillDualWield,
23 /*13884*/ SkillEagleStrike,
24 /*13885*/ SkillEvocation,
25 /*13886*/ SkillFeignDeath,
26 /*13888*/ SkillFlyingKick,
27 /*13889*/ SkillForage, X
28 /*13890*/ SkillHandtoHand,
29 /*13891*/ SkillHide,
30 /*13893*/ SkillKick,
31 /*13894*/ SkillMeditate,
32 /*13895*/ SkillMend,
33 /*13896*/ SkillOffense,
34 /*13897*/ SkillParry,
35 /*13899*/ SkillPickLock, X
36 /*13900*/ Skill1HPiercing,        // Changed in RoF2(05-10-2013)
37 /*13903*/ SkillRiposte,
38 /*13904*/ SkillRoundKick,
39 /*13905*/ SkillSafeFall,
40 /*13906*/ SkillSenseHeading, X
41 /*13908*/ SkillSinging,
42 /*13909*/ SkillSneak,
43 /*13910*/ SkillSpecializeAbjure,      // No idea why they truncated this one..especially when there are longer ones...
44 /*13911*/ SkillSpecializeAlteration,
45 /*13912*/ SkillSpecializeConjuration,
46 /*13913*/ SkillSpecializeDivination,
47 /*13914*/ SkillSpecializeEvocation,
48 /*13915*/ SkillPickPockets, X
49 /*13916*/ SkillStringedInstruments,
50 /*13917*/ SkillSwimming, X
51 /*13919*/ SkillThrowing,
52 /*13920*/ SkillTigerClaw,
53 /*13921*/ SkillTracking, X
54 /*13923*/ SkillWindInstruments,
55 /*13854*/ SkillFishing, X
56 /*13853*/ SkillMakePoison, X
57 /*13852*/ SkillTinkering, X
58 /*13851*/ SkillResearch, X
59 /*13850*/ SkillAlchemy, X
60 /*13865*/ SkillBaking, X
61 /*13918*/ SkillTailoring, X
62 /*13907*/ SkillSenseTraps, X
63 /*13870*/ SkillBlacksmithing, X
64 /*13887*/ SkillFletching, X
65 /*13873*/ SkillBrewing, X
66 /*13860*/ SkillAlcoholTolerance, X
67 /*13868*/ SkillBegging,
68 /*13892*/ SkillJewelryMaking, X
69 /*13901*/ SkillPottery, X
70 /*13898*/ SkillPercussionInstruments,
71 /*13922*/ SkillIntimidation,
72 /*13869*/ SkillBerserking,
73 /*13902*/ SkillTaunt,
74 /*05837*/ SkillFrenzy,
75 /*03670*/  SkillRemoveTraps,  X
76 /*13049*/  SkillTripleAttack,
]]--

function event_level_up(e)
  local free_skills =  {0,1,2,3,4,5,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,28,29,30,31,32,33,34,36,37,38,39,41,42,43,44,45,46,47,49,51,52,54,67,70,71,72,73,74,76};

  for k,v in ipairs(free_skills) do
    if ( e.self:MaxSkill(v) > 0 and e.self:GetRawSkill(v) < 1 and e.self:CanHaveSkill(v) ) then
      e.self:SetSkill(v, 1);
    end
     
  end
end

Kingly_Krab 06-15-2017 06:34 PM
This should be pretty well translated.

Code:
sub EVENT_ENTERZONE {
    if ($ulevel >= 15 && !defined $qglobals{"Wayfarer"}) {
        if ($client->GetStartZone() != $zoneid && ($zoneid ~~ [1..3, 8..10, 19, 22..24, 29, 30, 34, 35, 40..42, 45, 49, 52, 54, 55, 60..62, 67, 68, 75, 82, 106, 155, 202, 382, 383, 392, 393, 408])) {
            $client->Message(15, "A mysterious voice whispers to you, \"If you can feel me in your thoughts, know this --
                something is changing in the world and I reckon you should be a part of it. I do not know much, but I do know
                that in every home city and the wilds there are agents of an organization called the Wayfarers Brotherhood. They
                are looking for recruits . . . If you can hear this message, you are one of the chosen. Rush to your home city, or
                search the West Karanas and Rathe Mountains for a contact if you have been exiled from your home for your deeds,
                and find out more. Adventure awaits you, my friend.\"");
        }
    }
}

sub EVENT_COMBINE_SUCCESS {
    if ($recipe_id ~~ [10904..10907]) {
        $client->Message(1, "The gem resonates with power as the shards placed within glow unlocking some of the stone's power. You were successful in assembling most of the stone but there are four slots left to fill, where could those four pieces be?");
    } elsif ($recipe_id == 10903) {
        if ($class ~~ [1, 7, 9, 16]) {
            quest::summonitem(67665);
        } elsif ($class ~~ [3..5, 8, 15]) {
            quest::summonitem(67666);
        } elsif ($class ~~ [2, 6, 10]) {
            quest::summonitem(67667);
        } elsif ($class ~~ [11..14]) {
            quest::summonitem(67668);
        }
        quest::summonitem(67704);
    } elsif ($recipe_id == 10346) {
        if ($class ~~ [1, 7, 9, 16]) {
            quest::summonitem(67660);
        } elsif ($class ~~ [3..5, 8, 15]) {
            quest::summonitem(67661);
        } elsif ($class ~~ [2, 6, 10]) {
            quest::summonitem(67662);
        } elsif ($class ~~ [11..14]) {
            quest::summonitem(67663);
        }
        quest::summonitem(67704);
    } elsif ($recipe_id == 10334) {
        if ($class ~~ [1, 7, 9, 16]) {
            quest::summonitem(67653);
        } elsif ($class ~~ [3..5, 8, 15]) {
            quest::summonitem(67654);
        } elsif ($class ~~ [2, 6, 10]) {
            quest::summonitem(67655);
        } elsif ($class ~~ [11..14]) {
            quest::summonitem(67656);
        }
        quest::summonitem(67704);
    } elsif ($recipe_id == 19460) {
        $client->SetAAPoints($client->GetAAPoints() + 5);
        quest::ding();
        $client->Message(15, "You have gained 5 ability points!");
        quest::setglobal("cleric_epic", 7, 5, "F");
    } elsif ($recipe_id ~~ [13402..13405]) {
        $client->Message(15, "The piece of the metal orb fuses together with the blue diamonds under the intense heat of the forge. As it does, a flurry of images flash through your mind... A ranger and his bear side by side, stoic and unafraid, in a war-torn forest. A bitter tattooed woman with bluish skin wallowing in misery in a waterfront tavern. An endless barrage of crashing thunder and lightning illuminating a crimson brick ampitheater. Two halflings locked in a battle of wits using a checkered board. The images then fade from your mind");
    } elsif ($recipe_id == 13412) {
        quest::setglobal("ranger_epic", 3, 5, "F");
        if ($zonesn eq "jaggedpine") {
            $client->Message(15, "The seed grows rapidly the moment you push it beneath the soil. It appears at first as a mere shoot, but within moments grows into a stout sapling and then into a gigantic tree. The tree is one you've never seen before. It is the coloration and thick bark of a redwood with the thick bole indicative of the species. The tree is, however, far too short and has spindly branches sprouting from it with beautiful flowers that you would expect on a dogwood. You take all of this in at a glance. It takes you a moment longer to realize that the tree is moving.");
            quest::spawn2(181222, 0, 0, ($client->GetX() + 3), ($client->GetY() + 3), $client->GetZ(), 0);
        } else {
            $client->Message(15, "The soil conditions prohibit the seed from taking hold.");
            quest::summonitem($_) for (62621, 62622, 62844, 72091);
        }
    } elsif ($recipe_id == 13413) {
        $client->SetAAPoints($client->GetAAPoints() + 5);
        quest::ding();
        $client->Message(15, "You have gained 5 ability points!");
        quest::setglobal("ranger_epic", 5, 5, "F");
    }
}

sub EVENT_CONNECT {
    my %vet_aa = (481 => [31536000, 1, 1],
    482 => [63072000, 1, 1],
    483 => [94608000, 1, 1],
    484 => [126144000, 1, 1],
    485 => [157680000, 1, 1],
    486 => [189216000, 1, 1],
    487 => [220752000, 1, 1],
    511 => [252288000, 1, 1],
    2000 => [283824000, 1, 1],
    8081 => [315360000, 1, 1],
    8130 => [346896000, 1, 1],
    453 => [378432000, 1, 1],
    182 => [409968000, 1, 1],
    600 => [441504000, 1, 1]);
    foreach my $key (keys %vet_aa) {
        if ($vet_aa{$key}[2] && ($vet_aa{$key}[2] || $client->GetAccountAge() >= $vet_aa{$key}[0])) {
            $client->GrantAlternateAdvancementAbility($key, 1);
        }
    }
}

sub EVENT_LEVEL_UP {
    foreach my $skill (0..55, 62, 70, 72..74, 76, 77) {
        if ($client->CanHaveSkill($skill) && $client->MaxSkill($skill) > 0) {
            $client->SetSkill($skill, $client->MaxSkill($skill));
        }
    }
}

Baelu 06-15-2017 09:03 PM
Awesome, thanks man. Should I remove the lua version?


All times are GMT -4. The time now is 11:46 AM.

Powered by vBulletin®, Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.