SAM

function get_sets()

        send_command('exec sam.txt')

        sets.precast = {}
        sets.precast["Meikyo Shisui"] = {feet=""}
        sets.precast["Warding Circle"] = {head="Wakido Kabuto"}
        sets.precast["Hasso"] = {hands="Wakido Kote +1"}
        sets.precast["Meditate"] = {head="Wakido Kabuto", hands="Sakonji Kote"}
        sets.precast["Seigan"] = {head="Unkai Kabuto +2", legs=""}
        sets.precast["Blade Bash"] = {hands=""}
        sets.precast["Sengikori"] = {head="Unkai Sune-Ate +2"}


        sets.engaged = {}

        sets.tp = {
                main="Tsurumaru",
                sub="Pole Grip",
                ranged="Cibitshavore",

                head="Otomi Helm",
                neck="Ganesha's Mala",
                ear1="Steelflash Earring",
                ear2="Bladeborn Earring",

                body="Xaddi Mail",
                hands="Wakido Kote +1",
                ring1="K'ayres Ring",
                ring2="Rajas Ring",

                back="Takaha Mantle",
                waist="Windbuffet Belt",
                legs="Otronif Brais +1",
                feet="Otronif Boots +1"}

        sets.ws = {}
        sets.ws['Tachi: Fudo'] = {

                head="Otomi Helm",
                neck="Light Gorget",
                ear1="Moonshade Earring",
                ear2="Brutal Earring",

                body="Phorcys Korazin",
                hands="Boor Bracelets",
                ring1="Pyrosoul Ring",
                ring2="Rajas Ring",

                back="Buquwik Cape",
                waist="Light Belt",
                legs="Wakido Haidate +1",
                feet="Ejekamal Boots"}

        sets.ws['Tachi: Hobaku'] = {

                head="Yaoyotl Helm",
                neck="Iqabi Necklace",
                lear="Moonshade Earring",
                rear="Brutal Earring",

                body="Xaddi Mail",
                hands="Buremte Gloves",
                lring="Pyrosoul Ring",
                rring="Rajas Ring",

                back="Takaha Mantle",
                waist="Anguinus Belt",
                legs="Otronif Brais",
                feet="Ejekamal Boots"}


        sets.th = {waist="Chaac Belt",}

        sets.dt = {
                head="Otronif Mask +1",
                neck="Twilight Torque",
                lear="Steelflash Earring",
                rear="Bladeborn Earring",

                body="Otronif Harness +1",
                hands="Otronif Gloves +1",
                lring="Dark Ring",
                rring="Dark Ring",

                back="Repulse Mantle",
                waist="Flume Belt",
                legs="Otronif Brais +1",
                feet="Otronif Boots +1"}

        sets.acc = {
                head="Yaoyotl Helm",
                neck="Iqabi Necklace",
                lear="Steelflash Earring",
                rear="Bladeborn Earring",

                body="Xaddi Mail",
                hands="Buremte Gloves",
                lring="K'ayres Ring",
                rring="Rajas Ring",

                back="Takaha Mantle",
                waist="Anguinus Belt",
                legs="Otronif Brais +1",
                feet="Waki. Sune-Ate +1"}

        sets.reraise = {
                head="Twilight Helm",
                body="Twilight Mail"}

        sets.engaged = sets.tp

        thmoves = S{"Quickstep", "Box Step", "Stutter Step", "Animated Flourish", "Desperate Flourish",
                    "Violent Flourish", "Steal", "Mug", "Despoil", "Bully", "Larceny", "Dia", "Dia II",
                    "Ranged"}

end

function precast(spell)

    if sets.precast[spell.name] then
        equip(sets.precast[spell.name])

    elseif spell.type == 'WeaponSkill' then
        if player.tp < 1000  then
            cancel_spell()
            return
        elseif sets.ws[spell.name] then
            equip(sets.ws[spell.name])
        else
            equip(sets.ws["Tachi: Fudo"])
        end

    elseif thmoves:contains(spell.name) then
        equip(sets.th)
    end

    if spell.name == "Spectral Jig" then
        send_command("cancel 71")
    end
end

function aftercast(spell)
    equip(sets.engaged)
end

function status_change(new,old)
    equip(sets.engaged)
end

function self_command(command)
    if command == "standard" then
        sets.engaged = sets.tp
        add_to_chat(5, "tp")

    elseif command == "dt" then
        sets.engaged = sets.dt
        add_to_chat(5, "dt")

    elseif command == "acc" then
        sets.engaged = sets.acc
        add_to_chat(5, "acc")

    elseif command == "reraise" then
        sets.engaged = sets.reraise
        add_to_chat(5, "reraise")

    end

    equip(sets.engaged)
end