EQEmulator Forums - Bot healing. Questions about options, control and configurations.

After some fooling around with some concepts, this is where I ended up. All of this was done without any source code modification. I intentionally added notes where things did not work as you might expect. I had to kludge together some logic because bots don't return owner-related information correctly via Perl for such reasons. All required "QnD" plugins included.

in <EQEMU_DIR>\plugins\MySQL.pl

Code:

# USAGE: plugin::SelectHashref($dbh, $sql);

# NOTE: (weakly) coded to only allow for SELECT statements

sub SelectHashref {



        my ($dbh, $sql) = @_;



        return () unless $dbh && (ref $dbh) =~ /^DBI/; # validate DBI handle

        return () unless $dbh->ping;                   # validate connection

        return () unless $sql && $sql =~ /^SELECT /;   # validate sql query



        my $sth = $dbh->prepare($sql);



        $sth->execute();



        return $sth->fetchrow_hashref();

}

in <EQEMU_DIR>\plugins\Bots.pl

Code:

# USAGE: plugin::GetGroupedBots($client)

sub GetGroupedBots {



        my @b;



        if (my $g = shift->GetGroup()) {

                for (my $i = 0; $i < 6; $i++) {

                        next unless my $m = $g->GetMember($i);

                        next if $m->IsClient() ||

                                $m->IsNPC()    ||

                                $m->IsPet();

                        push(@b, $m);

                }

        }

        return @b;

}

in <EQEMU_DIR>\quests\global\global_player.pl

Code:

sub EVENT_SAY {



        $text =~ /#pingme/   ? plugin::Debug("PING") :         # making sure this works

        $text =~ /#healme/   ? BotHealMe() :                   # scripted 'bot heal' command

        return;

}



sub BotHealMe {



        foreach my $bot (plugin::GetGroupedBots($client)) {

        

                # HasOwner() always returns 1 for a bot

                return unless $bot && $bot->HasOwner();



                # GetOwner() causes script to fail

                # my $botOwner = $bot->GetOwner();



                # GetOwnerID() always returns 0 for a bot

                # this behavior is reflected in #showstats

                my $ownerID = $bot->GetOwnerID();

                

                my $botName  = $bot->GetCleanName();

                plugin::Debug("$botName is probably a bot."); 

                

                # returns value of bot_data.bot_id from database if mob is a bot

                # NOTE: corresponding value will not exist in npc_types.id

                my $botID = $bot->GetNPCTypeID();



                # returns entityID

                my $botEntityID = $bot->GetID();

                

                # get the info we need from the database

                # correct owner_id is found here

                my $dbh = plugin::LoadMysql();

                my $sql = "SELECT * FROM bot_data WHERE bot_id = $botID LIMIT 1";

                my $res = plugin::SelectHashref($dbh, $sql);

                

                # debugging vomit

                foreach my $key (keys %$res) {

                        my $val = $res->{$key};

                        plugin::Debug("$key => $val");

                }

                

                # will not despawn a bot because

                # the server expects nullptr or NPC as owner

                # quest::depop($botID);

                

                # will not spawn a bot because

                # the server gets nullptr if npc_types.id not found

                # quest::spawn2($botID,0,0,$x,$y,$z,$h);



                # EXAMPLES OF LOGIC THAT MIGHT GO HERE

                # 1. verify bot ownership

                # 2. determine best available spell for situation

                # 3. cast selected spell (see methods below) 

                #    GetClass()

                #    GetCasterLevel()

                #    GetSpellIDFromSlot()

                #    IsBeneficialAllowed()

                #    CheckLoS()

                #    CastSPell()

                #    IsCasting()

                #    InterruptSpell()

                #    SpellFinished()

                #    CastingSpellID()

                

                # NOTE: this should get a list of all spells available to a bot

                #

                # my $botLevel = $bot->GetLevel();

                # my $sql = "SELECT * FROM bot_spells_entries WHERE npc_spells_id = (

                #     SELECT spells_id FROM bot_data WHERE bot_id = $botID LIMIT 1

                # ) AND ($botLevel BETWEEN minlevel AND maxlevel)";

        }

}