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

Quests::Custom Custom Quests here

Reply
 
Thread Tools Display Modes
  #1  
Old 10-13-2014, 04:17 PM
scrubtasticx's Avatar
scrubtasticx
Sarnak
 
Join Date: Apr 2014
Location: Florida
Posts: 44
Default Need some insight on problem

so this is a quest kingly helped me with everything works good until the very last part where npc says congrats, gives weapon, and sets qglobals to 9. none of that last section works and im wondering whats wrong here..

Code:
sub EVENT_SAY {

    my %responses = (1 => "The next item you need is an eye from an evil unicorn in Lesser Faydark.",
    2 => "The next item I need is a Polished Shard from Droga.",
    3 => "The next item I need is a Sphere of Sandstorm from Bastion of Thunder.",
    4 => "The next item I need is dryad parts from Jagged Pine Forest.",
    5 => "The next item I need is werewolf talon from Castle Mistmoore.",
    6 => "The next item I need is a snowball from Permafrost.",
    7 => "This last part will not be so easy. I need Kallis' Head.");
	
    if ($text =~/Hail/i && $ulevel == 65 && !defined $qglobals{"Epic"}) 
	{
        plugin::Whisper("Hello $name, Along my journies I have aquired knowledge on how to create a " . quest::saylink("weapon", 1) . " with power like none seen before.");
    }

	elsif ($text =~/Hail/i && $ulevel <=64 && !defined $qglobals{"Epic"})
	{
		plugin::Whisper("Hello $name, Im sorry but you must be level 65 to start you're epic.");
	}
	
	elsif ($text=~/Hail/i && defined $qglobals{"Epic"}) 
	{
        if ($qglobals{"Epic"} >= 1 && $qglobals{"Epic"} <= 7) 
		{
            plugin::Whisper($responses{$qglobals{"Epic"}});
        }
	}

    if ($text=~/^Weapon$/i) 
	{
        plugin::Whisper("In order for me to make you this special weapon I need a few items. The first item I need is a greatsword from Acryila Caverns.");
    }
}

sub EVENT_ITEM {
    my %handins = (1 => [1815, 1, 2, "Wow you are making incredible time getting me these items. The next item I need is a Polished Shard from Droga."],
    2 => [81116, 2, 3, "You are getting closer to greatness. The next item I need is a Sphere of Sandstorm from Bastion of Thunder."],
    3 => [9429, 3, 4, "Incredible! The weapon is almost complete. The next item I need is dryad parts from Jagged Pine Forest."],
    4 => [8107, 4, 5, "You are half way there. The next item I need is werewolf talon from Castle Mistmoore."],
    5 => [13746, 5, 6, "The weapon is starting to glow. The next item I need is a snowball from permafrost."],
    6 => [19034, 6, 7, "Just one more peice to go. This last part will not be so easy. I need Kallis' Head."],
    7 => [31420, 7, 8, "That is everything. Give me a few seconds to get your weapon made."]);
    my %rewards = ("Warrior" => 60332, 
    "Cleric" => 20076, 
    "Paladin" => 48147, 
    "Ranger" => 62649, 
    "Shadowknight" => 48136,
    "Druid" => 62880, 
    "Monk" => 67742, 
    "Bard" => 77640, 
    "Rogue" => 39941, 
    "Shaman" => 57405, 
    "Necromancer" => 64067, 
    "Wizard" => 16576, 
    "Magician" => 19839, 
    "Enchanter" => 52962, 
    "Beastlord" => 57054, 
    "Berserker" => 18609);
    if (!defined $qglobals{"Epic"}) 
	{
        if (plugin::check_handin(\%itemcount, 51261 => 1)) 
		{
            plugin::Whisper("This is just what I was looking for! The next item you need is an eye from an evil unicorn in Lesser Faydark.");
            quest::setglobal("Epic", 1, 5, "F");
        }
    } 
	elsif (defined $qglobals{"Epic"}) 
	{
        if ($qglobals{"Epic"} <= 7) 
		{
            foreach $key (keys %handins) 
			{
                if (plugin::check_handin(\%itemcount, $handins{$key}[0] => 1) && $qglobals{"Epic"} == $handins{$key}[1]) 
				{
                    quest::setglobal("Epic", $handins{$key}[2], 5, "F");
                    plugin::Whisper($handins{$key}[3]);
                }
            }
        } 
		elsif ($qglobals{"Epic"} == 8) 
		{
            quest::gmsay("Congratulations to $name on their " .     quest::varlink($rewards{$class}) . "!", 335, 1, 0, 0);
            quest::SummonItem($rewards{$class});
	   quest::setglobal("Epic", 9, 5, "F");
        }
    }
    plugin::return_items(\%itemcount);
}
__________________
No one is really listening they are just waiting for their turn to talk.
Reply With Quote
  #2  
Old 10-13-2014, 04:19 PM
Kingly_Krab
Administrator
 
Join Date: May 2013
Location: United States
Posts: 1,594
Default

Well, the quest::SummonItem should be quest::summonitem. Things like this are case-sensitive.

Last edited by Kingly_Krab; 10-13-2014 at 04:34 PM..
Reply With Quote
  #3  
Old 10-13-2014, 04:20 PM
scrubtasticx's Avatar
scrubtasticx
Sarnak
 
Join Date: Apr 2014
Location: Florida
Posts: 44
Default

still not working with that change.
__________________
No one is really listening they are just waiting for their turn to talk.
Reply With Quote
  #4  
