Guild Invite Bot

[cubber]

Here is a simple script I came up with to allow an NPC to invite players into a guild when they hail and talk to him. Good for small servers with one guild that holds all the players.

#############
#Written By : Cubber
#Quest Name: Guild Invite Bot
#Date: 11-21-2009
#################
sub EVENT_SAY
{
if($text=~/Hail/i)
{
quest::say("Hello there $name, would you like to join the [Guild]?");
}
elsif ($text=~/Guild/i)
{
quest::say("Ahh yes the Guild! It is the greatest guild in all the land...
All of the most revered adventures in Norrath join it! Besides the many benefits that being in a guild has to offer,
it also allows members to keep in touch with each other easily.");

quest::say("Tell me $race, are you [interested]?");
}
elsif ($text=~/Interested/i)
{
quest::setguild(1,0);
quest::say("Welcome to the guild $name!");
}
}


Enjoy!

[cubber]

This script could easily be modified to support multiple guilds on the server.

instead of using this line for a one guild setup:

elsif ($text=~/Interested/i)
{
quest::setguild(1,0);
quest::say("Welcome to the guild $name!");
}


You could modify it for each guild like so:



elsif ($text=~/Guild1/i)
{
quest::setguild(1,0);
quest::say("Welcome to the guild $name!");
}

elsif ($text=~/Guild2/i)
{
quest::setguild(2,0);
quest::say("Welcome to the guild $name!");
}

elsif ($text=~/Guild3/i)
{
quest::setguild(3,0);
quest::say("Welcome to the guild $name!");
}



and so on... Of course you would have to change the intro text to support the new guild names.

the quest::setguild(x,y); command uses the "x" value as the guild ID on the server, which you can find with the GM command #guilds list. The "y" value is the guild status so 0 is member, 1 is officer. You probably want to keep the "y" value as 0 since the bot is auto-inviting members.