/set eqstat_show 1

/alias eqstat /toggle eqstat_show%;/echo -aBCgreen Numbers on: %{eqstat_show}
/def -i eqstat_error = /echo -aBCred ERROR! Report to Noose!

;/def -mregexp -F -t"^([^:]*)(.*) seems to vibrate rapidly." eqstat_getname2 = \
;	/unset str_eq%;/set str_eq $[strcat(%P1," :")]

/def -mregexp -F -t"^You start to inspect your catalog for (.*)." eqstat_getname1 = \
	/unset str_eq%;/set str_eq $[strcat(%P1," :")]

/def -mregexp -F -t"^This item loses its magical powers (.*)." eqstat_getglow = \
	/set str_eq $[strcat(str_eq," glow(",%P1,")")]

/def -t'You managed to get following additional information:' additional = \
	/test $[def("-mregexp -F -t'' get_line = /eqstat_testline %*")]

/def eqstat_testline = /if (%*=~"") /undef get_line%;/else /Set str_eq $[strcat(str_eq," ",%*)]%;/endif

/def -i eqstat_teststatamt = \
	/if (%{*}=~"unnoticably") /return "1"%;\
	/elseif (%{*}=~"pathetically") /return "2"%;\
	/elseif (%{*}=~"pitifully") /return "3"%;\
	/elseif (%{*}=~"a tiny bit") /return "4"%;\
	/elseif (%{*}=~"poorly") /return "5"%;\
	/elseif (%{*}=~"a bit") /return "6"%;\
	/elseif (%{*}=~"slightly") /return "7"%;\
	/elseif (%{*}=~"somewhat") /return "8"%;\
	/elseif (%{*}=~"noticably") /return "9"%;\
	/elseif (%{*}=~"adequately") /return "10"%;\
	/elseif (%{*}=~"an average amount") /return "11"%;\
	/elseif (%{*}=~"a good amount") /return "12"%;\
	/elseif (%{*}=~"nicely") /return "13"%;\
	/elseif (%{*}=~"strongly") /return "14"%;\
	/elseif (%{*}=~"impressively") /return "15"%;\
	/elseif (%{*}=~"superbly") /return "16"%;\
	/elseif (%{*}=~"tremendously") /return "17"%;\
	/elseif (%{*}=~"incredibly") /return "18"%;\
	/elseif (%{*}=~"impossibly much") /return "19"%;\
	/elseif (%{*}=~"like a god") /return "20"%;\
	/elseif (%{*}=~"too much") /return "22"%;\
	/elseif (%{*}=~"ILLEGALLY") /return ">25"%;\
	/else /eqstat_error%;\
	/endif

/def -i eqstat_testmodifier = \
	/if (%{*}=~"decreases") /return "-"%;\
	/elseif (%{*}=~"increases") /return "+"%;\
	/elseif (%{*}=~"bonus") /return "+"%;\
	/elseif (%{*}=~"penalty") /return "-"%;\
	/else /eqstat_error%;\
	/endif

/def -i eqstat_teststat = \
	/if (%{*}=~"strength") /return "str"%;\
	/elseif (%{*}=~"constitution") /return "con"%;\
	/elseif (%{*}=~"dexterity") /return "dex"%;\
	/elseif (%{*}=~"intelligence") /return "int"%;\
	/elseif (%{*}=~"wisdom") /return "wis"%;\
	/elseif (%{*}=~"charisma") /return "cha"%;\
	/elseif (%{*}=~"spellpoint") /return "spr"%;\
	/elseif (%{*}=~"hitpoint") /return "hpr"%;\
	/else /eqstat_error%;\
	/endif

/def -i eqstat_testregen = \
	/if (%{*}=~"unnoticably") /return "1-2"%;\
	/elseif (%{*}=~"pathetically") /return "3-4"%;\
	/elseif (%{*}=~"pitifully") /return "5-6"%;\
	/elseif (%{*}=~"a tiny bit") /return "7-8"%;\
	/elseif (%{*}=~"poorly") /return "9-10"%;\
	/elseif (%{*}=~"a bit") /return "11-12"%;\
	/elseif (%{*}=~"slightly") /return "13-14"%;\
	/elseif (%{*}=~"somewhat") /return "15-16"%;\
	/elseif (%{*}=~"noticably") /return "17-18"%;\
	/elseif (%{*}=~"adequately") /return "19-20"%;\
	/elseif (%{*}=~"an average amount") /return "21-22"%;\
	/elseif (%{*}=~"a good amount") /return "23-24"%;\
	/elseif (%{*}=~"nicely") /return "25-26"%;\
	/elseif (%{*}=~"strongly") /return "27-28"%;\
	/elseif (%{*}=~"impressively") /return "29-30"%;\
	/elseif (%{*}=~"superbly") /return "31-32"%;\
	/elseif (%{*}=~"incredibly") /return "33-34"%;\
	/elseif (%{*}=~"impossibly much") /return "35-36"%;\
	/elseif (%{*}=~"like a god") /return "37-38"%;\
	/elseif (%{*}=~"too much") /return "39-40"%;\
	/elseif (%{*}=~"ILLEGALLY") /return ">40"%;\
	/else /eqstat_error%;\
	/endif

/def -i eqstat_testskillbonus = \
	/if (%{*}=~"tiny") /return "1-4%"%;\
	/elseif (%{*}=~"small") /return "5-9%"%;\
	/elseif (%{*}=~"decent") /return "10-14%"%;\
	/elseif (%{*}=~"nice") /return "15-19%"%;\
	/elseif (%{*}=~"great") /return "20-24%"%;\
	/else /eqstat_error%;\
	/endif

