Mercurial > hg > batmud > ggrtf
changeset 1368:981685fe8dcc
Fix some regexps.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 25 Mar 2011 15:33:09 +0200 |
parents | 79fc9fd2626a |
children | 80627c882e68 |
files | gm-alchemist.tf |
diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/gm-alchemist.tf Tue Mar 22 19:38:30 2011 +0200 +++ b/gm-alchemist.tf Fri Mar 25 15:33:09 2011 +0200 @@ -49,7 +49,8 @@ soapwort_spinach_strawberry \ sweetflag_thistle_tomato \ turnip_vineseed_waterlily \ - wolfbane_wormwood_yarrow + wolfbane_wormwood_yarrow \ + j_jimsonweed /set galch_organs=antenna|arm|beak|bladder|brain|ear|eye|foot|gill|heart|horn|kidney|leg|liver|lung|nose|paw|snout|spleen|stomach|tail|tendril|wing @@ -168,7 +169,7 @@ /gdef -i -mregexp -Ealch_st -aBCred -t"^You do not seem to have any '([a-z_ -]+)' on you\.$" galch_has_no1 =\ /galch_return -/gdef -i -mregexp -Ealch_st -aBCred -t"^ \.\. but you do not (seem to have any '[a-z_ -]+' on you\.|have enough '[a-z_ -]+' left\.)" galch_has_no2 =\ +/gdef -i -mregexp -Ealch_st -aBCred -t"^ \.\. but you do not (seem to have any '[a-z_ -]+' on you|have enough '[a-z_ -]+' left)\." galch_has_no2 =\ /galch_return /def -i galch_interrupted =\ @@ -222,7 +223,7 @@ /msq Added near-match '%{_match}' (%{alch_mineral}, %{alch_organ}, %{alch_herb}) to database.%;\ /endif -/gdef -i -F -aCgreen -mregexp -t"^Flask '([a-z_ ]+)' accepted\." galch_submit_match =\ +/gdef -i -F -aCgreen -mregexp -t"^Flask '([a-z_ -]+)' accepted\." galch_submit_match =\ /set alch_close=1%;\ /let _match=$[replace(" ","_",{P1})]%;\ /if (galch_update(strcat("!", _match)))\