If you search there are many buff bot examples out there. If you can't find one PM me and I'll share mine. Can't remember who to credit for it. As for a greeter... Here's the script for my server info bot. It uses Akka's pop up window plugin. I'm sure I could have done a lot better, but it'll give ya an idea of what you can do. Any quests just ask.
Code:
sub EVENT_SAY {
my $NPCName = $npc->GetCleanName();
my $info = quest::saylink("Server Info");
my $rules = quest::saylink("Server Rules");
my $will = quest::saylink("will be taken");
my $recent = quest::saylink("Recent Updates");
my $upcoming = quest::saylink("Planned Updates");
if ($text=~/hail/i){
$client->Message(315,"$NPCName 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 $Link = plugin::PWHyperLink("http://www.fleshripper.forumotion.com", "Fleshripper Forums!");
my $spell = plugin::PWHyperLink("http://www.mediafire.com/?7632vqiocu7lvco", "Spell File");
my $TextToCenter = plugin::PWAutoCenter("Main things going on with the server:");
my $TextToCenter1 = plugin::PWAutoCenter("Server up to GoD max lvl 65");
my $TextToCenter2 = plugin::PWAutoCenter("1/2 hp on mobs.");
my $TextToCenter3 = plugin::PWAutoCenter("Bots. You can have 2 out with 1 backup.");
my $TextToCenter4 = plugin::PWAutoCenter("No corpse runs! Items stay on you.");
my $TextToCenter5 = plugin::PWAutoCenter("Rested regen super fast timer and regen.");
my $TextToCenter6 = plugin::PWAutoCenter("Buff timer stopped in PoK.");
my $TextToCenter7 = plugin::PWAutoCenter("Manastone, Guise & Circlet of Shadow, in.");
my $TextToCenter8 = plugin::PWAutoCenter("Scribe spells, learn disc and skills on level");
my $TextToCenter9 = plugin::PWAutoCenter("Guild Lobby & Hall open with Guild Bank");
my $TextToCenter10 = plugin::PWAutoCenter("Please visit and register on forums");
my $TextToCenter11 = plugin::PWAutoCenter(">>>> $Link <<<<");
my $TextToCenter12 = plugin::PWAutoCenter("Fabled are in. Look out.");
my $TextToCenter13 = plugin::PWAutoCenter("For Spell File:");
my $TextToCenter14 = plugin::PWAutoCenter(">>>> $spell <<<<");
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 Fleshripper!",
"<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>
$TextToCenter14
<br>
$TextToCenter11
");
}
if ($text=~/server rules/i) {
my $Link = plugin::PWHyperLink("http://www.fleshripper.forumotion.com", "Fleshripper Forums!");
my $TextToCenter = plugin::PWAutoCenter("MQ use is prohibited.");
my $TextToCenter2 = plugin::PWAutoCenter("Bot exploiting is prohibited.");
my $TextToCenter3 = plugin::PWAutoCenter("You can box if you want 2 - 3.");
my $TextToCenter4 = plugin::PWAutoCenter("Be respectful of others.");
my $TextToCenter5 = plugin::PWAutoCenter("-No one likes douches-");
my $TextToCenter6 = plugin::PWAutoCenter("MQ and Bot exploiting will get");
my $TextToCenter7 = plugin::PWAutoCenter("you banned.");
my $TextToCenter8 = plugin::PWAutoCenter("Any questions visit the forums");
my $TextToCenter9 = plugin::PWAutoCenter("Or ask Goregut.");
my $TextToCenter10 = plugin::PWAutoCenter("Please visit and register on forums");
my $TextToCenter11 = plugin::PWAutoCenter(">>>> $Link <<<<");
my $TextToCenter13 = plugin::PWAutoCenter("for up to date info!.");
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("Fleshripper 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>
$TextToCenter11
");
}
if ($text=~/recent updates/i) {
my $Link = plugin::PWHyperLink("http://www.fleshripper.forumotion.com", "Fleshripper Forums!");
my $TextToCenter = plugin::PWAutoCenter("Server up to GoD now.");
my $TextToCenter2 = plugin::PWAutoCenter("PoP flags should be removed fully");
my $TextToCenter3 = plugin::PWAutoCenter("Compleely redid alt currency system!");
my $TextToCenter4 = plugin::PWAutoCenter("NPCs will now take dust and frags from inventory!");
my $TextToCenter5 = plugin::PWAutoCenter("Thanks Croaker for the awesome solution!");
my $TextToCenter6 = plugin::PWAutoCenter("Added a new random lotto system and bot.");
my $TextToCenter7 = plugin::PWAutoCenter("Huge server file update. Lots of things improved.");
my $TextToCenter8 = plugin::PWAutoCenter("Including war & knight bots have defensive now!");
my $TextToCenter9 = plugin::PWAutoCenter("");
my $TextToCenter10 = plugin::PWAutoCenter("Please visit and register on forums");
my $TextToCenter11 = plugin::PWAutoCenter(">>>> $Link <<<<");
my $TextToCenter13 = plugin::PWAutoCenter("for up to date info!.");
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>
$TextToCenter11
");
}
if ($text=~/planned updates/i) {
my $Link = plugin::PWHyperLink("http://www.fleshripper.forumotion.com", "Fleshripper Forums!");
my $TextToCenter = plugin::PWAutoCenter("");
my $TextToCenter2 = plugin::PWAutoCenter("");
my $TextToCenter3 = plugin::PWAutoCenter("");
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 $TextToCenter10 = plugin::PWAutoCenter("Please visit and register on forums");
my $TextToCenter11 = plugin::PWAutoCenter(">>>> $Link <<<<");
my $TextToCenter13 = plugin::PWAutoCenter("For up to date info!.");
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>
$TextToCenter11
");
}
}
Just reread your post. Making the NPC do stuff is done by the quest files in the quest directory of the zone they're in. It'll need to have their name as the file name. Mine is Gore Bot, so the file will need to be Gore_bot.pl ... You need to create/edit with a text editor just make sure it has the .pl extension.
Goregut
Threaded Mode
