; cautious macro:
/require stack-q.tf
;/load dmglist.tf
;
; ************************ GAGs and ANSI **********************************

;/def -F -p1 -PBCyellow -F -t'^\[PARTY\]' hiliteparty
;/def -p2 -PBCgreen     -F -t'^\[COURT\]' hilitecourt2
;/def -p1 -PCgreen      -F -t'^\[COURT\] [A-Za-z]+ :' hilitecourt1
;/def -p1 -PBCblue      -F -t'^\[COURT SHOUT\]' hilitecourtshout
;/def -p1 -aCbggreen -F -t'^Mists begin to swirl around your feet.' scryhilite = /beep

/def -PBCgreen -t"^A wall of thorns summoned by"
/def -PCyellow -t"^The force of the Goddess Kourlyn is channeled through the gloves and$"
/def -PCyellow -t"^sends a blast of wind at your opponent!$"

/def -PCbgyellow -t"Peridot Ring of Adornment" hilite_peridot_marble

;***************************** Login/Logout Stuff **************************

/def -hLOGIN loginhook = \
       /if ({1} =~ "3K") \
         /def -t'^You leave to a lovely house.' runloginstuff = /3kloginstuff%;\
         /def -t'^You have (an|a) [A-Za-z]+ copy in the game\.' cancelrunloginstuff = \
              /undef runloginstuff%;\
       /endif %;

/def 3kloginstuff = \
       earmuffs 75%;\
       bam%;\
       ltadd%;\
       /undef 3kloginstuff%;\
       /undef runloginstuff%;\
       /undef cancelrunloginstuff%;\
       

;********************************* Fighting aliases *************************

/onoffvar coffin 1
/onoffvar autowrangle 0
/alias slab   /eval /set slabbedcorpses $[slabbedcorpses+1]%;/send slab
/alias wrap   /eval /set slabbedcorpses $[slabbedcorpses+1]%;/send wrap %*
/alias deslab /eval /set slabbedcorpses $[slabbedcorpses-1]%;/send deslab
/alias unwrap /eval /set slabbedcorpses $[slabbedcorpses-1]%;/send unwrap %*

/def kwon = \
    /if (corpsesinroom & (pcorpse|acorpse) ) \
       /if (coffin & mana>manamax*.7) \
            wrap%;\
       /endif%;\
       /if (acorpse & {lastkiller} =~ 'Meslier' & mana< manamax*manaleech & !pcorpse) \
            /guild_corpse%;\
            slab%;\
       /endif%;\
   /endif%;\
   /if (pcorpse) \
        /guild_corpse%;\
        /if (morgue) slab%;/endif%;\
   /endif%; \
   /if ( {lastkiler} =~ 'Meslier') \
       /if (!pcorpse & morgue & corpsesinroom) slab%;/endif%;\
   /endif%;\
   /craft_kwon%;\
   /guild_kwon%;\
   /if (corpsesinroom & akk & !pcorpse) y%;/endif%;\
   /if (adivvy) divvy coins%;/endif%;\
   /if ((acorpse|pcorpse) & aget) g%;/endif%;\
   /if ((acorpse|pcorpse) & abag) bags%;/endif%;\
   /set combat 0%;