;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;							;
; bat_crimson.tf					;
; 							;
; Hair@BatMUD						;
;							;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

/REQUIRE bat_nomad.tf

;;;;;;;; SKILLS

;;;;;;;; Bash
/DEF -ag -h"send {bash}*" skl_bash = \
	/SET cast_status=BASH %; \
	/IF /TEST $[%{-1} !~ ""] %; \
		/THEN /SEND @use bash at %{-1} %; \
		/ELSE /SEND @use bash %; \
	/ENDIF

/DEF -t"* seems to loose its concentration and stops skill." skl_bash_interr = \
	/SEND party report %{PL} lost skill to bash

;;;;;;;; Battlecry
/DEF -ag -h"send {bc}*" skl_battlecry = \
	/SET cast_status=BC %; \
	/IF /TEST $[%{-1} !~ ""] %; \
		/SEND use battlecry at %{-1}%{delim}@party report Battlecry --> %{-1} %; \
	/ELSE /ECHO This skill requires a target %; \
	/ENDIF

;;;;;;;; Cleave
/DEF -ag -h"send {cl}*" skl_cleave = \
	/SET cast_status=CLEAVE %; \
	/IF /TEST $[%{-1} !~ ""] %; \
		/THEN /SEND @use cleave at %{-1} %; \
		/ELSE /SEND @use cleave %; \
	/ENDIF

;;;;;;;; Combat damage analysis
/DEF -ag -h"send {cda}" skl_combat_damage_analysis = \
	/SET cast_status=CDA %; \
	/SEND @use combat damage analysis

;; Taken from ggrtf-misc.tf from Ggr@BatMUD http://ccr.tnsp.org/ggrtf/
/DEF -i gcda_report =\
	/SEND @party report [%{1}]: %{2} resist against %{3}%;\

/DEF -i -p9999 -ag -mregexp -t"^([A-Za-z ,.'-]+) is defenseless against ([a-zA-Z]+) damage\.$" cda_resist0 =\
	/TEST gcda_report({P1},0,{P2})

/DEF -i -p9999 -ag -mregexp -t"^([A-Za-z ,.'-]+) seems to be almost defenseless against ([a-zA-Z]+) damage\.$" cda_resist20 =\
	/TEST gcda_report({P1},20,{P2})

/DEF -i -p9999 -ag -mregexp -t"^([A-Za-z ,.'-]+) has some resistance against ([a-zA-Z]+) damage\.$" cda_resist40 =\
	/TEST gcda_report({P1},40,{P2})

/DEF -i -p9999 -ag -mregexp -t"^([A-Za-z ,.'-]+) seems to be moderately resistant against ([a-zA-Z]+) damage." cda_resist60 =\
	/TEST gcda_report({P1},60,{P2})

/DEF -i -p9999 -ag -mregexp -t"^([A-Za-z ,.'-]+) has good resistance against ([a-zA-Z]+) damage\.$" cda_resist80 =\
	/TEST gcda_report({P1},80,{P2})

/DEF -i -p9999 -ag -mregexp -t"^([A-Za-z ,.'-]+) seems almost immune against ([a-zA-Z]+) damage\.$" cda_resist100 =\
	/TEST gcda_report({P1},100,{P2})
;; End blatant ripoff.  Thanks to Ggr for a really cool trigset to
;; steal^H^H^H^H^Hborrow things from

;;;;;;;; Compare
/DEF -ag -h"send {comp}*" skl_compare = \
	/SET cast_status=COMP %; \
	/SEND @use compare at %{2} and %{3}

;;;;;;;;; First Aid
/DEF -ag -h"send {fa}*" skl_first_aid = \
	/SET cast_status=F AID %; \
	/IF /TEST $[%{-1} !~ ""] %;\
		/THEN /SEND @use first aid at %{-1} %;\
	/ELSE /ECHO This skill requires a target %; \
		/SET cast_status= %; \
	/ENDIF

