/alias i i3
/send parser off
/alias toreagents tonecro%;n2enus2w
/alias fromreagents 2endsws%;fromnecro
/alias fetchr toreagents%;buyreagents%;buyreagents%;buyreagents%;fromreagents
/alias tobox tonecro%;2nw
/alias frombox e2s%;fromnecro
/alias buyreagents buy 333 ginseng root%;buy 333 black pearl%;buy 333 goldenrod silk%;buy 333 nightshade stalk%;buy 333 spider web%;buy 333 mandrake%;buy 333 pine needles
/alias toadv tonecro%;2ne2usw%;
/alias fromadv focus%;portal%;den2dw2s%;fromnecro

;    create dart(2): 154  308       create light(1):   1    1    
;         devour(3):  47  141         protection(3):   3    9    
;          sense(1):   2    2        turn undead(1):   2    2 
/alias tostudy toreagents%;buy 333 ginseng root%;2endswse%;/se%;tower%;d%;path%;2s%;power
;/def -t"^You have no powers memorized at this time\.$" 
/alias power /set darts 0%;/set devours 0%;/set senses 0%;/set lights 0%;/set prots 0%;/set turns 0%;/send power
/alias fromstudy 2n%;path%;u%;out%;/nw%;w%;fromnecro
/def -F -t"create dart\(2\): +(\d+)"  study1 = /set darts %{P1}
/def -F -t"devour\(3\): +(\d+)"       study2 = /set devours %{P1}
/def -F -t"sense\(1\): +(\d+)"        study3 = /set senses %{P1}
/def -F -t"create light\(1\): +(\d+)" study4 = /set lights %{P1}
/def -F -t"protection\(3\): +(\d+)"   study5 = /set prots %{P1}
/def -F -t"turn undead\(1\): +(\d+)"  study6 = /set turns %{P1}
/def -F -t"rope trick\(3\): +(\d+)"   study7 = /set ropes %{P1}
/def -F -t"alarm\(2\): +(\d+)"        study8 = /set alarms %{P1}
/def -F -t"bloodtrack\(2\): +(\d+)"   study9 = /set tracks %{P1}
/def -F -t"daemon graft\(3\): +(\d+)" study10 = /set grafts %{P1}
/def -F -t"alter\(3\): +(\d+)"        study11 = /set alters %{P1}

/alias study /if ({2} > 0) /send study %*%;/endif%;
/alias studyall \
  /eval study alter $[100 - alters]%;\
  /eval study protection $[10 - prots]%;\
  /eval study rope trick $[5 - ropes]%;\
  /eval study alarm $[3 - alarms]%;\
  /eval study sense $[3 - senses]%;\
  /eval study daemon graft $[3 - grafts]%;\
  /eval study create light $[1 - lights]%;\
  /eval study turn undead $[3 - turns]%;\
  /eval study spirit grasp $[1 - turns]%;\
  /eval study bloodtrack $[1 - tracks]%;\
  /eval study devour $[10 - devours]%;\
;  /eval study create dart $[100 - darts]%;\

/alias aheal deathguard %1 h%;/eval shadowsave $[{1}-20] qtrance h/=give corpse/unwrap/y/absorb/hh3/get corpse/qatrance devour
;deathguard 50 h;shadowsave 25 qtrance rope trick/h/qatrance devour

/alias nreview comtrance%;deathguard%;shadowsave%;
/alias cy unwrap%;y%;get preservation%;=give corpse%;kap
/alias dr qtrance drop remains/preserve remains/get preservation
/alias storeall home%;d%;unkeep all preservation%;/irepeat 20 /send store corpse%;/irepeat 20 put preservation in box%;u
/alias unstore home%;d%;/irepeat 20 get preservation from box%;/repeat -1 1 u

/def -t"^\[PARTY\] Buried: preserve" fuckburied = /irepeat 40 preserve remains
/def -ag -t"^You keep \~\(" gagkap
;HP[204/204] SP[294/294] NP[175/175|2c] Zombie[100%/0c] 
;Status[w125%|pOFF|vOFF|r11%] Cr[14%] E[Taxi Cab:bleed]
/alias rcorpses /eval talk I have %{tcorpses} corpses. 

/def -t -PBCred -t"[|/][0-5]c[\]/]" ansi_low_corpses

/onoffvar adart 0
/def -F -aBCyellow -t"^(?:C:)?HP\[(\d+)(?:\(\d+\))?\/(\d+)\] SP\[(\d+)\/(\d+)\] NP\[(\d+)\/(\d+)\|(\d+)c\] [A-Z][a-z]+\[(?:[^/]+\/(\d+)c(?:\/(\d+)c)?)\]" hpbar_necro = \
    /set lasth %{hp}%;\
    /set lasts %{sp}%;\
    /set lastn %{np}%;\
    /set hp %{P1}%;\
    /set hpmax %{P2}%;\
    /set sp %{P3}%;\
    /set spmax %{P4}%;\
    /set np %{P5}%;\
    /set npmax %{P6}%;\
    /set mcorpses %{P7}%;\
    /set fcorpses %{P8}%;\
    /set ccorpses %{P9}%;\
    /if (np > 140 & combat & adart) /qrepeat _dart -2 1 cd 100%;/endif%;\
