; cautious macro:
/require stack-q.tf
;/load dmglist.tf

; ************************ GAGs and ANSI **********************************

/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 -PCbgcyan -t"A box of Trix cereal"
;/def -PCbgcyan -t"Spider Mandibles"
;/def -PCbgcyan -t"A chunk of ore"

;***************************** 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 %*

/onoffvar preserveall 0
/def kwon = \
   /guild_kwon%;\
   /if (preserveall) preserve remains%;/endif%;\
   /if (corpsesinroom & (pcorpse|acorpse) ) \
       /if (morgue & mcorpses > 8) slab%;/endif%;\
       /if (acorpse & {lastkiller} =~ 'Launchpad' ) \
            y%;/gotcorpse%; \
       /endif%;\
       /if (coffin & mcorpses > 8) \
            wrap%;\
       /endif%;\
       y%;/gotcorpse%;\
   /endif%;\
   /if (morgue) \
      /if (pcorpse) /send y%;/gotcorpse%;slab%;/endif%; \
      /if (corpsesinroom & !pcorpse & {lastkiler} =~ 'Launchpad') \
        slab%;\
      /endif%;\
   /endif%;\
   /craft_kwon%;\
   /if (adivvy) divvy coins%;/endif%;\
   /if ((acorpse|pcorpse) & aget) g%;/endif%;\
   /if ((acorpse|pcorpse) & abag) bags%;/endif%;\
   /set combat 0%;