Old 10-13-2014, 04:22 PM
Kingly_Krab
Administrator
 
Join Date: May 2013
Location: United States
Posts: 1,594
Default

Ignore this post.

Last edited by Kingly_Krab; 10-13-2014 at 04:49 PM..
Reply With Quote
  #5  
Old 10-13-2014, 04:28 PM
scrubtasticx's Avatar
scrubtasticx
Sarnak
 
Join Date: Apr 2014
Location: Florida
Posts: 44
Default

Fixed thanks Kingly!!!!
__________________
No one is really listening they are just waiting for their turn to talk.
Reply With Quote
  #6  
Old 10-13-2014, 04:47 PM
chrsschb's Avatar
chrsschb
Dragon
 
Join Date: Nov 2008
Location: GA
Posts: 904
Default

I'm gonna guess the nesting of the last statement is wrong, but I haven't broken down the quest completely.
__________________
Clumsy's World: Resurgence [2019-Present]
Clumsy's World 2.0 [2014-2016]
Clumsy's World [2006-2012]
Reply With Quote
  #7  
Old 10-13-2014, 04:49 PM
Kingly_Krab
Administrator
 
Join Date: May 2013
Location: United States
Posts: 1,594
Default

It works now:
Code:
sub EVENT_SAY {
    my %responses = (1 => "The next item you need is an eye from an evil unicorn in Lesser Faydark.",
    2 => "The next item I need is a Polished Shard from Droga.",
    3 => "The next item I need is a Sphere of Sandstorm from Bastion of Thunder.",
    4 => "The next item I need is dryad parts from Jagged Pine Forest.",
    5 => "The next item I need is werewolf talon from Castle Mistmoore.",
    6 => "The next item I need is a snowball from Permafrost.",
    7 => "This last part will not be so easy. I need Kallis' Head.");
    
    if ($text =~/Hail/i && $ulevel == 65 && !defined $qglobals{"Epic"}) {
        plugin::Whisper("Hello $name, along my journies I have acquired knowledge on how to create a " . quest::saylink("weapon", 1) . " with power like none seen before.");
    } elsif ($text =~/Hail/i && $ulevel <= 64 && !defined $qglobals{"Epic"}) {
        plugin::Whisper("Hello $name, I'm sorry but you must be level 65 to start your epic.");
    } elsif ($text=~/Hail/i && defined $qglobals{"Epic"}) {
        if ($qglobals{"Epic"} >= 1 && $qglobals{"Epic"} <= 7) {
            plugin::Whisper($responses{$qglobals{"Epic"}});
        }
    }

    if ($text=~/^Weapon$/i) {
        plugin::Whisper("In order for me to make you this special weapon I need a few items. The first item I need is a greatsword from Acryila Caverns.");
    }
}

sub EVENT_ITEM {
    my %handins = (1 => [1815, 1, 2, "Wow you are making incredible time getting me these items. The next item I need is a Polished Shard from Droga."],
    2 => [81116, 2, 3, "You are getting closer to greatness. The next item I need is a Sphere of Sandstorm from Bastion of Thunder."],
    3 => [9429, 3, 4, "Incredible! The weapon is almost complete. The next item I need is dryad parts from Jagged Pine Forest."],
    4 => [8107, 4, 5, "You are half way there. The next item I need is werewolf talon from Castle Mistmoore."],
    5 => [13746, 5, 6, "The weapon is starting to glow. The next item I need is a snowball from permafrost."],
    6 => [19034, 6, 7, "Just one more peice to go. This last part will not be so easy. I need Kallis' Head."],
    7 => [31420, 7, 8, "That is everything. Give me a few seconds to get your weapon made."]);
    my %rewards = ("Warrior" => 60332, 
    "Cleric" => 20076, 
    "Paladin" => 48147, 
    "Ranger" => 62649, 
    "Shadowknight" => 48136,
    "Druid" => 62880, 
    "Monk" => 67742, 
    "Bard" => 77640, 
    "Rogue" => 39941, 
    "Shaman" => 57405, 
    "Necromancer" => 64067, 
    "Wizard" => 16576, 
    "Magician" => 19839, 
    "Enchanter" => 52962, 
    "Beastlord" => 57054, 
    "Berserker" => 18609);
    if (!defined $qglobals{"Epic"}) {
        if (plugin::check_handin(\%itemcount, 51261 => 1)) {
            plugin::Whisper("This is just what I was looking for! The next item you need is an eye from an evil unicorn in Lesser Faydark.");
            quest::setglobal("Epic", 1, 5, "F");
        }
    } elsif (defined $qglobals{"Epic"}) {
        foreach $key (keys %handins) {
            if (plugin::check_handin(\%itemcount, $handins{$key}[0] => 1) && $qglobals{"Epic"} == $handins{$key}[1]) {
                plugin::Whisper($handins{$key}[3]);
                if ($handins{$key}[2] <= 7) {
                    quest::setglobal("Epic", $handins{$key}[2], 5, "F");
                } elsif ($handins{$key}[2] == 8) {
                    quest::gmsay("Congratulations to $name on their " . quest::varlink($rewards{$class}) . "!", 335, 1, 0, 0);
                    quest::summonitem($rewards{$class});
                    quest::setglobal("Epic", 9, 5, "F");
                }
            }
        }
    }
    plugin::return_items(\%itemcount);
}
Reply With Quote
Reply


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 03:34 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 - 2024, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3