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

Quests::Custom Custom Quests here

Reply
 
Thread Tools Display Modes
  #1  
Old 03-28-2017, 04:35 PM
ghanja's Avatar
ghanja
Dragon
 
Join Date: Aug 2012
Location: Hershey, PA
Posts: 499
Default Zone Recommendations with Porting

I'll revisit this, as I whipped this together real quick before running out. But, I wanted to share for now to get it up on the board in the case I would forget later (which wouldn't be unlike me):

Code:
%recommendhash = (
	1 => [[1..9],["crushbone","unrest"]],
	2 => [[10..19],["crushbone","unrest"]],
	3 => [[20..29],["crushbone","unrest"]],
	4 => [[30..39],["crushbone","unrest"]],
	5 => [[40..49],["crushbone","unrest"]],
	6 => [[50..59],["crushbone","unrest"]],
	7 => [[60..69],["crushbone","unrest"]],
	9 => [[70..79],["crushbone","unrest"]],
);

sub EVENT_SAY
{	
	if ($text=~/Hail/i)
	{
		plugin::Whisper("Seeking our custom zones? I can ".quest::saylink("recommend",1)." zones based on your level.");
	}
	elsif ($text=~/recommend/i)
	{
		foreach $key (keys %recommendhash)
		{
			if ($ulevel ~~ @{$recommendhash{$key}[0]})
			{
				$formattedstring = undef;
				for ($i = 0; $i <= ((scalar @{$recommendhash{$key}[1]}) - 1); $i++)
				{
					if ($i < ((scalar @{$recommendhash{$key}[1]}) - 1))
					{
						$formattedstring .= quest::saylink("xxxx".$recommendhash{$key}[1][$i],1,"[".plugin::Zone("LN",$recommendhash{$key}[1][$i])."], ");
					} else {
						$formattedstring .= " and ".quest::saylink("xxxx".$recommendhash{$key}[1][$i],1,"[".plugin::Zone("LN",$recommendhash{$key}[1][$i])."].");
					}
				}
				$hashkey = $key;
				plugin::Whisper("I recommend the following: ".$formattedstring);
			}
		}
		plugin::Whisper("I have no recommended zones for you.") if (!defined $formattedstring);
	}
	elsif ($text=~/^xxxx/) 
	{
		@portargument = split('xxxx', $text);
		plugin::Whisper("$name, stand close to me while I take you there!");
		quest::doanim(42);
		quest::emote ("hands begin to move wildly.");
		quest::zone ($portargument[1]);
	}
}
Requires Kingly's Zone.pl plugin

Only checked for syntax atm and there is likely a more eloquent way to code it, but, was a quickie. Posted in discord figured I'd place here for prosperity.

*Edit: Feel free to modify the hash for whatever ranges of levels that apply to you, as well as the possible zone shortnames for said ranges. Doesn't matter what the keys are (i.e. 1 =>, 2=>, etc.) as they aren't used, I have them in order just because it happened that way while writing it.
Reply With Quote
  #2  
Old 08-20-2017, 11:50 PM
javewow's Avatar
javewow
Sarnak
 
Join Date: Aug 2012
Location: work
Posts: 74
Default

Can it be the same as poptime?

popttiem(223) zone is copy
A-palyer-inport--zone copy 223
B-palyer-inport--zone copy 223
C-palyer-inport--zone copy 223

zone name 223

Do you know the custom? zone copy
__________________
To create the most beautiful server for "!!~[BP] PLARYBOT EQ~!" Welcome to our server
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 07:06 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