; 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 -PCbgcyan -t"A Chunk of Depleted Uranium"
/def -PCbgyellow -t"Peridot Ring of Adornment" hilite_peridot_marble
/def -PCbgcyan -t"a tricorder"
;/def -PCbgcyan -t"A Yellow Hardhat"
/def -PCbgcyan -t"A Crab Leg"
;/def -PCbgcyan -t"Acorn"
/def -PCbgcyan -t"A Computer Disk"
/def -PCbgcyan -t"a capsule corp notepad"
/def -PCbgcyan -t"A black rose"
;/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 %*

/def kwon = \
    /if (corpsesinroom & (pcorpse|acorpse) ) \
       /if (coffin & power>powermax*.7) \
            wrap%;\
       /endif%;\
       /if (morgue & power>powermax*.4) slab%;/endif%;\
       /if (acorpse & {lastkiller} =~ 'Ford' ) \
            /if (powerstore > powermax*.4) rc%;/endif%;\
            /send y%;/gotcorpse%; \
       /endif%;\
   /endif%;\
   /if (pcorpse) /send y%;/gotcorpse%;\
        /if (morgue) slab%;/endif%;\
   /endif%; \
   /if ( {lastkiler} =~ 'Ford') \
        /if (!pcorpse & morgue & corpsesinroom) slab%;/endif%;\
    /endif%;\
    /craft_kwon%;\
    /guild_kwon%;\
    /if (adivvy) divvy coins%;/endif%;\
    /if ((acorpse|pcorpse) & aget) g%;/endif%;\
    /if ((acorpse|pcorpse) & abag) bags%;/endif%;\
    /set combat 0%;