;    /if ( regmatch( "(\d+)\/(\d+)", gxpraw ) ) \
;        /eval /set g2 %{P1}%;\
;        /eval /set rgxp %{P2}%;\
;        /eval /set gxp $[(rgxp-lastrgxp)+abs((lastg2-g2))]%;\
;    /endif%;\
    /set diffh $[-1*(lasth-hp)]%;\
    /set diffs $[-1*(lasts-sp)]%;\
    /set diffn $[-1*(lastn-np)]%;\
    /set tcorpses $[mcorpses+fcorpses+ccorpses]%;\
    /if (solo & mcorpses < 5 & ccorpses) \
        /eval /irepeat $[5-mcorpses] qtrance unwrap/y/get preservation%;\
    /elseif (solo & mcorpses < 5 & fcorpses) \
        /eval /irepeat $[5-mcorpses] gc%;\
    /endif%;\
    /set totaldmg $[totaldmg+dealdmg]%;\
    /set rounds $[rounds+1]%;\
    /eval /echo -p @{Ccyan}dh:%{diffh} ds:%{diffs} dp:%{diffn}   Last:%{lastRounds}(%{lastTotalDmg}) Curr:%{rounds}(%{totaldmg}) Dealt:%{dealdmg}%;\
    /set dealdmg=0%;\
    /if (tcorpses > 5 & sp < 30) sp%;/endif%;\
    /set hptyped 0 %;

/onoffvar solo 1

/def -aBCyellow -t"Status\[w(\d+)\%\|p(ON|OFF)\|v(ON|OFF)\|r\d+\%\] Cr\[\d+\%\] E\[([^]]+)\]$" hpbar2 = \
    /set protection %{P2}%;\
    /set combat_status %{P4}%;\
    /if (protection =~ 'OFF') /set protection 0%;/else /set protection 1%;/endif%;\
    /if (combat_status =~ 'none') /set combat 0%;/else /set combat 1%;/endif%;

/def guild_corpse
/def guild_defense_check
/def guild_kwon = /if (sp < spmax*.4 | np < 30) sp%;/endif%;\
        /qrepeat _contribute -2.1 1 con%;hp%;\
        /if (mcorpses < 6) kap%;\
        /elseif (mcorpses > 12) givec undead%;/endif%;

/onoffvar acall 0
/alias callall call%;=kill
; immediately before and after you send "kill"
/def guild_pre_kill_hook = /if (!protection) /send protection%;/endif%;
/def guild_post_kill_hook = /if (acall) /qrepeat _callfam -3 1 callall%;/endif%;

;**************************** PARTY CORPSE MANAGEMENT *****************
;Zinaki prays to Nocturnis.  The corpse fades from view.
;Zinaki prays to Nocturnis.  The corpse fades from view.
;Zinaki prays to Nocturnis.  The corpse fades from view.
/def -F -aCyellow -t'^([A-Z][a-z]+) prays to [A-Z][a-z]+\.  The corpse fades from view\.$' help_priest = \
  /set priest $[tolower({P1})]%;\
  qtrance unwrap/preserve remains/get preservation/unkeep preservation/give preservation to %{priest}/wrap all/y/get preservation/kap%;


;**************************** SUMMON **********************************

;alias loadundead       qtrance unkeep preservation/give preservation to undead/unkeep preservation/give preservation to undead/unkeep preservation/give preservation to undead
/alias gc =give corpse%;/set undeadful 0
/def -t"^Your ghoul gives \~" undeadunfull = /set undeadfull 0
/def -t"^Undead follower can't carry that much more\." undeadfull = /set undeadfull 1
/def -t"^There is no Undead here\.$" undeadfull2 = /set undeadfull 1
/def -t"^You attack A \w+ under the control of" youfuckedup = /send =halt

/eval /set mccain $[rand(0,4)]%;
/alias mccain =name McCain%;=setmin crashlands his A-4 Skyhawk into the deck%;=describe If it flies, he can crash it.%;\
  /if (mccain == 1) \
      =setmout discovers a very serious crisis to the%;\
      =say Say... Are you paying me by the hour or the circle?%;\
  /elseif (mccain == 2) \
      =setmout flutter-tumbles to the%;\
      =say Trust me, I know what Im doing. %;\
  /elseif (mccain == 3) \
      =setmout flies out of control to the%;\
      =say Sheesh, backseat astronauts.%;\
  /elseif (mccain == 4) \
      =setmout takes off%;\
      =say Flight school?  I took a crash course.%;\
  /endif%;


;**************************** ANSI **************************************

/def -aBCblue -t"^Deathly energies compel you to" deathguard
/def -aBCblue -t"^Shadowy powers compel you to" shadowsave
/def -PBCyellow -t"physical (powers|levels|health|energ(y|ies))"
/def -PBCmagenta -t"magical (powers|levels|health|energ(y|ies))"

/def -ag -t"^\* You recover your senses \*$"
/def -ag -t"^\* You blink into unconsciousness \*$"
/def -ag -t"^A gremlin peeks out of the bag, snorts, and ducks back inside\.$"
/def -ag -t"^The gremlins return to the confines of the bag\.$"