EZ Server

my $temp_owner = $npc->GetOwnerID();
if ($temp_owner != $userid) { # Deny create instance
   quest::say("Only my real owner can create an instance!");
}
else { } # Allow create instance

sub EVENT_SAY {
my $Cx = $client->GetX();
my $Cy = $client->GetY();
my $Cz = $client->GetZ();
my $space = "_";
my $soloinst = "solo";
my $sologlob = "$name$space$soloinst$space$zonesn";

			if($text=~/Create Solo/i && !defined $qglobals{$sologlob})
			{
			plugin::SendToInstance("solo", "$zonesn", 0, $Cx, $Cy, $Cz, "solo", 86400);
			}

		if($text=~/#raidall/i)
		{
		my $instid = $qglobals->{$sologlob};
		quest::AssignRaidToInstance($instid);
		$client->Message(15,"$instid is the ID");
		}
		
		if($text=~/^#raidzone /i)
		{
		$string2 = "$text";
		$leadername = str_replace('#raidzone ','',$string2);
		my $stupid = "$leadername$space$soloinst$space$zonesn";
		my $instid = $qglobals->{"$stupid"};
		$client->Message(15, "$instid is this $stupid");
		quest::MovePCInstance($zoneid, $instid, $Cx, $Cy, $Cz);	
		}
}

sub str_replace {
	my $replace_this = shift;
	my $with_this  = shift; 
	my $string   = shift;
	
	my $length = length($string);
	my $target = length($replace_this);
	
	for(my $i=0; $i<$length - $target + 1; $i++) {
		if(substr($string,$i,$target) eq $replace_this) {
			$string = substr($string,0,$i) . $with_this . substr($string,$i+$target);
			return $string; #Comment this if you what a global replace
		}
	}
	return $string;
}

Akkadius: Added $client->SignalClient($data), it uses the client as the initiator and the client that gets sent the data, good for entity_list iterations through client
Akkadius: Added cross zone client signalling capability by character ID: quest::crosszonesignalclientbycharid(char_id, data);
Akkadius: Added cross zone client signalling capability by character Name: quest::crosszonesignalclientbyname(Name, data);
Akkadius: Added cross zone client messaging capability by character Name: quest::crosszonemessageplayerbyname(Type, Name, Message);

Exported $client->AddAlternateCurrencyValue(currency_id, amount); originally created by KLS

if ($compare_name eq $guild_invite_pending)

if ($compare_name eq $guild_invite_pending || $compare_name eq $guild_invite_joined)

CHANGES	: 03/30/2013 
Changed menu system, put some commands under the "More Options" saylink to reduce menu size
Changed instance durations from 14400 to 86400 (4 hrs to 24 hrs)
Updated prices and per zone
Created sub zone id to zone name (Hope I didn't re-create something that already exist lol)
Added $zoneid to $zonesn in qglobal name and passed to $signal, telling players in a different zone which zone to be used
$signal remove - greater than 1000000000 (1 billion) = remove player from instance
$signal zone id - has $zoneid * 1000000 (1 million) for $zoneid to pass through signal via int ($signal / 1000000)
$signal instance id - has instance id passed by int ($signal % 1000000) to get the value under 1 million for instance id
Added / Updated signal to give message to player that was invited regardless of any status (pending, joined, removed)
With the above update, players can re-invite players that did not receive the message or was zoning at the time, etc.
Updated Popup window info when being invited, removed, or choosing to leave instance
Decided to not "upgrade" solo instances to guild/raid that was suggested, for now.
Decided not to use invite whole raid group or syntax join player/guild names, still need to use the ids provided.

my $GetJoinID = substr($text, 10);
my $Check_R_Invite = $GetJoinID . "_RaidI_" . $zonesn . "_" . "$zoneid";
my $Check_R_Leader = $GetJoinID . "_RaidI_Leader";

my $Check_R_Invite = "_RaidI_" . $zonesn . "_" . "$zoneid";
my $Check_R_Leader = substr($text, 10);
my $GetRaidInstance = $Check_R_Leader . "_Raid_" . $zonesn . "_" . $zoneid;
my $GetJoinID = 0;
if (defined($qglobals{"$GetRaidInstance"}))
{
	$GetJoinID = $qglobals{"$GetRaidInstance"};
	$Check_R_Invite = $GetJoinID . $Check_R_Invite;
}