BeBot - An Anarchy Online and Age Of Conan chat automaton
Archive => Anarchy Online Archive => 0.2.x Custom/Unofficial Modules => Topic started by: Wanuarmi on December 21, 2005, 10:09:29 am
-
This will show info on Title Levels
!tl
!tl <1-7>
!tl <profession>
modules/TitleLevels.php
<?
$titleLevels = new TitleLevels($bot);
$commands["tell"]["tl"] = &$titleLevels;
$commands["pgmsg"]["tl"] = &$titleLevels;
$commands["gc"]["tl"] = &$titleLevels;
class TitleLevels
{
var $bot;
var $title_levels;
function TitleLevels (&$bot)
{
$this -> bot = &$bot;
$this -> title_levels = array(
"TL1" => "Title Level 1 starts at Level 5, 5k IP per level",
"TL2" => "Title Level 2 starts at Level 15, 10k IP per level",
"TL3" => "Title Level 3 starts at Level 50, 20k IP per level",
"TL4" => "Title Level 4 starts at Level 100, 40k IP per level",
"TL5" => "Title Level 5 starts at Level 150, 80k IP per level",
"TL6" => "Title Level 6 starts at Level 190, 150k IP per level",
"TL7" => "Title Level 7 starts At Level 205, 600k IP per level"
);
}
function tell($name, $msg)
{
$this -> bot -> send_tell($name, $this -> make_output($msg));
}
function pgmsg($name, $msg)
{
$this -> bot -> send_pgroup($this -> make_output($msg));
}
function gc($name, $msg)
{
$this -> bot -> send_gc($this -> make_output($msg));
}
function make_output($msg)
{
$title_levels = $this -> title_levels;
$output = "<font color=CCInfoText><font color=CCInfoHeadline>::: Title Levels :::</font>\n";
if (preg_match("/^" . $this -> bot -> commpre . "tl$/i", $msg))
{
$output .= "\n" . implode("\n", $title_levels);
return "Title Levels :: " . $this -> bot -> make_blob("click to view", $output);
}
else if (preg_match("/^" . $this -> bot -> commpre . "tl ([1-7])$/i", $msg, $info))
return $title_levels['TL'.$info[1]];
else if (preg_match("/^" . $this -> bot -> commpre . "tl ad.*$/i", $msg))
$show = "Adventurer";
else if (preg_match("/^" . $this -> bot -> commpre . "tl ag.*$/i", $msg))
$show = "Agent";
else if (preg_match("/^" . $this -> bot -> commpre . "tl bu.*$/i", $msg))
$show = "Bureaucrat";
else if (preg_match("/^" . $this -> bot -> commpre . "tl do.*$/i", $msg))
$show = "Doctor";
else if (preg_match("/^" . $this -> bot -> commpre . "tl enf.*$/i", $msg))
$show = "Enforcer";
else if (preg_match("/^" . $this -> bot -> commpre . "tl eng.*$/i", $msg))
$show = "Engineer";
else if (preg_match("/^" . $this -> bot -> commpre . "tl fi.*$/i", $msg))
$show = "Fixer";
else if (preg_match("/^" . $this -> bot -> commpre . "tl ke.*$/i", $msg))
$show = "Keeper";
else if (preg_match("/^" . $this -> bot -> commpre . "tl ma.*$/i", $msg))
$show = "Martial Artist";
else if (preg_match("/^" . $this -> bot -> commpre . "tl me.*$/i", $msg))
$show = "Meta-Physicist";
else if (preg_match("/^" . $this -> bot -> commpre . "tl na.*$/i", $msg))
$show = "Nano-Technician";
else if (preg_match("/^" . $this -> bot -> commpre . "tl sh.*$/i", $msg))
$show = "Shade";
else if (preg_match("/^" . $this -> bot -> commpre . "tl so.*$/i", $msg))
$show = "Soldier";
else if (preg_match("/^" . $this -> bot -> commpre . "tl tra.*$/i", $msg))
$show = "Trader";
else
return "Wrong syntax, please /tell <botname> <pre>help <pre>tl";
if ($show == 'Adventurer')
{
$output .= "\nAdventurer
TL1 Scout
TL2 Hunter
TL3 Preserver
TL4 Adventurer
TL5 Wanderer
TL6 Ranger
TL7 Vanguard";
}
else if ($show == 'Agent')
{
$output .= "\nAgent
TL1 Informer
TL2 Spy
TL3 Agent
TL4 Assassin
TL5 Master Assasin
TL6 Grandmaster Assasin
TL7 Finalizer";
}
else if ($show == 'Bureaucrat')
{
$output .= "\nBureaucrat
TL1 Clerk
TL2 Bureaucrat
TL3 Secretary
TL4 Manager
TL5 Minister
TL6 President
TL7 Dictator";
}
else if ($show == 'Doctor')
{
$output .= "\nDoctor
TL1 Nurse
TL2 Medic
TL3 Doctor
TL4 Surgeon
TL5 Master Surgeon
TL6 Chief of Staff Surgery
TL7 Eternalist";
}
else if ($show == 'Enforcer')
{
$output .= "\nEnforcer
TL1 Docker
TL2 Worker
TL3 Foreman
TL4 Union Man
TL5 Made Man
TL6 Don
TL7 Godfather";
}
else if ($show == 'Engineer')
{
$output .= "\nEngineer
TL1 Techie
TL2 Mechanic
TL3 Engineer
TL4 Chief Engineer
TL5 Master Engineer
TL6 Nobel Prize Engineer
TL7 Supreme Creator";
}
else if ($show == 'Fixer')
{
$output .= "\nFixer
TL1 Lifter
TL2 Thug
TL3 Embezzler
TL4 Fixer
TL5 Doer
TL6 The Man
TL7 Kingpin";
}
else if ($show == 'Keeper')
{
$output .= "\nKeeper
TL1 Escort
TL2 Sentinel
TL3 Warden
TL4 Vigilante
TL5 Defender
TL6 Keeper
TL7 Savior";
}
else if ($show == 'Martial Artist')
{
$output .= "\nMartial Artist
TL1 Initiate
TL2 Apprentice
TL3 Monk
TL4 Master 5th Dan
TL5 Master 10th Dan
TL6 Legend
TL7 Guru";
}
else if ($show == 'Meta-Physicist')
{
$output .= "\nMeta-Physicist
TL1 Disciple
TL2 Devotee
TL3 Priest
TL4 Archdeacon
TL5 Spiritual Leader
TL6 Saint
TL7 Deity";
}
else if ($show == 'Nano-Technician')
{
$output .= "\nNano-Technician
TL1 Novice
TL2 Apprentice
TL3 Initiate
TL4 Sorcerer
TL5 Techno-Mage
TL6 Techno-Wizard
TL7 Techno Arch-Wizard";
}
else if ($show == 'Shade')
{
$output .= "\nShade
TL1 Haunt
TL2 Phantom
TL3 Shadow
TL4 Spectre
TL5 Vampire
TL6 Spirit
TL7 Lich";
}
else if ($show == 'Soldier')
{
$output .= "\nSoldier
TL1 Militiaman
TL2 Mercenary
TL3 Soldier
TL4 Lieutenant
TL5 Colonel
TL6 General
TL7 Field Marshall";
}
else if ($show == 'Trader')
{
$output .= "\nTrader
TL1 Courier
TL2 Salesman
TL3 Merchant
TL4 Board Member
TL5 CEO
TL6 Chairman and CEO
TL7 Mogul";
}
return "Title Levels :: " . $this -> bot -> make_blob("click to view", $output);
}
}
?>
help/tl.txt
<font color=CCInfoHeader><pre>tl</font>
<font color=CCInfoText>Shows info on title levels.
<font color=CCInfoHeader><pre>tl <1-7></font>
<font color=CCInfoText>Shows info on TL 1-7.
<font color=CCInfoHeader><pre>tl <profession></font>
<font color=CCInfoText>Shows profession titles.
-
That won't all fit onto 1 display screen. There's a display limit ( # of characters/words ) on new windows. I think it's 30 lines or something along that.
Why not !titlelevels <prof> instead, would lower the amount of lines.
IMO, having 2 pages just for titles is wasting resources when you can just make it one :)
-
That's from an incorrect list too. TL7 engies are Supreme Creators and TL7 NT's are Techno Arch-Wizards, to name two I am sure of
-
where can I find an updated list?
-
http://forums.anarchy-online.com/showthread.php?t=421066
Post #7 Has the list. There's a link earlier in the thread to another wrong one.
-
updated, see first post for new syntax
-
help file. (yeah, I'm spamming them a bit, just figured since I'm writing them for my own bots, I may as well share.)