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)))\