Go Back   EQEmulator Home > EQEmulator Forums > Development > Development::Bots
Reload this Page Bot Quest Script

Development::Bots Forum for bots.

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #8  
Old 07-22-2009, 03:10 AM
Krugus
Sarnak
  
Join Date: Dec 2005
Location: the Void
Posts: 40
Default ver 0.6 new and improved!
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?");	
	}
}
Reply With Quote
 

« Previous Thread | Next Thread »

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

   

All times are GMT -4. The time now is 07:20 PM.

EQEmulator - Archive - Top

 

Everquest is a registered trademark of Daybreak Game Company LLC.
EQEmulator is not associated or affiliated in any way with Daybreak Game Company LLC.
Except where otherwise noted, this site is licensed under a Creative Commons License.
       
Powered by vBulletin®, Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3