View Single Post
  #8  
Old 08-10-2012, 12:30 PM
dew1960
Sarnak
 
Join Date: Feb 2008
Posts: 80
Default What's wrong with my code?

Hello!

I thought I had this working but now it isn't. I have the npc named Server_Greeter and saved the code as Server_Greeter.pl in the quest/guildlobby folder. I am thinking it must be something wrong with my code but I can't see what it could be.

Code:
sub EVENT_SAY {
	
my $info = quest::saylink("Server Info");
my $rules = quest::saylink("Server Rules");
my $recent = quest::saylink("Recent Updates");
my $upcoming = quest::saylink("Planned Updates");

if ($text=~/hail/i){
	$client->Message(315,"Server Greeter whispers to you, 'Hi there $name. What would you like to know? $info or $rules? Perhaps you'd like to hear about $recent or $upcoming?'");
	}
if ($text=~/server info/i) {
	my $TextToCenter = plugin::PWAutoCenter("Bots. You can have a full set of bots.");
	my $TextToCenter1 = plugin::PWAutoCenter("Type '#bot help' for more information.");
	my $TextToCenter2 = plugin::PWAutoCenter("");
	my $TextToCenter3 = plugin::PWAutoCenter("");
	my $TextToCenter4 = plugin::PWAutoCenter("No corpse runs! Items stay on you.");
	my $TextToCenter5 = plugin::PWAutoCenter("Defiant Gear Vendors are in the Guild Lobby.");
	my $TextToCenter6 = plugin::PWAutoCenter("I have epic 1.0 items - free! Right click me");
	my $TextToCenter7 = plugin::PWAutoCenter("Macroquest2 is allowed - see rules");
	my $TextToCenter8 = plugin::PWAutoCenter("Free Veteran AA's available at lvl One! Very Handy!");
	my $TextToCenter9 = plugin::PWAutoCenter("You can use the Steadfast Servant as a Merc Here!");
	my $TextToCenter10 = plugin::PWAutoCenter("It lasts 30 mins but by then you can reuse it again!");
	my $TextToCenter11 = plugin::PWAutoCenter("All LDoN Adventures are up and running");
	my $TextToCenter12 = plugin::PWAutoCenter("You can even solo the Adventures with a group of 2");
	my $TextToCenter13 = plugin::PWAutoCenter("Guild Hall is open with Guild Bank");
	my $TextToCenter14 = plugin::PWAutoCenter("Server is up to GoD max lvl 65");
	my $Indent = plugin::PWIndent();
	my $Yel = plugin::PWColor("Yellow");
	my $Blu = plugin::PWColor("Light Blue");
	my $Red = plugin::PWColor("Red");
	my $grn = plugin::PWColor("Forest Green");
	quest::popup("Welcome to Adventure Unlimited", 
	"<br>
	$Yel $TextToCenter9 </c> <br> 
	$Yel $TextToCenter </c> <br> 
    $TextToCenter1 <br>
	$TextToCenter2 <br>
	$TextToCenter3 <br>
	$TextToCenter4 <br>
	$TextToCenter5 <br> 
	$TextToCenter6 <br>
	$TextToCenter7 <br>
	$TextToCenter8 <br>
	$TextToCenter12 <br>
	$Red $TextToCenter10 </c><br>
	$Red $TextToCenter13 </c><br>
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $TextToCenter14
	<br>
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $TextToCenter11
	");
	}
if ($text=~/server rules/i) {
	my $TextToCenter = plugin::PWAutoCenter("Macroquest2 IS Allowed.");
	my $TextToCenter2 = plugin::PWAutoCenter("As long as you don't interfere with other players.");
	my $TextToCenter3 = plugin::PWAutoCenter("You can box all you want to.");
	my $TextToCenter4 = plugin::PWAutoCenter("Be respectful of others. No harrassment!");
	my $TextToCenter5 = plugin::PWAutoCenter("-No one likes douches-");
	my $TextToCenter6 = plugin::PWAutoCenter("Please try to help others if and when you can");
	my $TextToCenter7 = plugin::PWAutoCenter("If you enjoy this server, tell your friends!");
	my $TextToCenter8 = plugin::PWAutoCenter("EQ Clients, up to Underfoot are supported");
	my $TextToCenter9 = plugin::PWAutoCenter("Rested mana and health regen rates improved!");
	my $TextToCenter10 = plugin::PWAutoCenter("");
	my $Indent = plugin::PWIndent();
	my $Yel = plugin::PWColor("Yellow");
	my $Blu = plugin::PWColor("Light Blue");
	my $Red = plugin::PWColor("Red");
	my $grn = plugin::PWColor("Forest Green");
	quest::popup("Adventure Unlimited Rules:", 
	"<br>
	$Yel $TextToCenter </c> <br> 
    $Yel $TextToCenter2 </c> <br>
	$Yel $TextToCenter3 </c> <br>
	$Yel $TextToCenter4 </c> <br>
	$Yel $TextToCenter5 </c> <br> 
	$Yel $TextToCenter6 </c> <br>
	$Yel $TextToCenter7 </c> <br>
	$Yel $TextToCenter8 </c> <br>
	$Yel $TextToCenter9 </c> <br> 
    $Red $TextToCenter10 </c> <br>
	$Red $TextToCenter13 </c> <br>
	<br>
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $TextToCenter11
	");
	}	
if ($text=~/recent updates/i) {
	my $TextToCenter = plugin::PWAutoCenter("Server up to GoD now.");
	my $TextToCenter2 = plugin::PWAutoCenter("PoP flags should be removed fully");
	my $TextToCenter3 = plugin::PWAutoCenter("Custom Vendors added for Defiant Gear & Epic 1.0's");
	my $TextToCenter4 = plugin::PWAutoCenter("");
	my $TextToCenter5 = plugin::PWAutoCenter("");
	my $TextToCenter6 = plugin::PWAutoCenter("");
	my $TextToCenter7 = plugin::PWAutoCenter("");
	my $TextToCenter8 = plugin::PWAutoCenter("");
	my $TextToCenter9 = plugin::PWAutoCenter("");
	my $TextToCenter13 = plugin::PWAutoCenter("");
	my $TextToCenter14 = plugin::PWAutoCenter("");
	my $Indent = plugin::PWIndent();
	my $Yel = plugin::PWColor("Yellow");
	my $Blu = plugin::PWColor("Light Blue");
	my $Red = plugin::PWColor("Red");
	my $grn = plugin::PWColor("Forest Green");
	quest::popup("Recent Updates", 
	"<br><br>
	$Yel $TextToCenter </c> <br> 
    $Yel $TextToCenter2 </c> <br>
	$Yel $TextToCenter3 </c> <br><br>
	$Yel $TextToCenter4 </c> <br>
	$Yel $TextToCenter5 </c> <br> 
	$Yel $TextToCenter6 </c> <br>
	$Yel $TextToCenter7 </c> <br> 
	$Yel $TextToCenter8 </c> <br>
	$Yel $TextToCenter9 </c> <br>
	$Yel $TextToCenter14 </c>
	<br>
    $Red $TextToCenter10 </c> <br>
	$Red $TextToCenter13 </c> <br>
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $TextToCenter11
	");
	}	
if ($text=~/planned updates/i) {
	my $TextToCenter = plugin::PWAutoCenter("");
	my $TextToCenter2 = plugin::PWAutoCenter("");
	my $TextToCenter3 = plugin::PWAutoCenter("");
	my $TextToCenter4 = plugin::PWAutoCenter("");
	my $TextToCenter5 = plugin::PWAutoCenter("");
	my $TextToCenter6 = plugin::PWAutoCenter("Updates will be added as they become available");
	my $TextToCenter7 = plugin::PWAutoCenter("");
	my $TextToCenter8 = plugin::PWAutoCenter("");
	my $TextToCenter9 = plugin::PWAutoCenter("");
	my $TextToCenter10 = plugin::PWAutoCenter("");
	my $Indent = plugin::PWIndent();
	my $Yel = plugin::PWColor("Yellow");
	my $Blu = plugin::PWColor("Light Blue");
	my $Red = plugin::PWColor("Red");
	my $grn = plugin::PWColor("Forest Green");
	quest::popup("Planned Updates", 
	"<br>><br>
	$Yel $TextToCenter </c> <br> 
    $Yel $TextToCenter2 </c> <br>
	$Yel $TextToCenter3 </c> <br>
	<br>
    $Red $TextToCenter10 </c> <br>
	$Red $TextToCenter13 </c> <br>
	<br>
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $TextToCenter11
	");
	}	
}
Do you see any errors?
Reply With Quote