Log in

View Full Version : Is there a script to remove overhaul question when zoning ?


MisifuWiki
06-11-2013, 08:16 PM
Hi all , i need help on what thing i need change or maybe put inside the DB one script for when you zone in UF client don't appears the question about wich zone you will go , the overhaul or the other.

Someone can help me , im checking the db with heidi and checking the peq editor for 3 days and can't find where i can change this.

Uleat
06-11-2013, 09:15 PM
There is something around here, or possibly on the PEQ forums (http://www.peqtgc.com/phpBB3/), about this...

I'll post a link if I can find it.

sorvani
06-12-2013, 06:33 AM
Zone client mask and quest scripts. Cavedude posted about it on the PEQ forums when he did it, not sure if the quests re in the public SVN or not. Never looked.

MisifuWiki
06-12-2013, 07:28 AM
Can't find the cavedude's post on peq forum same than here , im better at using search forum engine (350) but don't show me the right info , will mean the info im looking for.

Robregen
06-12-2013, 10:40 AM
that script would be in your quest folder. It would be in poknowledge folder and the name of the script would be player.pl.

It would be under the sub EVENT_CLICKDOOR. you can just delete where it says "if($doorid == 19)" on Liine 34 through Line 118. That will remove the pop up windows. or you just can remove where it says


else #SoF/SoD/UF
{
quest::popup("$zonename","Send you to the Classic $zonename? $popuptext",6,1);
quest::settimer(6,5);
}

MisifuWiki
06-12-2013, 02:12 PM
This solution don't work , because when delete all you say later don't work the pok stone to freeport

MisifuWiki
06-13-2013, 06:34 PM
No one can help me ?? Got burned my brain , i will try change the mask client to UF , and if im remembering fine is mask 28 , will try this in all client mask t zone points to try don't pop up this for me hated question about " respond in 5 segs or you gonna go to overhauled version "

MisifuWiki
06-13-2013, 10:01 PM
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

Kingly_Krab
06-14-2013, 12:27 AM
Misifu, please post code in code tags, like below.

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);
}
}