*pokes Xenixa*

Cheers,

-jj-

Heheh... still havn't got around to converting this one yet to work off the db, that for some odd reason I keep updating.
Had some Org members pressing me to get Guest auto inviting working, which I finished last night.

Not sure if anyone ever noticed this but when you create the blob for a return on matches on the !symb command, you return with links for the pocketbosses with just /tell botname pb etc... no prefix if they have one.

Just add a simple <pre> before pb (/tell <botname> <pre>pb...) and it's fixed.

*Excited Thigh Symbiant, Artillery Unit Aban - The Worm King
*Effective Right Arm Symbiant, Infantry Unit Aban - Churn
*Vigorous Right Wrist Symbiant, Artillery Unit Aban - Churn

Those were on aopocket but not inside file

http://ao.inutiles.be/pb.phps

I made an little addition to this .. making it possible to dropa pattern for the pocket boss instead of typing name of it ... here is the code

<?

/*
*Not in AOPocket:
*Alert Left Arm, Extermination - Anansi's Adherent
*Cognizant Right Arm, Control - Ushqa
*Effective Left Hand, Control - Shake
*Cognizant Feet Symbiant, Infantry - Sashu
*Cognizant Right Wrist Symbiant, Artillery - Sashu
*Cognizant Ocular Symbiant, Extermination - Sashu
*Cognizant Brain Symbiant, Extermination - Sashu
*Cognizant Left Hand Symbiant, Infantry - Sashu
*Cognizant Thigh Symbiant, Infantry - Sashu
*/

include_once("_Colors.php");
$pb = new PB($bot);

$commands["gc"]["pb"] = &$pb;
$commands["tell"]["pb"] = &$pb;
$commands["pgmsg"]["pb"] = &$pb;
$commands["gc"]["symb"] = &$pb;
$commands["tell"]["symb"] = &$pb;
$commands["pgmsg"]["symb"] = &$pb;

