Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::Custom

Quests::Custom Custom Quests here

Reply
 
Thread Tools Display Modes
  #1  
Old 11-27-2018, 10:34 PM
ChaosSlayerZ's Avatar
ChaosSlayerZ
Demi-God
 
Join Date: Mar 2009
Location: Umm
Posts: 1,492
Default

This is FREKOMAZING A+100 WORK!

I have ton of questions on how all this works, but don't really have time to dig into the code right now. Perhaps one day.
Once again AWESOME!

And most importantly thank you for sharing!
Reply With Quote
  #2  
Old 11-28-2018, 05:47 PM
superpally1
Sarnak
 
Join Date: Jul 2018
Location: Tennessee
Posts: 33
Default

wow! very cool idea. thankyou for sharing this.
Reply With Quote
  #3  
Old 11-30-2018, 02:07 AM
Shodai82
Sarnak
 
Join Date: May 2015
Posts: 43
Default

An update to this, it's probably best to use entity variables in global_player.pl when assigning talent values. I updated my implementation as such:

Code:
sub EVENT_ENTERZONE {   
    my $currentZoneID = $client->GetZoneID();
    if($currentZoneID != 344 && $currentZoneID != 345 && $currentZoneID != 202) {
        if($client->GetLevel() == 70) {
            if($qglobals{"Ultimate_Unrest_Complete"} == 1 && $qglobals{"has_gotten_charm_rank_nine"} == 1 && $qglobals{"has_gotten_oot_focus"} == 1 && $qglobals{"has_finished_ultimate_quest_line"} == 1) {
                if($client->GetClass() == 5) {
                    $client->SetEntityVariable("sk_flurry_of_hatred", $qglobals{"sk_flurry_of_hatred"});
                    $client->SetEntityVariable("sk_flurry_of_destruction", $qglobals{"sk_flurry_of_destruction"});
                }
            }
        }
    }
}

sub EVENT_USE_SKILL {
    my $currentZone = $client->GetZoneID();
    if($currentZone != 344 && $currentZone != 345 && $currentZone != 202) {
        if($client->GetClass() == 5) {
            if($skill_id == 0 || $skill_id == 1) {
                my $flurryOfHatredRank = $client->GetEntityVariable("sk_flurry_of_hatred");
                if($flurryOfHatredRank > 0) {
                    my $flurryOfHatredPathSingleMultiplier = 3;
                    my $chanceRollBonusSingleFlurryOfHatred = GET_RANDOM_NUMBER();
                    my $target = $client->GetTarget();
                    if($chanceRollBonusSingleFlurryOfHatred <= ($flurryOfHatredRank * $flurryOfHatredPathSingleMultiplier)) {
                        if($skill_id == 0) {
                            $client->DoSpecialAttackDamage($target, 0, 500, 1000, 0);
                            $client->DoSpecialAttackDamage($target, 0, 500, 1000, 0);
                            $client->DoSpecialAttackDamage($target, 0, 500, 1000, 0);
                            $client->Message(14, "Your Flurry of Hatred talent triggered three additional attacks!");
                        } else {
                            $client->DoSpecialAttackDamage($target, 1, 500, 1000, 0);
                            $client->DoSpecialAttackDamage($target, 1, 500, 1000, 0);
                            $client->DoSpecialAttackDamage($target, 1, 500, 1000, 0);
                            $client->Message(14, "Your Flurry of Hatred talent triggered three additional attacks!");
                        }
                    }
                }
            } elsif($skill_id == 2 || $skill_id == 3) {
                my $flurryOfDestructionRank = $client->GetEntityVariable("sk_flurry_of_destruction");
                if($flurryOfDestructionRank > 0) {
                    my $flurryOfDestructionPathSingleMultiplier = 4;
                    my $chanceRollBonusSingleFlurryOfDestruction = GET_RANDOM_NUMBER();
                    my $target = $client->GetTarget();
                    if($chanceRollBonusSingleFlurryOfDestruction <= ($flurryOfDestructionRank * $flurryOfDestructionPathSingleMultiplier)) {
                        if($skill_id == 2) {
                            $client->DoSpecialAttackDamage($target, 2, 500, 1000, 0);
                            $client->DoSpecialAttackDamage($target, 2, 500, 1000, 0);
                            $client->DoSpecialAttackDamage($target, 2, 500, 1000, 0);
                            $client->Message(14, "Your Flurry of Destruction talent triggered three additional attacks!");
                        } else {
                            $client->DoSpecialAttackDamage($target, 3, 500, 1000, 0);
                            $client->DoSpecialAttackDamage($target, 3, 500, 1000, 0);
                            $client->DoSpecialAttackDamage($target, 3, 500, 1000, 0);
                            $client->Message(14, "Your Flurry of Destruction talent triggered three additional attacks!");
                        }
                    }
                }
            }
        }
    }
}
Reply With Quote
Reply

Tags
qglobals, spell quests, talents, ultimateeq

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

   

All times are GMT -4. The time now is 01:02 AM.


 

Everquest is a registered trademark of Daybreak Game Company LLC.
EQEmulator is not associated or affiliated in any way with Daybreak Game Company LLC.
Except where otherwise noted, this site is licensed under a Creative Commons License.
       
Powered by vBulletin®, Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3