guild teleporter

nightsta69 · #1 09-23-2009, 12:34 PM

zeflmin_werlinkanin.pl

Code:

sub EVENT_SAY {
	if ($text=~ /Hail/i) {
		quest::say("Zeflmin Werlikanin says 'Hello $name. Come to take a look at the crystal geode? The geode has some very strong magic inside of it that can help you. I can bring out the magic of the geode for you, but a gnome has to make a living! Even if he's stuck in this little hole in the wall all the time. Not that I'm bitter. Each of the crystals I sell is linked to a location in our world. If you give me one of the crystals I can focus the geode to let you and your companions travel there in the blink of an eye!'");
	}
}
sub EVENT_ITEM {
	my @itemlist = (10092,10094,64191,76000,76001,76002,76003,76004,76005,76006,76007,76009,76010,76011,76012,76070,88735,88736,88737,88738,88739);
	foreach my $curitem (@itemlist) {
       if($curitem == $item1) {
			quest::setglobal($uguild_id."portal",$item1,7,"F");
			quest::emote("takes the crystal from you and mutters some arcane words over it.");
			quest::say("'The crystal geode is now active, just go step on the crystal platform and you'll be whisked away to your destination! I hope you don't get motion sickness!'");
			return;
	   }
	}
plugin::return_items(\%itemcount);
}

guild_portal_trigger.pl

Code:

sub EVENT_SPAWN {
	my $x = $npc->GetX();
	my $y = $npc->GetY();
	my $range = 10;
	quest::set_proximity($x - $range, $x + $range, $y - $range, $y + $range);

}
sub EVENT_ENTER {
	if(defined($qglobals{$uguild_id."portal"})) {
		quest::say("portal defined");
		quest::say("trying to port now");
		if(($qglobals{$uguild_id."portal"}) == 10092) {
			quest:movepc(76,-353.08,-374.8,3.75);
		}
		if(($qglobals{$uguild_id."portal"}) == 10094) {
			quest:movepc(71,542.45,1384.6,-650);
		}
		if(($qglobals{$uguild_id."portal"}) == 76000) {
			quest:movepc(13,-382,-284,-7);
		}
		if(($qglobals{$uguild_id."portal"}) == 76001) {
			quest:movepc(408,-1334.24,209.57,-51.47);
		}
		if(($qglobals{$uguild_id."portal"}) == 76002) {
			quest:movepc(27,-64,262,-93.96);
		}
		if(($qglobals{$uguild_id."portal"}) == 76003) {
			quest:movepc(38,0,0,66.6);
		}
		if(($qglobals{$uguild_id."portal"}) == 76004) {
			quest:movepc(54,10,-20,0);
		}
		if(($qglobals{$uguild_id."portal"}) == 76005) {
			quest:movepc(86,9565.05,2806.4,1045.2);
		}
		if(($qglobals{$uguild_id."portal"}) == 76006) {
			quest:movepc(110,340,5330,-17);
		}
		if(($qglobals{$uguild_id."portal"}) == 76007) {
			quest:movepc(117,895,-939,318);
		}
		if(($qglobals{$uguild_id."portal"}) == 76009) {
			quest:movepc(170,-1858,-420,-10);
		}
		if(($qglobals{$uguild_id."portal"}) == 76010) {
			quest:movepc(100,-1643.01,-3427.84,-6.57);
		}
		if(($qglobals{$uguild_id."portal"}) == 760011) {
			quest:movepc(300,-1461,-2263,-69);
		}
		if(($qglobals{$uguild_id."portal"}) == 76012) {
			quest:movepc(283,590,-1457,-123);
		}
		if(($qglobals{$uguild_id."portal"}) == 88738) {
			quest:movepc(160,-545,645,1);
		}
		if(($qglobals{$uguild_id."portal"}) == 88739) {
			quest:movepc(219,-37,-110,7.95);
		}
      }
}

ok heres what I got for the guild portal to get working. now zeflmin works as intended, he defines the global $uguild_id"portal", but when I go within the proximity of the guild portal trigger, it won't trigger. I think it has something to do with my syntax, but i've been workin on it for hours and can't figure it out. could someone pls give me some insight on this? thanks.

**Rogean** · #2 09-23-2009, 12:52 PM

Quote:

Originally Posted by nightsta69

Code:

quest:movepc(76,-353.08,-374.8,3.75);

Should be quest::movepc.. your missing a :

nightsta69 · #3 09-23-2009, 12:55 PM

ha figures, I knew it was somethin stupid. thanks