;; Simple Assess weakness trigs.
;;
;; Usage:
;; To turn party reporting on: /as_on
;; To turn party reporting off: /as_off
;; To privately echo latest assesment: /print_as
;; To party say latest assesment: /party_as
;;
;; (c) Jiha4d, January 22nd, 2016

/def as_on=/set report_as=1
/def as_off=/set report_as=0

/set report_as=1
/def reset_as=/set as_target=''%;/set as_0=[0/7]: %;/set as_1=[1/7]: %;/set as_2=[2/7]: %;/set as_3=[3/7]: %;/set as_4=[4/7]: %;/set as_5=[5/7]: %;/set as_6=[6/7]: %;/set as_7=[7/7]:

/def -mregexp -Fp10 -t'^You learn that ([A-z \']*) is ([A-z \',]*).$' assess_weakness = /reset_as%;/set as_target=%P1%;/if (report_as==1) /repeat -1 1 /party_as%;/endif

/def -mregexp -Fp10 -t'^ ..is ([A-z \']*) to ([A-z \']*).$' assess_weakness1 = /if (%P1=~"completely vulnerable") /eval /set as_0=$[strcat(as_0, ' ', %P2)]%;/elseif (%P1=~"very vulnerable") /eval /set as_1=$[strcat(as_1, ' ', %P2)]%;/elseif (%P1=~"vulnerable") /eval /set as_2=$[strcat(as_2, ' ', %P2)]%;/elseif (%P1=~"susceptible") /eval /set as_3=$[strcat(as_3, ' ', %P2)]%;/elseif (%P1=~"somewhat susceptible") /eval /set as_4=$[strcat(as_4, ' ', %P2)]%;/elseif (%P1=~"barely susceptible") /eval /set as_5=$[strcat(as_5, ' ', %P2)]%;/elseif (%P1=~"immune") /eval /set as_6=$[strcat(as_6, ' ', %P2)]%;/elseif (%P1=~"invulnerable") /eval /set as_7=$[strcat(as_7, ' ', %P2)]%;/endif

/def print_as = /eval /echo Assess weakness: $[as_target]%;/if (strlen(as_0)>7) /eval /echo $[as_0]%;/endif%;/if (strlen(as_1)>7) /eval /echo $[as_1]%;/endif%;/if (strlen(as_2)>7) /eval /echo $[as_2]%;/endif%;/if (strlen(as_3)>7) /eval /echo $[as_3]%;/endif%;/if (strlen(as_4)>7) /eval /echo $[as_4]%;/endif%;/if (strlen(as_5)>7) /eval /echo $[as_5]%;/endif%;/if (strlen(as_6)>7) /eval /echo $[as_6]%;/endif%;/if (strlen(as_7)>7) /eval /echo $[as_7]%;/endif

/def party_as = /eval !p' Assess weakness: $[as_target]%;/if (strlen(as_0)>7) /eval !p' $[as_0]%;/endif%;/if (strlen(as_1)>7) /eval !p' $[as_1]%;/endif%;/if (strlen(as_2)>7) /eval !p' $[as_2]%;/endif%;/if (strlen(as_3)>7) /eval !p' $[as_3]%;/endif%;/if (strlen(as_4)>7) /eval !p' $[as_4]%;/endif%;/if (strlen(as_5)>7) /eval !p' $[as_5]%;/endif%;/if (strlen(as_6)>7) /eval !p' $[as_6]%;/endif%;/if (strlen(as_7)>7) /eval !p' $[as_7]%;/endif