class PB
{
   var $bot;
   var $symbdata = array(
   array (170,'eye','artillery','Adobe Suzerain','Scheol Upper','Highlands NW Incarnator N','Eremites',125,219135,'QL 170 Active Ocular Symbiant, Artillery Unit Aban'),
   array (170,'legs','infantry','Adobe Suzerain','Scheol Upper','Highlands NW Incarnator N','Eremites',125,235792,'QL 170 Active Thigh Symbiant, Infantry Unit Aban'),
   array (150,'feet','infantry','Adobe Suzerain','Scheol Upper','Highlands NW Incarnator N','Eremites',125,235825,'QL 150 Surviving Feet Symbiant, Infantry Unit Aban') ...

edited some off the array out ...

   
   function PB (&$bot)
   {
      $this -> bot = &$bot;
   }

   function gc($name, $msg)
   {
      if (preg_match("/^" . $this -> bot -> commpre . "pb <a (.+) '(.+)'(.+)/i", $msg, $info)) {
         $this -> bot -> send_gc("Searching for " . $info[2] );
         $this -> bot -> send_gc($this -> SearchPB($info[2]) );
      } else if (preg_match("/^" . $this -> bot -> commpre . "pb (.+)/i", $msg, $info)) {
         $this -> bot -> send_gc($this -> SearchPB($info[1]));
      } else if (preg_match("/^" . $this -> bot -> commpre . "symb (eye|head|ear|rarm|chest|larm|rwrist|waist|lwrist|rhand|legs|lhand|feet) (support|control|infantry|artillery|extermination)/i", $msg, $info)) {
         $this -> bot -> send_gc($this -> SearchSymb($info[1], $info[2]), "symb");
      } else if (preg_match("/^" . $this -> bot -> commpre . "symb (support|control|infantry|artillery|extermination) (eye|head|ear|rarm|chest|larm|rwrist|waist|lwrist|rhand|legs|lhand|feet)/i", $msg, $info)) {
         $this -> bot -> send_gc($this -> SearchSymb($info[2], $info[1]), "symb");
      }
   }

   function pgmsg($name, $msg)
   {
      if (preg_match("/^" . $this -> bot -> commpre . "pb <a (.+) '(.+)'(.+)/i", $msg, $info)) {
         $this -> bot -> send_pgroup("Searching for " . $info[2] );
         $this -> bot -> send_pgroup($this -> SearchPB($info[2]) );
      } else   if (preg_match("/^" . $this -> bot -> commpre . "pb (.+)/i", $msg, $info)) {
         $this -> bot -> send_pgroup($this -> SearchPB($info[1]));
      } else if (preg_match("/^" . $this -> bot -> commpre . "symb (eye|head|ear|rarm|chest|larm|rwrist|waist|lwrist|rhand|legs|lhand|feet) (support|control|infantry|artillery|extermination)/i", $msg, $info)) {
         $this -> bot -> send_pgroup($this -> SearchSymb($info[1], $info[2]), "symb");
      } else if (preg_match("/^" . $this -> bot -> commpre . "symb (support|control|infantry|artillery|extermination) (eye|head|ear|rarm|chest|larm|rwrist|waist|lwrist|rhand|legs|lhand|feet)/i", $msg, $info)) {
         $this -> bot -> send_pgroup($this -> SearchSymb($info[2], $info[1]), "symb");
      }
   }

   function tell($name, $msg)
   {
      if (preg_match("/^" . $this -> bot -> commpre . "pb <a (.+) '(.+)'(.+)/i", $msg, $info)) {
         $this -> bot -> send_tell($name, "Searching for " . $info[2] );
         $this -> bot -> send_tell($name, $this -> SearchPB($info[2]) );

      } else if (preg_match("/^" . $this -> bot -> commpre . "pb (.+)/i", $msg, $info)) {
         $this -> bot -> send_tell($name, $this -> SearchPB($info[1]));
      } else if (preg_match("/^" . $this -> bot -> commpre . "symb (eye|head|ear|rarm|chest|larm|rwrist|waist|lwrist|rhand|legs|lhand|feet) (support|control|infantry|artillery|extermination)/i", $msg, $info)) {
         $this -> bot -> send_tell($name, $this -> SearchSymb($info[1], $info[2]), "symb");
      } else if (preg_match("/^" . $this -> bot -> commpre . "symb (support|control|infantry|artillery|extermination) (eye|head|ear|rarm|chest|larm|rwrist|waist|lwrist|rhand|legs|lhand|feet)/i", $msg, $info)) {
         $this -> bot -> send_tell($name, $this -> SearchSymb($info[2], $info[1]), "symb");
      }
   }

   function CreateBlob($data, $mode="pb")
   {
      if($mode == "pb") {
         $msg = Headertext("::::: Remains of ".$data[0][3]." :::::\n\n");
         $msg .= Grouptext(
         Highlight("Location: ").$data[0][4]."\n"
         .Highlight("Found on: ").$data[0][6]."\n"
         .Highlight("Mob Level: ").$data[0][7]."\n"
         .Highlight("General Location: ").$data[0][5]."\n"
         ."____________________________________  \n"
         );

         asort($data);
         foreach($data as $symb) {
            $msg .= "<a href='itemref://".$symb[8]."/".$symb[8]."/".$symb[0]."'>".$symb[9]."</a>\n";
         }
         return $this -> bot -> make_blob("Remains of ".$data[0][3], $msg);
      } else {
         $msg = Headertext("::::: Result of your search :::::\n\n");
         ksort($data);
         foreach($data as $symb) {
            $msg .= "<a href='itemref://".$symb[8]."/".$symb[8]."/".$symb[0]."'>".$symb[9]."</a>\n";
            $msg .= Grouptext("   Found on ")."<a href='chatcmd:///tell <botname> <pre>pb ".$symb[3]."'>".$symb[3]."</a>\n\n";
         }
         return $this -> bot -> make_blob("Found ".count($data)." matches", $msg);
      }
   }

   function SearchSymb($location, $art)
   {
      $return = array();
      foreach ($this -> symbdata as $pb) {
         if(stristr($pb[1], $location) && stristr($pb[2], $art)) {
            $return[] = $pb;
         }
      }

      if(!$return) {
         return "Could not find any Pocketboss for \"".Highlight($location." ".$art)."\"";
      } else {
         return $this -> CreateBlob($return, "symb");
      }
   }

   function SearchPB($search)
   {
      $return = array();
      foreach ($this -> symbdata as $pb) {
         if(stristr($pb[3], $search)) {
            $return[] = $pb;
         }
      }

      if(!$return) {
         return "Could not find the Pocketboss \"".Highlight($search)."\"";
      } else {
         return $this -> CreateBlob($return, "pb");
      }
   }
}
?>

/regards chowkow

SQL based hands down.
Easier to maintain aswell.

We have that now Vhab with MySQL.

See: http://bebot.link/index.php/topic,306.0.html
Importing an .sql file is a snap.

But ya, I agree that other Symbs module I linked to should replace this one as the official mod. I've already migrated to it on 0.3.3. Worked without any changes to it.

Hmm, I ran into an interesting bug...with my above mod, if you do !symb, to list all symbs, the bot crashes. Without the mod it does not.

If you do !symb head, or any other refining parameter, it's fine. I'm suspecting that the pure length of the buffer is getting to large?!!? in case of the complete listing with the pb info included as well.

I've just done a easy fix for now, only displaying the pm info if the search is refined by ether slot, unit or ql (yes, you can still crash it if you do !symb 0-300 I guess

$title = "QL {$symb['ql']} {$symb['symb']} ".array_search($symb['slot'], $this->slots)." symbiant, {$symb['unit']} unit aban";
$title = ucwords($title);
$link = "<a href='itemref://{$symb['itemref']}/{$symb['itemref']}/{$symb['ql']}'>$title</a>";
$readable_output .= "$link\n";
if($query_slot !== false || $query_ql !== false || $query_unit !== false)
{
   $title = "{$symb['boss']}";
   $title = ucwords($title);
   $link = "<a href='chatcmd:///tell <botname> !pb $title'>$title</a>";
   $readable_output .= "From: " . "$link\n\n";
}