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

;Paint all of the affects list green
/def -i -p999 -F -PCgreen -mregexp -t"^Spell: '.*" green_affects
;then some yellow
/def -i -p998 -F -PCyellow -mregexp -t"^Spell: '(steel|iron|bark|pass|fly|water|heigh|conc).*" yellow_affects
;and sanc white
/def -i -p998 -F -PCwhite -mregexp -t"^Spell: '(sanc).*" white_affects

;You can "/aff sanc" and it'll only show the sanctuary line
;or stack, "/aff sanc|fren"
/def -i aff = \
    /def -i -t"You are affected by:" _aff_affected = \
        /def -p900 -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 _aff_spell _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 _sick_poison _sick_toxin _sick_biotoxin _sick_venom \
                _sick_virus _sick_plague _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 = \
    /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| heighten_senses%;\
    /set chkaff 1%;\
    affects

/def -i -p100 -F -E(chkaff) -t"You are affected by:" _chkaff_affected = \
        /repeat -0:00:0.3 1 \
            /set chkaff 0%%;\
            gtell %%%% I am *not* affected by %%chkaff_list

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