Perl Bots

[RichardoX]

It's been a dream of mine for a while to have bots placed throughout the world (almost like hired mercenaries) that could join your group until a timer expired, bot died or you zoned out.

It would even prove more beneficial if it could respond to commands from the group leader in group chat as well rather than typing physical #bot commands. Would this be a possibility in the future?

Here's an example of what I mean.


(Level 30 Druid Bot at the WC entrance of Kith)

sub EVENT_SAY {
if($text=~/hail/i && $ulevel >= 30) {
quest::say("Greetings traveler! These dense woods can become quite dangerous by yourself! I could [come] with you considering I dont want to go alone.");
}
if($text=~/come/i && $ulevel >= 30) {
quest::botjoin(); #Bot joins group
quest::gsay("Thanks for the invitation. Keep your guard up!"); #bot group chat
}
if($text=~/leave/i && $groupleader == 1){ #checks for group status
quest::botdisband();
quest::say("Ok then, good luck!");
quest::depop();
}}

[Vexira]

How difficult would this be to write?

[Vexira]

Sorry, duplicate post.