Label.tf - Revision history

Sulfar: Adds -s0 to the /eval we do on exit, no substitution needed

2008-11-08T09:35:08Z

Adds -s0 to the /eval we do on exit, no substitution needed

Sulfar: Cleaning till it shines...

2008-11-08T09:31:42Z

Cleaning till it shines...

Sulfar at 04:20, 2 November 2008

2008-11-02T04:20:32Z

Sulfar at 04:19, 2 November 2008

2008-11-02T04:19:48Z

Sulfar: anchored the regexp trigger

2008-10-21T15:46:10Z

anchored the regexp trigger

Sulfar: small bugfix

2008-10-19T14:40:13Z

small bugfix

Sulfar: bugfix

2008-10-13T14:14:42Z

bugfix

Sulfar: seperated identify, spams less, is pluggable

2008-10-11T03:58:55Z

seperated identify, spams less, is pluggable

Show changes

Sulfar: /label grabs information from identify and labels an item

2008-09-17T03:02:52Z

/label grabs information from identify and labels an item

New page

To see the results without actually labeling just use "/label <item>" while not standing at Edmuntrillion the ent. When you're confident, go to the ent and do something like "remove all.acitem" and "/for c 1 16 /label %c.acitem" ;)
<BR><BR>
Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

Probable issue: If your identify lag is less than half a second the script will mess up.

<pre>
; Label.tf

;Current label format:
;
;armor: l<level> b<base> [<enchant>] [<etch>]
;weapon: l<level> <min>-<avg>-<max> <hr>/<dr> w<weight> [<etch>]
;bow: l<level> <min>-<avg>-<max> [<hr>hr] [ds<drawstrength>] [<etch>]
;container: l<level> c<capacity> w<weight> [<etch>]

/echo -aCyellow %% /label <item> Label item

/def -i label_init_vars = \
/set label_keyword=%;\
/set label_string=%;\
/set id_etch=%;\
/set id_weight=%;\
/set id_value=%;\
/set id_level=%;\
/set id_object_type=%;\
/set id_base_armor=%;\
/set id_enchant_armor=%;\
/set id_draw_strength=%;\
/set id_hr=%;\
/set id_dr=%;\
/set id_enchant_weapon=%;\
/set id_enchant_bow=%;\
/set id_dam_min=%;\
/set id_dam_max=%;\
/set id_dam_avg=%;\
/set id_container_capacity=%;\
/set _do_label_pid=

/label_init_vars

/def -i label = \
say %%% Identifying: %1%;\
c identify %1

/def -i -p900 -F -mregexp -t"You say '%% Identifying: ([^ ]+)'" label_keyword = \
/label_init_vars%;\
/set labeling 1%;\
/set label_keyword %{P1}%;\
/repeat -0.5 1 /do_label%;\
/set _do_label_pid=%?

/def -i -p900 -F -E(labeling) -t"You failed your identify due to lack of concentration!" id_failed = \
/@test _do_label_pid & (kill(_do_label_pid), _do_label_pid:=0)%;\
say %%% I lost my concentration identifying %{label_keyword}! Retrying...%;\
/label %{label_keyword}

/def -i -p900 -F -mregexp -E(labeling) -t"Object '.+ ([^ ]+)' type ([^ ]+), extra flags.+etched." id_object_etched = \
/set id_object_type %{P2}%;\
/set id_etch %{P1}%;\

/def -i -p900 -F -mregexp -E(labeling) -t"Object '.+' type ([^ ]+), extra flags*" id_object = \
/set id_object_type %{P1}

/def -i -p900 -F -mregexp -E(labeling) -t"Weight ([^ ]+), value ([^ ]+), level ([^ ]+)." id_level = \
/set id_weight %{P1}%;\
/set id_value %{P2}%;\
/set id_level %{P3}

/def -i -p900 -F -mregexp -E(labeling) -t"Armor class is ([^ ]+)." id_base_armor = \
/set id_base_armor %{P1}

/def -i -p900 -F -mregexp -E(labeling) -t"Damage is ([^ ]+) to ([^ ]+) $average ([^ ]+)$." id_dam = \
/set id_dam_min %{P1}%;\
/set id_dam_max %{P2}%;\
/set id_dam_avg %{P3}

/def -i -p900 -F -mregexp -E(labeling) -t"'enchant armor 'Modifies armor class by ([^ ]+) continuous." id_enchant_armor = \
/set id_enchant_armor %{P1}

