DW_Lua_core

Send("score")
Execute("SETUP")
-- [ Variable List ]
    -- [ Afflictions ] - List from AFFLICT LIST
    ablaze = false                        --ablaze.
    addiction = false                     --horribly addicted.
    aeon = false                          --afflicted with the curse of th ...
    agoraphobia = false                   --agoraphobic.
    anorexia = false                      --anorexic.
    asleep = false                        --sleeping.
    asthma = false                         --afflicted by horrible asthma.
    attuned = false                       --$GIVER$ has attuned to you.
    baldness = false                      --unnaturally bald.
    belonephobia = false                  --Afflicted with belonephobia.
    berserking = false                    --frothing at the mouth.
    blackout = false                      --devoid of senses.
    blood_curse = false                   --affected by a circulatory curse.
    blood_poison = false                  --affected by a circulatory poison.
    blurry_vision = false                 --confounded with blurry vision.
    body_odor = false                     --rank.
    burnt_eyes = false                    --fire-damaged eyes.

    claustrophobia = false                --claustrophobic.
    clumsiness = false                    --afflicted with clumsiness.
    commitment_fear = false               --fearful of commitment.
    confusion = false                     --confused.
    conviction = false                    --suffering the conviction of $G ...
    cracked_ribs = false                  --suffering from a few cracked ribs.
    crippled = false                      --suffering from crippled legs.
    crippled_body = false                 --crippled.
    crippled_throat = false               --afflicted by a crippled throat.
    crushed_chest = false                 --finding it hard to breathe due ...
    crushed_elbows = false                --suffering from crushed elbow j ...
    crushed_kneecaps = false              --suffering from crushed kneecaps.
    deadening = false                     --of a deadened mind.
    dementia = false                      --demented.
    destroyed_throat = false              --suffering from a crushed throat.
    disfigurement = false                 --inspiring disloyalty in those  ...
    disrupted = false                     --disrupted.
    dissonance = false                    --has a dissonant nature.
    disturb_confidence = false            --disturbed of confidence.
    disturb_impulse = false               --disturbed of impulse.

    disturb_inhibition = false            --disturbed of inhibition.
    disturb_sanity = false                --disturbed of sanity.
    dizziness = false                     --overcome by dizziness.
    edict_absorption = false              --Afflicted with edict_absorption.
    edict_commandment = false             --Afflicted with edict_commandment.
    edict_condemned = false               --Afflicted with edict_condemned.
    edict_heretic = false                 --Afflicted with edict_heretic.
    edict_imprisonment = false            --Afflicted with edict_imprisonment.
    edict_reckoning = false               --Afflicted with edict_reckoning.
    edict_shadowburn = false              --Afflicted with edict_shadowburn.
    edict_stasis = false                  --Afflicted with edict_stasis.
    edict_weakening = false               --Afflicted with edict_weakening.
    effused_blackbile = false             --being effused of black bile.
    effused_blood = false                 --being effused of blood.
    effused_phlegm = false                --being effused of phlegm.
    effused_yellowbile = false            --being effused of yellow bile.
    emberbrand = false                    --marked with the Brand of the E ...
    epilepsy = false                      --suffering from epilepsy.
    fear = false                          --afflicted by fear.
    forestbrand = false                   --an enemy of the forests.

    frozen = false                        --frozen stiff.
    generosity = false                    --extremely generous.
    gorged = false                        --gorged.
    grappled = false                      --grappling with $GIVER$.
    haemophilia = false                   --afflicted by haemophilia.
    hallucinations = false                --hallucinating.
    hatred = false                        --feeling intense hatred toward  ...
    head_bruised = false                  --affected by a bruised head.
    head_damaged = false                  --has a partially damaged head.
    head_mangled = false                  --has a serious concussion.
    heartflutter = false                  --suffering an irregular heartbeat.
    hellsight = false                     --catching glimpses of Hell.
    hubris = false                        --full of overwhelming pride.
    hypersomnia = false                   --hypersomnic.
    hypochondria = false                  --a certified hypochondriac.
    idiocy = false                        --afflicted with the mind power  ...
    impatience = false                    --impatient.
    indifference = false                  --indifferent.
    justice = false                       --surrounded by the aura of justice.
    left_arm_amputated = false            --missing a left arm.

    left_arm_broken = false               --afflicted by a crippled left arm.
    left_arm_bruised = false              --affected by a bruised left arm.
    left_arm_damaged = false              --has a partially damaged left arm.
    left_arm_mangled = false              --has a mangled left arm.
    left_arm_numbed  = false              --Your left arm is numb.
    left_leg_amputated = false            --missing a left leg.
    left_leg_broken = false               --afflicted by a crippled left leg.
    left_leg_bruised = false              --affected by a bruised left leg.
    left_leg_damaged = false              --has a partially damaged left leg.
    left_leg_mangled = false              --has a mangled left leg.
    left_leg_numbed  = false              --Your left leg is numb.
    lethargy = false                      --feeling rather lethargic.
    lifebane = false                      --Afflicted with lifebane.
    limp_veins = false                    --full of limp veins.
    loneliness = false                    --very lonely.
    lovers_effect = false                 --desperately in love with $GIVER$.
    magic_impaired = false                --magically impaired.
    masochism = false                     --masochistic.
    mauled_face = false                   --unrecognizable due to a mauled ...
    mental_disruption = false             --Your equilibrium has been disr ...

    mental_fatigue = false                --mentally fatigued.
    mirroring = false                     --cursed with mirrored attacks.
    mistbrand = false                     --marked with the Brand of the Mist.
    mob_impaled = false                   --impaled by $GIVER$.
    numb_arms = false                     --suffering from numb arms.
    numbed_skin = false                   --suffering from numbed skin.
    oiled = false                         --covered in viscous oil.
    omen = false                          --Afflicted with omen.
    one_eye = false                       --You have but a single eye.
    pacifism = false                      --pacified.
    paralysis = false                     --paralysed.
    paranoia = false                      --paranoid.
    peace = false                         --feeling unnaturally tranquil.
    penance = false                       --suffering an imposed Penance.
    petrified = false                     --petrified.
    physical_disruption = false           --Your balance has been disrupted.
    plodding = false                      --plodding with slow movement.
    recklessness = false                  --reckless.
    rend = false                          --Your flesh has been shredded.
    resonance = false                     --resonanting strangely.

    right_arm_amputated = false           --missing a right arm.
    right_arm_broken = false              --afflicted by a crippled right arm.
    right_arm_bruised = false             --affected by a bruised right arm.
    right_arm_damaged = false             --has a partially damaged right arm.
    right_arm_mangled = false             --has a mangled right arm.
    right_arm_numbed = false              --Your right arm is numb.
    right_leg_amputated = false           --missing a right leg.
    right_leg_broken = false              --afflicted by a crippled right leg.
    right_leg_bruised = false             --affected by a bruised right leg.
    right_leg_damaged = false             --has a partially damaged right leg.
    right_leg_mangled = false             --has a mangled right leg.
    right_leg_numbed = false              --Your right leg is numb.
    ripped_groin = false                  --unable to clot properly with s ...
    ripped_spleen = false                 --unable to clot properly with s ...
    ripped_throat = false                 --unfit due to a torn throat.
    sadness = false                       --somewhat unhappy.
    sandrot = false                       --cursed with rotting skin.
    selarnia = false                      --losing the bond with the anima ...
    selfpity = false                     --full of self-pity.
    sensitivity = false                   --sensitive to pain.

    shadow_coat = false                   --coated with foul shadows.
    shadowbrand = false                   --marked with the Brand of the S ...
    shivering = false                     --shivering.
    shyness = false                       --afflicted by unbearable shyness.
    slickness = false                     --extremely oily.
    smashed_throat = false                --suffering from a damaged throat.
    soul_poison = false                   --suffering a poisoned soul.
    soulfire = false                      --Afflicted with soulfire.
    soulroot = false                      --Afflicted with soulroot.
    spinal_rip = false                    --in agony with a ripped spine.
    spiritbrand = false                   --marked with the Brand of the S ...
    stonebrand = false                    --marked with the Brand of the S ...
    stun = false                          --stunned.
    stupidity = false                     --unnaturally stupid.
    stuttering = false                    --a stuttering fool.
    sunlight_allergy = false              --allergic to sunlight.
    superstition = false                  --superstitious of the abnormal.
    thin_blood = false                    --afflicted by thin blood.
    thorns = false                        --invaded by shadowy thorns.
    throatclaw = false                    --lacking vocal cords.

    torso_bruised = false                 --affected by a bruised torso.
    torso_damaged = false                 --has mild internal trauma.
    torso_mangled = false                 --has serious internal trauma.
    troubled_breathing = false            --having trouble breathing.
    unconscious = false                   --Afflicted with unconscious.
    vertigo = false                       --afraid of heights.
    vinethorns = false                    --pricked by $STACKS$ groups of  ...
    vitalbane = false                     --Afflicted with vitalbane.
    void = false                          --within a shadowy void.
    vomiting = false                      --violently ill.
    voyria = false                        --suffering from voyria.
    wasting = false                       --Afflicted with wasting.
    weakvoid = false                      --within a weakened, shadowy void.
    weariness = false                     --wearied in body.
    windbrand = false                     --marked with the Brand of the Wind.
    writhe_armpitlock = false             --jawlocked by the armpit.
    writhe_bind = false                   --bound and tied.
    writhe_impaled = false                --impaled by $GIVER$.
    writhe_necklock = false               --jawlocked by the neck.
    writhe_ropes = false                  --entangled in ropes.

    writhe_thighlock = false              --jawlocked by the thigh.
    writhe_transfix = false               --transfixed.
    writhe_vines = false                  --entangled by forest vines.
    writhe_web = false                    --entangled.
            --Total afflictions: 181