/def -i eqstat_testresistance = \
	/if (%{*}=~"a bit") /return "1-2%"%;\
	/elseif (%{*}=~"somewhat") /return "3-5%"%;\
	/elseif (%{*}=~"adequately") /return "6-8%"%;\
	/elseif (%{*}=~"strongly") /return "9-11%"%;\
	/elseif (%{*}=~"superbly") /return "12-14%"%;\
	/elseif (%{*}=~"unearthly") /return ">15%"%;\
	/else /eqstat_error%;\
	/endif

/def -mregexp -i -ag -t"^It has (.*) weapon class for its type \((.*) in general\)." eqstat_wc = \
	/if (eqstat_show=1) \
		/echo WC: %P1 (%P2)%;\
	/else \
		/echo %*%;\
	/endif%;\
		/set str_eq $[strcat(str_eq," wc(",%P1,"/",%P2,")")]%;\

/def -mregexp -i -ag -t"^It has (.*) armour class for its type \((.*) in general\)." eqstat_ac = \
	/if (eqstat_show=1) \
		/echo AC: %P1 (%P2)%;\
	/else \
		/echo %*%;\
	/endif%;\
		/set str_eq $[strcat(str_eq," ac(",%P1,"/",%P2,")")]%;\

/def -mregexp -i -ag -t"^It does (fire|cold|asphyxiation|acid|poison|magical|electric|psionic) damage (.*)." eqstat_pref = \
	/if (eqstat_show=1) \
		/echo pref: %P1 (%P2)%;\
	/else \
		/echo %*%;\
	/endif%;\
		/set str_eq $[strcat(str_eq," pref(",%P1,"/",%P2,")")]

/def -mregexp -i -ag -t"^It (increases|decreases) damage (.*)." eqstat_dam = \
	/if (eqstat_show=1) \
		/echo DAM: $[eqstat_testmodifier(%P1)]%P2%;\
	/else \
		/echo %*%;\
	/endif%;\
		/set str_eq $[strcat(str_eq," ",eqstat_testmodifier(%P1),"dam(",%P2,")")]

/def -mregexp -i -ag -t"^It (increases|decreases) hit chance (.*)." eqstat_hit = \
	/if (eqstat_show=1) \
		/echo HIT: $[eqstat_testmodifier(%P1)]%P2%;\
	/else \
		/echo %*%;\
	/endif%;\
		/set str_eq $[strcat(str_eq," ",eqstat_testmodifier(%P1),"hit(",%P2,")")]%;\

/def -mregexp -i -ag -t"^It (increases|decreases) user's (strength|dexterity|constitution|intelligence|wisdom|charisma) (.*)." eqstat_stat = \
	/if (eqstat_show=1) \
		/echo $[eqstat_teststat(%P2)] $[eqstat_testmodifier(%P1)]$[eqstat_teststatamt(%P3)]%;\
	/else \
		/echo %*%;\
	/endif%;\
		/set str_eq $[strcat(str_eq," ",eqstat_testmodifier(%P1),eqstat_teststatamt(%P3),eqstat_teststat(%P2))]

/def -mregexp -i -ag -t"^It (increases|decreases) user's (spellpoint|hitpoint) regeneration (.*)." eqstat_regen = \
	/if (eqstat_show=1) \
		/echo $[eqstat_teststat(%P2)] $[eqstat_testmodifier(%P1)]$[eqstat_testregen(%P3)]%;\
	/else \
		/echo %*%;\
	/endif%;\
		/set str_eq $[strcat(str_eq," ",eqstat_testmodifier(%P1),eqstat_testregen(%P3),eqstat_teststat(%P2))]

/def -mregexp -i -ag -t"^It (increases|decreases) user's (fire|cold|asphyxiation|acid|poison|magical|electric|psionic|physical) resistance (.*)." eqstat_res = \
	/if (eqstat_show=1) \
		/echo RES: %P2 $[eqstat_testmodifier(%P1)]$[eqstat_testresistance(%P3)]%;\
	/else \
		/echo %*%;\
	/endif%;\
		/set str_eq $[strcat(str_eq," ",eqstat_testmodifier(%P1),eqstat_testresistance(%P3),%P2,"res")]


/def -mregexp -i -ag -t"^It gives (.*) (bonus|penalty) to user's (.*)." eqstat_skillbonus = \
	/if (eqstat_show=1) \
		/echo %P3: $[eqstat_testmodifier(%P2)]$[eqstat_testskillbonus(%P1)]%;\
	/else \
		/echo %*%;\
	/endif%;\
		/set str_eq $[strcat(str_eq," ",eqstat_testmodifier(%P2),eqstat_testskillbonus(%P1),%P3)]

/def eqstat_remove = \
/undef eqstat_stat%;\
/undef eqstat_regen%;\
/undef eqstat_wc%;\
/undef eqstat_ac%;\
/undef eqstat_pref%;\
/undef eqstat_dam%;\
/undef eqstat_hit%;\
/undef eqstat_skillbonus%;\
/undef eqstat_res%;\
/undef eqstat_teststatamt%;\
/undef eqstat_teststat%;\
/undef eqstat_testmodifier%;\
/undef eqstat_testregen%;\
/undef eqstat_testskillbonus%;\
/undef eqstat_testresistance