#! /bin/sh

export DISPLAY=:0

beep=0
lastAct=0
healCost=50
regenCost=170
inBattle=0
thresoldRegen=52
thresoldProtection=1

attack(){

    for i in {1..9}; do
        mobs[$i]=$(cat battle.html | grep -v opacity | grep mkey_$i | wc -l | grep -v 0)
    done
    mobs[10]=$(cat battle.html | grep -v opacity | grep mkey_0 | wc -l | grep -v 0)
    tarN=0
    for i in {1..10}; do
        if [ ${mobs[$i]} ]; then
            a=1
            j=$i
            chain=1
            while [ $a -eq 1 ]; do
                let j=$j-1
                if [ ${mobs[$j]} ]; then let chain=$chain+1; else a=0; fi
                if [ $j -eq $(expr $i - 2) ]; then a=0; fi
            done
            a=1
            j=$i
            while [ $a -eq 1 ]; do
                let j=$j+1
                if [ ${mobs[$j]} ]; then let chain=$chain+1; else a=0; fi
                if [ $j -eq $(expr $i + 2) ]; then a=0; fi
            done
            if [ $chain -gt $tarN ]; then tar=$i; tarN=$chain; fi
        fi
    done
    for i in {0..9}; do
        if [ $(cat battle.html | grep \#CB000A | grep mkey_$i | grep -v \#BD7400\" | grep -v opacity | wc -l) = 1 ]; then tar=$i; fi
    done

    case "$tar" in
        1) xdotool key KP_End;;
        2) xdotool key KP_Down;;
        3) xdotool key KP_Next;;
        4) xdotool key KP_Left;;
        5) xdotool key KP_Begin;;
        6) xdotool key KP_Right;;
        7) xdotool key KP_Home;;
        8) xdotool key KP_Up;;
        9) xdotool key KP_Prior;;
        0) xdotool key KP_Insert;;
        10)xdotool key KP_Insert;;
    esac
    lastAct=0
    beep=0
}

nomp(){
    if [ $lastAct -eq 0 ]; then
        lastAct=1
        mplayer nomp.wav
    fi
}

battle(){
    life=$(expr $(expr $(cat battle.html | grep ' / ' | head -1 | sed s/.*px\"\>// | sed -e 's/\ \/.*//') \* 100) / $(cat battle.html | grep ' / ' | head -1 | sed -e 's/<\/.*//' | sed -e 's/.*\/ //'))
    manaAbs=$(cat battle.html | grep ' / ' | head -2 | tail -1 | sed s/.*px\"\>// | sed -e 's/\ \/.*//')
    mana=$(expr $(expr $manaAbs \* 100) / $(cat battle.html | grep ' / ' | head -2 | tail -1 | sed -e 's/<\/.*//' | sed -e 's/.*\/ //'))
    overcharge=$(cat battle.html | grep "%" | grep -v Stamina | head -1 | sed s/.*px\"\>// | sed -e 's/\%.*//'); if [ ! $overcharge ]; then overcharge=-1; fi;
    maxOvercharge=250
    spirit=$(cat battle.html | grep " / " | head -3 | tail -1 | sed s/.*px\"\>// | sed -e 's/\ \/.*//')
    gemMystic=$(cat battle.html | grep "Mystic Gem</div>" | wc -l)
    gemSpirit=$(cat battle.html | grep "Spirit Gem</div>" | wc -l)
    gemMana=$(cat battle.html | grep "Mana Gem</div>" | wc -l)
    gemHealth=$(cat battle.html | grep "Health Gem</div>" | wc -l)
    buffChanneling=$(cat battle.html | grep channeling.png | wc -l)
    spiritStance=$(cat battle.html | grep spirit_a.png | wc -l)

    buffRegen=$(cat battle.html | grep regen.png | sed s/.*,\ // | sed -e 's/)\".*//'); if [ ! $buffRegen ]; then buffRegen=-1; fi
    buffHaste=$(cat battle.html | grep haste.png | sed s/.*,\ // | sed -e 's/)\".*//'); if [ ! $buffHaste ]; then buffHaste=-1; fi
    buffProtection=$(cat battle.html | grep protection.png | sed s/.*,\ // | sed -e 's/)\".*//'); if [ ! $buffProtection ]; then buffProtection=-1; fi

    if [ $life -lt 55 ]; then
        if [ $gemHealth = 0 ]; then
            if [ $manaAbs -gt $healCost ]; then
                xdotool key alt+KP_Insert
                if [ $lastAct -eq 2 ] && [ $beep -eq 0 ]; then
                    beep=1
                    mplayer nomp.wav
                fi
                lastAct=2
            else
                nomp
            fi
        else
            xdotool key P
        fi
    elif [ $buffRegen -le 0 ] && [ $life -lt 80 ]; then
        if [ $manaAbs -gt $regenCost ]; then
            xdotool key alt+KP_Prior
        else
            nomp
        fi
    elif [ $gemMystic = 1 ] || [ $gemSpirit = 1 ] || ( [ $gemMana = 1 ] && [ $mana -le 70 ] ); then
        xdotool key P
    elif [ $buffChanneling = 1 ]; then
#       if [ $buffRegen -lt $thresoldRegen ]; then
#           xdotool key alt+KP_Prior
#       elif [ $buffProtection -lt $thresoldProtection ]; then
            xdotool key alt+KP_Begin
#       fi
    elif [ $spiritStance = 0 ] && [ $overcharge -gt 240 ] && [ $spirit -gt 15 ]; then
        xdotool key s
    else
        attack
    fi
}

while true; do
    wget -q --load-cookies shiggy.txt 'http://hentaiverse.org/?s=Battle&ss=gr' -O tmp.html
    sed ':a;N;$!ba;s/\n<div class="btm/ <div class="btm/g' tmp.html > tmp2.html
    sed 's/ <img/\n<img/g' tmp2.html > battle.html
    if [ $(xprop -id $(xdotool getwindowfocus) WM_NAME | grep "WM_NAME:  not found" | wc -l) = 1 ]; then xdotool mousemove 40 100; fi

    if [ $(xprop -id $(xdotool getwindowfocus) WM_NAME | grep Verse | wc -l) = 1 ]; then
        if [ $(cat battle.html | grep mkey_1 | wc -l) -ne 0 ]; then
            battle
#           xdotool key space
        elif [ $(cat battle.html | grep riddlemaster.php | wc -l) -eq 1 ]; then
            mplayer bell.wav && sleep 1
        else
            sleep 5
        fi
    fi
done