--[ Defenses ]
    insomnia = false                    --No bal
    cloak = false                       --EQ
    mindseye = false                    --EQ
    energetic = false                   --No bal
    deaf = false                        --herb / organ
    blind = false                       --herb / organ
    insulation = false                  --salve / poultice
    levitation = false                  --def elixir / serum
    venom = false                       --def elixir / serum
    frost = false                       --no bal
    mass = false                        --salve / poultice
    thirdeye = false                    --no bal
    nightsight = false                  --no bal
    underwater_breathing = false                --herb - Not needed if undead
    fangbarrier = false                 --Has own balance
    rebounding = false                  --Has own balance
    speed = false                       --Has own balance

    --[ Class ]
        xclass = "none"                 --changed variable to stop conflict with ingame command
            --[ Cabalist ]
            deathsight = false          --Necromancy -[ EQ ]- Beginner
            nightsight = false          --Necromancy -[ no bal ]- Beginner
            shroud = false              --Necromancy -[ EQ ]- Beginner
            lifevision = false          --Necromancy -[ EQ ]- Beginner
            soulmask = false            --Necromancy -[ EQ ]- Beginner
            deathaura = false           --Necromancy -[ EQ ]- Beginner
            gravechill = false          --Necromancy -[ EQ ]- Beginner
            vengeance = false           --Necromancy -[ EQ ]- Beginner
            blackwind = false           --Necromancy -[ EQ ]- Beginner
            soulcage = false            --Necromancy -[ EQ ]- Beginner
            constitution = false            --Numerology -[ EQ ]- Beginner
            veil = false                --Numerology -[ EQ ]- Beginner
            eshield = false             --Numerology -[ no bal ]- Beginner
            elink = false               --Numerology -[ EQ ]- Beginner
            spheres = false             --Numerology -[ EQ ]- Beginner
            --[ Indorani ]
            --[ Ascendril ]
            --[ Sciomancer ]
            --[ Luminary ]
            --[ Teradrim ]
            stonefeet = false           --Earth - Beginner
            rune = false                --Earth - Beginner
            shield = false              --Sand - Beginner
            truesight = false           --Sand - Beginner
            sand_sink = false           --Sand - Beginner
            sand_armor = false          --Sand - Beginner
            camouflage = false          --Sand - Beginner
            golem_hide = false          --Animation - Beginner
            golem_steadfast = false         --Animation - Beginner
            --[ Sentaari ]
            stance = false              --Tekura - Beginner
            weathering = false          --Kaido - Beginner
            vitality = false            --Kaido - Beginner
            toughness = false           --Kaido - Beginner
            resistance = false          --Kaido - Beginner
            fitness = false             --Kaido - Semi - Advanced
            constitution = false            --Kaido - Semi - Advanced
            Immunity = false            --Kaido - Advanced
            clarity = false             --Telepathy - Semi - Advanced
            mind_cloak = false          --Telepathy - Advanced
            --[ Daru ]
            --[ Sentinel ]
            --[ Druid ]
            --[ Templar ]
            --[ Carnifex ]
            --[ Bahkatu ]
            --[ Atabahi ]
            mutate = false              --Lycanthropy - Beginner
            nightsight = false          --Lycanthropy - Beginner
            weathering = false          --Lycanthropy - Beginner
            thickfur = false            --Lycanthropy - Beginner
            pacing = false              --Lycanthropy - Beginner
            claws_out_in = false            --Lycanthropy - Beginner
            pawguard = false            --Lycanthropy - Beginner
            alertness = false           --Lycanthropy - Beginner
            hiding = false              --Lycanthropy - Beginner
            stealth = false             --Lycanthropy - Beginner
            endurance = false           --Lycanthropy - Beginner
            heatsight = false           --Lycanthropy - Beginner
            harden_bones = false            --Lycanthropy - Beginner
            shedding = false            --Lycanthropy - Beginner
            --[ Syssin ]
            hidden = false              --Subterfuge - Beginner
            warding = false             --Subterfuge - Beginner
            pacing = false              --Subterfuge - Beginner
            block = false               --Subterfuge - Beginner
            shrugging = false           --Subterfuge - Beginner
            shadowsight = false         --Subterfuge - Beginner
            listening = false           --Subterfuge - Beginner
            lipread = false             --Subterfuge - Beginner
            ghost = false               --Subterfuge - Beginner
            syssin_cloak = false            --Subterfuge - Beginner
            darkflood = false           --Subterfuge - Beginner
            weaving = false             --Subterfuge - Beginner
            phase = false               --Subterfuge - Beginner
            --[ Bloodborn ]
            --[ Praenomen ]