/def -i -p900 -F -mregexp -E(labeling) -t" Modifies damage roll by ([^ ]+) continuous." id_dr = \
/set id_dr %{P1}
/def -i -p900 -F -mregexp -E(labeling) -t" Modifies hit roll by ([^ ]+) continuous." id_hr = \
/set id_hr %{P1}

/def -i -p900 -F -mregexp -E(labeling) -t"'enchant weapon 'Modifies damage roll by ([^ ]+) continuous." id_enchant_weapon = \
/set id_enchant_weapon %{P1}

/def -i -p900 -F -mregexp -E(labeling) -t"'enchant bow 'Modifies hit roll by ([^ ]+) continuous." id_enchant_bow = \
/set id_enchant_bow %{P1}

/def -i -p900 -F -mregexp -E(labeling) -t"Draw strength is ([^ ]+)." id_enchant_draw_strength = \
/set id_draw_strength %{P1}

/def -i -p900 -F -mregexp -E(labeling) -t"Capacity is ([^ ]+) lbs." id_container_capacity = \
/set id_container_capacity %{P1}

/def -i do_label = \
/if (regmatch ("weapon", id_object_type))\
/set label_string l%{id_level}%;\
/set label_string %{label_string} %{id_dam_min}-%{id_dam_avg}-%{id_dam_max}%;\
; /set label_string %{label_string} m%{id_dam_max}%;\
/if ((id_hr>0)|(id_dr>0))\
/set label_string %{label_string} $[id_hr+id_enchant_weapon]/$[id_dr+id_enchant_weapon]%;\
/endif%;\
/set label_string %{label_string} w%{id_weight}%;\
/elseif (regmatch ("bow", id_object_type))\
/set label_string l%{id_level}%;\
/set label_string %{label_string} %{id_dam_min}-%{id_dam_avg}-%{id_dam_max}%;\
/if (id_hr>0)\
/set label_string %{label_string} $[id_hr+id_enchant_bow]hr%;\
/endif%;\
/if (id_draw_strength !~ "") \
/set label_string %{label_string} ds%{id_draw_strength}%;\
/endif%;\
/elseif (regmatch ("armor", id_object_type))\
/set label_string l%{id_level}%;\
/set label_string %{label_string} b%{id_base_armor}%;\
/if (id_enchant_armor<0) \
/set label_string %{label_string} %{id_enchant_armor}%;\
/endif%;\
/elseif (regmatch ("container", id_object_type))\
/set label_string l%{id_level}%;\
/set label_string %{label_string} c%{id_container_capacity}%;\
/set label_string %{label_string} w%{id_weight}%;\
/endif%;\
/if (id_etch !~ "") \
/set label_string %{label_string} %{id_etch}%;\
/endif%;\
/if (regmatch ("armor|weapon|container|bow", id_object_type))\
say %%% Labeling %{label_keyword} %{label_string}%;\
label %{label_keyword} %{label_string}%;\
/elseif (regmatch ("trash|treasure|key", id_object_type)) \
say %%% I do not label %{label_keyword} of type %{id_object_type}.%;\
/else say %%% I have no idea how to label %{label_keyword}, sorry.%;\
/endif%;\
/set labeling 0%;\
/label_init_vars
</pre>

[[Category: TinyFugue Scripting]]

@@ Line 86: / Line 86: @@
          /unset label_post%;\
          /unset label_keyword%;\
-         /if (_post !~ "") /eval %{_post}%; /endif
+         /if (_post !~ "") /eval -s0 %{_post}%; /endif
 </pre>
 [[Category: TinyFugue Scripting]]

@@ Line 15: / Line 15: @@
 <pre>
 ;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''
 /loaded __SULFAR__/label.tf
@@ Line 56: / Line 55: @@
          /verbose -o%{verbosity_label} -l2 - -aCyellow %%% /%0: Compiling label string and labeling.%;\
          /let label_string=%;\
          /if (regmatch ("armor|weapon|bow|container|light|treasure", identify_type))\
-                 /if (identify_type =~ "armor")\
+                /let label_string l%{identify_level}%;\
-                        /let label_string l%{identify_level}%;\
+                 /if (identify_type =~ "armor") \
                          /let label_string %{label_string} b%{identify_armor_class}%;\
-                         /if (identify_enchant_armor<0) \
+                         /if (identify_enchant_armor < 0) \
                                  /let label_string %{label_string} %{identify_enchant_armor}%;\
                          /endif%;\
