Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::Q&A

Quests::Q&A This is the quest support section

Reply
 
Thread Tools Display Modes
  #1  
Old 03-13-2015, 12:27 PM
Twilightmist
Fire Beetle
 
Join Date: Feb 2015
Location: California
Posts: 11
Default

Thank you for the answers. I suspected this is what was happening. As to "Why" we would like to use both is because learning Perl is probably enough for a beginner in programming, without having to learn Lua too.

This is a great opportunity to learn some basic programming skills, using a medium I love (Everquest) but it is a little overwhelming at first.
Reply With Quote
  #2  
Old 03-13-2015, 12:34 PM
Akkadius's Avatar
Akkadius
Administrator
 
Join Date: Feb 2009
Location: MN
Posts: 2,072
Default

Quote:
Originally Posted by Twilightmist View Post
Thank you for the answers. I suspected this is what was happening. As to "Why" we would like to use both is because learning Perl is probably enough for a beginner in programming, without having to learn Lua too.

This is a great opportunity to learn some basic programming skills, using a medium I love (Everquest) but it is a little overwhelming at first.
Perl is the master race.
Reply With Quote
  #3  
Old 03-13-2015, 01:14 PM
ghanja's Avatar
ghanja
Dragon
 
Join Date: Aug 2012
Location: Hershey, PA
Posts: 499
Default

Quote:
Originally Posted by Twilightmist View Post
Thank you for the answers. I suspected this is what was happening. As to "Why" we would like to use both is because learning Perl is probably enough for a beginner in programming, without having to learn Lua too.

This is a great opportunity to learn some basic programming skills, using a medium I love (Everquest) but it is a little overwhelming at first.
I thought you may have had a technical reason for the request. Something that perhaps some coding assistance may have allowed you to overcome. I understand the "why" now to mean, you would have liked both perl and lua versions to be provided in which to learn from. So.

Here is the (older) Perl global_player.pl:

Code:
sub EVENT_ENTERZONE {
  if($ulevel >= 15 && !defined($qglobals{Wayfarer}) && $client->GetStartZone()!=$zoneid && $zoneid !=50 && $zoneid !=12) {
    $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 =~ /^1090[4-7]$/) {
        $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 =~ /^10(903|346|334)$/) {
        my %reward = (
            melee  => {
                10903 => 67665,
                10346 => 67660,
                10334 => 67653
            },
            hybrid => {
                10903 => 67666,
                10346 => 67661,
                10334 => 67654
            },
            priest => {
                10903 => 67667,
                10346 => 67662,
                10334 => 67655
            },
            caster => {
                10903 => 67668,
                10346 => 67663,
                10334 => 67656
            }
        );
        my $type = plugin::ClassType($class);
        quest::summonitem($reward{$type}{$recipe_id});
        quest::summonitem(67704);
        $client->Message(1,"Success");
    }
}
Reply With Quote
Reply

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 06:48 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