;;;;;;;; Grapple
/DEF -ag -h"send {grapple}*" skl_grapple = \
	/SET cast_status=GRAPL %; \
	/IF /TEST $[%{-1} !~ ""] %; \
		/THEN /SEND @use grapple at %{-1} %; \
		/ELSE /SEND @use grapple %; \
	/ENDIF %; \
	/SEND @party report Grapple --> %{-1}

;;;;;;;; Impale
/DEF -ag -h"send {im}*" skl_impale = \
	/SET cast_status=MPALE %; \
	/IF /TEST $[%{-1} !~ ""] %; \
		/THEN /SEND @use impale at %{-1} %; \
		/ELSE /SEND @use impale %; \
	/ENDIF

;;;;;;;; Kick
/DEF -ag -h"send {ki}*" skl_kick = \
	/SET cast_status=KICK %; \
	/IF /TEST $[%{-1} !~ ""] %; \
		/THEN /SEND @use kick at %{-1} %; \
		/ELSE /SEND @use kick %; \
	/ENDIF

;;;;;;;; Lesser taunt
/DEF -ag -h"send {lt}*" skl_lesser_taunt = \
	/SET cast_status=TAUNT %; \
	/IF /TEST $[%{-1} !~ ""] %; \
		/THEN /SEND @use lesser taunt at %{-1} %; \
		/ELSE /SEND @use lesser taunt %; \
	/ENDIF %; \
	/SEND @party report Taunt --> %{-1}

;;;;;;;; Pound
/DEF -ag -h"send {po}*" skl_pound = \
	/SET cast_status=POUND %; \
	/IF /TEST $[%{-1} !~ ""] %; \
		/THEN /SEND @use pound at %{-1} %; \
		/ELSE /SEND @use pound %; \
	/ENDIF

;;;;;;;; Protection by Sacrifice
/DEF -ag -h"send {protect}*" skl_protection_by_sacrifice = \
	/SET cast_status=PROT %; \
	/IF /TEST $[%{-1} !~ ""] %; \
		/THEN /SEND @use protection by sacrifice at %{-1}%{delim}@party say Protecting --> %{-1} %; \
		/ELSE /ECHO This skill requires a target %; \
	/ENDIF

;;;;;;;; Shield Wall
/DEF -ag -h"send {shield}" skl_shield_wall %; \
	/SET cast_status=SHIELD %; \
	/SEND @use shield wall

;;;;;;;; Slash
/DEF -ag -h"send {sl}*" skl_slash = \
	/SET cast_status=SLASH %; \
	/IF /TEST $[%{-1} !~ ""] %; \
		/THEN /SEND @use slash at %{-1} %; \
		/ELSE /SEND @use slash %; \
	/ENDIF

;;;;;;;; Stab
/DEF -ag -h"send {st}*" skl_stab = \
	/SET cast_status=STAB %; \
	/IF /TEST $[%{-1} !~ ""] %; \
		/THEN /SEND @use slash at %{-1} %; \
		/ELSE /SEND @use slash %; \
	/ENDIF

;;;;;;;; Tinning
/DEF -ag -h"send {tin}*" skl_tinning = \
	/SET cast_status=TIN %; \
	/IF /TEST $[%{-1} !~ ""] %; \
		/THEN /SEND @use tinning at corpse %{-1} %; \
		/ELSE /SEND @use tinning at corpse %; \
	/ENDIF

;;;;;;;; Ventriloquism
;; Ok, couldn't find anybody who used this skill, so hoping it just takes
;; what you want to say as an argument.  If not, let me know what it does
;; take and I'll change the hook.
/DEF -ag -h"send {vent}*" skl_ventriloquism = \
	/SET cast_status=VENT %; \
	/IF /TEST $[%[-1} !~ ""] %; \
		/THEN /SEND @use ventriloquism at %{-1} %; \
		/ELSE /skl_ventriloquism2 %; \
	/ENDIF

/DEF skl_ventriloquism2 = \
	/ECHO This skill requires a target %; \
	/SET cast_status=