Dillon
/
Dillon_Stuff
0
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Upload files to ''

Browse Source
master
Dillon 5 years ago
parent 88f1d996e4
commit 5e02cc15ca
1 changed files with 536 additions and 0 deletions
Show Stats Download Patch File Download Diff File

536
AutoTrainer.xml
Unescape View File

@ -0,0 +1,536 @@
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Thursday, April 23, 2015, 2:45 PM -->
<!-- MuClient version 4.79 -->
<!-- Plugin "AutoTrainer" generated by Plugin Wizard -->
<muclient>
<plugin
name="AutoTrainer"
author="Borg mods=Dillon"
id="018bb1b2d053af011c0902f9"
language="Lua"
purpose="automaticallt trains stats up to cost 3"
save_state="y"
date_written="2015-04-23 14:39:13"
requires="4.79"
version="1.0"
>
<description trim="y">
<![CDATA[
Check 'at help' for full help :) ENJOY
]]>
</description>
</plugin>
<!-- Get our standard constants -->
<include name="constants.lua"/>
<!-- Triggers -->
<triggers>
<trigger
group="autoTrain"
match="^Your stats and amount trained are\:$"
omit_from_output="y"
regexp="y"
sequence="100"
>
</trigger>
<trigger
group="autoTrain"
match="^ Base Race Tier Wish Your $"
omit_from_output="y"
regexp="y"
sequence="100"
>
</trigger>
<trigger
group="autoTrain"
match="^ Base Race Wish Your $"
omit_from_output="y"
regexp="y"
sequence="100"
>
</trigger>
<trigger
group="autoTrain"
match="^ Cost Mod Mod Mod Cost Trained Max $"
omit_from_output="y"
regexp="y"
sequence="100"
>
</trigger>
<trigger
group="autoTrain"
match="^ Cost Mod Mod Cost Trained Max $"
omit_from_output="y"
regexp="y"
sequence="100"
>
</trigger>
<trigger
group="autoTrain"
match="^ \-\-\-\-\-\-\- \-\-\-\-\-\- \-\-\-\-\-\- \-\-\-\-\-\- \-\-\-\-\-\- \-\-\-\-\-\-\- \-\-\-\-\-\-\-$"
omit_from_output="y"
regexp="y"
sequence="100"
>
</trigger>
<trigger
group="autoTrain"
match="^ \-\-\-\-\-\-\- \-\-\-\-\-\- \-\-\-\-\-\- \-\-\-\-\-\- \-\-\-\-\-\-\- \-\-\-\-\-\-\-$"
omit_from_output="y"
regexp="y"
sequence="100"
>
</trigger>
<trigger
custom_colour="7"
group="autoTrain"
match="^(\w+)\s*\:\s* \b(\d?\b)\s* ([-]?\d?\b)\s* ([-]?\d?\b)?\s* ([-]?\d?\b)\s*(\b.+?\b)\s*(\b.+?\b)\s*(.+?)(\*)?$"
omit_from_output="y"
regexp="y"
script="trainerStore"
send_to="12"
sequence="100"
>
<send>
</send>
</trigger>
<trigger
custom_colour="7"
group="autoTrain"
match="^(\w+)\s*\:\s* \b(\d?\b)\s* ([-]?\d?\b)\s* ([-]?\d?\b)\s*(\b.+?\b)\s*(\b.+?\b)\s*(.+?)(\*)?$"
omit_from_output="y"
regexp="y"
script="trainerStore"
send_to="12"
sequence="100"
>
<send>
</send>
</trigger>
<trigger
group="autoTrain"
match="^You have (.*?) practice sessions available\.$"
omit_from_output="y"
regexp="y"
sequence="100"
>
</trigger>
<trigger
group="autoTrain"
match="^You have (.*?) total stats out of (.*?) maximum\.$"
omit_from_output="y"
regexp="y"
sequence="100"
>
</trigger>
<trigger
group="autoTrain"
match="^You have (.*?) training sessions available\.$"
omit_from_output="y"
regexp="y"
sequence="100"
>
</trigger>
</triggers>
<!-- Aliases -->
<aliases>
<alias
match="^trainall$"
enabled="y"
regexp="y"
ignore_case="y"
send_to="12"
sequence="100"
>
<send>EnableTriggerGroup("autoTrain", true)
--Execute("recal;s")
Execute("train")
</send>
</alias>
<alias
match="^setorder (.{1,4}) (.{1,4}) (.{1,4}) (.{1,4}) (.{1,4}) (.{1,4})"
enabled="y"
regexp="y"
ignore_case="y"
echo_alias="y"
send_to="12"
script="OrderMatters"
sequence="101">
<send>
SetVariable("setorder", "%1")
setorder = "%1, %2, %3, %4, %5, %6"
ColourNote("cyan", "", "Your stat order has been set to ", "palegoldenrod", "", "'".. setorder.. "'.")
</send>
</alias>
<alias
match="^setmax (\d+)"
enabled="y"
regexp="y"
script="setMaxNum"
sequence="100"
></alias>
<alias
match="^showmax"
enabled="y"
regexp="y"
script="PrintMaxNum"
sequence="100"
></alias>
<alias
match="^showorder$"
enabled="y"
regexp="y"
script="printOrder"
sequence="100"
></alias>
<alias
match="at help"
enabled="y"
script="showHelp">
</alias>
</aliases>
<!-- Script -->
<script>
<![CDATA[
require "tprint"
require "serialize"
value= {}
value.Str= {}
value.Int= {}
value.Wis= {}
value.Con= {}
value.Dex= {}
value.Luck= {}
value.Trains= {}
costCurrent= 0
costMax = 3
curMaxCost = 0
didonce= false
curOrder = {"Int", "Luck", "Wis", "Con", "Dex", "Str"}
MaxNum = 3
function PrintMaxNum()
print(string.format("Your current train max number is %s", costMax))
end
function setMaxNum(name, line, wildcards)
local max = tonumber(wildcards[1])
if max > 0 then
costMax = tonumber(max)
SetVariable("maxNum","maxNum ="..serialize.save_simple(costMax))
print(string.format("You have set your Max to %s", costMax))
else
print("Max number cannot be negative")
end
end
function printOrder()
tprint (curOrder)
end
function OrderMatters(name, line, wildcards)
curOrder = {wildcards[1],wildcards[2],wildcards[3],wildcards[4],wildcards[5],wildcards[6]}
SetVariable("test","test ="..serialize.save_simple(curOrder))
end
function OnPluginInstall()
assert (loadstring (GetVariable ("test") or "")) ()
curOrder = test or {'Int', 'Luck', 'Wis', 'Con', 'Dex', 'Str'}
assert(loadstring(GetVariable("maxNum") or "")) ()
costMax = maxNum or 3
end
function check_Lowest_Max_Cost()
curLowestCost= 3
curMaxCost= 0
curMaxIndex = {value.Int, value.Luck, value.Wis, value.Con, value.Dex, value.Str}
for i, value in ipairs(curMaxIndex) do
if tonumber(value.Cost) > tonumber(curMaxCost) then
curMaxCost = tonumber(value.Cost)
if value.Cost > costMax then curMaxCost = costMax end--if
end -- if
if tonumber(value.Cost)<tonumber(curLowestCost) and value.Trained ~= value.Max then
curLowestCost= tonumber(value.Cost)
end--if
end
end
function trainerStore(name, line, wildcards)
local counter = 0
local str = tostring( wildcards[1])
if string.find(str, "Hp") or string.find(str, "Moves") or string.find(str, "Mana") then
if string.find(str, "Moves") then
EnableTriggerGroup("autoTrain", false)
check_Lowest_Max_Cost()
while tonumber(value.Trains) >= tonumber(curLowestCost) and curLowestCost < costMax do-- this is a test case mother fucker also stop programming while drunk
check_Lowest_Max_Cost()
for i, p in pairs(curOrder) do
check_Lowest_Max_Cost()
if (value[p].Cost ~= costMax) then
trainerGO(value[p], p)
end--if
end --for
counter = counter +1
if counter> costMax then return end
end
end --if
return
end-- if
if string.find(str, "Strength") then
value.Str.Base = tonumber(wildcards[2])
value.Str.RMod = tonumber(wildcards[3])
value.Str.TMod = tonumber(wildcards[4])
value.Str.WMod = tonumber(wildcards[5])
value.Str.Cost = tonumber(wildcards[6])
value.Str.Trained = tonumber(wildcards[7])
value.Str.Max = tonumber(wildcards[8])
end --if
if string.find(str, "Dexterity") then
value.Dex.Base = tonumber(wildcards[2])
value.Dex.RMod = tonumber(wildcards[3])
value.Dex.TMod = tonumber(wildcards[4])
value.Dex.WMod = tonumber(wildcards[5])
value.Dex.Cost = tonumber(wildcards[6])
value.Dex.Trained = tonumber(wildcards[7])
value.Dex.Max = tonumber(wildcards[8])
end --if
if string.find(str, "Intelligence") then
value.Int.Base = tonumber(wildcards[2])
value.Int.RMod = tonumber(wildcards[3])
value.Int.TMod = tonumber(wildcards[4])
value.Int.WMod = tonumber(wildcards[5])
value.Int.Cost = tonumber(wildcards[6])
value.Int.Trained = tonumber(wildcards[7])
value.Int.Max = tonumber(wildcards[8])
end --if
if string.find(str, "Wisdom") then
value.Wis.Base = tonumber(wildcards[2])
value.Wis.RMod = tonumber(wildcards[3])
value.Wis.TMod = tonumber(wildcards[4])
value.Wis.WMod = tonumber(wildcards[5])
value.Wis.Cost = tonumber(wildcards[6])
value.Wis.Trained = tonumber(wildcards[7])
value.Wis.Max = tonumber(wildcards[8])
end --if
if string.find(str, "Constitution") then
value.Con.Base = tonumber(wildcards[2])
value.Con.RMod = tonumber(wildcards[3])
value.Con.TMod = tonumber(wildcards[4])
value.Con.WMod = tonumber(wildcards[5])
value.Con.Cost = tonumber(wildcards[6])
value.Con.Trained = tonumber(wildcards[7])
value.Con.Max = tonumber(wildcards[8])
end --if
if string.find(str, "Luck") then
value.Luck.Base = tonumber(wildcards[2])
value.Luck.RMod = tonumber(wildcards[3])
value.Luck.TMod = tonumber(wildcards[4])
value.Luck.WMod = tonumber(wildcards[5])
value.Luck.Cost = tonumber(wildcards[6])
value.Luck.Trained = tonumber(wildcards[7])
value.Luck.Max = tonumber(wildcards[8])
end --if
res, gmcparg = CallPlugin("3e7dedbe37e44942dd46d264","gmcpval","char") --- We just want the gmcp.char section.
luastmt = "gmcpdata = " .. gmcparg --- Convert the serialized string back into a lua table.
assert (loadstring (luastmt or "")) ()
value.Trains = gmcpdata.worth.trains
value.Level = tonumber(gmcpdata.status.level)
if value.Level == 1 and didonce== false then
Execute("train convertall")
didonce= true
end-- if
curMaxCost=1
-- value.Con.Base=1
-- value.Con.Cost=1
-- value.Con.Trained = 15
-- value.Int.Trained = 15
-- value.Int.Base = 1
-- value.Int.Cost = 1
-- value.Trains = 100
end
curMaxIndex= {}
curLowestCost= 10
function trainerGO( value1, string)
local count = 0
if tonumber(value.Trains)==0 then
return
end--if
if tonumber(value1.Trained)<tonumber(value1.Max) and tonumber(value1.Cost)<=curLowestCost and tonumber(value.Trains)>=tonumber(value1.Cost) then
TrainerTrain(value1, string)
else
end --if
end
counter= 0
function TrainerTrain(stat, string)
if tonumber(value.Trains)>= tonumber(stat.Cost) then
counter = counter + 1
value.Trains= value.Trains-stat.Cost
stat.Trained = stat.Trained+1
else
return
end --if
checkLimit(stat)
if tonumber(stat.Trained)>=tonumber(stat.Max) or tonumber(stat.Cost)>=costMax or tonumber(stat.Cost)>curLowestCost or tonumber(value.Trains)<tonumber(stat.Cost) then
Execute ("train "..counter.." "..string )
counter= 0
end-- if
if tonumber(value.Trains)>=tonumber(curLowestCost) then
trainerGO(stat, string)
end --if
end
function OnPluginInstall()
InstallMessage()
end
function checkLimit(stat)
if tonumber(stat.Trained)>=60 then
if stat.RMod > 0 then
stat.Cost = stat.Cost + stat.RMod
end
if tonumber(stat.Trained)>=71 and tonumber(stat.Trained)<=90 then
if tonumber(stat.Base)==1 then
stat.Base = stat.Base +1
end --if
local testMax= stat.Base+ stat.TMod+ stat.RMod+ stat.WMod
if testMax> stat.Cost then
stat.Cost = testMax
end--if
elseif tonumber(stat.Trained)>=91 and tonumber(stat.Trained)<=130 then
if tonumber(stat.Base)==2 then
stat.Base = stat.Base +1
end --if
local testMax= stat.Base+ stat.TMod+ stat.RMod+ stat.WMod
if testMax> stat.Cost then
stat.Cost = testMax
end--if
elseif tonumber(stat.Trained)>=131 and tonumber(stat.Trained)<=170 then
if tonumber(stat.Base)==3 then
stat.Base = stat.Base +1
end --if
local testMax= stat.Base+ stat.TMod+ stat.RMod+ stat.WMod
if testMax> stat.Cost then
stat.Cost = testMax
end--if
elseif tonumber(stat.Trained)>=171 and stat.Trained<=200 then
if tonumber(stat.Base)==4 then
stat.Base = stat.Base +2
end --if
local testMax= stat.Base+ stat.TMod+ stat.RMod+ stat.WMod
if testMax> stat.Cost then
stat.Cost = testMax
end--if
elseif tonumber(stat.Trained)>=201 and stat.Trained<=224 then
if tonumber(stat.Base)==6 then
stat.Base = stat.Base +3
end --if
local testMax= stat.Base+ stat.TMod+ stat.RMod+ stat.WMod
if testMax> stat.Cost then
stat.Cost = testMax
end--if
elseif tonumber(stat.Trained)>=225 and stat.Trained<=250 then
if tonumber(stat.Base)==9 then
stat.Base = stat.Base +2
end --if
local testMax= stat.Base+ stat.TMod+ stat.RMod+ stat.WMod
if testMax> stat.Cost then
stat.Cost = testMax
end--if
elseif tonumber(stat.Trained)>=251 and stat.Trained<=275 then
if tonumber(stat.Base)==11 then
stat.Base = stat.Base +3
end --if
local testMax= stat.Base+ stat.TMod+ stat.RMod+ stat.WMod
if testMax> stat.Cost then
stat.Cost = testMax
end--if
end --if
end--if
end
function showHelp()
Note("")
ColourNote("cyan", "", "------------------------------------------------------------")
ColourNote("yellow", "", "Auto Trainer Help")
ColourNote("cyan", "", "--------------------")
ColourNote("brightblue", "", "trainall : ", "white", "", "Trains in the order that you have provided till it costs 3 or whatever amount you have chosen.")
ColourNote("brightblue", "", "setorder : ", "white", "", "e.g setoder Str Int Wis Dex Con Luck. You should put it in the order you want it to be trained, just note it is case sensitive.")
ColourNote("brightblue", "", "showorder : ", "white", "", "Shows the oder you put it in.")
ColourNote("brightblue", "", "setmax : ", "white", "", "sets the maximum cost amount you want your stats to be trained to")
ColourNote("brightblue", "", "showmax : ", "white", "", "shows your max training cost that your stats will train to.")
ColourNote("cyan", "", "-------------------------------------------------------------")
Note("")
end
function InstallMessage()
ColourNote("yellow", "", "-----------------|AutoTrainer|-----------------")
ColourNote("lime", "",
"+ AutoTrainer Installed!- type 'at help' +")
ColourNote("yellow", "", "-----------------|AutoTrainer|-----------------")
end
]]>
</script>
<!-- Plugin help -->
<aliases>
<alias
script="OnHelp"
match="AutoTrainer help"
enabled="y"
>
</alias>
</aliases>
<script>
<![CDATA[
function OnHelp ()
world.Note (world.GetPluginInfo (world.GetPluginID (), 3))
end
]]>
</script>
</muclient>
Write Preview
Loading…
Cancel
Save