-                 /elseif (identify_type =~ "weapon")\
+                 /elseif (identify_type =~ "weapon") \
                          /let label_string %{label_string} %{identify_dam_min}-%{identify_dam_avg}-%{identify_dam_max}%;\
                          /let label_string %{label_string} $[identify_hr+identify_enchant_weapon]/$[identify_dr+identify_enchant_weapon]%;\
                          /let label_string %{label_string} w%{identify_weight}%;\
-                 /elseif (identify_type =~ "bow")\
+                 /elseif (identify_type =~ "bow") \
                          /let label_string %{label_string} %{identify_dam_min}-%{identify_dam_avg}-%{identify_dam_max}%;\
                          /if (identify_draw_strength !~ "") \
@@ Line 75: / Line 73: @@
                          /endif%;\
                          /let label_string %{label_string} $[identify_hr+identify_enchant_bow]hr%;\
-                 /elseif (identify_type =~ "container")\
+                 /elseif (identify_type =~ "container") \
                          /let label_string %{label_string} c%{identify_capacity}%;\
                          /let label_string %{label_string} w%{identify_weight}%;\
                  /endif%;\
                  /if (identify_etch !~ "") \
@@ Line 89: / Line 84: @@
          /else /verbose -o%{verbosity_label} -l1 - -aCcyan %%% /%0: I have no idea how to label %{label_keyword} of type %{identify_type}, sorry.%;\
          /endif%;\
-         /if (label_post !~ "") /eval %{label_post}%; /endif
+        /unset label_post%;\
 </pre>
 [[Category: TinyFugue Scripting]]

← Older revision		Revision as of 04:20, 2 November 2008
Line 10:		Line 10:


−	To use this script you'll need [[verbose.tf]], [[identify.tf]] and [[prompt.tf]. The identify script tries to use [[regen.tf]] if you're out of mana, but you dont really need that for the label stuff. You should have TINYPREFIX set in your config file, pointing at the directory with tf scripts like	+	To use this script you'll need [[verbose.tf]], [[identify.tf]] and [[prompt.tf]]. The identify script tries to use [[regen.tf]] if you're out of mana, but you dont really need that for the label stuff. You should have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
	<pre>/set TINYPREFIX=~/tinyfugue/</pre>		<pre>/set TINYPREFIX=~/tinyfugue/</pre>

@@ Line 3: / Line 3: @@
 New version:
 * kinda supports treasure/light
 * produces less spam in the room, it uses a get instead of a say to grab the keyword
 * implements a -x<command on exit> option much like the identify script to make it useful for other scripts.
 * fixes a minor bug, hr/dr enchants didn't make it into the label if the item was 0/0 by itself.  Now it'll just add hr/dr no matter what.  Also, draw strength shows up in the label.
 You should have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
 <pre>/set TINYPREFIX=~/tinyfugue/</pre>
 <pre>

@@ Line 50: / Line 50: @@
 ;That's ok because the last identify comes after this trigger and sets
 ;  identify_grab to 0 anyways.
-/def -i -p900 -F -mregexp -t"I see no ([^ ]+)labeleok here." label_keyword = \
+/def -i -p900 -F -mregexp -t"^I see no ([^ ]+)labeleok here.$" label_keyword = \
          /set identify_grab 1%;\
          /set label_keyword %{P1}%;\

@@ Line 8: / Line 8: @@
 * produces less spam in the room, it uses a get instead of a say to grab the keyword
 * implements a -x<command on exit> option much like the identify script to make it useful for other scripts.
-* fixes a minor bug, hr/dr enchants didn't make it into the label if the item was 0/0 by itself.  Now it'll just add hr/dr no matter what.
+* fixes a minor bug, hr/dr enchants didn't make it into the label if the item was 0/0 by itself.  Now it'll just add hr/dr no matter what.  Also, draw strength shows up in the label.
 You should have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
@@ Line 31: / Line 31: @@
 ;armor:       l<level> b<base> [<enchant>] [<etch>]
 ;weapon:      l<level> <min>-<avg>-<max> <hr>/<dr> w<weight> [<etch>]
-;bow:         l<level> <min>-<avg>-<max> <hr>hr [ds<drawstrength>] [<etch>]
+;bow:         l<level> <min>-<avg>-<max> [ds<drawstrength>] <hr>hr [<etch>]
 ;container:   l<level> c<capacity> w<weight> [<etch>]
 ;light:       l<level> [<etch>]
@@ Line 40: / Line 40: @@
 ;see verbose.tf
 /verbose -s-100 label
 /def -i label = \
