Teach Script (MUSHClient)

Does anyone have one? I could really use one for my leader main.

This is not mine it belongs to Ilyena. She made it when we rolled Velinax and Virmaya. It auto accepts teaches and it auto retrys qued skills. She added a single command to queue all science skills

Teachhelp to get started.

[code:u24bamfj]
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!– Saved on Friday, April 23, 2010, 1:43 AM –>
<!– MuClient version 4.40 –>

<!– Plugin "LotjAutoTeach" generated by Plugin Wizard –>

<muclient>
<plugin
name="LotjAutoTeach"
author="@Ilyena"
id="a2f8b0c817498de22da26c52"
language="Lua"
purpose="Makes teaching a lot quicker"
save_state="y"
date_written="2010-04-23 01:42:37"
requires="4.40"
version="1.0"
>
<description trim="y">
<![CDATA[
‘teachhelp’ for commands
]]>
</description>

</plugin>

<!– Get our standard constants –>

<include name="constants.lua"/>

<!– Triggers –>

<triggers>
<trigger
enabled="y"
group="Teaching"
match="^You attempt to explain the concept to (.*), but fail miserably...$"
name="FailTeach"
regexp="y"
script="TeachSkill"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Teaching"
match="^You teach (.*), raising (.*)$"
name="TeachSuccess"
regexp="y"
script="IncrementSkillList"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Teaching"
match="^(.*) must practice that on their own.$"
name="AlreadyKnowTrig"
regexp="y"
script="IncrementSkillList"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Teaching"
match="You must perfect that yourself before teaching others."
name="NotYetLearned"
regexp="n"
script="IncrementSkillList"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Teaching"
match="^(.*) isn’t ready to learn that yet.$"
name="NotReadyTrig"
regexp="y"
script="IncrementSkillList"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Teaching"
match="^(.*) offers to teach you (.*).$"
name="TeachResponse"
regexp="y"
script="TeachAccept"
sequence="100"
>
</trigger>
</triggers>

<!– Aliases –>

<aliases>
<alias
name="TeachAddItem"
script="AddItemToList"
match="teachadd *"
enabled="y"
group="Teaching"
sequence="100"
>
</alias>
<alias
name="TargetAlias"
script="SetTeachTarget"
match="teachtarget *"
enabled="y"
group="Teaching"
sequence="100"
>
</alias>
<alias
name="ToggleAuto"
script="SetTeachAutoAccept"
match="teachauto"
enabled="y"
group="Teaching"
sequence="100"
>
</alias>
<alias
name="StopTeaching"
script="TeachStop"
match="teachstop"
enabled="y"
group="Teaching"
send_to="12"
sequence="100"
>
<send>ClearTeachList()</send>
</alias>
<alias
name="ToggleAutoAccept"
script="SetTeachAutoAccept"
match="teachauto *"
enabled="y"
group="Teaching"
sequence="100"
>
</alias>
<alias
name="ShowTeachingInfo"
script="ShowTeachTarget"
match="teachshow"
enabled="y"
group="Teaching"
sequence="100"
>
</alias>
<alias
name="TeachListClear"
script="ClearTeachList"
match="teachclear"
enabled="y"
group="Teaching"
sequence="100"
>
</alias>
<alias
name="AddSciencesToList"
script="AddSciencesToList"
match="teachscience"
enabled="y"
group="Teaching"
sequence="100"
>
</alias>
<alias
name="TeachBegin"
script="TeachSkill"
match="teach"
enabled="y"
group="Teaching"
sequence="100"
>
</alias>
<alias
name="TeachingShowList"
script="ShowTeachList"
match="teachlist"
enabled="y"
group="Teaching"
sequence="100"
>
</alias>
<alias
name="ShowTeachHelp"
script="ShowCommands"
match="teachhelp"
enabled="y"
group="Teaching"
sequence="100"
>
</alias>
</aliases>

<!– Variables –>

<variables>
<variable name="teachautoaccept">neutral</variable>
</variables>

<!– Script –>

