Ok , finally i got the solution for remove the popup with the question about clasic or overhaul zone.
But first i will say this solution works for UF client only , because i don't have any other client than this and i can't test , with this modification one UF client can zone without respon the question and go to zone to the new zones always , of course all news zones enableds
Now im gonna copy my player.pl file for the people got UF client and will zone always in new zones and don't popup the window question. AND THIS IS ONLY FOR LAN SERVERS.
sub EVENT_ENTERZONE
{
if (quest::istaskcompleted(138) == 0 && quest::istaskactive(138) == 0) #Check if completed Task: New Beginnings
{
quest::assigntask(138); #Force assign Task: New Beginnings
}
}
sub EVENT_CLICKDOOR
{
my $popuptext = "If you do not respond within 5 seconds, you will automatically be sent to the overhauled version.";
if($doorid == 138) #guild lobby
{
if($client->CalculateDistance(1408, -377, -113) <= 30)
{
if(($client->GetClientVersionBit() & 4294967264)!= 0)
{
quest::MovePCInstance(344,5,18,-46,6,225);
}
else
{
quest::movepc(344,18,-46,6,225);
}
}
}
if($doorid == 139) #bazaar
{
if($client->CalculateDistance(1452, 347, -113) <= 30)
{
quest::movepc(151,-425,0,-25,65);
}
}
if($doorid == 19)
{
$zonename = "Innothule Swamp";
if(($client->GetClientVersionBit() & 3)!= 0) #062/Titanium
{
quest::movepc(46,-34,-721,-27,221.21);
}
elsif(($client->GetClientVersionBit() & 4294967288)!= 0) #UF
{
quest::movepc(413,-361,-462,5);
}
}
if($doorid == 22) #erud
{
$zonename = "Toxxulia Forest";
if(($client->GetClientVersionBit() & 3)!= 0) #062/Titanium
{
quest::movepc(38,296,-2330,-45.4,127);
}
elsif(($client->GetClientVersionBit() & 4294967288)!= 0) #UF
{
quest::movepc(414,248,-1684,33,88);
}
}
if($doorid == 32) #paineel
{
$zonename = "Toxxulia Forest";
if(($client->GetClientVersionBit() & 3)!= 0) #062/Titanium
{
quest::movepc(38,-569,2325,-43.4,39);
}
elsif(($client->GetClientVersionBit() & 4294967288)!= 0) #UF
{
quest::movepc(414,-1801,1907,119,195.5);
}
}
if($doorid == 24)
{
$zonename = "Steamfont Mountains";
if(($client->GetClientVersionBit() & 3)!= 0) #062/Titanium
{
quest::movepc(56,933.79,-1358,-109);
}
elsif(($client->GetClientVersionBit() & 4294967288)!= 0) #UF
{
quest::movepc(448,940,-1122,5,98);
}
}
if($doorid == 25)
{
$zonename = "Freeport West";
if(($client->GetClientVersionBit() & 3)!= 0) #062/Titanium
{
quest::movepc(9,77.31,-660.57,-30.24);
}
elsif(($client->GetClientVersionBit() & 4294967288)!= 0) #UF
{
quest::movepc(383,-173,-188,-69,192);
}
}
}
sub EVENT_POPUPRESPONSE
{
if($popupid == 2)
{
quest::movepc(46,-34,-721,-27,221.21);
}
if($popupid == 3)
{
quest::movepc(38,296,-2330,-45.4,127);
}
if($popupid == 4)
{
quest::movepc(38,-569,2325,-43.4,39);
}
if($popupid == 5)
{
quest::movepc(56,933.79,-1358,-109);
}
if($popupid == 6)
{
quest::movepc(9,77.31,-660.57,-30.24);
}
}
sub EVENT_TIMER
{
if($timer == 2)
{
quest::movepc(413,-361,-462,5);
}
if($timer == 3)
{
quest::movepc(414,248,-1684,33,88);
}
if($timer == 4)
{
quest::movepc(414,-1801,1907,119,195.5);
}
if($timer == 5)
{
quest::movepc(448,940,-1122,5,98);
}
if($timer == 6)
{
quest::movepc(383,-173,-188,-69,192);
}
}
And this is all folks , omg !!! near 5 days burning my brain hahahahaha but finally got it !!! SALUTES FROM EUROPE exactly from SPAIN
|