@@ Line 58: / Line 52: @@
 /def -i -p900 -F -mregexp -t"I see no ([^ ]+)labeleok here." label_keyword = \
          /set identify_grab 1%;\
          /set label_keyword %{P1}%;\
          /verbose -o%{verbosity_label} -l2 - -aCyellow %%% /%0: Got keyword, %{label_keyword}
@@ Line 64: / Line 57: @@
 /def -i label_identify_done = \
          /verbose -o%{verbosity_label} -l2 - -aCyellow %%% /%0: Compiling label string and labeling.%;\
-         /label_compile%;\
+         /let label_string=%;\
-         /do_label%;\
+         /if (regmatch ("armor|weapon|bow|container|light|treasure", identify_type))\
-        /if (label_post !~ "") /eval %{label_post}%; /endif
+                /if (identify_type =~ "armor")\
+                        /let label_string l%{identify_level}%;\
-/def -i label_compile = \
+                        /let label_string %{label_string} b%{identify_armor_class}%;\
-        /verbose -o%{verbosity_label} -l2 - -aCyellow %%% /%0: Compiling label string... %;\
+                        /if (identify_enchant_armor<0) \
-        /if (identify_type =~ "armor")\
+                                /let label_string %{label_string} %{identify_enchant_armor}%;\
-                /set label_string l%{identify_level}%;\
+                        /endif%;\
-                /set label_string %{label_string} b%{identify_armor_class}%;\
+                /elseif (identify_type =~ "weapon")\
-                 /if (identify_enchant_armor<0) \
+                        /let label_string l%{identify_level}%;\
-                         /set label_string %{label_string} %{identify_enchant_armor}%;\
+                        /let label_string %{label_string} %{identify_dam_min}-%{identify_dam_avg}-%{identify_dam_max}%;\
                  /endif%;\
-        /elseif (identify_type =~ "weapon")\
+                 /if (identify_etch !~ "") \
-                /set label_string l%{identify_level}%;\
+                         /let label_string %{label_string} %{identify_etch}%;\
                  /endif%;\
                  /verbose -o%{verbosity_label} -l1 - -aCcyan %%% /%0: Labeling %{label_keyword} %{label_string}%;\
                  label %{label_keyword} %{label_string}%;\
-         /else /verbose -o%{verbosity_label} -l1 - -aCyellow %%% /%0: I have no idea how to label %{label_keyword} of type %{identify_type}, sorry.%;\
+         /else /verbose -o%{verbosity_label} -l1 - -aCcyan %%% /%0: I have no idea how to label %{label_keyword} of type %{identify_type}, sorry.%;\
-         /endif
+         /endif%;\
+        /if (label_post !~ "") /eval %{label_post}%; /endif
 </pre>
 [[Category: TinyFugue Scripting]]

@@ Line 8: / Line 8: @@
 * produces less spam in the room, it uses a get instead of a say to grab the keyword
 * implements a -x<command on exit> option much like the identify script to make it useful for other scripts.
 You should have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
@@ Line 16: / Line 17: @@
 <pre>
 ;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''
 ; label.tf
@@ Line 31: / Line 31: @@
 ;armor:       l<level> b<base> [<enchant>] [<etch>]
 ;weapon:      l<level> <min>-<avg>-<max> <hr>/<dr> w<weight> [<etch>]
-;bow:         l<level> <min>-<avg>-<max> [<hr>hr] [ds<drawstrength>] [<etch>]
+;bow:         l<level> <min>-<avg>-<max> <hr>hr [ds<drawstrength>] [<etch>]
 ;container:   l<level> c<capacity> w<weight> [<etch>]
 ;light:       l<level> [<etch>]
 ;treasure     l<level> [<etch>]
 ;Set to 0-3 to override system verbosity level
@@ Line 80: / Line 79: @@
                  /set label_string l%{identify_level}%;\
                  /set label_string %{label_string} %{identify_dam_min}-%{identify_dam_avg}-%{identify_dam_max}%;\
-                 /if ((identify_hr>0)|(identify_dr>0))\
+                 /set label_string %{label_string} $[identify_hr+identify_enchant_weapon]/$[identify_dr+identify_enchant_weapon]%;\
                  /set label_string %{label_string} w%{identify_weight}%;\
          /elseif (identify_type =~ "bow")\
                  /set label_string l%{identify_level}%;\
                  /set label_string %{label_string} %{identify_dam_min}-%{identify_dam_avg}-%{identify_dam_max}%;\
-                 /if (identify_hr>0)\
+                 /set label_string %{label_string} $[identify_hr+identify_enchant_bow]hr%;\
                  /if (identify_ds !~ "") \
                          /set label_string %{label_string} ds%{identify_ds}%;\