Affects.tf

Bug reports, suggestions and/or diffs are appreciated, sulfar _AT_ inbox +DOT+ com

/require lisp.tf

/echo %% /aff <spell>       Shows affects list for <spell>
/echo %% /sick              Shows how sick you are
/echo %% /chkaff            Shows which spells you are *not* affected by
    
;Make the affects list green
/def -i -p999 -F -PCgreen -mregexp -t"^Spell: '.*" green_affects


;You can "/aff sanc" and it'll only show the sanctuary line
;or stack, "/aff sanc|fren" and it'll show both sanctuary and frenzy
/def -i aff = \
    /def -i -t"You are affected by:" _aff_affected = \
        /def -p900 -PCgreen -mregexp -t"^Spell: '%{1}.*" _aff_spell%%;\
        /def -p899 -ag -mregexp -t"^Spell: '" _aff_gag_other_affects%%;\
        /repeat -0:00:0.3 1 \
            /undef _aff_affected%%%;\
            /undef _aff_spell%%%;\
            /undef _aff_gag_other_affects%;\
    affects
    
    
/def -i sick = \
    /set sick_poison 0%;\
    /set sick_disease 0%;\
    /def -t"You are affected by:" _sick_affected = \
        /def -p900 -PCgreen -mregexp -t"^Spell: 'poison.*" _sick_poison = /test $$$[++sick_poison] %%;\
        /def -p900 -PCgreen -mregexp -t"^Spell: 'toxin.*" _sick_toxin = /test $$$[++sick_poison]%%;\
        /def -p900 -PCgreen -mregexp -t"^Spell: 'biotoxin.*" _sick_biotoxin = /test $$$[++sick_poison]%%;\
        /def -p900 -PCgreen -mregexp -t"^Spell: 'venom.*" _sick_venom = /test $$$[++sick_poison]%%;\
        /def -p900 -PCgreen -mregexp -t"^Spell: 'virus.*" _sick_virus = /test $$$[++sick_disease]%%;\
        /def -p900 -PCgreen -mregexp -t"^Spell: 'plague.*" _sick_plague = /test $$$[++sick_disease]%%;\
        /def -p899 -ag -mregexp -t"^Spell: '" _sick_gag_other_affects%%;\
        /repeat -0:00:0.3 1 \
            /undef _sick_affected%%%;\
            /undef _sick_poison%%%;\
            /undef _sick_toxin%%%;\
            /undef _sick_biotoxin%%%;\
            /undef _sick_venom%%%;\
            /undef _sick_virus%%%;\
            /undef _sick_plague%%%;\
            /undef _sick_gag_other_affects%%%;\
            gtell %%%%% I am affected by: %%%sick_poison poisons and %%%sick_disease diseases%;\
    affects

;/chkaff will show you the spells from the chkaff_list below by which
;you're *not* affected.
/def -i chkaff = \
    /reset_chkaff_list%;\
    /def -t"You are affected by:" _chkaff_affected = \
        /def_chkaff_triggers%%;\
        /repeat -0:00:0.3 1 \
            /undef_chkaff_triggers%%%;\
            gtell %%%%% I am *not* affected by %%%chkaff_list%;\
    affects

/def -i reset_chkaff_list = /set chkaff_list= |BR| sanctuary |R| awen foci fortitudes \
    invincibility barkskin steel_skeleton iron_skin |W| protection_evil bless holy_aura \
    holy_armor armor water_breathing energy_shield displacement body_brace \
    mental_barrier calcify_flesh biofeedback anticipate adrenaline_pump concentrate \
    pass_door fly shield stone_skin giant_strength |G| frenzy |B| infravision \
    heighten_senses