--[ General ]
    status = "none"         --Living or Undead
    hp = nil
    mp = nil
    prompt_stat = nil
    prompt_eqbal = nil
    prompt_armbal = nil
    mount = nil
    pack = nil
    pot = nil
    curative = nil
    curative_amount = nil
    target = "none"
    alive = true
    tat_name = nil
    tat_position = nil
    player = nil

        --[ Balances ]
            left_arm_bal = true
            right_arm_bal = true
            dw_eq = nil
            dw_bal = nil
            focus = nil
            tree = true

            --[ Herbs/ Organs ]
            herb_organ = true
            moss_kidney = true
            moss_eating_bal = false
            --[ Pipes/ Syringes ]
            pipe_syringe = true
            --[ Elixir/ Serum ]
            elixir_serum = true
            def_elixir_serum = true
            drinking_bal = false
            --[ Salve/ Poultice ]
            salve_poultice = true

--[ end of variable list ]

--[ Functions ]

    --[ Concoctions / Reanimation - Maker ][ Stage 1 ]
    function make(curative_amount, curative)
        if (curative == "immunity") then
        Send("outc " ..curative_amount * 1 .. " sac")
        Send("outc " ..curative_amount * 1 .. " ash")
        Send("outc " ..curative_amount * 2 .. " echinacea")
        Send("inpot " ..curative_amount * 1 .. " sac to " ..pot)
        Send("inpot " ..curative_amount * 1 .. " ash to " ..pot)
        Send("inpot " ..curative_amount * 2 .. " echinacea to " ..pot)
        Send("boil " ..pot.. " for immunity")
            elseif (curative == "epidermal") then
            Send("outc " ..curative_amount * 2 .. " kuzu")
            Send("outc " ..curative_amount * 1 .. " bloodroot")
            Send("outc " ..curative_amount * 1 .. " hawthorn")
            Send("outc " ..curative_amount * 1 .. " ginseng")
            Send("inpot " ..curative_amount * 2 .. " kuzu to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " bloodroot to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " hawthorn to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " ginseng to " ..pot)
            Send("boil " ..pot.. " for epidermal")
            elseif (curative == "mana") then
            Send("outc " ..curative_amount * 1 .. " slipper")
            Send("outc " ..curative_amount * 1 .. " bellwort")
            Send("outc " ..curative_amount * 1 .. " hawthorn")
            Send("outc " ..curative_amount * 1 .. " bloodroot")
            Send("inpot " ..curative_amount * 1 .. " slipper to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " bellwort to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " hawthorn to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " bloodroot to " ..pot)
            Send("boil " ..pot.. " for mana")
            elseif (curative == "health") then
            Send("outc " ..curative_amount * 2 .. " valerian")
            Send("outc " ..curative_amount * 1 .. " goldenseal")
            Send("outc " ..curative_amount * 1 .. " ginseng")
            Send("outc " ..curative_amount * 1 .. " myrrh")
            Send("inpot " ..curative_amount * 2 .. " valerian to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " goldenseal to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " ginseng to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " myrrh to " ..pot)
            Send("boil " ..pot.. " for health")
            elseif (curative == "venom") then
            Send("outc " ..curative_amount * 1 .. " sac")
            Send("outc " ..curative_amount * 1 .. " cohosh")
            Send("outc " ..curative_amount * 1 .. " kelp")
            Send("outc " ..curative_amount * 1 .. " skullcap")
            Send("inpot " ..curative_amount * 1 .. " sac to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " cohosh to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " kelp to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " skullcap to " ..pot)
            Send("boil " ..pot.. " for venom")
            elseif (curative == "frost") then
            Send("outc " ..curative_amount * 1 .. " kelp")
            Send("outc " ..curative_amount * 1 .. " pear")
            Send("outc " ..curative_amount * 1 .. " ginseng")
            Send("inpot " ..curative_amount * 1 .. " kelp to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " pear to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " ginseng to " ..pot)
            Send("boil " ..pot.. " for frost")
            elseif (curative == "caloric") then
            Send("outc " ..curative_amount * 2 .. " kuzu")
            Send("outc " ..curative_amount * 1 .. " valerian")
            Send("outc " ..curative_amount * 2 .. " kelp")
            Send("outc " ..curative_amount * 1 .. " bellwort")
            Send("inpot " ..curative_amount * 2 .. " kuzu to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " valerian to " ..pot)
            Send("inpot " ..curative_amount * 2 .. " kelp to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " bellwort to " ..pot)
            Send("boil " ..pot.. " for caloric")
            elseif (curative == "levitation") then
            Send("outc " ..curative_amount * 2 .. " kelp")
            Send("outc " ..curative_amount * 1 .. " pear")
            Send("outc " ..curative_amount * 1 .. " feather")
            Send("inpot " ..curative_amount * 2 .. " kelp to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " pear to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " feather to " ..pot)
            Send("boil " ..pot.. " for levitation")
            elseif (curative == "mending") then
            Send("outc " ..curative_amount * 1 .. " dust")
            Send("outc " ..curative_amount * 1 .. " kelp")
            Send("outc " ..curative_amount * 1 .. " kuzu")
            Send("outc " ..curative_amount * 2 .. " ginger")
            Send("inpot " ..curative_amount * 1 .. " dust to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " kelp to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " kuzu to " ..pot)
            Send("inpot " ..curative_amount * 2 .. " ginger to " ..pot)
            Send("boil " ..pot.. " for mending")
            elseif (curative == "mass") then
            Send("outc " ..curative_amount * 1 .. " moss")
            Send("outc " ..curative_amount * 1 .. " bloodroot")
            Send("outc " ..curative_amount * 1 .. " kuzu")
            Send("outc " ..curative_amount * 1 .. " dust")
            Send("inpot " ..curative_amount * 1 .. " moss to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " bloodroot to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " kuzu to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " dust to " ..pot)
            Send("boil " ..pot.. " for mass")
            elseif (curative == "restoration") then
            Send("outc " ..curative_amount * 2 .. " kuzu")
            Send("outc " ..curative_amount * 1 .. " valerian")
            Send("outc " ..curative_amount * 1 .. " bellwort")
            Send("inpot " ..curative_amount * 200 .. " gold to " ..pot)
            Send("inpot " ..curative_amount * 2 .. " kuzu to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " bloodroot to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " hawthorn to " ..pot)
            Send("boil " ..pot.. " for restoration")
            elseif (curative == "vigor") then
            Send("outc " ..curative_amount * 1 .. " moss")
            Send("outc " ..curative_amount * 2 .. " dust")
            Send("outc " ..curative_amount * 1 .. " shard")
            Send("inpot " ..curative_amount * 1 .. " moss to " ..pot)
            Send("inpot " ..curative_amount * 2 .. " dust to " ..pot)
            Send("inpot " ..curative_amount * 1 .. " shard to " ..pot)
            Send("boil " ..pot.. " for vigor")
            elseif (curative == "calmative") then
            Send("outc " ..curative_amount * 1 .. " redink")
            Send("outc " ..curative_amount * 3 .. " bladder_slice")
            Send("inca " ..curative_amount * 1 .. " redink to " ..pot)
            Send("inca " ..curative_amount * 3 .. " bladder_slice to " ..pot)
            Send("ferment " ..pot)
            elseif (curative == "analeptic") then
            Send("outc " ..curative_amount * 1 .. " redink")
            Send("outc " ..curative_amount * 3 .. " liver_slice")
            Send("outc " ..curative_amount * 3 .. " ovary_slice")
            Send("inca " ..curative_amount * 1 .. " redink to " ..pot)
            Send("inca " ..curative_amount * 3 .. " liver_slice to " ..pot)
            Send("inca " ..curative_amount * 3 .. " ovary_slice to " ..pot)
            Send("ferment " ..pot)
            elseif (curative == "stimulant") then
            Send("outc " ..curative_amount * 1 .. " yellowink")
            Send("outc " ..curative_amount * 3 .. " lung_slice")
            Send("outc " ..curative_amount * 3 .. " castorite_slice")
            Send("inca " ..curative_amount * 1 .. " yellowink to " ..pot)
            Send("inca " ..curative_amount * 3 .. " lung_slice to " ..pot)
            Send("inca " ..curative_amount * 3 .. " castorite_slice to " ..pot)
            Send("ferment " ..pot)
            elseif (curative == "carminative") then
            Send("outc " ..curative_amount * 1 .. " redink")
            Send("outc " ..curative_amount * 3 .. " eyeball_slice")
            Send("outc " ..curative_amount * 3 .. " tongue_slice")
            Send("inca " ..curative_amount * 1 .. " redink to " ..pot)
            Send("inca " ..curative_amount * 3 .. " eyeball_slice to " ..pot)
            Send("inca " ..curative_amount * 3 .. " tongue_slice to " ..pot)
            Send("ferment " ..pot)
            elseif (curative == "refrigerative") then
            Send("outc " ..curative_amount * 1 .. " yellowink")
            Send("outc " ..curative_amount * 3 .. " stomach_slice")
            Send("inca " ..curative_amount * 1 .. " yellowink to " ..pot)
            Send("inca " ..curative_amount * 3 .. " stomach_slice to " ..pot)
            Send("ferment " ..pot)
            elseif (curative == "euphoric") then
            Send("outc " ..curative_amount * 1 .. " yellowink")
            Send("outc " ..curative_amount * 1 .. " greenink")
            Send("outc " ..curative_amount * 6 .. " kidney_slice")
            Send("inca " ..curative_amount * 1 .. " yellowink to " ..pot)
            Send("inca " ..curative_amount * 1 .. " greenink to " ..pot)
            Send("inca " ..curative_amount * 6 .. " kidney_slice to " ..pot)
            Send("ferment " ..pot)
            elseif (curative == "nervine") then
            Send("outc " ..curative_amount * 2 .. " purpleink")
            Send("outc " ..curative_amount * 1 .. " blueink")
            Send("outc " ..curative_amount * 3 .. " bone_slice")
            Send("inca " ..curative_amount * 2 .. " purpleink to " ..pot)
            Send("inca " ..curative_amount * 1 .. " blueink to " ..pot)
            Send("inca " ..curative_amount * 3 .. " bone_slice to " ..pot)
            Send("ferment " ..pot)
            elseif (curative == "sudorific") then
            Send("outc " ..curative_amount * 3 .. " pineal_slice")
            Send("inca " ..curative_amount * 3 .. " pineal_slice to " ..pot)
            Send("ferment " ..pot)
            elseif (curative == "antispasmadic") then
            Send("outc " ..curative_amount * 3 .. " eyeball_slice")
            Send("outc " ..curative_amount * 3 .. " heart_slice")
            Send("inca " ..curative_amount * 3 .. " eyeball_slice to " ..pot)
            Send("inca " ..curative_amount * 3 .. " heart_slice to " ..pot)
            Send("ferment " ..pot)
            elseif (curative == "demulcent") then
            Send("outc " ..curative_amount * 3 .. " tumor_slice")
            Send("inca " ..curative_amount * 3 .. " tumor_slice to " ..pot)
            Send("ferment " ..pot)
            elseif (curative == "oculi") then
            Send("outc " ..curative_amount * 2 .. " blueink")
            Send("outc " ..curative_amount * 1 .. " redink")
            Send("outc " ..curative_amount * 1 .. " eyeball_slice")
            Send("annoint " ..curative_amount.. " eyeball_slice with blue")
            Send("annoint " ..curative_amount.. " eyeball_slice with blue")
            Send("annoint " ..curative_amount.. " eyeball_slice with red")
            elseif (curative == "fumeae") then
            Send("outc " ..curative_amount * 1 .. " blueink")
            Send("outc " ..curative_amount * 1 .. " redink")
            Send("outc " ..curative_amount * 1 .. " yellowink")
            Send("outc " ..curative_amount * 1 .. " sulphurite_slice" )
            Send("annoint " ..curative_amount.. " sulphurite_slice with yellow")
            Send("annoint " ..curative_amount.. " sulphurite_slice with blue")
            Send("annoint " ..curative_amount.. " sulphurite_slice with red")
            elseif (curative == "orbis") then
            Send("outc " ..curative_amount * 2 .. " blueink")
            Send("outc " ..curative_amount * 1 .. " greenink")
            Send("outc " ..curative_amount * 1 .. " testis_slice")
            Send("annoint " ..curative_amount.. " testis_slice with blue")
            Send("annoint " ..curative_amount.. " testis_slice with blue")
            Send("annoint " ..curative_amount.. " testis_slice with green")
            elseif (curative == "pueri") then
            Send("outc " ..curative_amount * 1 .. " yellowink")
            Send("outc " ..curative_amount * 1 .. " greenink")
            Send("outc " ..curative_amount * 1 .. " purpleink")
            Send("outc " ..curative_amount * 1 .. " ovary_slice")
            Send("annoint " ..curative_amount.. " ovary_slice with yellow")
            Send("annoint " ..curative_amount.. " ovary_slice with green")
            Send("annoint " ..curative_amount.. " ovary_slice with purple")
            elseif (curative == "jecis") then
            Send("outc " ..curative_amount * 1 .. " goldink")
            Send("outc " ..curative_amount * 1 .. " greenink")
            Send("outc " ..curative_amount * 1 .. " purpleink")
            Send("outc " ..curative_amount * 1 .. " liver_slice")
            Send("annoint " ..curative_amount.. " liver_slice with gold")
            Send("annoint " ..curative_amount.. " liver_slice with green")
            Send("annoint " ..curative_amount.. " liver_slice with purple")
            elseif (curative == "ebrius") then
            Send("outc " ..curative_amount * 30 .. " testis_slice")
            Send("inca " ..curative_amount * 30 .. " testis_slice")
            Send("ferment " ..pot)
        end
    end

    --[ Tat'ter ]
    function tat(tat_name, tat_position, player)
        if (tat_position == "h") then
            tat_position = "head"
            elseif(tat_position == "t") then
            tat_position = "torso"
            elseif(tat_position == "la") then
            tat_position = "left arm"
            elseif(tat_position == "ra") then
            tat_position = "right arm"
            elseif(tat_position == "ll") then
            tat_position = "left leg"
            elseif(tat_position == "rl") then
            tat_position = "right leg"
        end
            if (tat_name == "firefly") then
                Send("outc yellow")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "moss") then
                Send("outc yellow")
                Send("outc blue")
                Send("outc red")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "feather") then
                Send("outc 2 blue")
                Send("outc red")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "shield") then
                Send("outc 2 red")
                Send("outc green")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "mindseye") then
                Send("outc 2 blue")
                Send("outc green")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "hammer") then
                Send("outc 2 red")
                Send("outc purple")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "cloak") then
                Send("outc 3 blue")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "bell") then
                Send("outc 2 red")
                Send("outc 3 blue")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "crystal") then
                Send("outc purple")
                Send("outc yellow")
                Send("outc green")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "moon") then
                Send("outc red")
                Send("outc blue")
                Send("outc yellow")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "starburst") then
                Send("outc blue")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "boar") then
                Send("outc 2 red")
                Send("outc purple")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "web") then
                Send("outc yellow")
                Send("outc green")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "tentacle") then
                Send("outc 2 green")
                Send("outc purple")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "hourglass") then
                Send("outc 2 yellow")
                Send("outc blue")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "owl") then
                Send("outc 2 red")
                Send("outc blue")
                Send("outc purple")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "brazier") then
                Send("outc 2 red")
                Send("outc 2 yellow")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "prism") then
                Send("outc red")
                Send("outc green")
                Send("outc blue")
                Send("outc yellow")
                Send("outc purple")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "tree") then
                Send("outc 5 green")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "mountain") then
                Send("outc green")
                Send("outc blue")
                Send("outc goldink")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                elseif (tat_name == "chameleon") then
                Send("outc goldink")
                Send("outc purple")
                Send("outc yellow")
                Send("ink " ..tat_name.. " on " ..tat_position.. " of " ..player)
                return tat_name, tat_position, player
        end
    end

    --[ Prompt Check ][ health, mana, and prompt_stats ]
    function check(hp, mp, prompt_stat)
        return hp, mp, prompt_stat
    end

    --[ Balance Check ][ prompt_eqbal, prompt_armbal ]
    function check_bal(prompt_eqbal, prompt_armbal)
        return prompt_eqbal, prompt_armbal
    end

    --[ CanEat ]
    function canEat()
        return (aeon == false) and
        (anorexia == false) and
        (stun == false) and
        (asleep == false) and
        (unconscious == false) and
        (indifference == false) and
        (writhe_armpitlock == false) and
        (writhe_bind == false) and
        (writhe_impaled == false) and
        (writhe_necklock == false) and
        (writhe_ropes == false) and
        (writhe_thighlock == false) and
        (writhe_transfix == false) and
        (writhe_vines == false) and
        (writhe_web == false)
    end

    --[ AutoClot ]
    function autoClot()
        if (stun == false) and
           (indifference == false) and
           (unconscious == false) and
           (asleep == false) then
                if (bleeding > 200) and
                (mp > 50) then
                Execute ("clot 10")
                    elseif (bleeding > 110) and
                        (mp > 50) then
                        Execute ("clot 5")
                            elseif (bleeding > 70) and
                            (mp > 50) then
                            Execute ("clot")
                end
        end
    end

     --[ Healer ][ Elixir_Serum / Moss_Kidney ]
    function stage1_healer()
        check(hp, mp, prompt_stat)
                 if (hp < 85) then
                   if (status == "living") and
                          (drinking_bal == false) and
                          (elixir_serum == true) then
                          canEat()
                          Send("sip health")
                          drinking_bal = true
                          DoAfterSpecial (.3, 'drinking_bal = false', sendto.script)
                  elseif(status == "living") and
                          (elixir_serum == false) and
                          (moss_eating_bal == false) and
                          (moss_kidney == true) then
                          canEat()
                          Send("outc moss")
                          Send("eat moss")
                          moss_eating_bal = true
                          DoAfterSpecial (.3, 'moss_eating_bal = false', sendto.script)
                  elseif(status == "undead") and
                          (drinking_bal == false) and
                          (elixir_serum == true) then
                          canEat()
                          Send("stick analeptic")
                          drinking_bal = true
                          DoAfterSpecial (.3, 'drinking_bal = false', sendto.script)
                  elseif(status == "undead") and
                          (elixir_serum == false) and
                          (moss_eating_bal == false) and
                          (moss_kidney == true) then
                          canEat()
                          Send("outc kidney_slice")
                          Send("eat kidney_slice")
                          moss_eating_bal = true
                          DoAfterSpecial (.3, 'moss_eating_bal = false', sendto.script)
                    end
                end
                if (mp < 85) then
                   if (status == "living") and
                          (drinking_bal == false) and
                          (elixir_serum == true) then
                          canEat()
                          Send("sip mana")
                          drinking_bal = true
                          DoAfterSpecial (.3, 'drinking_bal = false', sendto.script)
                  elseif(status == "living") and
                          (elixir_serum == false) and
                          (moss_eating_bal == false) and -- Tada, moss fixed too.
                          (moss_kidney == true) then
                          canEat()
                          Send("outc moss")
                          Send("eat moss")
                          moss_eating_bal = true
                          DoAfterSpecial (.3, 'moss_eating_bal = false', sendto.script)
                  elseif(status == "undead") and
                          (drinking_bal == false) and
                          (elixir_serum == true) then
                          canEat()
                          Send("stick stimulant")
                          drinking_bal = true
                          DoAfterSpecial (.3, 'drinking_bal = false', sendto.script)
                  elseif(status == "undead") and
                          (elixir_serum == false) and
                          (moss_eating_bal == false) and
                          (moss_kidney == true) then
                          canEat()
                          Send("outc kidney_slice")
                          Send("eat kidney_slice")
                          moss_eating_bal = true
                          DoAfterSpecial (.3, 'moss_eating_bal = false', sendto.script)
                          return
                        end
                end
        end

    --[ Class Basher ]
    function bash()
        if (xclass == "Lycanthrope") and
        (prompt_armbal == "lr") then
        check_bal(prompt_eqbal, prompt_armbal)
        Send("combo " ..target.. " claw claw")
            elseif (xclass == "Syssin") and
                (prompt_eqbal == "eb") then
                check_bal(prompt_eqbal, prompt_armbal)
                Send("garrote " ..target)
                elseif (xclass == "Monk") and
                (prompt_armbal == "lr") then
                 if (prompt_eqbal == "eb") or
                    (prompt_eqbal == "-b") then
                    check_bal(prompt_eqbal, prompt_armbal)
                    Send("combo " ..target.. " sdk ucp ucp")
                 end
                 elseif (xclass == "Cabalist") then
                    if (prompt_eqbal == "eb") or
                    (prompt_eqbal == "e-") then
                    check_bal(prompt_eqbal, prompt_armbal)
                    Send("decay " ..target)
                    end
                    elseif (xclass == "Ascendril") then
                        if (prompt_eqbal == "eb") or
                        (prompt_eqbal == "e-") then
                        check_bal(prompt_eqbal, prompt_armbal)
                        Send("staffcast dissolution at " ..target)
                        end
                        elseif (xclass == "Teradrim") then
                            if (prompt_eqbal == "eb") or
                            (prompt_eqbal == "e-") then
                            check_bal(prompt_eqbal, prompt_armbal)
                            Send("sand shred " ..target)
                            end
            end
    end