<script>
<![CDATA[
scienceList = {"advanced electronics", "chemistry", "construction", "data", "destruction", "edibles", "education", "electronics","enhancement","equipment","forensics","guidance","machines","medical","minerals","narcotics","spacecraft", "study", "transportation"}
teachList = {}
teachTarget = ""
teachFinished = true
scienceListPosition = 1

function AddItemToList(name, line, wildcards)
if (wildcards[1] ~= nil) then
if (#teachList == 0) then
table.insert(teachList, 1, wildcards[1]) — Make first entry
ColourNote("lime", "black", "- ".. wildcards[1].. " ADDED TO TEACHING LIST")
teachFinished = false
else
table.insert(teachList, wildcards[1]) — Make subsequent entries
ColourNote("lime", "black","- ".. wildcards[1].. " ADDED TO TEACHING LIST")
end — if
else
ColourNote("red","black", "- Not Valid")
end — if
end — function

function AddSciencesToList(name, line, wildcards)
ColourNote("lime", "black", "- ALL SCIENCES ADDED TO LIST")
for i, v in ipairs(scienceList) do
if (#teachList == 0) then
table.insert(teachList, 1, scienceList[i]) — Make first entry
teachFinished = false
else
table.insert(teachList, scienceList[i]) — Make subsequent entries
end — if
end — for
end — function

function ClearTeachList(name, line, wildcards)
teachList = {}
ColourNote("red", "black", "- TEACHING LIST CLEARED")
end — function

function IncrementSkillList(name, line, wildcards)
table.remove(teachList, 1)
if(#teachList < 1) then
ColourNote("red", "black", "- LIST FINISHED")
else
TeachSkill()
end — if
end — function

function SetTeachAutoAccept(name, line, wildcards)
— Auto Accept can either be on, off or in stand by.
— In off it will autodeny.
— In on it will autoaccept.
— In standby it will do nothing.
if (wildcards[1] ~= nil) then
if (wildcards[1] == "on") then
accept = true
ColourNote("lime", "black", "- Auto Teach Accept Set to Accept")
elseif(wildcards[1] == "off") then
accept = false
ColourNote("red", "black", "- Auto Teach Accept Set to Deny")
else
accept = nil
ColourNote("yellow", "black", "- Auto Teach Accept Set to Standby")
end — if
else
if (GetVariable("teachautoaccept") == "accept") then
accept = false
ColourNote("red", "black", "- Auto Teach Accept Set to Deny")
elseif(GetVariable("teachautoaccept") == "deny") then
accept = nil
ColourNote("yellow", "black", "- Auto Teach Accept Set to Standby")
elseif(GetVariable("teachautoaccept") == "neutral") then
accept = true
ColourNote("lime", "black", "- Auto Teach Accept Set to Accept")
end — if
end — if
if (accept == nil) then
SetVariable("teachautoaccept", "neutral")
else
if (accept == true) then
SetVariable("teachautoaccept", "accept")
else
SetVariable("teachautoaccept", "deny")
end — if
end — if
end — function

function SetTeachTarget(name, line, wildcards)
if (wildcards[1] ~= nil) then
teachTarget = wildcards[1]
Note("- TEACHING TARGET SET TO ".. teachTarget)
end — if
end — function

function ShowTeachList(name, line, wildcards)
ColourNote("grey", "black","- THE TEACHING QUEUE CONTAINS: ")
for i, v in ipairs(teachList) do
ColourNote("grey", "black",v)
end — for
end — function

function ShowTeachTarget(name, line, wildcards)
if (teachTarget ~= nil) then
ColourNote("grey", "black", "- TEACHING TARGET IS: ".. teachTarget)
end — if
end — function

function TeachAccept(name, line, wildcards)
if(GetVariable("teachautoaccept") == "accept") then
Send("teach accept")
elseif(GetVariable("teachautoaccept") == "deny") then
Send("teach deny")
end — if
end — function

function TeachSkill(name, line, wildcards)
if (teachTarget ~= "") then
if (#teachList > 0) then
Send("teach ".. teachTarget.. " ".. teachList[1])
else
ColourNote("red", "black", "- TEACHING LIST EMPTY")
end — if
else
ColourNote("red", "black", "- NO TARGET SPECIFIED")
end — if
end — function

function TeachStart(name, line, wildcards)
EnableTrigger("AlreadyKnowTrig", true)
EnableTrigger("NotReadyTrig", true)
EnableTrigger("TeachSuccess", true)
EnableTrigger("FailTeach", true)
ColourNote("lime", "black", "- AUTOTEACHING ENABLED")
end — function

function TeachStop(name, line, wildcards)
EnableTrigger("AlreadyKnowTrig", false)
EnableTrigger("NotReadyTrig", false)
EnableTrigger("TeachSuccess", false)
EnableTrigger("FailTeach", false)
ColourNote("red", "black", "- AUTOTEACHING DISABLED")
end — function

function ShowCommands(name, line, wildcards)
ColourNote("grey", "black", "—AutoTeacher by @Ilyena—")
ColourNote("grey", "black","’teachtarget #’ – Set the target to be taught.")
ColourNote("grey", "black","’teachshow’ – Display which target is to be taught.")
ColourNote("grey", "black","’teachadd #’ – Add an item to the teach queue.")
ColourNote("grey", "black","’teachlist’ – Display the teaching queue.")
ColourNote("grey", "black","’teachscience’ – Adds all the sciences to the teaching queue.")
ColourNote("grey", "black","’teachclear’ – Clear the teach queue.")
ColourNote("grey", "black","’teachstop’ – Stop the teaching queue.")
ColourNote("grey", "black","’teachauto (on/off/standby)’ – Toggle. Set auto accept to accept, deny or standby.")
end — function
]]>
</script>

<!– Plugin help –>

<aliases>
<alias
script="OnHelp"
match="LotjAutoTeach:help"
enabled="y"
>
</alias>
</aliases>

<script>
<![CDATA[
function OnHelp ()
world.Note (world.GetPluginInfo (world.GetPluginID (), 3))
end
]]>
</script>

</muclient>

[/code:u24bamfj]

Thanks Flek