/def -i def_chkaff_triggers = \
    /def -p900 -t"Spell: 'awen'*" _chkaff_awen = /set chkaff_list=$$(/remove awen %%chkaff_list)%;\
    /def -p900 -t"Spell: 'sanctuary'*" _chkaff_sanctuary = /set chkaff_list=$$(/remove sanctuary %%chkaff_list)%;\
    /def -p900 -t"Spell: 'protection evil'*" _chkaff_prot_evil = /set chkaff_list=$$(/remove protection_evil %%chkaff_list)%;\
    /def -p900 -t"Spell: 'bless'*" _chkaff_bless = /set chkaff_list=$$(/remove bless %%chkaff_list)%;\
    /def -p900 -t"Spell: 'holy aura'*" _chkaff_holy_aura = /set chkaff_list=$$(/remove holy_aura %%chkaff_list)%;\
    /def -p900 -t"Spell: 'holy armor'*" _chkaff_holy_armor = /set chkaff_list=$$(/remove holy_armor %%chkaff_list)%;\
    /def -p900 -t"Spell: 'armor'*" _chkaff_armor = /set chkaff_list=$$(/remove armor %%chkaff_list)%;\
    /def -p900 -t"Spell: 'water breathing'*" _chkaff_water_breathing = /set chkaff_list=$$(/remove water_breathing %%chkaff_list)%;\
    /def -p900 -t"Spell: 'invincibility'*" _chkaff_invincibility = /set chkaff_list=$$(/remove invincibility %%chkaff_list)%;\
    /def -p900 -t"Spell: 'fortitudes'*" _chkaff_fortitudes = /set chkaff_list=$$(/remove fortitudes %%chkaff_list)%;\
    /def -p900 -t"Spell: 'energy shield'*" _chkaff_energy_shield = /set chkaff_list=$$(/remove energy_shield %%chkaff_list)%;\
    /def -p900 -t"Spell: 'displacement'*" _chkaff_displacement = /set chkaff_list=$$(/remove displacement %%chkaff_list)%;\
    /def -p900 -t"Spell: 'body brace'*" _chkaff_body_brace = /set chkaff_list=$$(/remove body_brace %%chkaff_list)%;\
    /def -p900 -t"Spell: 'mental barrier'*" _chkaff_mental_barrier = /set chkaff_list=$$(/remove mental_barrier %%chkaff_list)%;\
    /def -p900 -t"Spell: 'calcify flesh'*" _chkaff_calcify_flesh = /set chkaff_list=$$(/remove calcify_flesh %%chkaff_list)%;\
    /def -p900 -t"Spell: 'biofeedback'*" _chkaff_biofeedback = /set chkaff_list=$$(/remove biofeedback %%chkaff_list)%;\
    /def -p900 -t"Spell: 'anticipate'*" _chkaff_anticipate = /set chkaff_list=$$(/remove anticipate %%chkaff_list)%;\
    /def -p900 -t"Spell: 'adrenaline pump'*" _chkaff_adrenaline_pump = /set chkaff_list=$$(/remove adrenaline_pump %%chkaff_list)%;\
    /def -p900 -t"Spell: 'concentrate'*" _chkaff_concentrate = /set chkaff_list=$$(/remove concentrate %%chkaff_list)%;\
    /def -p900 -t"Spell: 'foci'*" _chkaff_foci = /set chkaff_list=$$(/remove foci %%chkaff_list)%;\
    /def -p900 -t"Spell: 'pass door'*" _chkaff_pass_door = /set chkaff_list=$$(/remove pass_door %%chkaff_list)%;\
    /def -p900 -t"Spell: 'fly'*" _chkaff_fly = /set chkaff_list=$$(/remove fly %%chkaff_list)%;\
    /def -p900 -t"Spell: 'shield'*" _chkaff_shield = /set chkaff_list=$$(/remove shield %%chkaff_list)%;\
    /def -p900 -t"Spell: 'stone skin'*" _chkaff_stone_skin = /set chkaff_list=$$(/remove stone_skin %%chkaff_list)%;\
    /def -p900 -t"Spell: 'giant strength'*" _chkaff_giant_strength = /set chkaff_list=$$(/remove giant_strength %%chkaff_list)%;\
    /def -p900 -t"Spell: 'iron skin'*" _chkaff_iron_skin = /set chkaff_list=$$(/remove iron_skin %%chkaff_list)%;\
    /def -p900 -t"Spell: 'steel skeleton'*" _chkaff_steel_skeleton = /set chkaff_list=$$(/remove steel_skeleton %%chkaff_list)%;\
    /def -p900 -t"Spell: 'barkskin'*" _chkaff_barkskin = /set chkaff_list=$$(/remove barkskin %%chkaff_list)%;\
    /def -p900 -t"Spell: 'frenzy'*" _chkaff_frenzy = /set chkaff_list=$$(/remove frenzy %%chkaff_list)%;\
    /def -p900 -t"Spell: 'heighten senses'*" _chkaff_heighten_senses = /set chkaff_list=$$(/remove heighten_senses %%chkaff_list)%;\
    /def -p900 -t"Spell: 'infravision'*" _chkaff_infravision = /set chkaff_list=$$(/remove infravision %%chkaff_list)%;\
    /def -p900 -t"Spell: 'iron monk'*" _chkaff_iron_monk = /set chkaff_list=$$(/remove sanctuary %%chkaff_list)

/def -i undef_chkaff_triggers = \
    /undef _chkaff_affected%;\
    /undef _chkaff_awen%;\
    /undef _chkaff_sanctuary%;\
    /undef _chkaff_prot_evil%;\
    /undef _chkaff_bless%;\
    /undef _chkaff_holy_aura%;\
    /undef _chkaff_holy_armor%;\
    /undef _chkaff_armor%;\
    /undef _chkaff_water_breathing%;\
    /undef _chkaff_invincibility%;\
    /undef _chkaff_fortitudes%;\
    /undef _chkaff_energy_shield%;\
    /undef _chkaff_displacement%;\
    /undef _chkaff_body_brace%;\
    /undef _chkaff_mental_barrier%;\
    /undef _chkaff_calcify_flesh%;\
    /undef _chkaff_biofeedback%;\
    /undef _chkaff_anticipate%;\
    /undef _chkaff_adrenaline_pump%;\
    /undef _chkaff_concentrate%;\
    /undef _chkaff_foci%;\
    /undef _chkaff_pass_door%;\
    /undef _chkaff_fly%;\
    /undef _chkaff_shield%;\
    /undef _chkaff_stone_skin%;\
    /undef _chkaff_giant_strength%;\
    /undef _chkaff_iron_skin%;\
    /undef _chkaff_steel_skeleton%;\
    /undef _chkaff_barkskin%;\
    /undef _chkaff_frenzy%;\
    /undef _chkaff_heighten_senses%;\
    /undef _chkaff_infravision%;\
    /undef _chkaff_iron_monk