Updated the script yet again.
I got to thinking about bot spam. Got rid of quest::say and put in $client->Message and added color!
Code:
#Bot Event Script
#Just Hail and click!
#Most of the bot commands are listed here if you see one missing
#click the #bot help to find the missing command.
#
# LAST EDIT DATE: July 22, 2009
# VERSION: 0.6
# By: Krugus
#
sub EVENT_SAY
{
my $help = quest::saylink("help");
my $general = quest::saylink("general");
my $bh = quest::saylink("#bot help");
my $bhc = quest::saylink("#bot help create");
my $bla = quest::saylink("#bot list all");
my $bu = quest::saylink("#bot update");
my $bga = quest::saylink("#bot group add");
my $bgr = quest::saylink("#bot group remove");
my $bgof = quest::saylink("#bot group order follow");
my $bgog = quest::saylink("#bot group order guard");
my $bgoa = quest::saylink("#bot group order attack");
my $bil = quest::saylink("#bot inventory list");
my $bgs = quest::saylink("#bot group summon");
my $bst = quest::saylink("#bot summon");
my $class = quest::saylink("class");
my $bmez = quest::saylink("#bot ai mez");
my $bplk = quest::saylink("#bot picklock");
my $bcup = quest::saylink("#bot cure poison");
my $bcud = quest::saylink("#bot cure disease");
my $bcuc = quest::saylink("#bot cure curse");
my $bcub = quest::saylink("#bot cure blindness");
my $bbme = quest::saylink("#bot bindme");
my $btrk = quest::saylink("#bot track");
my $btclm = quest::saylink("#bot target calm");
my $bil = quest::saylink("#bot inventory list");
my $bgs = quest::saylink("#bot group summon");
my $bst = quest::saylink("#bot summon");
my $bevc = quest::saylink("#bot evac");
my $brez = quest::saylink("#bot resurrectme");
my $bcorp = quest::saylink("#bot corpse summon");
my $blre = quest::saylink("#bot lore");
my $bsowr = quest::saylink("#bot sow regular");
my $bsowg = quest::saylink("#bot sow group");
my $bsoww = quest::saylink("#bot sow wolf");
my $binvs = quest::saylink("#bot invis live");
my $blevi = quest::saylink("#bot levitate");
my $brune = quest::saylink("#bot runeme");
my $bshk = quest::saylink("#bot shrinkme");
my $bend = quest::saylink("#bot endureb");
my $bchr = quest::saylink("#bot charm");
my $bdire = quest::saylink("#bot dire charm");
my $bpetr = quest::saylink("#bot pet remove");
my $bdgl = quest::saylink("List Druid Gate Locations");
my $bwgl = quest::saylink("List Wizard Gate Locations");
my $bdgkar = quest::saylink("#bot gate karana");
my $bdgcom = quest::saylink("#bot gate commons");
my $bdgtox = quest::saylink("#bot gate tox");
my $bdgbut = quest::saylink("#bot gate butcher");
my $bdglav = quest::saylink("#bot gate lava");
my $bdgro = quest::saylink("#bot gate ro");
my $bdgfee = quest::saylink("#bot gate feerrott");
my $bdgste = quest::saylink("#bot gate steamfont");
my $bdgmis = quest::saylink("#bot gate misty");
my $bdgwak = quest::saylink("#bot gate wakening");
my $bdgice = quest::saylink("#bot gate iceclad");
my $bdgdiv = quest::saylink("#bot gate divide");
my $bdgcob = quest::saylink("#bot gate cobalt");
my $bdgcomb = quest::saylink("#bot gate combines");
my $bdgsur = quest::saylink("#bot gate surefall");
my $bdggri = quest::saylink("#bot gate grimling");
my $bdgtwi = quest::saylink("#bot gate twilight");
my $bdgdaw = quest::saylink("#bot gate dawnshroud");
my $bdgnex = quest::saylink("#bot gate nexus");
my $bdgsto = quest::saylink("#bot gate stonebrunt");
my $bdgblo = quest::saylink("#bot gate bloodfields");
my $bdgeme = quest::saylink("#bot gate emerald");
my $bdgsky = quest::saylink("#bot gate skyfire");
my $bdgwos = quest::saylink("#bot gate wos");
my $bmage = quest::saylink("#bot magepet earth");
my $bmagw = quest::saylink("#bot magepet water");
my $bmaga = quest::saylink("#bot magepet air");
my $bmagf = quest::saylink("#bot magepet fire");
my $bmagm = quest::saylink("#bot magepet monster");
my $other = quest::saylink("other");
my $braid = quest::saylink("#bot raid help");
my $bsvr = quest::saylink("#bot saveraid");
my $bspnr = quest::saylink("#bot spawnraid");
my $bgprd = quest::saylink("#bot groupraid");
my $barch = quest::saylink("#bot archery");
my $bwgfay = quest::saylink("#bot gate fay");
my $bwgnk = quest::saylink("#bot gate nk");
my $bwgwk = quest::saylink("#bot gate wk");
my $bwghate = quest::saylink("#bot gate hateplane");
my $bwgair = quest::saylink("#bot gate airplane");
my $brstp = quest::saylink("#bot resist poison");
my $brstd = quest::saylink("#bot resist disease");
my $brstf = quest::saylink("#bot resist fire");
my $brstc = quest::saylink("#bot resist cold");
my $brstm = quest::saylink("#bot resist magic");
my $bcinvs = quest::saylink("#bot invis see");
my $binvsun = quest::saylink("#bot invis undead");
my $bsow35 = quest::saylink("#bot sow shrew");
my $bsow50 = quest::saylink("#bot sow feral");
my $allclas = quest::saylink("all clas");
if($text =~ /Hail/i)
{
my $npcn = $npc->GetName();
$client->Message(14, "$npcn says Do you need $help $name?");
}
if($text =~ /help/i)
{
my $npcn = $npc->GetName();
$client->Message(14, "$npcn says Do you need help with $general, $class or $other commands ");
}
if($text =~ /general/i)
{
my $npcn = $npc->GetName();
$client->Message(14, "$npcn says $bh, $bhc, $bla");
$client->Message(14, "$npcn says $bu, $bil");
$client->Message(14, "$npcn says $bga(target), $bgr(target)");
$client->Message(14, "$npcn says $bgs or $bst(target)");
$client->Message(14, "$npcn says $bgof(target)");
$client->Message(14, "$npcn says $bgog(target)");
$client->Message(14, "$npcn says $bgoa(target)");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
if($text =~ /class/i)
{
my $npcn = $npc->GetName();
my $botclass = $npc->GetClass();
if (($botclass == 1 || $botclass == 3|| $botclass == 5 || $botclass == 7 || $botclass ==16)){
$client->Message(14, "$npcn says Look $name, I'm just here to get into a fight.");
$client->Message(14, "$npcn says If you wanted a caster, you should have hired one.");
$client->Message(15, "$npcn says Anything else I can $help you out with?");
}
elsif ($botclass == 2){#cleric
$client->Message(14, "$npcn says $bcup, $bcud, $bcuc");
$client->Message(14, "$npcn says $bcub, $bbme, $brez");
$client->Message(14, "$npcn says $btclm, $brstp, $brstd");
$client->Message(14, "$npcn says $brstf, $brstc");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
elsif ($botclass == 4){#ranger
$client->Message(14, "$npcn says $btrk, $bend");
$client->Message(14, "$npcn says $bsowr, $bsowg, $bsoww");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
elsif ($botclass == 6){#druid
$client->Message(14, "$npcn says $bcup, $bcud, $bcuc");
$client->Message(14, "$npcn says $bcub, $bevc , $btrk");
$client->Message(14, "$npcn says $blevi,$binvs, $bend");
$client->Message(14, "$npcn says $bsowr, $bsowg, $bsoww");
$client->Message(14, "$npcn says Indoors: $bsow35 at 35th");
$client->Message(14, "$npcn says Indoors: $bsow50 at 50th");
$client->Message(14, "$npcn says $bchr, $bdire, $bpetr");
$client->Message(14, "$npcn says $brstm, $brstp, $brstd");
$client->Message(14, "$npcn says $brstf, $brstc");
$client->Message(14, "$npcn says $bdgl");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
elsif ($botclass == 8){#bard
$client->Message(14, "$npcn says $btrk");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
elsif ($botclass == 9){#rogue
$client->Message(14, "$npcn says $bplk(target & stand right on door)");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
elsif ($botclass == 10){#shaman
$client->Message(14, "$npcn says $bcup, $bcud, $bcuc");
$client->Message(14, "$npcn says $bcub, $blevi, $bshk");
$client->Message(14, "$npcn says $bsowr, $bsowg, $bsoww");
$client->Message(14, "$npcn says $brstm, $brstp, $brstd");
$client->Message(14, "$npcn says $brstf, $brstc, $bend");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
elsif ($botclass == 11){#necro
$client->Message(14, "$npcn says $bcorp, $blre, $binvsun");
$client->Message(14, "$npcn says $bchr, $bdire, $bpetr");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
elsif ($botclass == 12){#wizard
$client->Message(14, "$npcn says $blre, $blevi");
$client->Message(14, "$npcn says $binvs, $binvsun, $bcinvs");
$client->Message(14, "$npcn says $bwgl");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
elsif ($botclass == 13){#mage
$client->Message(14, "$npcn says $blre, $blevi");
$client->Message(14, "$npcn says $binvs, $bcinvs");
$client->Message(14, "$npcn says $bmage, $bmagw");
$client->Message(14, "$npcn says $bmaga, $bmagf, $bmagm");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
elsif ($botclass == 14){#enchanter
$client->Message(14, "$npcn says $bmez(target)");
$client->Message(14, "$npcn says $btclm, $blre, $blevi");
$client->Message(14, "$npcn says $binvs, $bcinvs");
$client->Message(14, "$npcn says $brune, $bend");
$client->Message(14, "$npcn says $bchr, $bdire, $bpetr");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
elsif ($botclass == 15){#Beastlord
$client->Message(14, "$npcn says $bsowr, $bsowg");
$client->Message(14, "$npcn says $bshk");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
}
if($text =~ /other/i)
{
my $npcn = $npc->GetName();
$client->Message(14, "$npcn says $braid, $bsvr");
$client->Message(14, "$npcn says $bspnr, $bgprd, $barch");
$client->Message(14, "$npcn says List $allclas commands");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
if($text =~ /List Druid Gate Locations/i)
{
my $npcn = $npc->GetName();
$client->Message(14, "$npcn says $bdgkar, $bdgcom");
$client->Message(14, "$npcn says $bdgtox, $bdgbut");
$client->Message(14, "$npcn says $bdglav, $bdgro");
$client->Message(14, "$npcn says $bdgfee, $bdgste");
$client->Message(14, "$npcn says $bdgmis, $bdgwak");
$client->Message(14, "$npcn says $bdgice, $bdgdiv");
$client->Message(14, "$npcn says $bdgcob, $bdgcomb");
$client->Message(14, "$npcn says $bdgsur, $bdggri");
$client->Message(14, "$npcn says $bdgtwi, $bdgdaw");
$client->Message(14, "$npcn says $bdgnex, $bdgsto");
$client->Message(14, "$npcn says $bdgblo, $bdgeme");
$client->Message(14, "$npcn says $bdgsky, $bdgwos");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
if($text =~ /List Wizard Gate Locations/i)
{
my $npcn = $npc->GetName();
$client->Message(14, "$npcn says $bdgcom, $bdgtox");
$client->Message(14, "$npcn says $bdgro, $bdgwak");
$client->Message(14, "$npcn says $bdgice, $bdgdiv");
$client->Message(14, "$npcn says $bdgcob, $bdgcomb");
$client->Message(14, "$npcn says $bdggri, $bdgtwi");
$client->Message(14, "$npcn says $bdgdaw, $bdgnex");
$client->Message(14, "$npcn says $bdgsto, $bdgblo");
$client->Message(14, "$npcn says $bdgeme, $bdgsky");
$client->Message(14, "$npcn says $bdgwos, $bwgfay");
$client->Message(14, "$npcn says $bwgnk, $bwgwk");
$client->Message(14, "$npcn says $bwghate, $bwgair");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
if($text =~ /all clas/i)
{
my $npcn = $npc->GetName();
$client->Message(14, "$npcn says $bmez(target)");
$client->Message(14, "$npcn says $bplk(target & stand right on door)");
$client->Message(14, "$npcn says $bcup, $bcud, $bcuc");
$client->Message(14, "$npcn says $bcub, $bbme, $btrk");
$client->Message(14, "$npcn says $btclm, $bevc, $brez");
$client->Message(14, "$npcn says $bcorp, $blre, $blevi");
$client->Message(14, "$npcn says $bsowr, $bsowg, $bsoww");
$client->Message(14, "$npcn says $binvs, $binvsun, $bcinvs");
$client->Message(14, "$npcn says $brune, $bshk, $bend");
$client->Message(14, "$npcn says $bchr, $bdire, $bpetr");
$client->Message(14, "$npcn says $bdgl, $bwgl");
$client->Message(14, "$npcn says $bmage, $bmagw");
$client->Message(14, "$npcn says $bmaga, $bmagf, $bmagm");
$client->Message(14, "$npcn says $brstm, $brstp, $brstd");
$client->Message(14, "$npcn says $brstf, $brstc");
$client->Message(15, "$npcn says Or can I $help you with something else?");
}
}