AvatarWiki - User contributions [en]

Enchantbag.tf

2008-11-25T09:07:49Z

Sulfar: adds link to http directory with the scripts, and wget line to get them all

<h4>Features</h4>
So you have a pile of armor to enchant. And a couple of weapons and bows to go with that. Well you toss it all in fodderbag, run this script, and collect the results from upgradebag, sparebag or wastebag. Or if you don't configure it with your current gear, you can collect the items from brillbag, shimmerbag, wastebag. It accepts some options:

* -l enchanting with an unshadowed lord
* -w<level> level we want to wear the item at
* -x<command> execute <command> when done

The script will use "get 1. fodderbag", identifies 1., and from then on it'll use the keywords it got from identify. It will check the names of
* the item you got from the fodderbag
* the first item in your inventory
* the name it gets by looking at the keywords it got from identify
If they're not all the same it won't enchant the item.

It sets config +blind, +combine, -condition, +nosummon, +notake, +nodisturb and filter +spellother to decrease the chance of anything/anyone messing up the script. That should make sure the triggers don't respond on people cutting/pasting brills to channels, the triggers work on you inventory, your regen is not interrupted and the triggers won't respond to other players enchants. Config +blind doesn't affect grtz channel but that is still covered by safechannel.tf. The script uses config.tf to store/restore your configuration.

<h4>Example config file</h4>
The script will try to load an enchantbag.gear.tf file with a configuration of gear. It's simply a list of variables, like

<pre>
/set enchantbag_hero_essence_amorphous_orb 11dr 10dr
/set enchantbag_hero_hero_heroes_shield b12 b12
/set enchantbag_hero_bow_sliver_glowing_moonlight_arc 21hr
/set enchantbag_hero_lemans_family_seal_talisman b12 -9 b12 -6

;To reuse a value for an equivalent item, you could
/eval /set enchantbag_hero_mother_pearl %{enchantbag_hero_lemans_family_seal_talisman}

;Lord stuff
/set enchantbag_lord_essence_amorphous_orb 15dr 13dr
</pre>

To make the variable name, you'd append "enchantbag_" with either "hero_", "lord_", or "lowmort_", then append that with the keywords you get from identify, remove "weird" characters (anything not in [a-zA-Z0-9 ]) and turn spaces into underscores.

The first value is the current gear, anything above that will go into upgradebag. The second value is the lowest spare that should go into sparebag. The script currently treats spares kinda aggressively, it'll try to enchant a 12 -3 spare to a 12 -6 spare if the level permits, even if you have 12 -3 as lowest spare to keep. Perhaps I should switch that around, I don't know yet. You can omit the second value, it'll then use the default ranges for spares.

If you're enchanting armor and want to use the configuration, you'll also need to add the item to [[identify.tf]] to know the multiplier for the armor class. A bunch of them are already there.

<h4>Stuff you need</h4>
This script uses [[config.tf]], [[verbose.tf]], [[enchant.tf]] and [[identify.tf]] so you'll want those if you want to use this script. Config.tf and identify.tf use [[prompt.tf]], and enchant.tf uses [[regen.tf]] and [[safechannel.tf]] so get those while you're at it. <b>If you update this script from an older version, please update these scripts as well,</b> or strange things might happen, or it might not work at all. You don't need to cut and paste them all, you can download them from [http://drieman.dyndns.org/avatar-tf/ here]. People with wget (mostly linux users) can just open a terminal window, cd to their tf scripts directory and cut'n'past this all at once:
<pre>
wget http://drieman.dyndns.org/avatar-tf/enchantbag.tf \
http://drieman.dyndns.org/avatar-tf/enchant.tf \
http://drieman.dyndns.org/avatar-tf/config.tf \
http://drieman.dyndns.org/avatar-tf/verbose.tf \
http://drieman.dyndns.org/avatar-tf/identify.tf \
http://drieman.dyndns.org/avatar-tf/prompt.tf \
http://drieman.dyndns.org/avatar-tf/regen.tf \
http://drieman.dyndns.org/avatar-tf/safechannel.tf
</pre>

You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

You'll also need some bags, look at the comments in the script for a list of etches and christens.

<h4>Examples</h4>
Enchant a pile of stuff with a hero for hero tier:
<pre>/enchantbag</pre>

Enchant a pile of mother pearls with an unshadowed lord but for hero tier:
<pre>/enchantbag -l</pre>

Enchant a pile of amorphous orbs or doom shards for lord and sleep afterwards:
<pre>/enchantbag -l -w125 -xsleep</pre>

If you'd want to see all debug spam it produces, try
<pre>/verbose -s3</pre>
<h4>Disclaimer</h4>
I didn't test enchanting piles of lord eq. If you know any such piles please let me know where I can pick them up ;)

I'm guessing a hero level bow would raise 5 levels if you'd enchant it with a lord. I'm not sure. Also don't know why anybody would want to do that so I can't be bothered to check it. I did check all the other level increments.

I've used this script quite a number of times now and debugged it extensively. It works fine for me. However, if you were to vape your b12 -9 shield or heros, or blow your 13/13 hero level doom shard, I'll be more than happy to accept your bug report but will not accept any responsibility for the items. I guess keeping your inventory clean is the way to be 100% sure.

<h4>The script</h4>
<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/eval /require -q %{TINYPREFIX}verbose.tf
/eval /require -q %{TINYPREFIX}enchant.tf
/eval /require -q %{TINYPREFIX}config.tf

/echo -aCyellow %% /enchantbag Enchant all items in fodderbag and distribute results
/echo -aCyellow %% [-l] you're an unshadowed lord. Default: you're a hero
/echo -aCyellow %% [-w<level>] you wear the item at level <level>. Default 51.
/echo -aCyellow %% [-x<command>] execute <command> on exit

;etch christen
;fodderbag Fodderbag
;upgradebag Upgradebag
;sparebag Sparebag
;wastebag Wastebag
;brillbag Brillbag
;shimmerbag Shimmerbag
;
;Only the rename of the fodderbag matters, enchantbag_got_item triggers on it
;Use the same name or change the trigger to match your bag

;When the script exits it sets global var enchantbag_exit to
;ok enchantbag finished correctly with an empty fodderbag
;enchant_err we got an error code from enchant.tf
;no_fodderbag couldnt find the fodderbag
;wrong_name names didn't check out

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 enchantbag

;Range to use if we didn't set the lowest spare to keep in the config file
;Range includes the item in the gear, so if the armor spare range is 4 and the
;item in our gear is a 12 -9 lemans seal, the lowest upgrade would be b12 -10,
;and the spares could be b12 -7, b12 -8, b12 -9. If the level permits
;enchanting tho, the script *will* try to make a b12 -9 spare out of a b12 -6,
;or enchant a 12-9 spare to a 12-12 upgrade.
/set enchantbag_armor_spare_range=3
/set enchantbag_weapon_spare_range=2
/set enchantbag_bow_spare_range=3

;Load file with current gear
/set enchantbag_gear_file=enchantbag.gear.tf
/eval /set enchantbag_path=%{TINYPREFIX}
/eval /load -q %{enchantbag_path}%{enchantbag_gear_file}

;should NOT set enchantbag_post here
/def -i enchantbag_init = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0 initializing .... %;\
/set enchantbag=0%;\
/set enchantbag_name=%;\
/set enchantbag_name_check=0%;\
/set enchantbag_inv=0%;\
/set enchantbag_inv_name=%;\
/set enchantbag_level_increment=0%;\
/set enchantbag_enchant_count=0%;\
/set enchantbag_max_level=0%;\
/set enchantbag_fade=0%;\
/set enchantbag_shimmer=0%;\
/set enchantbag_brill=0%;\
/set enchantbag_vape=0%;\
/set enchantbag_item_known=0%;\
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/set enchantbag_exit=

/enchantbag_init

/def -i enchantbag = \
/enchantbag_init%;\
/set enchantbag=1%;\
/set enchantbag_enchanter_level=51%;\
/set enchantbag_wear_level=51%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aCcyan %%% /%0: Start processing bag.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Loading %{enchantbag_path}%{enchantbag_gear_file}.%;\
/load -q %{enchantbag_path}%{enchantbag_gear_file}%;\
/if (!getopts("lx:w#")) /return 0%; /endif%;\
/if (opt_l) /set enchantbag_enchanter_level 125%;/endif%;\
/if (opt_w) /set enchantbag_wear_level %{opt_w}%;/endif%;\
/set enchantbag_post %{opt_x}%;\
/config_store -senchantbag -x/enchantbag_config_done

/def -i enchantbag_config_done = \
/filter_store -senchantbag -x/enchantbag_filter_done

/def -i enchantbag_filter_done = \
config +blind%;\
config +combine%;\
config -condition%;\
config +nosummon%;\
config +notake%;\
config +nodisturb%;\
filter +spellother%;\
/enchantbag_next_item

/def -i enchantbag_next_item = \
/enchantbag_init%;\
/set enchantbag=1%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Getting next item from the fodderbag.%;\
get 1. fodderbag

;Bag empty. We're finished.
/def -i -E(enchantbag) -p799 -F -t"You see nothing like that in Fodderbag." enchantbag_empty = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Your fodderbag is empty. Exiting /enchantbag.%;\
/enchantbag_exit ok

;Wrong alt? Fodderbag in a bag?
/def -i -E(enchantbag) -p799 -F -t"I see no fodderbag here." enchantbag_no_fodderbag = \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% You are not carrying the fodderbag. Exiting /enchantbag.%;\
/enchantbag_exit no_fodderbag

;New item.
/def -i -E(enchantbag) -p799 -F -mregexp -t"^You get (.+) from Fodderbag.$" enchantbag_got_item = \
/set enchantbag_name %{P1}%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% Got %{enchantbag_name}. Going to identify it.%;\
/identify -x/enchantbag_identify_done 1.

/def -i enchantbag_identify_done = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Done identifying. Doing cross reference on name.%;\
/set enchantbag_name_check 1%;\
inv%;\
look "%{identify_object}"

/def -i -E(enchantbag_name_check) -p799 -t"You are carrying:" enchantbag_inv = \
/def -1 -mregexp -p900 -t"^(\$ ?[0-9]+\$| ) (\$[a-zA-Z]+\$ )\*([^\\[]+)( \\[.+)\*\$" _enchantbag_inv = \
/set enchantbag_inv_name=%%{P3}%%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%%% /%%0: First item in inventory is %%enchantbag_inv_name

/def -i -E(enchantbag_name_check) -mregexp -t"^You look at (.+) in your inventory...$" enchantbag_name_check = \
/let identify_name %{P1}%;\
/set enchantbag_name_check 0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Looking at %identify_object, we got: %identify_name%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: First item in inventory is %enchantbag_inv_name%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We got %enchantbag_name from the fodderbag.%;\
/if ((identify_name =~ enchantbag_name) & (identify_name =~ enchantbag_inv_name)) \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Names ok.%;\
/repeat -0.3 1 /enchantbag_processor%;\
/else \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Names mismatch. Exit. Messy inventory?%;\
/enchantbag_exit wrong_name%;\
/endif

/def -i enchantbag_processor = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Processing identify information.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: brill is %enchantbag_brill, shimmer is %enchantbag_shimmer, level is %identify_level.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: fade is %enchantbag_fade, vape is %enchantbag_vape, enchant_count is %enchantbag_enchant_count%;\
/if (identify_type =~ "armor") \
/enchantbag_pre_armor%;\
/elseif (identify_type =~ "weapon") \
/enchantbag_pre_weapon%;\
/elseif (identify_type =~ "bow") \
/enchantbag_pre_bow%;\
/endif%;\
/if (enchantbag_item_known) \
/if (enchantbag_upgrade) \
put "%{identify_object}" upgradebag%;\
save%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: An upgrade! Stashing... Next!%;\
/enchantbag_next_item%;\
/elseif (enchantbag_possible_upgrade) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A possible upgrade! Enchanting.%;\
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done "%{identify_object}"%;\
/elseif (enchantbag_possible_spare) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A possible spare! Enchanting.%;\
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done "%{identify_object}"%;\
/elseif (enchantbag_spare) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A spare! Stashing... Next!%;\
put "%{identify_object}" sparebag%;\
/enchantbag_next_item%;\
/else \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: This item goes to waste... Next!%;\
put "%{identify_object}" wastebag%;\
/enchantbag_next_item%;\
/endif%;\
/else \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: Item unknown. Using simple distribution method.%;\
/if (enchantbag_brill) \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into brillbag.%;\
put "%{identify_object}" brillbag%;\
/enchantbag_next_item%;\
/elseif (enchantbag_shimmer) \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into shimmerbag.%;\
put "%{identify_object}" shimmerbag%;\
/enchantbag_next_item%;\
/elseif (identify_level < enchantbag_max_level) \
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done "%{identify_object}"%;\
/else \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into wastebag.%;\
put "%{identify_object}" wastebag%;\
/enchantbag_next_item%;\
/endif%;\
/endif

/def -i enchantbag_enchant_done = \
/if (regmatch("^$|no_type|no_item|wrong_type", enchant_exit)) \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Enchant script exit status: %{enchant_exit}%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Exit enchantbag, enchant_err.%;\
/enchantbag_exit enchant_err%;\
/elseif (enchant_exit =~ "wrong_name") \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Enchant script exit status: %{enchant_exit}%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Rechecking names.%;\
/identify -x/enchantbag_identify_done 1.%;\
/elseif (enchant_exit =~ "vape") \
/verbose -o%{verbosity_enchantbag} -l2 - -aCred %%% /%0: Our item vaped... Next!%;\
/enchantbag_next_item%;\
/elseif (enchant_exit =~ "fade") \
/send get idontwanttoLID%;\
/test ++identify_level%;\
/set identify_enchant_armor 0%;\
/set identify_enchant_weapon 0%;\
/set identify_enchant_bow 0%;\
/set enchantbag_fade 1%;\
/set enchantbag_brill 0%;\
/set enchantbag_shimmer 0%;\
/set enchantbag_enchant_count 0%;\
/enchantbag_processor%;\
/else \
/set enchantbag_fade 0%;\
/test identify_level += %enchantbag_level_increment%;\
/test ++enchantbag_enchant_count%;\
/if (enchant_exit =~ "shimmer") \
/test ++enchantbag_shimmer%;\
/if (identify_type =~ "armor") \
/test identify_enchant_armor -= 2%;\
/elseif (identify_type =~ "weapon") \
/test ++identify_enchant_weapon%;\
/elseif (identify_type =~ "bow") \
/test identify_enchant_bow += 2%;\
/endif%;\
/elseif (regmatch("presence|brill", enchant_exit)) \
/test ++enchantbag_brill%;\
/if (identify_type =~ "armor") \
/test identify_enchant_armor -= 3%;\
/elseif (identify_type =~ "weapon") \
/test identify_enchant_weapon += 2%;\
/elseif (identify_type =~ "bow") \
/test identify_enchant_bow += 3%;\
/endif%;\
/endif%;\
/enchantbag_processor%;\
/endif

/def -i enchantbag_pre_armor = \
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/set enchantbag_max_level $[enchantbag_wear_level + 3]%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this piece of armor?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
/set enchantbag_level_increment 5%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/if (!identify_armor_multiplier) \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know the armor multiplier for %identify_object.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/let id_total_armor=0%;\
/let id_max_armor=0%;\
/let acgear_stats=%;\
/let acgear_base=0%;\
/let acgear_enchant=0%;\
/let acgear_total_armor=0%;\
/let acgear_spare_base=0%;\
/let acgear_spare_enchant=0%;\
/let acgear_spare_armor=0%;\
/let possible_enchants=0%;\
/let id_total_armor $[(identify_armor_class * identify_armor_multiplier) - identify_enchant_armor]%;\
/test acgear_stats:=enchantbag_get_stats(identify_object)%;\
/if (acgear_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our acgear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("b([0-9]+) \*(-?\\+?[0-9]\*) \*b?([0-9]\*) \*(-?\\+?[0-9]\*)$$", acgear_stats)%;\
/let acgear_base %{P1}%;\
/let acgear_enchant %{P2}%;\
/let acgear_spare_base %{P3}%;\
/let acgear_spare_enchant %{P4}%;\
/let acgear_total_armor $[acgear_base * identify_armor_multiplier - acgear_enchant]%;\
/let acgear_spare_armor $[acgear_spare_base * identify_armor_multiplier - acgear_spare_enchant]%;\
/if (!acgear_spare_armor) \
/let acgear_spare_armor $[acgear_total_armor - enchantbag_armor_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_armor $[id_total_armor - (possible_enchants * -3)]%;\
/set enchantbag_upgrade $[id_total_armor > acgear_total_armor]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_armor > acgear_total_armor)]%;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_armor >= acgear_spare_armor)]%;\
/set enchantbag_spare $[id_total_armor >= acgear_spare_armor]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: In our acgear, we have base %acgear_base, enchant %acgear_enchant%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Lowest spare we want to keep is base %acgear_spare_base, enchant %acgear_spare_enchant%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Armor class multiplier of this item is %identify_armor_multiplier%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCred %%% /%0: Acgear item has a total armor of %acgear_total_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Spare item has min armor of %acgear_spare_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has a total armor of %id_total_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: We could make the total armor %id_max_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_pre_weapon = \
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this weapon?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/if (regmatch("essence amorphous orb|shard black doom marble", identify_object)) \
/set enchantbag_max_level $[enchantbag_wear_level + 3]%;\
/else \
/set enchantbag_max_level $[enchantbag_wear_level + 5]%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 50)) \
/set enchantbag_level_increment 6%;\
/elseif ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
/set enchantbag_level_increment 5%;\
/elseif ((enchantbag_enchanter_level == 51) & (identify_level < 50)) \
/set enchantbag_level_increment 2%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/let id_total_dr=0%;\
/let id_max_dr=0%;\
/let damgear_stats=%;\
/let damgear_total_dr=0%;\
/let damgear_spare_dr=0%;\
/let possible_enchants=0%;\
/let id_total_dr $[identify_dr+identify_enchant_weapon]%;\
/let damgear_stats $[enchantbag_get_stats(identify_object)]%;\
/if (damgear_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our gear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("([0-9]+)dr \*([0-9]+)?(dr)?$$", damgear_stats)%;\
/let damgear_total_dr %{P1}%;\
/let damgear_spare_dr %{P2}%;\
/if (!damgear_spare_dr) \
/let damgear_spare_dr $[damgear_total_dr - enchantbag_weapon_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_dr $[id_total_dr + (possible_enchants * 2)]%;\
/set enchantbag_upgrade $[id_total_dr > damgear_total_dr]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_dr > damgear_total_dr)] %;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_dr >= damgear_spare_dr)] %;\
/set enchantbag_spare $[id_total_dr >= damgear_spare_dr]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: In our damgear, we have a %{damgear_total_dr}dr weapon%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has %id_total_dr dr.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: So we could make the total dr %id_max_dr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_pre_bow = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: The item is a bow. Preprocessing.%;\
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this bow?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 50)) \
/set enchantbag_level_increment 6%;\
/elseif ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
;DEBUG don't actually know what the level would do if a lord enchanted a hero
;DEBUG bow, this is a guess. Also wouldn't know why you'd want to do a thing
;DEBUG like that
/set enchantbag_level_increment 5%;\
/elseif ((enchantbag_enchanter_level == 51) & (identify_level < 50)) \
/set enchantbag_level_increment 2%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/let id_total_hr=0%;\
/let id_max_hr=0%;\
/let bow_cur_stats=%;\
/let bow_cur_hr=0%;\
/let bow_spare_hr=0%;\
/let possible_enchants=0%;\
/let id_total_hr $[identify_hr+identify_enchant_weapon]%;\
/let bow_cur_stats $[enchantbag_get_stats(identify_object)]%;\
/if (bow_cur_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our gear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("([0-9]+)hr \*([0-9]+)?(hr)?$$", damgear_stats)%;\
/let bow_cur_hr %{P1}%;\
/let bow_spare_hr %{P2}%;\
/if (!bow_spare_hr) \
/let bow_spare_hr $[bow_cur_hr - enchantbag_bow_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_hr $[id_total_hr + (possible_enchants * 3)]%;\
/set enchantbag_upgrade $[id_total_hr > bow_cur_hr]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_hr > bow_cur_hr)] %;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_hr >= bow_spare_hr)] %;\
/set enchantbag_spare $[id_total_hr >= bow_spare_hr]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: We have a %{bow_cur_hr}hr bow in our gear%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has %{id_total_hr}hr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: So we could make the total hr %{id_max_hr}hr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_get_stats = \
/if (enchantbag_wear_level == 51) \
/let var_mid hero%;\
/elseif (enchantbag_wear_level == 125) \
/let var_mid lord%;\
/elseif (enchantbag_wear_level <= 50) \
/let var_mid lowmort%;\
/endif%;\
/let var_right=%*%;\
;DEBUG are there any weird characters in the keywords
;DEBUG other than the ' in the archer's gauntlet..?
/test var_right:=replace("'", "", var_right)%;\
/test var_right:=replace(" ", "_", var_right)%;\
/let varname enchantbag_%{var_mid}_%{var_right}%;\
/eval /verbose -o%{verbosity_enchantbag} -l3 - -aCred %%%% /%0: Stats we have on file for %identify_object is %%{%{varname}}%;\
/eval /return "%%{%{varname}}"

/def -i enchantbag_possible_enchants = \
/let pos_ench=0%;\
/let counter %{identify_level}%;\
/while (counter < enchantbag_wear_level - 1) \
/if (counter + enchantbag_level_increment <= enchantbag_max_level) \
/test ++pos_ench%;\
/endif%;\
/test counter+=enchantbag_level_increment%;\
/done%;\
/if (enchantbag_enchanter_level == enchantbag_wear_level) \
/test pos_ench+=$[enchantbag_max_level-(identify_level+(pos_ench*enchantbag_level_increment))]%;\
/else \
/test pos_ench+=$[(enchantbag_max_level-(identify_level+(pos_ench*enchantbag_level_increment)))/enchantbag_level_increment]%;\
/endif%;\
/if (pos_ench < 0) /let pos_ench 0%;/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: We could enchant %pos_ench more times%;\
/return %{pos_ench}

/def -i enchantbag_exit = \
/let _post %enchantbag_post%;\
/config_restore -senchantbag blind%;\
/config_restore -senchantbag combine%;\
/config_restore -senchantbag condition%;\
/config_restore -senchantbag nosummon%;\
/config_restore -senchantbag notake%;\
/config_restore -senchantbag nodisturb%;\
/config_rmset enchantbag%;\
/filter_restore -senchantbag spellother%;\
/filter_rmset enchantbag%;\
/unset enchantbag%;\
/unset enchantbag_name%;\
/unset enchantbag_name_check%;\
/unset enchantbag_inv%;\
/unset enchantbag_inv_name%;\
/unset enchantbag_level_increment%;\
/unset enchantbag_enchant_count%;\
/unset enchantbag_max_level%;\
/unset enchantbag_fade%;\
/unset enchantbag_shimmer%;\
/unset enchantbag_brill%;\
/unset enchantbag_vape%;\
/unset enchantbag_item_known%;\
/unset enchantbag_upgrade%;\
/unset enchantbag_possible_upgrade%;\
/unset enchantbag_possible_spare%;\
/unset enchantbag_spare%;\
/unset enchantbag_post%;\
/unset enchantbag_enchanter_level%;\
/unset enchantbag_wear_level%;\
/set enchantbag_exit %1%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aCcyan %%% /%0 reports: We're finished. Post command is: %{_post}%;\
/if (_post !~ "") /eval -s0 /repeat -0.3 1 %{_post}%; /endif
</pre>

[[Category: TinyFugue Scripting]]

Enchantbag.tf

2008-11-25T07:45:44Z

Sulfar: now uses the keywords it got from identify when it can, instead of 1. all the time

<h4>Features</h4>
So you have a pile of armor to enchant. And a couple of weapons and bows to go with that. Well you toss it all in fodderbag, run this script, and collect the results from upgradebag, sparebag or wastebag. Or if you don't configure it with your current gear, you can collect the items from brillbag, shimmerbag, wastebag. It accepts some options:

* -l enchanting with an unshadowed lord
* -w<level> level we want to wear the item at
* -x<command> execute <command> when done

The script will use "get 1. fodderbag", identifies 1., and from then on it'll use the keywords it got from identify. It will check the names of
* the item you got from the fodderbag
* the first item in your inventory
* the name it gets by looking at the keywords it got from identify
If they're not all the same it won't enchant the item.

It sets config +blind, +combine, -condition, +nosummon, +notake, +nodisturb and filter +spellother to decrease the chance of anything/anyone messing up the script. That should make sure the triggers don't respond on people cutting/pasting brills to channels, the triggers work on you inventory, your regen is not interrupted and the triggers won't respond to other players enchants. Config +blind doesn't affect grtz channel but that is still covered by safechannel.tf. The script uses config.tf to store/restore your configuration.

<h4>Example config file</h4>
The script will try to load an enchantbag.gear.tf file with a configuration of gear. It's simply a list of variables, like

<pre>
/set enchantbag_hero_essence_amorphous_orb 11dr 10dr
/set enchantbag_hero_hero_heroes_shield b12 b12
/set enchantbag_hero_bow_sliver_glowing_moonlight_arc 21hr
/set enchantbag_hero_lemans_family_seal_talisman b12 -9 b12 -6

;To reuse a value for an equivalent item, you could
/eval /set enchantbag_hero_mother_pearl %{enchantbag_hero_lemans_family_seal_talisman}

;Lord stuff
/set enchantbag_lord_essence_amorphous_orb 15dr 13dr
</pre>

To make the variable name, you'd append "enchantbag_" with either "hero_", "lord_", or "lowmort_", then append that with the keywords you get from identify, remove "weird" characters (anything not in [a-zA-Z0-9 ]) and turn spaces into underscores.

The first value is the current gear, anything above that will go into upgradebag. The second value is the lowest spare that should go into sparebag. The script currently treats spares kinda aggressively, it'll try to enchant a 12 -3 spare to a 12 -6 spare if the level permits, even if you have 12 -3 as lowest spare to keep. Perhaps I should switch that around, I don't know yet. You can omit the second value, it'll then use the default ranges for spares.

If you're enchanting armor and want to use the configuration, you'll also need to add the item to [[identify.tf]] to know the multiplier for the armor class.

<h4>Stuff you need</h4>
This script uses [[config.tf]], [[verbose.tf]], [[enchant.tf]] and [[identify.tf]] so you'll want those if you want to use this script. Config.tf and identify.tf use [[prompt.tf]], and enchant.tf uses [[regen.tf]] and [[safechannel.tf]] so get those while you're at it. <b>If you update this script from an older version, please update these scripts as well,</b> or strange things might happen, or it might not work at all. You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

You'll also need some bags, look at the comments in the script for a list of etches and christens.

<h4>Examples</h4>
Enchant a pile of stuff with a hero for hero tier:
<pre>/enchantbag</pre>

Enchant a pile of mother pearls with an unshadowed lord but for hero tier:
<pre>/enchantbag -l</pre>

Enchant a pile of amorphous orbs or doom shards for lord and sleep afterwards:
<pre>/enchantbag -l -w125 -xsleep</pre>

If you'd want to see all debug spam it produces, try
<pre>/verbose -s3</pre>
<h4>Disclaimer</h4>
I didn't test enchanting piles of lord eq. If you know any such piles please let me know where I can pick them up ;)

I'm guessing a hero level bow would raise 5 levels if you'd enchant it with a lord. I'm not sure. Also don't know why anybody would want to do that so I can't be bothered to check it. I did check all the other level increments.

I've used this script quite a number of times now and debugged it extensively. It works fine for me. However, if you were to vape your b12 -9 shield or heros, or blow your 13/13 hero level doom shard, I'll be more than happy to accept your bug report but will not accept any responsibility for the items. I guess keeping your inventory clean is the way to be 100% sure.

<h4>The script</h4>
<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/eval /require -q %{TINYPREFIX}verbose.tf
/eval /require -q %{TINYPREFIX}enchant.tf
/eval /require -q %{TINYPREFIX}config.tf

/echo -aCyellow %% /enchantbag Enchant all items in fodderbag and distribute results
/echo -aCyellow %% [-l] you're an unshadowed lord. Default: you're a hero
/echo -aCyellow %% [-w<level>] you wear the item at level <level>. Default 51.
/echo -aCyellow %% [-x<command>] execute <command> on exit

;etch christen
;fodderbag Fodderbag
;upgradebag Upgradebag
;sparebag Sparebag
;wastebag Wastebag
;brillbag Brillbag
;shimmerbag Shimmerbag
;
;Only the rename of the fodderbag matters, enchantbag_got_item triggers on it
;Use the same name or change the trigger to match your bag

;When the script exits it sets global var enchantbag_exit to
;ok enchantbag finished correctly with an empty fodderbag
;enchant_err we got an error code from enchant.tf
;no_fodderbag couldnt find the fodderbag
;wrong_name names didn't check out

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 enchantbag

;Range to use if we didn't set the lowest spare to keep in the config file
;Range includes the item in the gear, so if the armor spare range is 4 and the
;item in our gear is a 12 -9 lemans seal, the lowest upgrade would be b12 -10,
;and the spares could be b12 -7, b12 -8, b12 -9. If the level permits
;enchanting tho, the script *will* try to make a b12 -9 spare out of a b12 -6,
;or enchant a 12-9 spare to a 12-12 upgrade.
/set enchantbag_armor_spare_range=3
/set enchantbag_weapon_spare_range=2
/set enchantbag_bow_spare_range=3

;Load file with current gear
/set enchantbag_gear_file=enchantbag.gear.tf
/eval /set enchantbag_path=%{TINYPREFIX}
/eval /load -q %{enchantbag_path}%{enchantbag_gear_file}

;should NOT set enchantbag_post here
/def -i enchantbag_init = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0 initializing .... %;\
/set enchantbag=0%;\
/set enchantbag_name=%;\
/set enchantbag_name_check=0%;\
/set enchantbag_inv=0%;\
/set enchantbag_inv_name=%;\
/set enchantbag_level_increment=0%;\
/set enchantbag_enchant_count=0%;\
/set enchantbag_max_level=0%;\
/set enchantbag_fade=0%;\
/set enchantbag_shimmer=0%;\
/set enchantbag_brill=0%;\
/set enchantbag_vape=0%;\
/set enchantbag_item_known=0%;\
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/set enchantbag_exit=

/enchantbag_init

/def -i enchantbag = \
/enchantbag_init%;\
/set enchantbag=1%;\
/set enchantbag_enchanter_level=51%;\
/set enchantbag_wear_level=51%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aCcyan %%% /%0: Start processing bag.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Loading %{enchantbag_path}%{enchantbag_gear_file}.%;\
/load -q %{enchantbag_path}%{enchantbag_gear_file}%;\
/if (!getopts("lx:w#")) /return 0%; /endif%;\
/if (opt_l) /set enchantbag_enchanter_level 125%;/endif%;\
/if (opt_w) /set enchantbag_wear_level %{opt_w}%;/endif%;\
/set enchantbag_post %{opt_x}%;\
/config_store -senchantbag -x/enchantbag_config_done

/def -i enchantbag_config_done = \
/filter_store -senchantbag -x/enchantbag_filter_done

/def -i enchantbag_filter_done = \
config +blind%;\
config +combine%;\
config -condition%;\
config +nosummon%;\
config +notake%;\
config +nodisturb%;\
filter +spellother%;\
/enchantbag_next_item

/def -i enchantbag_next_item = \
/enchantbag_init%;\
/set enchantbag=1%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Getting next item from the fodderbag.%;\
get 1. fodderbag

;Bag empty. We're finished.
/def -i -E(enchantbag) -p799 -F -t"You see nothing like that in Fodderbag." enchantbag_empty = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Your fodderbag is empty. Exiting /enchantbag.%;\
/enchantbag_exit ok

;Wrong alt? Fodderbag in a bag?
/def -i -E(enchantbag) -p799 -F -t"I see no fodderbag here." enchantbag_no_fodderbag = \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% You are not carrying the fodderbag. Exiting /enchantbag.%;\
/enchantbag_exit no_fodderbag

;New item.
/def -i -E(enchantbag) -p799 -F -mregexp -t"^You get (.+) from Fodderbag.$" enchantbag_got_item = \
/set enchantbag_name %{P1}%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% Got %{enchantbag_name}. Going to identify it.%;\
/identify -x/enchantbag_identify_done 1.

/def -i enchantbag_identify_done = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Done identifying. Doing cross reference on name.%;\
/set enchantbag_name_check 1%;\
inv%;\
look "%{identify_object}"

/def -i -E(enchantbag_name_check) -p799 -t"You are carrying:" enchantbag_inv = \
/def -1 -mregexp -p900 -t"^(\$ ?[0-9]+\$| ) (\$[a-zA-Z]+\$ )\*([^\\[]+)( \\[.+)\*\$" _enchantbag_inv = \
/set enchantbag_inv_name=%%{P3}%%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%%% /%%0: First item in inventory is %%enchantbag_inv_name

/def -i -E(enchantbag_name_check) -mregexp -t"^You look at (.+) in your inventory...$" enchantbag_name_check = \
/let identify_name %{P1}%;\
/set enchantbag_name_check 0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Looking at %identify_object, we got: %identify_name%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: First item in inventory is %enchantbag_inv_name%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We got %enchantbag_name from the fodderbag.%;\
/if ((identify_name =~ enchantbag_name) & (identify_name =~ enchantbag_inv_name)) \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Names ok.%;\
/repeat -0.3 1 /enchantbag_processor%;\
/else \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Names mismatch. Exit. Messy inventory?%;\
/enchantbag_exit wrong_name%;\
/endif

/def -i enchantbag_processor = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Processing identify information.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: brill is %enchantbag_brill, shimmer is %enchantbag_shimmer, level is %identify_level.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: fade is %enchantbag_fade, vape is %enchantbag_vape, enchant_count is %enchantbag_enchant_count%;\
/if (identify_type =~ "armor") \
/enchantbag_pre_armor%;\
/elseif (identify_type =~ "weapon") \
/enchantbag_pre_weapon%;\
/elseif (identify_type =~ "bow") \
/enchantbag_pre_bow%;\
/endif%;\
/if (enchantbag_item_known) \
/if (enchantbag_upgrade) \
put "%{identify_object}" upgradebag%;\
save%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: An upgrade! Stashing... Next!%;\
/enchantbag_next_item%;\
/elseif (enchantbag_possible_upgrade) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A possible upgrade! Enchanting.%;\
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done "%{identify_object}"%;\
/elseif (enchantbag_possible_spare) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A possible spare! Enchanting.%;\
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done "%{identify_object}"%;\
/elseif (enchantbag_spare) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A spare! Stashing... Next!%;\
put "%{identify_object}" sparebag%;\
/enchantbag_next_item%;\
/else \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: This item goes to waste... Next!%;\
put "%{identify_object}" wastebag%;\
/enchantbag_next_item%;\
/endif%;\
/else \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: Item unknown. Using simple distribution method.%;\
/if (enchantbag_brill) \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into brillbag.%;\
put "%{identify_object}" brillbag%;\
/enchantbag_next_item%;\
/elseif (enchantbag_shimmer) \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into shimmerbag.%;\
put "%{identify_object}" shimmerbag%;\
/enchantbag_next_item%;\
/elseif (identify_level < enchantbag_max_level) \
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done "%{identify_object}"%;\
/else \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into wastebag.%;\
put "%{identify_object}" wastebag%;\
/enchantbag_next_item%;\
/endif%;\
/endif

/def -i enchantbag_enchant_done = \
/if (regmatch("^$|no_type|no_item|wrong_type", enchant_exit)) \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Enchant script exit status: %{enchant_exit}%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Exit enchantbag, enchant_err.%;\
/enchantbag_exit enchant_err%;\
/elseif (enchant_exit =~ "wrong_name") \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Enchant script exit status: %{enchant_exit}%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Rechecking names.%;\
/identify -x/enchantbag_identify_done 1.%;\
/elseif (enchant_exit =~ "vape") \
/verbose -o%{verbosity_enchantbag} -l2 - -aCred %%% /%0: Our item vaped... Next!%;\
/enchantbag_next_item%;\
/elseif (enchant_exit =~ "fade") \
/send get idontwanttoLID%;\
/test ++identify_level%;\
/set identify_enchant_armor 0%;\
/set identify_enchant_weapon 0%;\
/set identify_enchant_bow 0%;\
/set enchantbag_fade 1%;\
/set enchantbag_brill 0%;\
/set enchantbag_shimmer 0%;\
/set enchantbag_enchant_count 0%;\
/enchantbag_processor%;\
/else \
/set enchantbag_fade 0%;\
/test identify_level += %enchantbag_level_increment%;\
/test ++enchantbag_enchant_count%;\
/if (enchant_exit =~ "shimmer") \
/test ++enchantbag_shimmer%;\
/if (identify_type =~ "armor") \
/test identify_enchant_armor -= 2%;\
/elseif (identify_type =~ "weapon") \
/test ++identify_enchant_weapon%;\
/elseif (identify_type =~ "bow") \
/test identify_enchant_bow += 2%;\
/endif%;\
/elseif (regmatch("presence|brill", enchant_exit)) \
/test ++enchantbag_brill%;\
/if (identify_type =~ "armor") \
/test identify_enchant_armor -= 3%;\
/elseif (identify_type =~ "weapon") \
/test identify_enchant_weapon += 2%;\
/elseif (identify_type =~ "bow") \
/test identify_enchant_bow += 3%;\
/endif%;\
/endif%;\
/enchantbag_processor%;\
/endif

/def -i enchantbag_pre_armor = \
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/set enchantbag_max_level $[enchantbag_wear_level + 3]%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this piece of armor?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
/set enchantbag_level_increment 5%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/if (!identify_armor_multiplier) \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know the armor multiplier for %identify_object.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/let id_total_armor=0%;\
/let id_max_armor=0%;\
/let acgear_stats=%;\
/let acgear_base=0%;\
/let acgear_enchant=0%;\
/let acgear_total_armor=0%;\
/let acgear_spare_base=0%;\
/let acgear_spare_enchant=0%;\
/let acgear_spare_armor=0%;\
/let possible_enchants=0%;\
/let id_total_armor $[(identify_armor_class * identify_armor_multiplier) - identify_enchant_armor]%;\
/test acgear_stats:=enchantbag_get_stats(identify_object)%;\
/if (acgear_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our acgear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("b([0-9]+) \*(-?\\+?[0-9]\*) \*b?([0-9]\*) \*(-?\\+?[0-9]\*)$$", acgear_stats)%;\
/let acgear_base %{P1}%;\
/let acgear_enchant %{P2}%;\
/let acgear_spare_base %{P3}%;\
/let acgear_spare_enchant %{P4}%;\
/let acgear_total_armor $[acgear_base * identify_armor_multiplier - acgear_enchant]%;\
/let acgear_spare_armor $[acgear_spare_base * identify_armor_multiplier - acgear_spare_enchant]%;\
/if (!acgear_spare_armor) \
/let acgear_spare_armor $[acgear_total_armor - enchantbag_armor_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_armor $[id_total_armor - (possible_enchants * -3)]%;\
/set enchantbag_upgrade $[id_total_armor > acgear_total_armor]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_armor > acgear_total_armor)]%;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_armor >= acgear_spare_armor)]%;\
/set enchantbag_spare $[id_total_armor >= acgear_spare_armor]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: In our acgear, we have base %acgear_base, enchant %acgear_enchant%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Lowest spare we want to keep is base %acgear_spare_base, enchant %acgear_spare_enchant%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Armor class multiplier of this item is %identify_armor_multiplier%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCred %%% /%0: Acgear item has a total armor of %acgear_total_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Spare item has min armor of %acgear_spare_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has a total armor of %id_total_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: We could make the total armor %id_max_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_pre_weapon = \
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this weapon?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/if (regmatch("essence amorphous orb|shard black doom marble", identify_object)) \
/set enchantbag_max_level $[enchantbag_wear_level + 3]%;\
/else \
/set enchantbag_max_level $[enchantbag_wear_level + 5]%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 50)) \
/set enchantbag_level_increment 6%;\
/elseif ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
/set enchantbag_level_increment 5%;\
/elseif ((enchantbag_enchanter_level == 51) & (identify_level < 50)) \
/set enchantbag_level_increment 2%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/let id_total_dr=0%;\
/let id_max_dr=0%;\
/let damgear_stats=%;\
/let damgear_total_dr=0%;\
/let damgear_spare_dr=0%;\
/let possible_enchants=0%;\
/let id_total_dr $[identify_dr+identify_enchant_weapon]%;\
/let damgear_stats $[enchantbag_get_stats(identify_object)]%;\
/if (damgear_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our gear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("([0-9]+)dr \*([0-9]+)?(dr)?$$", damgear_stats)%;\
/let damgear_total_dr %{P1}%;\
/let damgear_spare_dr %{P2}%;\
/if (!damgear_spare_dr) \
/let damgear_spare_dr $[damgear_total_dr - enchantbag_weapon_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_dr $[id_total_dr + (possible_enchants * 2)]%;\
/set enchantbag_upgrade $[id_total_dr > damgear_total_dr]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_dr > damgear_total_dr)] %;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_dr >= damgear_spare_dr)] %;\
/set enchantbag_spare $[id_total_dr >= damgear_spare_dr]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: In our damgear, we have a %{damgear_total_dr}dr weapon%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has %id_total_dr dr.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: So we could make the total dr %id_max_dr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_pre_bow = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: The item is a bow. Preprocessing.%;\
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this bow?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 50)) \
/set enchantbag_level_increment 6%;\
/elseif ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
;DEBUG don't actually know what the level would do if a lord enchanted a hero
;DEBUG bow, this is a guess. Also wouldn't know why you'd want to do a thing
;DEBUG like that
/set enchantbag_level_increment 5%;\
/elseif ((enchantbag_enchanter_level == 51) & (identify_level < 50)) \
/set enchantbag_level_increment 2%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/let id_total_hr=0%;\
/let id_max_hr=0%;\
/let bow_cur_stats=%;\
/let bow_cur_hr=0%;\
/let bow_spare_hr=0%;\
/let possible_enchants=0%;\
/let id_total_hr $[identify_hr+identify_enchant_weapon]%;\
/let bow_cur_stats $[enchantbag_get_stats(identify_object)]%;\
/if (bow_cur_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our gear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("([0-9]+)hr \*([0-9]+)?(hr)?$$", damgear_stats)%;\
/let bow_cur_hr %{P1}%;\
/let bow_spare_hr %{P2}%;\
/if (!bow_spare_hr) \
/let bow_spare_hr $[bow_cur_hr - enchantbag_bow_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_hr $[id_total_hr + (possible_enchants * 3)]%;\
/set enchantbag_upgrade $[id_total_hr > bow_cur_hr]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_hr > bow_cur_hr)] %;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_hr >= bow_spare_hr)] %;\
/set enchantbag_spare $[id_total_hr >= bow_spare_hr]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: We have a %{bow_cur_hr}hr bow in our gear%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has %{id_total_hr}hr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: So we could make the total hr %{id_max_hr}hr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_get_stats = \
/if (enchantbag_wear_level == 51) \
/let var_mid hero%;\
/elseif (enchantbag_wear_level == 125) \
/let var_mid lord%;\
/elseif (enchantbag_wear_level <= 50) \
/let var_mid lowmort%;\
/endif%;\
/let var_right=%*%;\
;DEBUG are there any weird characters in the keywords
;DEBUG other than the ' in the archer's gauntlet..?
/test var_right:=replace("'", "", var_right)%;\
/test var_right:=replace(" ", "_", var_right)%;\
/let varname enchantbag_%{var_mid}_%{var_right}%;\
/eval /verbose -o%{verbosity_enchantbag} -l3 - -aCred %%%% /%0: Stats we have on file for %identify_object is %%{%{varname}}%;\
/eval /return "%%{%{varname}}"

/def -i enchantbag_possible_enchants = \
/let pos_ench=0%;\
/let counter %{identify_level}%;\
/while (counter < enchantbag_wear_level - 1) \
/if (counter + enchantbag_level_increment <= enchantbag_max_level) \
/test ++pos_ench%;\
/endif%;\
/test counter+=enchantbag_level_increment%;\
/done%;\
/if (enchantbag_enchanter_level == enchantbag_wear_level) \
/test pos_ench+=$[enchantbag_max_level-(identify_level+(pos_ench*enchantbag_level_increment))]%;\
/else \
/test pos_ench+=$[(enchantbag_max_level-(identify_level+(pos_ench*enchantbag_level_increment)))/enchantbag_level_increment]%;\
/endif%;\
/if (pos_ench < 0) /let pos_ench 0%;/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: We could enchant %pos_ench more times%;\
/return %{pos_ench}

/def -i enchantbag_exit = \
/let _post %enchantbag_post%;\
/config_restore -senchantbag blind%;\
/config_restore -senchantbag combine%;\
/config_restore -senchantbag condition%;\
/config_restore -senchantbag nosummon%;\
/config_restore -senchantbag notake%;\
/config_restore -senchantbag nodisturb%;\
/config_rmset enchantbag%;\
/filter_restore -senchantbag spellother%;\
/filter_rmset enchantbag%;\
/unset enchantbag%;\
/unset enchantbag_name%;\
/unset enchantbag_name_check%;\
/unset enchantbag_inv%;\
/unset enchantbag_inv_name%;\
/unset enchantbag_level_increment%;\
/unset enchantbag_enchant_count%;\
/unset enchantbag_max_level%;\
/unset enchantbag_fade%;\
/unset enchantbag_shimmer%;\
/unset enchantbag_brill%;\
/unset enchantbag_vape%;\
/unset enchantbag_item_known%;\
/unset enchantbag_upgrade%;\
/unset enchantbag_possible_upgrade%;\
/unset enchantbag_possible_spare%;\
/unset enchantbag_spare%;\
/unset enchantbag_post%;\
/unset enchantbag_enchanter_level%;\
/unset enchantbag_wear_level%;\
/set enchantbag_exit %1%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aCcyan %%% /%0 reports: We're finished. Post command is: %{_post}%;\
/if (_post !~ "") /eval -s0 /repeat -0.3 1 %{_post}%; /endif
</pre>

[[Category: TinyFugue Scripting]]

Lens Of Experience

2008-11-17T04:58:57Z

Sulfar: Changed directions

'[[Detect Invis|detect invis]] ' continuous.
'[[Detect Hidden|detect hidden]] ' continuous.
Modifies [[Intelligence|intelligence]] by 4 continuous.

Slot: head<br>
Level: 32<br>
Base: 7<br>
Weight: 2<br>
Flags: none<br>
Area: [[:Category: Paradise Point |Paradise Point]] ([[Paradise Point Map |Map]])<br>
Mob: [[Older Half-Elven Ranger]]<br>
<br>
Port to [[Chief Hunter]] and go wss.
See also [[Suggested Spellcasting Gear#Suggested Buffing Gear|Suggested Buffing Gear]]
[[Category: Gear In Paradise Point]]
[[Category: Armor]]
[[Category: Lowmort 21-30 Gear]]
[[Category: Int Gear]]
[[Category: Gear That Applies Detect Hidden]]
[[Category: Gear That Applies Detect Invis]]
[[Category: Utility Gear]]

Alt.tf

2008-11-17T04:25:16Z

Sulfar: Made executing of commands work for lowmorts too...

<P>This script provides
* easy alt switching, one command will log out the current char and login the other
* triggers to log in quickly scrolling by the motd and what not
* a modified /world (stdlib.tf) which will not connect if tf has an active connection
* a modification to /world to set secho off during the /@connect, this prevends the password from being displayed if you have secho on.
* you can use /alt -x<command> <alt> to log in <alt> and have <command> executed when the alt logged in, so you could easily make a spellup macro that'd use 2 alts :)</P>
<P>
You'll probably want to change the value of "main_alt" at the beginning of this script.
</P>
<B>An older version had a bug</B> that creeped in when I changed the trigger to a disconnect hook. It didn't turn it off after an alt switch. If you'd use it to log in (create) a denied character, <B>the script would loop trying to log in that character.</B> I suspect it'd do the same if you'd have a wrong password in your config file. Big oops! If you're using this script, plz make sure and update.
<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''
/loaded __SULFAR__/alt.tf

/echo -aCyellow %% /alt (Logout and) login %{main_alt}
/echo -aCyellow %% /alt <world> (Logout and) login <world>
/echo -aCyellow %% [-x<command>] execute <command> after alt switch
/echo -aCyellow %% /relog (Logout and) login current world

;Set this variable to your main alt
/set main_alt sulfar

/def alt_init = \
/set alt_get=0%;\
/set alt=%;\
/set alt_post=%;\
/set alt_execute_post=0

;;Quick, easy and safe alt switching
/def -i alt = \
/alt_init%;\
/if (!getopts("x:", "")) /return 0%; /endif%; \
/if (opt_x !~ "") \
/set alt_post %{opt_x}%;\
/set alt_execute_post 1%;\
/endif%;\
/set alt %*%;\
/if (alt =~ "") /set alt %{main_alt}%;/endif%;\
/if (is_open())\
/set alt_get 1%;\
quit%;\
/else \
/world %{alt}%;\
/set alt=%;\
/endif

/def -i relog = /alt ${world_name}

/def -i -E(alt_get) -p999 -F -h'disconnect' alt_disconnect = \
/set alt_get 0%;\
/world %{alt}%;\
/set alt=

/def -i -E(alt_execute_post) -p999 -F -t"Welcome back to the AVATAR System*" alt_welcome_back = \
/let post %alt_post%;\
/alt_init%;\
/echo -aCcyan %%% /%0: Alt switch ready! Executing command: %post%;\
/if (post !~ "") /eval -s0 %{post}%; /endif

;Some triggers to scroll by the motd and what not
/def -i -mregexp -t"AVATAR (PLAYER|MORTAL) INFORMATION CENTER" login_enter_1 = /eval /send%;/repeat -0:00:0.5 1 /eval /send %;/echo %%% trigger: %0
/def -i -mregexp -t"Please press <enter> to continue" login_enter_2 = /eval /send%;/repeat -0:00:0.5 1 /eval /send %; /echo %%% trigger: %0
/def -i -mregexp -t"Please ensure that you've read and understood the Rules." login_enter_3 = /eval /send%;/repeat -0:00:0.5 1 /eval /send %; /echo %%% trigger: %0
/def -i -mregexp -t"please press *RETURN* to continue" login_enter_4 = /eval /send%;/repeat -0:00:0.5 1 /eval /send %; /echo %%% trigger: %0
/def -i -mregexp -t"Press <ENTER> to continue" login_enter_5 = /eval /send%;/repeat -0:00:0.5 1 /eval /send %; /echo %%% trigger: %0

;Modified /world (stdlib.tf)
; will not connect if tf has an active connection to avoid multiplay accidents
; will turn secho off before connecting to prevend echoing the password to the
; screen in case it was on. The value of secho is restored after connecting.
/def -i world = \
/if (!getopts("nlqxfb", 0)) /return 0%; \
/endif%; \
/let _args=%*%; \
/if (_args =~ "") \
/let _args=$(/nth 1 $(/@listworlds -s))%; \
/if (_args =/ "default") \
/let _args=$(/nth 2 $(/@listworlds -s))%; \
/endif%; \
/endif%; \
/let _opts=%; \
/if (is_open(_args)) \
/if (opt_n) /let _opts=%_opts -n%; /endif%; \
/if (opt_q) /let _opts=%_opts -q%; /endif%; \
/@fg %_opts %_args%; \
/elseif (is_open())\
/echo %% But you *are* connected!%;\
/else \
/if (opt_l) /let _opts=%_opts -l%; /endif%; \
/if (opt_q) /let _opts=%_opts -q%; /endif%; \
/if (opt_x) /let _opts=%_opts -x%; /endif%; \
/if (opt_f) /let _opts=%_opts -f%; /endif%; \
/if (opt_b) /let _opts=%_opts -b%; /endif%; \
/let _secho %{secho}%;\
/set secho off%;\
/@connect %_opts %_args%; \
/set secho %{_secho}%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Affects.tf

2008-11-17T00:44:22Z

Sulfar: small fix for /aff and got_sanc

Provides
* custom colors of affects list
* /aff <spell> shows affects list just for <spell>
* /sick shows how sick you are
* /chkaff shows which spells you are *not* affected by
* Sanctuary ticker on the satus line
* Spellup ticker on the status line

The tickers grab the duration of sanctuary and holy aura from the affects list, colors them and puts them in a status variable. It then uses [[tick.tf]] to make the tickers count down on the tick. That also means that if the tick counter isn't running yet it won't count down ;)

This script uses [[prompt.tf]] and [[tick.tf]] so you'll need those too. Also, you should have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/require -q lisp.tf

/eval /require -q %{TINYPREFIX}prompt.tf
/eval /require -q %{TINYPREFIX}tick.tf

/echo -aCyellow %% /aff <spell> Shows affects list for <spell>
/echo -aCyellow %% /sick Shows how sick you are
/echo -aCyellow %% /chkaff Shows which spells you are *not* affected by

;I set my status line in a single command in my config file, this is what it
; looks like with the right variables for this script:
;/status_add -c @more:8:Br @world:9 :1 status_sanctuary:3 :1 status_spellup:3 :1 status_position insert:2 :1 @clock:16

;Custom color the affects list..
;Paint all of the affects list green
/def -i -p999 -F -PCgreen -mregexp -t"^Spell: '.*" affects_green

;yellow for some spells i might want to check more than others
/def -i -p998 -F -PCyellow -mregexp -t"^Spell: '(steel|iron|bark|pass|fly|water|heigh|conc).*" affects_yellow

;white for spells i most probably want to find quickly
/def -i -p998 -F -PCwhite -mregexp -t"^Spell: '(sanc|regen|scramble|hand).*" affects_white

;You can "/aff sanc" and it'll only show the sanctuary line
;or use a regexp, "/aff sanc|fren"
/def -i aff = \
/def -t"You are affected by:" _aff_affected = \
/def -p900 -mregexp -t"^Spell: '%{*}.*" _aff_spell%%;\
/def -p899 -ag -mregexp -t"^Spell: '" _aff_gag_other_affects%%;\
/repeat -0.3 1 /undef _aff_affected _aff_spell _aff_gag_other_affects%;\
affects

;Just a /sick macro.
/def -i sick = \
/set sick_poison 0%;\
/set sick_disease 0%;\
/def -t"You are affected by:" _sick_affected = \
/def -p900 -mregexp -t"^Spell: '(poison|toxin|biotoxin|venom)'.*" _sick_poison = /test $$$[++sick_poison] %%;\
/def -p900 -mregexp -t"^Spell: '(virus|plague)'.*" _sick_disease = /test $$$[++sick_disease]%%;\
/def -p899 -ag -mregexp -t"^Spell: '" _sick_gag_other_affects%%;\
/repeat -0.3 1 \
/undef _sick_affected _sick_poison _sick_disease _sick_gag_other_affects%%%;\
gtell %%%%% I am affected by: %%%sick_poison poisons and %%%sick_disease diseases%;\
affects

;/chkaff will show you the spells from the chkaff_list by which
;you're *not* affected.
/def -i chkaff = \
/set chkaff_list= |BR| sanctuary |R| awen foci fortitudes \
invincibility barkskin steel_skeleton iron_skin |W| protection_evil bless holy_aura \
holy_armor armor water_breathing energy_shield displacement body_brace \
mental_barrier calcify_flesh biofeedback anticipate adrenaline_pump concentrate \
pass_door fly shield stone_skin giant_strength |G| frenzy |B| heighten_senses%;\
/set chkaff 1%;\
affects

/def -i -E(chkaff) -p100 -F -t"You are affected by:" chkaff_affected = \
/set prompt_exe chkaff

/def -i -E(chkaff) -p100 -F -mregexp -t"^Spell: '(.+)' .+" chkaff_spell = \
/let affect=$[replace(" ", "_", {P1})]%;\
/set chkaff_list=$(/remove %affect %chkaff_list)

/def -i -E(chkaff) -p991 -mglob -h'send PROMPT_EXE chkaff' chkaff_PROMPT_EXE = \
/set prompt_exe=%;\
/set chkaff 0%;\
gtell %%% I am *not* affected by %chkaff_list

;Sanc and spellup tickers on the status line
/def -i -p999 -F -t"You are affected by:" tickers_init = \
/set sanctuary_duration=%;\
/set spellup_duration=%;\
/sanctuary_status%;\
/spellup_status

/tickers_init

/def -i -p999 -F -mregexp -t"^Spell: 'sanctuary' for ([0-9]+) hours.$" aff_sanc = \
/test sanctuary_duration:=strip_attr({P1})%;\
/sanctuary_status

/def -i -p999 -F -t"The protective aura fades from around your body." sanctuary_fades = \
/set sanctuary_duration=

/def -i -p991 -F -mglob -h'send TICK_EXE' sanctuary_tick = \
/if (sanctuary_duration > 0) /test --sanctuary_duration%;\
/else /set sanctuary_duration=%;\
/endif%;\
/sanctuary_status

/def -i sanctuary_status = \
/set status_sanctuary \$%{sanctuary_duration}%;\
/if (sanctuary_duration =~ "") \
/set status_attr_var_status_sanctuary=%;\
/elseif (sanctuary_duration == 0) \
/set status_attr_var_status_sanctuary BCred%;\
/elseif (sanctuary_duration <= 2) \
/set status_attr_var_status_sanctuary Cred%;\
/elseif (sanctuary_duration <= 5) \
/set status_attr_var_status_sanctuary Cyellow%;\
/else \
/set status_attr_var_status_sanctuary=%;\
/endif

/def -i -t"You are surrounded by a white aura." got_sanc = /aff sanc|holy aura

;Do the same for holy aura to have a spellup ticker
/def -i -p999 -F -mregexp -t"^Spell: 'holy aura' modifies armor class by -[0-9]+ for ([0-9]+) hours.$" aff_spellup = \
/test spellup_duration:=strip_attr({P1})%;\
/spellup_status

/def -i -p999 -F -t"Your Aura of Holiness fades..." spellup_fades = \
/set spellup_duration=

/def -i -p991 -F -mglob -h'send TICK_EXE' spellup_tick = \
/if (spellup_duration > 0) /test --spellup_duration%;\
/else /set spellup_duration=%;\
/endif%;\
/spellup_status

/def -i spellup_status = \
/set status_spellup s%{spellup_duration}%;\
/if (spellup_duration =~ "") \
/set status_attr_var_status_spellup=%;\
/elseif (spellup_duration == 0) \
/set status_attr_var_status_spellup BCred%;\
/elseif (spellup_duration <= 1) \
/set status_attr_var_status_spellup Cred%;\
/elseif (spellup_duration <= 3) \
/set status_attr_var_status_spellup Cyellow%;\
/else \
/set status_attr_var_status_spellup=%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Affects.tf

2008-11-13T17:44:10Z

Sulfar: adds info to summary

Provides
* custom colors of affects list
* /aff <spell> shows affects list just for <spell>
* /sick shows how sick you are
* /chkaff shows which spells you are *not* affected by
* Sanctuary ticker on the satus line
* Spellup ticker on the status line

The tickers grab the duration of sanctuary and holy aura from the affects list, colors them and puts them in a status variable. It then uses [[tick.tf]] to make the tickers count down on the tick. That also means that if the tick counter isn't running yet it won't count down ;)

This script uses [[prompt.tf]] and [[tick.tf]] so you'll need those too. Also, you should have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/require -q lisp.tf

/eval /require -q %{TINYPREFIX}prompt.tf
/eval /require -q %{TINYPREFIX}tick.tf

/echo -aCyellow %% /aff <spell> Shows affects list for <spell>
/echo -aCyellow %% /sick Shows how sick you are
/echo -aCyellow %% /chkaff Shows which spells you are *not* affected by

;I set my status line in a single command in my config file, this is what it
; looks like with the right variables for this script:
;/status_add -c @more:8:Br @world:9 :1 status_sanctuary:3 :1 status_spellup:3 :1 status_position insert:2 :1 @clock:16

;Custom color the affects list..
;Paint all of the affects list green
/def -i -p999 -F -PCgreen -mregexp -t"^Spell: '.*" affects_green

;yellow for some spells i might want to check more than others
/def -i -p998 -F -PCyellow -mregexp -t"^Spell: '(steel|iron|bark|pass|fly|water|heigh|conc).*" affects_yellow

;white for spells i most probably want to find quickly
/def -i -p998 -F -PCwhite -mregexp -t"^Spell: '(sanc|regen|scramble|hand).*" affects_white

;You can "/aff sanc" and it'll only show the sanctuary line
;or use a regexp, "/aff sanc|fren"
/def -i aff = \
/def -t"You are affected by:" _aff_affected = \
/def -p900 -mregexp -t"^Spell: '%{1}.*" _aff_spell%%;\
/def -p899 -ag -mregexp -t"^Spell: '" _aff_gag_other_affects%%;\
/repeat -0.3 1 /undef _aff_affected _aff_spell _aff_gag_other_affects%;\
affects

;Just a /sick macro.
/def -i sick = \
/set sick_poison 0%;\
/set sick_disease 0%;\
/def -t"You are affected by:" _sick_affected = \
/def -p900 -mregexp -t"^Spell: '(poison|toxin|biotoxin|venom)'.*" _sick_poison = /test $$$[++sick_poison] %%;\
/def -p900 -mregexp -t"^Spell: '(virus|plague)'.*" _sick_disease = /test $$$[++sick_disease]%%;\
/def -p899 -ag -mregexp -t"^Spell: '" _sick_gag_other_affects%%;\
/repeat -0.3 1 \
/undef _sick_affected _sick_poison _sick_disease _sick_gag_other_affects%%%;\
gtell %%%%% I am affected by: %%%sick_poison poisons and %%%sick_disease diseases%;\
affects

;/chkaff will show you the spells from the chkaff_list by which
;you're *not* affected.
/def -i chkaff = \
/set chkaff_list= |BR| sanctuary |R| awen foci fortitudes \
invincibility barkskin steel_skeleton iron_skin |W| protection_evil bless holy_aura \
holy_armor armor water_breathing energy_shield displacement body_brace \
mental_barrier calcify_flesh biofeedback anticipate adrenaline_pump concentrate \
pass_door fly shield stone_skin giant_strength |G| frenzy |B| heighten_senses%;\
/set chkaff 1%;\
affects

/def -i -E(chkaff) -p100 -F -t"You are affected by:" chkaff_affected = \
/set prompt_exe chkaff

/def -i -E(chkaff) -p100 -F -mregexp -t"^Spell: '(.+)' .+" chkaff_spell = \
/let affect=$[replace(" ", "_", {P1})]%;\
/set chkaff_list=$(/remove %affect %chkaff_list)

/def -i -E(chkaff) -p991 -mglob -h'send PROMPT_EXE chkaff' chkaff_PROMPT_EXE = \
/set prompt_exe=%;\
/set chkaff 0%;\
gtell %%% I am *not* affected by %chkaff_list

;Sanc and spellup tickers on the status line
/def -i -p999 -F -t"You are affected by:" tickers_init = \
/set sanctuary_duration=%;\
/set spellup_duration=%;\
/sanctuary_status%;\
/spellup_status

/tickers_init

/def -i -p999 -F -mregexp -t"^Spell: 'sanctuary' for ([0-9]+) hours.$" aff_sanc = \
/test sanctuary_duration:=strip_attr({P1})%;\
/sanctuary_status

/def -i -p999 -F -t"The protective aura fades from around your body." sanctuary_fades = \
/set sanctuary_duration=

/def -i -p991 -F -mglob -h'send TICK_EXE' sanctuary_tick = \
/if (sanctuary_duration > 0) /test --sanctuary_duration%;\
/else /set sanctuary_duration=%;\
/endif%;\
/sanctuary_status

/def -i sanctuary_status = \
/set status_sanctuary \$%{sanctuary_duration}%;\
/if (sanctuary_duration =~ "") \
/set status_attr_var_status_sanctuary=%;\
/elseif (sanctuary_duration == 0) \
/set status_attr_var_status_sanctuary BCred%;\
/elseif (sanctuary_duration <= 2) \
/set status_attr_var_status_sanctuary Cred%;\
/elseif (sanctuary_duration <= 5) \
/set status_attr_var_status_sanctuary Cyellow%;\
/else \
/set status_attr_var_status_sanctuary=%;\
/endif

/def -i -t"You are surrounded by a white aura." got_sanc = affects

;Do the same for holy aura to have a spellup ticker
/def -i -p999 -F -mregexp -t"^Spell: 'holy aura' modifies armor class by -[0-9]+ for ([0-9]+) hours.$" aff_spellup = \
/test spellup_duration:=strip_attr({P1})%;\
/spellup_status

/def -i -p999 -F -t"Your Aura of Holiness fades..." spellup_fades = \
/set spellup_duration=

/def -i -p991 -F -mglob -h'send TICK_EXE' spellup_tick = \
/if (spellup_duration > 0) /test --spellup_duration%;\
/else /set spellup_duration=%;\
/endif%;\
/spellup_status

/def -i spellup_status = \
/set status_spellup s%{spellup_duration}%;\
/if (spellup_duration =~ "") \
/set status_attr_var_status_spellup=%;\
/elseif (spellup_duration == 0) \
/set status_attr_var_status_spellup BCred%;\
/elseif (spellup_duration <= 1) \
/set status_attr_var_status_spellup Cred%;\
/elseif (spellup_duration <= 3) \
/set status_attr_var_status_spellup Cyellow%;\
/else \
/set status_attr_var_status_spellup=%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Prompt.tf

2008-11-11T07:11:05Z

Sulfar:

A prompt script:
* Values are grabbed
* prompt1 is substituted, hp/mana/monitor are colored to reflect their status
* prompt2 containing surge/augment/quicken levels is gagged, the levels go into the status line and are colored
* Provides an easy way for other scripts to trigger on a prompt
* If you log in with a prompt that's incompatible with prompt.tf, it'll set the prompt to be compatible

Changes:
* prompt_exe: instead of setting prompt_exe to 1, you can now set it to a string and it'll send "PROMPT_EXE <string>". Makes it easier to have multiple scripts use prompt_exe. See the chkaff macro in [[affects.tf]] for an example.

Read the comments in the script for more information.
<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/loaded __SULFAR__/prompt.tf

;These are the prompts I set on the mud.
;prompt <%h/%H(%p) %m/%M(%o) %v/%V [%T] %w/%W(%P) t%s>%n
;prompt2 <s%S a%A q%Q>%n
;also type "prompt2" once or twice and make sure it's on since the trigger below
; gags it

;Prompt1 is substituted by substitute_prompt1. It adds values to see the loss
; in hp, mana and monitor's hp. It also changes the color of hp/mana/monitor.
; If hp is higher than 70% it's colored green, if it's between 30% and 70% it's
; colored yellow, if it's lower than 30% it's colored red. Moves are just
; green currently.
;
;The substitute currently looks like:
;$&<D>[S]!@#<10/30(20|33%) 20/80(60|25%) 90mv 100/700(600|14%) t3>
;first the prompt symbols as usual,
;then hp: you're at 10 hp out of 30, that's 33%, you lost 20,
;then mana: you're at 20 mana out of 80, that's 25% used 60,
;then moves: you're at 90 mv,
;then monitor: is at 100 out of 700, that's 14%, lost 600
;then the lag timer, 3 seconds.

;To save space on the prompt line, I put tnl in tf's statusline as [320] for
; example. Tnl also shifts color, green if it's above 300, yellow for 300 or
; lower, bright yellow for 130 or lower.
;The AFK part of the prompt is captured but not displayed anywhere.

;prompt2 has values for surge, augment, quicken, is gagged and its values are
; captured to status_ variables to use in the tf status line. "Off" values
; are changed to "0" to save some space on the satusline. Surge, augment
; and quicken levels are colored. Surge and augment are green if they're off,
; yellow if 2 or 3, bright yellow if 4 or higher. Quicken is green if it's
; off, bright yellow if it's on.

;I set my status line in a single command in my config file, this is what it
; looks like with the right variables for this script
;/status_add -c @more:8:Br @world:9 :1 status_surge:2 :1 status_augment:2 :1 status_quicken:2 :1 status_tnl :1 insert:2 :1 @clock:16

;If you'd like to use the script and the prompt setting above contains all the
; information you want but just doesn't look the way you want, I'd recommend
; setting it to the format above anyways and then change the substitute below
; to make it appear the way you want.

;If prompt_exe is set to a string tf will send a "PROMPT_EXE <string>" to Avatar
; when it receives a prompt. However, it intercepts the "PROMPT_EXE*" string
; with a send hook of priority 990. This allowes you to make a higher priority
; send hook in a script to do something when you get a prompt in. Please don't
; change the value here, it's just here to initialize when the script loads.
/set prompt_exe=

;set mud side prompt to be compatible with prompt.tf
/def -i prompt_set = \
prompt <%%h/%%H(%%p) %%m/%%M(%%o) %%v/%%V [%%T] %%w/%%W(%%P) t%%s>%%n%;\
prompt2 <s%%S a%%A q%%Q>%%n%;\
config +prompt%;\
config +prompt2

;Hooray for regexps!
/def -i -F -p400 -mregexp -t"^(\$|)(\&|)(\<D\>|)(\[S\]|)(\!|)(\@|)(\#|)(\*Deaf\* |)($AFK$ |)<(-?[0-9]*)/(-?[0-9]*)$(-?[0-9]*)\%$ (-?[0-9]*)/(-?[0-9]*)$(-?[0-9]*)\%$ (-?[0-9]*)/(-?[0-9]*) \[(-?[0-9]*)\] (-?[0-9]*)/(-?[0-9]*)$(-?[0-9]*)\%?$ t([0-9]+)>" substitute_prompt1 =\
;set prompt vars
/set prompt_sanctuary %{P1}%;\
/set prompt_werrebocler %{P2}%;\
/set prompt_demonfire %{P3}%;\
/set prompt_stance %{P4}%;\
/set prompt_invis %{P5}%;\
/set prompt_move_hidden %{P6}%;\
/set prompt_sneak %{P7}%;\
/set prompt_deaf %{P8}%;\
/set prompt_afk %{P9}%;\
/test prompt_hp:=strip_attr({P10})%;\
/test prompt_hp_max:=strip_attr({P11})%;\
/test prompt_hp_relative:=strip_attr({P12})%;\
/test prompt_mana:=strip_attr({P13})%;\
/test prompt_mana_max:=strip_attr({P14})%;\
/test prompt_mana_relative:=strip_attr({P15})%;\
/test prompt_move:=strip_attr({P16})%;\
/test prompt_move_max:=strip_attr({P17})%;\
/test prompt_tnl:=strip_attr({P18})%;\
/test prompt_monitor:=strip_attr({P19})%;\
/test prompt_monitor_max:=strip_attr({P20})%;\
/test prompt_monitor_relative:=strip_attr({P21})%;\
/test prompt_lagtimer:=strip_attr({P22})%;\
/set prompt_hp_diff $[prompt_hp_max - prompt_hp]%;\
/set prompt_mana_diff $[prompt_mana_max - prompt_mana]%;\
/set prompt_monitor_diff -%;\
/test (prompt_monitor_max !~ "-") & (prompt_monitor_diff:=prompt_monitor_max - prompt_monitor)%;\
;color hp
/if (prompt_hp_relative <= 30) \
/test (prompt_hp:=decode_attr(prompt_hp, "Cred"), \
prompt_hp_max:=decode_attr(prompt_hp_max, "Cred"), \
prompt_hp_diff:=decode_attr(prompt_hp_diff, "Cred"), \
prompt_hp_relative:=decode_attr(prompt_hp_relative, "Cred"))%;\
/elseif (prompt_hp_relative <= 70) \
/test (prompt_hp:=decode_attr(prompt_hp, "Cyellow"), \
prompt_hp_max:=decode_attr(prompt_hp_max, "Cyellow"), \
prompt_hp_diff:=decode_attr(prompt_hp_diff, "Cyellow"), \
prompt_hp_relative:=decode_attr(prompt_hp_relative, "Cyellow"))%;\
/else \
/test (prompt_hp:=decode_attr(prompt_hp, "Cgreen"), \
prompt_hp_max:=decode_attr(prompt_hp_max, "Cgreen"), \
prompt_hp_diff:=decode_attr(prompt_hp_diff, "Cgreen"), \
prompt_hp_relative:=decode_attr(prompt_hp_relative, "Cgreen"))%;\
/endif%;\
;color mana
/if (prompt_mana_relative <= 30) \
/test (prompt_mana:=decode_attr(prompt_mana, "Cred"), \
prompt_mana_max:=decode_attr(prompt_mana_max, "Cred"), \
prompt_mana_diff:=decode_attr(prompt_mana_diff, "Cred"), \
prompt_mana_relative:=decode_attr(prompt_mana_relative, "Cred"))%;\
/elseif (prompt_mana_relative <= 70) \
/test (prompt_mana:=decode_attr(prompt_mana, "Cyellow"), \
prompt_mana_max:=decode_attr(prompt_mana_max, "Cyellow"), \
prompt_mana_diff:=decode_attr(prompt_mana_diff, "Cyellow"), \
prompt_mana_relative:=decode_attr(prompt_mana_relative, "Cyellow"))%;\
/else \
/test (prompt_mana:=decode_attr(prompt_mana, "Cgreen"), \
prompt_mana_max:=decode_attr(prompt_mana_max, "Cgreen"), \
prompt_mana_diff:=decode_attr(prompt_mana_diff, "Cgreen"), \
prompt_mana_relative:=decode_attr(prompt_mana_relative, "Cgreen"))%;\
/endif%;\
;color monitor
/if (prompt_monitor_relative <= 30) \
/test (prompt_monitor:=decode_attr(prompt_monitor, "Cred"), \
prompt_monitor_max:=decode_attr(prompt_monitor_max, "Cred"), \
prompt_monitor_diff:=decode_attr(prompt_monitor_diff, "Cred"), \
prompt_monitor_relative:=decode_attr(prompt_monitor_relative, "Cred"))%;\
/elseif (prompt_monitor_relative <= 70) \
/test (prompt_monitor:=decode_attr(prompt_monitor, "Cyellow"), \
prompt_monitor_max:=decode_attr(prompt_monitor_max, "Cyellow"), \
prompt_monitor_diff:=decode_attr(prompt_monitor_diff, "Cyellow"), \
prompt_monitor_relative:=decode_attr(prompt_monitor_relative, "Cyellow"))%;\
/else \
/test (prompt_monitor:=decode_attr(prompt_monitor, "Cgreen"), \
prompt_monitor_max:=decode_attr(prompt_monitor_max, "Cgreen"), \
prompt_monitor_diff:=decode_attr(prompt_monitor_diff, "Cgreen"), \
prompt_monitor_relative:=decode_attr(prompt_monitor_relative, "Cgreen"))%;\
/endif%;\
;color mv green
/test (prompt_move:=decode_attr(prompt_move, "Cgreen"), \
prompt_move_max:=decode_attr(prompt_move_max, "Cgreen"))%;\
;color tnl
/if (prompt_tnl > 500) /set prompt_tnl $[decode_attr(prompt_tnl, "Cgreen")]%;\
/elseif (prompt_tnl > 300) /set prompt_tnl $[decode_attr(prompt_tnl, "BCgreen")]%;\
/elseif (prompt_tnl > 150) /set prompt_tnl $[decode_attr(prompt_tnl, "Cyellow")]%;\
/else /set prompt_tnl $[decode_attr(prompt_tnl, "BCyellow")]%;\
/endif%;\
;for the status line
/set status_tnl [%{prompt_tnl}]%;\
;color lagtimer
/test prompt_lagtimer:=decode_attr(prompt_lagtimer, "Cgreen")%;\
;finally, the substitute
/substitute -aCgreen \
;prompt symbols
%{prompt_sanctuary}%{prompt_werrebocler}%{prompt_demonfire}\
%{prompt_stance}%{prompt_invis}%{prompt_move_hidden}%{prompt_sneak}\
%{prompt_deaf}\
;hp
<%{prompt_hp}/%{prompt_hp_max}(%{prompt_hp_diff}|%{prompt_hp_relative}%%) \
;mana
%{prompt_mana}/%{prompt_mana_max}(%{prompt_mana_diff}|%{prompt_mana_relative}%%) \
;mv
%{prompt_move}mv \
;
;[tnl] -- uncomment the next line to restore tnl to the prompt you see
; [%{prompt_tnl}] \
;
;monitor
%{prompt_monitor}/%{prompt_monitor_max}(%{prompt_monitor_diff}|%{prompt_monitor_relative}%%) \
;lag timer
t%{prompt_lagtimer}\
>

;Grab prompt2 and set the status line variables
;Also, pretend to send PROMPT_EXE to the server if prompt_exe is set...
/def -i -ag -F -p400 -mregexp -t"^<s([^ ]+) a([^ ]+) q([^ ]+)>$" substitute_prompt2 =\
/test prompt_surge:=strip_attr({P1})%;\
/test prompt_augment:=strip_attr({P2})%;\
/test prompt_quicken:=strip_attr({P3})%;\
/set status_surge s%{prompt_surge}%;\
/set status_augment a%{prompt_augment}%;\
/set status_quicken q%{prompt_quicken}%;\
/test (status_surge =~ "soff") & (status_surge:="s0")%;\
/test (status_augment =~ "aoff") & (status_augment:="a0")%;\
/test (status_quicken =~ "qoff") & (status_quicken:="q0")%;\
;color surge
/if (prompt_surge >= 4) \
/set status_attr_var_status_surge BCyellow%;\
/elseif (prompt_surge >= 2) \
/set status_attr_var_status_surge Cyellow%;\
/else \
/set status_attr_var_status_surge=%;\
/endif%;\
;color augment
/if (prompt_augment >= 4) \
/set status_attr_var_status_augment BCyellow%;\
/elseif (prompt_augment >= 2) \
/set status_attr_var_status_augment Cyellow%;\
/else \
/set status_attr_var_status_augment=%;\
/endif%;\
;color quicken
/if (prompt_quicken >= 1) \
/set status_attr_var_status_quicken BCyellow%;\
/else \
/set status_attr_var_status_quicken=%;\
/endif%;\
/if (prompt_exe !~ "") /send -h PROMPT_EXE %{prompt_exe}%;/endif

;... except that we intercept the PROMPT_EXE with this send hook. Other scripts
; can now use a send hook with priority >990 to know when we got a prompt in.
;If you'd change the hook please be aware that unlike triggers, hooks apparently
; need a body to do anything at all!
/def -i -p990 -mglob -h'send PROMPT_EXE*' send_hook_PROMPT_EXE = /test

;Set the prompts right automagically at login
/def -i -p900 -F -i -t"Welcome back to the AVATAR System*" prompt_wb = \
/set prompt_lagtimer err%;\
/set prompt_mana_diff err%;\
/set prompt_surge err%;\
/set prompt_quicken err%;\
/repeat -0.5 1 /prompt_check

/def -i prompt_check = \
/if ((prompt_surge =~ "err") | \
(prompt_lagtimer =~ "err") | \
(prompt_surge =~ "err") | \
(prompt_quicken =~ "err")) \
/echo -aCcyan %%% Setting prompt compatible to prompt.tf%;\
/prompt_set%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Enchantbag.tf

2008-11-11T06:38:00Z

Sulfar: yanked some info, wiki complained page got to long ;) also changed a value in the example config

<h4>Features</h4>
So you have a pile of armor to enchant. And a couple of weapons and bows to go with that. Well you toss it all in fodderbag, run this script, and collect the results from upgradebag, sparebag or wastebag. Or if you don't configure it with your current gear, you can collect the items from brillbag, shimmerbag, wastebag. It accepts some options:

* -l enchanting with an unshadowed lord
* -w<level> level we want to wear the item at
* -x<command> execute <command> when done

The script uses "get 1. fodderbag", identifies 1., and enchants 1. . It will check the names of
* the item you got from the fodderbag
* the first item in your inventory
* the name of the item it's identifying
If they're not all the same it won't enchant the item.

It sets config +blind, +combine, -condition, +nosummon, +notake, +nodisturb and filter +spellother to decrease the chance of anything/anyone messing up the script. That should make sure the triggers don't respond on people cutting/pasting brills to channels, the triggers work on you inventory, your regen is not interrupted and the triggers won't respond to other players enchants. Config +blind doesn't affect grtz channel but that is still covered by safechannel.tf. The script uses config.tf to store/restore your configuration.

<h4>Example config file</h4>
The script will try to load an enchantbag.gear.tf file with a configuration of gear. It's simply a list of variables, like

<pre>
/set enchantbag_hero_essence_amorphous_orb 11dr 10dr
/set enchantbag_hero_hero_heroes_shield b12 b12
/set enchantbag_hero_bow_sliver_glowing_moonlight_arc 21hr
/set enchantbag_hero_lemans_family_seal_talisman b12 -9 b12 -6

;To reuse a value for an equivalent item, you could
/eval /set enchantbag_hero_mother_pearl %{enchantbag_hero_lemans_family_seal_talisman}

;Lord stuff
/set enchantbag_lord_essence_amorphous_orb 15dr 13dr
</pre>

To make the variable name, you'd append "enchantbag_" with either "hero_", "lord_", or "lowmort_", then append that with the keywords you get from identify, remove "weird" characters (anything not in [a-zA-Z0-9 ]) and turn spaces into underscores.

The first value is the current gear, anything above that will go into upgradebag. The second value is the lowest spare that should go into sparebag. The script currently treats spares kinda aggressively, it'll try to enchant a 12 -3 spare to a 12 -6 spare if the level permits, even if you have 12 -3 as lowest spare to keep. Perhaps I should switch that around, I don't know yet. You can omit the second value, it'll then use the default ranges for spares.

If you're enchanting armor and want to use the configuration, you'll also need to add the item to [[identify.tf]] to know the multiplier for the armor class.

<h4>Stuff you need</h4>
This script uses [[config.tf]], [[verbose.tf]], [[enchant.tf]] and [[identify.tf]] so you'll want those if you want to use this script. Config.tf and identify.tf use [[prompt.tf]], and enchant.tf uses [[regen.tf]] and [[safechannel.tf]] so get those while you're at it. <b>If you update this script from an older version, please update these scripts as well,</b> or strange things might happen, or it might not work at all. You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

You'll also need some bags, look at the comments in the script for a list of etches and christens.

<h4>Examples</h4>
Enchant a pile of stuff with a hero for hero tier:
<pre>/enchantbag</pre>

Enchant a pile of mother pearls with an unshadowed lord but for hero tier:
<pre>/enchantbag -l</pre>

Enchant a pile of amorphous orbs or doom shards for lord and sleep afterwards:
<pre>/enchantbag -l -w125 -xsleep</pre>

If you'd want to see all debug spam it produces, try
<pre>/verbose -s3</pre>
<h4>Disclaimer</h4>
I didn't test enchanting piles of lord eq. If you know any such piles please let me know where I can pick them up ;)

I'm guessing a hero level bow would raise 5 levels if you'd enchant it with a lord. I'm not sure. Also don't know why anybody would want to do that so I can't be bothered to check it. I did check all the other level increments.

I've used this script quite a number of times now and debugged it extensively. It works fine for me. However, if you were to vape your b12 -9 shield or heros, or blow your 13/13 hero level doom shard, I'll be more than happy to accept your bug report but will not accept any responsibility for the items. I guess keeping your inventory clean is the way to be 100% sure.

<h4>The script</h4>
<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/eval /require -q %{TINYPREFIX}verbose.tf
/eval /require -q %{TINYPREFIX}enchant.tf
/eval /require -q %{TINYPREFIX}config.tf

/echo -aCyellow %% /enchantbag Enchant all items in fodderbag and distribute results
/echo -aCyellow %% [-l] you're an unshadowed lord. Default: you're a hero
/echo -aCyellow %% [-w<level>] you wear the item at level <level>. Default 51.
/echo -aCyellow %% [-x<command>] execute <command> on exit

;etch christen
;fodderbag Fodderbag
;upgradebag Upgradebag
;sparebag Sparebag
;wastebag Wastebag
;brillbag Brillbag
;shimmerbag Shimmerbag
;
;Only the rename of the fodderbag matters, enchantbag_got_item triggers on it
;Use the same name or change the trigger to match your bag

;When the script exits it sets global var enchantbag_exit to
;0 enchantbag finished correctly with an empty fodderbag
;enchant_err we got an error code from enchant.tf
;no_fodderbag couldnt find the fodderbag
;wrong_name names didn't check out

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 enchantbag

;Range to use if we didn't set the lowest spare to keep in the config file
;Range includes the item in the gear, so if the armor spare range is 4 and the
;item in our gear is a 12 -9 lemans seal, the lowest upgrade would be b12 -10,
;and the spares could be b12 -7, b12 -8, b12 -9. If the level permits
;enchanting tho, the script *will* try to make a b12 -9 spare out of a b12 -6,
;or enchant a 12-9 spare to a 12-12 upgrade.
/set enchantbag_armor_spare_range=3
/set enchantbag_weapon_spare_range=2
/set enchantbag_bow_spare_range=3

;Load file with current gear
/set enchantbag_gear_file=enchantbag.gear.tf
/eval /set enchantbag_path=%{TINYPREFIX}
/eval /load -q %{enchantbag_path}%{enchantbag_gear_file}

;should NOT set enchantbag_post here
/def -i enchantbag_init = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0 initializing .... %;\
/set enchantbag=0%;\
/set enchantbag_name=%;\
/set enchantbag_name_check=0%;\
/set enchantbag_inv=0%;\
/set enchantbag_inv_name=%;\
/set enchantbag_level_increment=0%;\
/set enchantbag_enchant_count=0%;\
/set enchantbag_max_level=0%;\
/set enchantbag_fade=0%;\
/set enchantbag_shimmer=0%;\
/set enchantbag_brill=0%;\
/set enchantbag_vape=0%;\
/set enchantbag_item_known=0%;\
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/set enchantbag_exit=

/enchantbag_init

/def -i enchantbag = \
/enchantbag_init%;\
/set enchantbag=1%;\
/set enchantbag_enchanter_level=51%;\
/set enchantbag_wear_level=51%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aCcyan %%% /%0: Start processing bag.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Loading %{enchantbag_path}%{enchantbag_gear_file}.%;\
/load -q %{enchantbag_path}%{enchantbag_gear_file}%;\
/if (!getopts("lx:w#")) /return 0%; /endif%;\
/if (opt_l) /set enchantbag_enchanter_level 125%;/endif%;\
/if (opt_w) /set enchantbag_wear_level %{opt_w}%;/endif%;\
/set enchantbag_post %{opt_x}%;\
/config_store -senchantbag -x/enchantbag_config_done

/def -i enchantbag_config_done = \
/filter_store -senchantbag -x/enchantbag_filter_done

/def -i enchantbag_filter_done = \
config +blind%;\
config +combine%;\
config -condition%;\
config +nosummon%;\
config +notake%;\
config +nodisturb%;\
filter +spellother%;\
/enchantbag_next_item

/def -i enchantbag_next_item = \
/enchantbag_init%;\
/set enchantbag=1%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Getting next item from the fodderbag.%;\
get 1. fodderbag

;Bag empty. We're finished.
/def -i -E(enchantbag) -p799 -F -t"You see nothing like that in Fodderbag." enchantbag_empty = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Your fodderbag is empty. Exiting /enchantbag.%;\
/enchantbag_exit 0

;Wrong alt? Fodderbag in a bag?
/def -i -E(enchantbag) -p799 -F -t"I see no fodderbag here." enchantbag_no_fodderbag = \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% You are not carrying the fodderbag. Exiting /enchantbag.%;\
/enchantbag_exit no_fodderbag

;New item.
/def -i -E(enchantbag) -p799 -F -mregexp -t"^You get (.+) from Fodderbag.$" enchantbag_got_item = \
/set enchantbag_name %{P1}%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% Got %{enchantbag_name}. Going to identify it.%;\
/identify -x/enchantbag_identify_done 1.

/def -i enchantbag_identify_done = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Done identifying. Doing cross reference on name.%;\
/set enchantbag_name_check 1%;\
inv%;\
look "%{identify_object}"

/def -i -E(enchantbag_name_check) -p799 -t"You are carrying:" enchantbag_inv = \
/def -1 -mregexp -t"^(\$ ?[0-9]+\$| ) (\$[a-zA-Z]+\$ )\*([^\\[]+)( \\[.+)\*\$" _enchantbag_inv = \
/set enchantbag_inv_name=%%{P3}%%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%%% /%%0: First item in inventory is %%enchantbag_inv_name

/def -i -E(enchantbag_name_check) -mregexp -t"^You look at (.+) in your inventory...$" enchantbag_name_check = \
/let identify_name %{P1}%;\
/set enchantbag_name_check 0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Looking at %identify_object, we got: %identify_name%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: First item in inventory is %enchantbag_inv_name%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We got %enchantbag_name from the fodderbag.%;\
/if ((identify_name =~ enchantbag_name) & (identify_name =~ enchantbag_inv_name)) \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Names ok.%;\
/echo%;\
/repeat -0.3 1 /enchantbag_processor%;\
/else \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Names mismatch. Exit. Messy inventory?%;\
/enchantbag_exit wrong_name%;\
/endif

/def -i enchantbag_processor = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Processing identify information.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: brill is %enchantbag_brill, shimmer is %enchantbag_shimmer, level is %identify_level.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: fade is %enchantbag_fade, vape is %enchantbag_vape, enchant_count is %enchantbag_enchant_count%;\
/if (identify_type =~ "armor") \
/enchantbag_pre_armor%;\
/elseif (identify_type =~ "weapon") \
/enchantbag_pre_weapon%;\
/elseif (identify_type =~ "bow") \
/enchantbag_pre_bow%;\
/endif%;\
/if (enchantbag_item_known) \
/if (enchantbag_upgrade) \
put 1. upgradebag%;\
save%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: An upgrade! Stashing... Next!%;\
/enchantbag_next_item%;\
/elseif (enchantbag_possible_upgrade) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A possible upgrade! Enchanting.%;\
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done 1.%;\
/elseif (enchantbag_possible_spare) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A possible spare! Enchanting.%;\
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done 1.%;\
/elseif (enchantbag_spare) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A spare! Stashing... Next!%;\
put 1. sparebag%;\
/enchantbag_next_item%;\
/else \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: This item goes to waste... Next!%;\
put 1. wastebag%;\
/enchantbag_next_item%;\
/endif%;\
/else \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: Item unknown. Using simple distribution method.%;\
/if (enchantbag_brill) \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into brillbag.%;\
put 1. brillbag%;\
/enchantbag_next_item%;\
/elseif (enchantbag_shimmer) \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into shimmerbag.%;\
put 1. shimmerbag%;\
/enchantbag_next_item%;\
/elseif (identify_level < enchantbag_max_level) \
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done 1.%;\
/else \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into wastebag.%;\
put 1. wastebag%;\
/enchantbag_next_item%;\
/endif%;\
/endif

/def -i enchantbag_enchant_done = \
/if (regmatch("^$|no_type|no_item|wrong_type", enchant_exit)) \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Enchant script exit status: %{enchant_exit}%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Exit enchantbag, enchant_err.%;\
/enchantbag_exit enchant_err%;\
/elseif (enchant_exit =~ "wrong_name") \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Enchant script exit status: %{enchant_exit}%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Rechecking names.%;\
/identify -x/enchantbag_identify_done 1.%;\
/elseif (enchant_exit =~ "vape") \
/verbose -o%{verbosity_enchantbag} -l2 - -aCred %%% /%0: Our item vaped... Next!%;\
/enchantbag_next_item%;\
/elseif (enchant_exit =~ "fade") \
/send get idontwanttoLID%;\
/test ++identify_level%;\
/set identify_enchant_armor 0%;\
/set identify_enchant_weapon 0%;\
/set identify_enchant_bow 0%;\
/set enchantbag_fade 1%;\
/set enchantbag_brill 0%;\
/set enchantbag_shimmer 0%;\
/set enchantbag_enchant_count 0%;\
/enchantbag_processor%;\
/else \
/set enchantbag_fade 0%;\
/test identify_level += %enchantbag_level_increment%;\
/test ++enchantbag_enchant_count%;\
/if (enchant_exit =~ "shimmer") \
/test ++enchantbag_shimmer%;\
/if (identify_type =~ "armor") \
/test identify_enchant_armor -= 2%;\
/elseif (identify_type =~ "weapon") \
/test ++identify_enchant_weapon%;\
/elseif (identify_type =~ "bow") \
/test identify_enchant_bow += 2%;\
/endif%;\
/elseif (regmatch("presence|brill", enchant_exit)) \
/test ++enchantbag_brill%;\
/if (identify_type =~ "armor") \
/test identify_enchant_armor -= 3%;\
/elseif (identify_type =~ "weapon") \
/test identify_enchant_weapon += 2%;\
/elseif (identify_type =~ "bow") \
/test identify_enchant_bow += 3%;\
/endif%;\
/endif%;\
/enchantbag_processor%;\
/endif

/def -i enchantbag_pre_armor = \
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/set enchantbag_max_level $[enchantbag_wear_level + 3]%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this piece of armor?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
/set enchantbag_level_increment 5%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/if (!identify_armor_multiplier) \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know the armor multiplier for %identify_object.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/let id_total_armor=0%;\
/let id_max_armor=0%;\
/let acgear_stats=%;\
/let acgear_base=0%;\
/let acgear_enchant=0%;\
/let acgear_total_armor=0%;\
/let acgear_spare_base=0%;\
/let acgear_spare_enchant=0%;\
/let acgear_spare_armor=0%;\
/let possible_enchants=0%;\
/let id_total_armor $[(identify_armor_class * identify_armor_multiplier) - identify_enchant_armor]%;\
/test acgear_stats:=enchantbag_get_stats(identify_object)%;\
/if (acgear_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our acgear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("b([0-9]+) \*(-?\\+?[0-9]\*) \*b?([0-9]\*) \*(-?\\+?[0-9]\*)$$", acgear_stats)%;\
/let acgear_base %{P1}%;\
/let acgear_enchant %{P2}%;\
/let acgear_spare_base %{P3}%;\
/let acgear_spare_enchant %{P4}%;\
/let acgear_total_armor $[acgear_base * identify_armor_multiplier - acgear_enchant]%;\
/let acgear_spare_armor $[acgear_spare_base * identify_armor_multiplier - acgear_spare_enchant]%;\
/if (!acgear_spare_armor) \
/let acgear_spare_armor $[acgear_total_armor - enchantbag_armor_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_armor $[id_total_armor - (possible_enchants * -3)]%;\
/set enchantbag_upgrade $[id_total_armor > acgear_total_armor]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_armor > acgear_total_armor)]%;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_armor >= acgear_spare_armor)]%;\
/set enchantbag_spare $[id_total_armor >= acgear_spare_armor]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: In our acgear, we have base %acgear_base, enchant %acgear_enchant%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Lowest spare we want to keep is base %acgear_spare_base, enchant %acgear_spare_enchant%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Armor class multiplier of this item is %identify_armor_multiplier%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCred %%% /%0: Acgear item has a total armor of %acgear_total_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Spare item has min armor of %acgear_spare_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has a total armor of %id_total_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: We could make the total armor %id_max_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_pre_weapon = \
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this weapon?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/if (regmatch("essence amorphous orb|shard black doom marble", identify_object)) \
/set enchantbag_max_level $[enchantbag_wear_level + 3]%;\
/else \
/set enchantbag_max_level $[enchantbag_wear_level + 5]%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 50)) \
/set enchantbag_level_increment 6%;\
/elseif ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
/set enchantbag_level_increment 5%;\
/elseif ((enchantbag_enchanter_level == 51) & (identify_level < 50)) \
/set enchantbag_level_increment 2%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/let id_total_dr=0%;\
/let id_max_dr=0%;\
/let damgear_stats=%;\
/let damgear_total_dr=0%;\
/let damgear_spare_dr=0%;\
/let possible_enchants=0%;\
/let id_total_dr $[identify_dr+identify_enchant_weapon]%;\
/let damgear_stats $[enchantbag_get_stats(identify_object)]%;\
/if (damgear_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our gear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("([0-9]+)dr \*([0-9]+)?(dr)?$$", damgear_stats)%;\
/let damgear_total_dr %{P1}%;\
/let damgear_spare_dr %{P2}%;\
/if (!damgear_spare_dr) \
/let damgear_spare_dr $[damgear_total_dr - enchantbag_weapon_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_dr $[id_total_dr + (possible_enchants * 2)]%;\
/set enchantbag_upgrade $[id_total_dr > damgear_total_dr]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_dr > damgear_total_dr)] %;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_dr >= damgear_spare_dr)] %;\
/set enchantbag_spare $[id_total_dr >= damgear_spare_dr]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: In our damgear, we have a %{damgear_total_dr}dr weapon%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has %id_total_dr dr.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: So we could make the total dr %id_max_dr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_pre_bow = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: The item is a bow. Preprocessing.%;\
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this bow?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 50)) \
/set enchantbag_level_increment 6%;\
/elseif ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
;DEBUG don't actually know what the level would do if a lord enchanted a hero
;DEBUG bow, this is a guess. Also wouldn't know why you'd want to do a thing
;DEBUG like that
/set enchantbag_level_increment 5%;\
/elseif ((enchantbag_enchanter_level == 51) & (identify_level < 50)) \
/set enchantbag_level_increment 2%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/let id_total_hr=0%;\
/let id_max_hr=0%;\
/let bow_cur_stats=%;\
/let bow_cur_hr=0%;\
/let bow_spare_hr=0%;\
/let possible_enchants=0%;\
/let id_total_hr $[identify_hr+identify_enchant_weapon]%;\
/let bow_cur_stats $[enchantbag_get_stats(identify_object)]%;\
/if (bow_cur_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our gear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("([0-9]+)hr \*([0-9]+)?(hr)?$$", damgear_stats)%;\
/let bow_cur_hr %{P1}%;\
/let bow_spare_hr %{P2}%;\
/if (!bow_spare_hr) \
/let bow_spare_hr $[bow_cur_hr - enchantbag_bow_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_hr $[id_total_hr + (possible_enchants * 3)]%;\
/set enchantbag_upgrade $[id_total_hr > bow_cur_hr]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_hr > bow_cur_hr)] %;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_hr >= bow_spare_hr)] %;\
/set enchantbag_spare $[id_total_hr >= bow_spare_hr]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: We have a %{bow_cur_hr}hr bow in our gear%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has %{id_total_hr}hr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: So we could make the total hr %{id_max_hr}hr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_get_stats = \
/if (enchantbag_wear_level == 51) \
/let var_mid hero%;\
/elseif (enchantbag_wear_level == 125) \
/let var_mid lord%;\
/elseif (enchantbag_wear_level <= 50) \
/let var_mid lowmort%;\
/endif%;\
/let var_right=%*%;\
;DEBUG are there any weird characters in the keywords
;DEBUG other than the ' in the archer's gauntlet..?
/test var_right:=replace("'", "", var_right)%;\
/test var_right:=replace(" ", "_", var_right)%;\
/let varname enchantbag_%{var_mid}_%{var_right}%;\
/eval /verbose -o%{verbosity_enchantbag} -l3 - -aCred %%%% /%0: Stats we have on file for %identify_object is %%{%{varname}}%;\
/eval /return "%%{%{varname}}"

/def -i enchantbag_possible_enchants = \
/let pos_ench=0%;\
/let counter %{identify_level}%;\
/while (counter < enchantbag_wear_level - 1) \
/if (counter + enchantbag_level_increment <= enchantbag_max_level) \
/test ++pos_ench%;\
/endif%;\
/test counter+=enchantbag_level_increment%;\
/done%;\
/if (enchantbag_enchanter_level == enchantbag_wear_level) \
/test pos_ench+=$[enchantbag_max_level-(identify_level+(pos_ench*enchantbag_level_increment))]%;\
/else \
/test pos_ench+=$[(enchantbag_max_level-(identify_level+(pos_ench*enchantbag_level_increment)))/enchantbag_level_increment]%;\
/endif%;\
/if (pos_ench < 0) /let pos_ench 0%;/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: We could enchant %pos_ench more times%;\
/return %{pos_ench}

/def -i enchantbag_exit = \
/let _post %enchantbag_post%;\
/config_restore -senchantbag blind%;\
/config_restore -senchantbag combine%;\
/config_restore -senchantbag condition%;\
/config_restore -senchantbag nosummon%;\
/config_restore -senchantbag notake%;\
/config_restore -senchantbag nodisturb%;\
/config_rmset enchantbag%;\
/filter_restore -senchantbag spellother%;\
/filter_rmset enchantbag%;\
/unset enchantbag%;\
/unset enchantbag_name%;\
/unset enchantbag_name_check%;\
/unset enchantbag_inv%;\
/unset enchantbag_inv_name%;\
/unset enchantbag_level_increment%;\
/unset enchantbag_enchant_count%;\
/unset enchantbag_max_level%;\
/unset enchantbag_fade%;\
/unset enchantbag_shimmer%;\
/unset enchantbag_brill%;\
/unset enchantbag_vape%;\
/unset enchantbag_item_known%;\
/unset enchantbag_upgrade%;\
/unset enchantbag_possible_upgrade%;\
/unset enchantbag_possible_spare%;\
/unset enchantbag_spare%;\
/unset enchantbag_post%;\
/unset enchantbag_enchanter_level%;\
/unset enchantbag_wear_level%;\
/set enchantbag_exit %1%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aCcyan %%% /%0 reports: We're finished. Post command is: %{_post}%;\
/if (_post !~ "") /eval -s0 /repeat -0.3 1 %{_post}%; /endif
</pre>

[[Category: TinyFugue Scripting]]

Group list:colors and format

2008-11-11T02:52:11Z

Sulfar: changed ma to mana

This script changes the format and color of the list you see when you type "group". See the comments in the script for more information.

Also included is a substitute for "groupstat" to include percentages for hp and mana. It strips mv.

<pre>
;Colors
; hp and mana are yellow if they're below 50%, red if they're below 20%.
; tnl is yellow if it's below 250, red if it it's below 100.
; align is yellow if it's between -450 and 450, red if it's between -200 and
; 200.

;The original group list has this green, cyan, etc pattern. With no default
; color set it'll keep as much from that pattern as it can, which is nice by
; itself, but might be confusing if the group is hurt and you get red, cyan,
; green, yellow, green, cyan. Setting a default would change that to red,
; <default>, <default>, yellow, <default>, <default>.
;So if gls_default_color is an empty string it will keep the colors it got from
; avatar. If it's set to a value that value will be used as default color.
;/set gls_default_color=
/set gls_default_color=cyan

;I also made the columns align differently, so the hp/hp_max and mana/mana_max
; aren't just left-aligned, but the '/' is at a fixed position. I like that
; much better.
;
;Original:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000
; 2|973 Hero Enchantress Stand 1765/1765 6039/6110 4114/5216 819 1000
; 3| 6 Lord Kimla Stand 2086/2086 1095/4686 4283/4283 14458 1000
;
;With this substitute:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000.
; 2|973 Hero Enchantress Stand 1765/1765 6037/6110 4114/5216 819 1000.
; 3| 6 Lord Kimla Stand 2086/2086 1020/4686 4283/4283 14458 1000.

;It appends a dot to each line so you can easily see the trigger is working.

/def -i -mregexp -t"^ *([0-9]+)[^ ] *([0-9]+) *([a-zA-Z]+) *([a-zA-Z]+) *([a-zA-Z]+) *(-?[0-9]+)/([0-9]+) *(-?[0-9]+)/([0-9]+) *(-?[0-9]+)/([0-9]+) *([0-9]+) *(-?[0-9]+)$" group_list_substitute = \
/let _id %{P1}%;\
/let _level %{P2}%;\
/let _tier %{P3}%;\
/let _name %{P4}%;\
/let _pos %{P5}%;\
/let _hp %{P6}%;\
/let _hp_max %{P7}%;\
/let _mana %{P8}%;\
/let _mana_max %{P9}%;\
/let _mv %{P10}%;\
/let _mv_max %{P11}%;\
/let _tnl %{P12}%;\
/let _align %{P13}%;\
;color hp
/if (_hp_max & _hp*100/_hp_max <= 20) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cred"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cred"))%;\
/elseif (_hp_max & _hp*100/_hp_max <= 50) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cyellow"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_hp:=decode_attr(strip_attr(_hp), "C%{gls_default_color}"), _hp_max:=decode_attr(strip_attr(_hp_max), "C%{gls_default_color}"))%;\
/endif%;\
;color mana
/if (_mana_max & _mana*100/_mana_max <= 20) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cred"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cred"))%;\
/elseif (_mana_max & _mana*100/_mana_max <= 50) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cyellow"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_mana:=decode_attr(strip_attr(_mana), "C%{gls_default_color}"), _mana_max:=decode_attr(strip_attr(_mana_max), "C%{gls_default_color}"))%;\
/endif%;\
;color move if there's a default
/if (gls_default_color !~ "") \
/test (_mv:=decode_attr(strip_attr(_mv), "C%{gls_default_color}"), _mv_max:=decode_attr(strip_attr(_mv_max), "C%{gls_default_color}"))%;\
/endif%;\
;color tnl
/if (_tnl <= 100) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cred")%;\
/elseif (_tnl <= 250) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cyellow")%;\
/elseif (gls_default_color !~ "") \
/test _tnl:=decode_attr(strip_attr(_tnl), "C%{gls_default_color}")%;\
/endif%;\
;color align
/if ((_align >= -200) & (_align <= 200)) \
/test _align:=decode_attr(strip_attr(_align), "Cred")%;\
/elseif ((_align >= -450) & (_align <= 450)) \
/test _align:=decode_attr(strip_attr(_align), "Cyellow")%;\
/elseif (gls_default_color !~ "") \
/test _align:=decode_attr(strip_attr(_align), "C%{gls_default_color}")%;\
/endif%;\
;substitute the mud output and do some padding
/substitute -aCcyan -p @{n}$[pad(_id, 2, "|", 1, _level, 3, " ", 1, _tier, -5, \
_name, -13, _pos, -6, _hp, 5, "/", 1, _hp_max, -6, _mana, 5, "/", 1, \
_mana_max, -6, _mv, 5, "/", 1, _mv_max, -6, _tnl, -6, _align, 5)].

/def -i -mregexp -t"^([a-zA-Z]+) is leading ([0-9]+) player(s?) with ([0-9]+)/([0-9]+) hp, ([0-9]+)/([0-9]+) ma, and [0-9]+/[0-9]+ mv.$" groupstat_substitute = \
/let _name %{P1}%;\
/let _players %{P2}%;\
/let _hp %{P4}%;\
/let _hp_max %{P5}%;\
/let _hp_rel=-%;\
/test _hp_max & (_hp_rel:=_hp*100/_hp_max)%;\
/let _mana %{P6}%;\
/let _mana_max %{P7}%;\
/let _mana_rel=-%;\
/test _mana_max & (_mana_rel:=_mana*100/_mana_max)%;\
;color hp
/if (_hp_max & _hp*100/_hp_max <= 20) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cred"), \
_hp_max:=decode_attr(strip_attr(_hp_max), "Cred"), \
_hp_rel:=decode_attr(strip_attr(_hp_rel), "Cred"))%;\
/elseif (_hp_max & _hp*100/_hp_max <= 50) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cyellow"), \
_hp_max:=decode_attr(strip_attr(_hp_max), "Cyellow"), \
_hp_rel:=decode_attr(strip_attr(_hp_rel), "Cyellow"))%;\
/endif%;\
;color mana
/if (_mana_max & _mana*100/_mana_max <= 20) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cred"), \
_mana_max:=decode_attr(strip_attr(_mana_max), "Cred"), \
_mana_rel:=decode_attr(strip_attr(_mana_rel), "Cred"))%;\
/elseif (_mana_max & _mana*100/_mana_max <= 50) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cyellow"), \
_mana_max:=decode_attr(strip_attr(_mana_max), "Cyellow"), \
_mana_rel:=decode_attr(strip_attr(_mana_rel), "Cyellow"))%;\
/endif%;\
/substitute -aCgreen %_name is leading %_players player%{P3} with %_hp/%_hp_max(%_hp_rel%%) hp, and %_mana/%_mana_max(%_mana_rel%%) mana.
</pre>

[[Category: TinyFugue Scripting]]

Group list:colors and format

2008-11-11T02:20:42Z

Sulfar: Adds groupstat substitute

Group list:colors and format

2008-11-11T01:46:46Z

Sulfar: Fixes padding for evil alignment

This script changes the format and color of the list you see when you type "group". See the comments in the script for more information.

<pre>
;Colors
; hp and mana are yellow if they're below 50%, red if they're below 20%.
; tnl is yellow if it's below 250, red if it it's below 100.
; align is yellow if it's between -450 and 450, red if it's between -200 and
; 200.

;The original group list has this green, cyan, etc pattern. With no default
; color set it'll keep as much from that pattern as it can, which is nice by
; itself, but might be confusing if the group is hurt and you get red, cyan,
; green, yellow, green, cyan. Setting a default would change that to red,
; <default>, <default>, yellow, <default>, <default>.
;So if gls_default_color is an empty string it will keep the colors it got from
; avatar. If it's set to a value that value will be used as default color.
;/set gls_default_color=
/set gls_default_color=cyan

;I also made the columns align differently, so the hp/hp_max and mana/mana_max
; aren't just left-aligned, but the '/' is at a fixed position. I like that
; much better.
;
;Original:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000
; 2|973 Hero Enchantress Stand 1765/1765 6039/6110 4114/5216 819 1000
; 3| 6 Lord Kimla Stand 2086/2086 1095/4686 4283/4283 14458 1000
;
;With this substitute:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000.
; 2|973 Hero Enchantress Stand 1765/1765 6037/6110 4114/5216 819 1000.
; 3| 6 Lord Kimla Stand 2086/2086 1020/4686 4283/4283 14458 1000.

;It appends a dot to each line so you can easily see the trigger is working.

/def -i -mregexp -t"^ *([0-9]+)[^ ] *([0-9]+) *([a-zA-Z]+) *([a-zA-Z]+) *([a-zA-Z]+) *(-?[0-9]+)/([0-9]+) *(-?[0-9]+)/([0-9]+) *(-?[0-9]+)/([0-9]+) *([0-9]+) *(-?[0-9]+)$" group_list_substitute = \
/let _id %{P1}%;\
/let _level %{P2}%;\
/let _tier %{P3}%;\
/let _name %{P4}%;\
/let _pos %{P5}%;\
/let _hp %{P6}%;\
/let _hp_max %{P7}%;\
/let _mana %{P8}%;\
/let _mana_max %{P9}%;\
/let _mv %{P10}%;\
/let _mv_max %{P11}%;\
/let _tnl %{P12}%;\
/let _align %{P13}%;\
;color hp
/if (_hp_max & _hp*100/_hp_max <= 20) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cred"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cred"))%;\
/elseif (_hp_max & _hp*100/_hp_max <= 50) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cyellow"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_hp:=decode_attr(strip_attr(_hp), "C%{gls_default_color}"), _hp_max:=decode_attr(strip_attr(_hp_max), "C%{gls_default_color}"))%;\
/endif%;\
;color mana
/if (_mana_max & _mana*100/_mana_max <= 20) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cred"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cred"))%;\
/elseif (_mana_max & _mana*100/_mana_max <= 50) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cyellow"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_mana:=decode_attr(strip_attr(_mana), "C%{gls_default_color}"), _mana_max:=decode_attr(strip_attr(_mana_max), "C%{gls_default_color}"))%;\
/endif%;\
;color move if there's a default
/if (gls_default_color !~ "") \
/test (_mv:=decode_attr(strip_attr(_mv), "C%{gls_default_color}"), _mv_max:=decode_attr(strip_attr(_mv_max), "C%{gls_default_color}"))%;\
/endif%;\
;color tnl
/if (_tnl <= 100) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cred")%;\
/elseif (_tnl <= 250) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cyellow")%;\
/elseif (gls_default_color !~ "") \
/test _tnl:=decode_attr(strip_attr(_tnl), "C%{gls_default_color}")%;\
/endif%;\
;color align
/if ((_align >= -200) & (_align <= 200)) \
/test _align:=decode_attr(strip_attr(_align), "Cred")%;\
/elseif ((_align >= -450) & (_align <= 450)) \
/test _align:=decode_attr(strip_attr(_align), "Cyellow")%;\
/elseif (gls_default_color !~ "") \
/test _align:=decode_attr(strip_attr(_align), "C%{gls_default_color}")%;\
/endif%;\
;substitute the mud output and do some padding
/substitute -aCcyan -p @{n}$[pad(_id, 2, "|", 1, _level, 3, " ", 1, _tier, -5, \
_name, -13, _pos, -6, _hp, 5, "/", 1, _hp_max, -6, _mana, 5, "/", 1, \
_mana_max, -6, _mv, 5, "/", 1, _mv_max, -6, _tnl, -6, _align, 5)].
</pre>

[[Category: TinyFugue Scripting]]

Group list:colors and format

2008-11-11T01:28:27Z

Sulfar: fixed possible division by zero (zerk mana)

This script changes the format and color of the list you see when you type "group". See the comments in the script for more information.

<pre>
;Colors
; hp and mana are yellow if they're below 50%, red if they're below 20%.
; tnl is yellow if it's below 250, red if it it's below 100.
; align is yellow if it's between -450 and 450, red if it's between -200 and
; 200.

;The original group list has this green, cyan, etc pattern. With no default
; color set it'll keep as much from that pattern as it can, which is nice by
; itself, but might be confusing if the group is hurt and you get red, cyan,
; green, yellow, green, cyan. Setting a default would change that to red,
; <default>, <default>, yellow, <default>, <default>.
;So if gls_default_color is an empty string it will keep the colors it got from
; avatar. If it's set to a value that value will be used as default color.
;/set gls_default_color=
/set gls_default_color=cyan

;I also made the columns align differently, so the hp/hp_max and mana/mana_max
; aren't just left-aligned, but the '/' is at a fixed position. I like that
; much better.
;
;Original:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000
; 2|973 Hero Enchantress Stand 1765/1765 6039/6110 4114/5216 819 1000
; 3| 6 Lord Kimla Stand 2086/2086 1095/4686 4283/4283 14458 1000
;
;With this substitute:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000.
; 2|973 Hero Enchantress Stand 1765/1765 6037/6110 4114/5216 819 1000.
; 3| 6 Lord Kimla Stand 2086/2086 1020/4686 4283/4283 14458 1000.

;It appends a dot to each line so you can easily see the trigger is working.

/def -i -mregexp -t"^ *([0-9]+)[^ ] *([0-9]+) *([a-zA-Z]+) *([a-zA-Z]+) *([a-zA-Z]+) *(-?[0-9]+)/([0-9]+) *(-?[0-9]+)/([0-9]+) *(-?[0-9]+)/([0-9]+) *([0-9]+) *(-?[0-9]+)$" group_list_substitute = \
/let _id %{P1}%;\
/let _level %{P2}%;\
/let _tier %{P3}%;\
/let _name %{P4}%;\
/let _pos %{P5}%;\
/let _hp %{P6}%;\
/let _hp_max %{P7}%;\
/let _mana %{P8}%;\
/let _mana_max %{P9}%;\
/let _mv %{P10}%;\
/let _mv_max %{P11}%;\
/let _tnl %{P12}%;\
/let _align %{P13}%;\
;color hp
/if (_hp_max & _hp*100/_hp_max <= 20) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cred"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cred"))%;\
/elseif (_hp_max & _hp*100/_hp_max <= 50) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cyellow"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_hp:=decode_attr(strip_attr(_hp), "C%{gls_default_color}"), _hp_max:=decode_attr(strip_attr(_hp_max), "C%{gls_default_color}"))%;\
/endif%;\
;color mana
/if (_mana_max & _mana*100/_mana_max <= 20) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cred"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cred"))%;\
/elseif (_mana_max & _mana*100/_mana_max <= 50) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cyellow"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_mana:=decode_attr(strip_attr(_mana), "C%{gls_default_color}"), _mana_max:=decode_attr(strip_attr(_mana_max), "C%{gls_default_color}"))%;\
/endif%;\
;color move if there's a default
/if (gls_default_color !~ "") \
/test (_mv:=decode_attr(strip_attr(_mv), "C%{gls_default_color}"), _mv_max:=decode_attr(strip_attr(_mv_max), "C%{gls_default_color}"))%;\
/endif%;\
;color tnl
/if (_tnl <= 100) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cred")%;\
/elseif (_tnl <= 250) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cyellow")%;\
/elseif (gls_default_color !~ "") \
/test _tnl:=decode_attr(strip_attr(_tnl), "C%{gls_default_color}")%;\
/endif%;\
;color align
/if ((_align >= -200) & (_align <= 200)) \
/test _align:=decode_attr(strip_attr(_align), "Cred")%;\
/elseif ((_align >= -450) & (_align <= 450)) \
/test _align:=decode_attr(strip_attr(_align), "Cyellow")%;\
/elseif (gls_default_color !~ "") \
/test _align:=decode_attr(strip_attr(_align), "C%{gls_default_color}")%;\
/endif%;\
;substitute the mud output and do some padding
/substitute -aCcyan -p @{n}$[pad(_id, 2, "|", 1, _level, 3, " ", 1, _tier, -5, \
_name, -13, _pos, -6, _hp, 5, "/", 1, _hp_max, -6, _mana, 5, "/", 1, \
_mana_max, -6, _mv, 5, "/", 1, _mv_max, -6, _tnl, -7, _align, 4)].
</pre>

[[Category: TinyFugue Scripting]]

Group list:colors and format

2008-11-10T07:59:31Z

Sulfar: Colors mv to the default color as well

This script changes the format and color of the list you see when you type "group". See the comments in the script for more information.

<pre>
;Colors
; hp and mana are yellow if they're below 50%, red if they're below 20%.
; tnl is yellow if it's below 250, red if it it's below 100.
; align is yellow if it's between -450 and 450, red if it's between -200 and
; 200.

;The original group list has this green, cyan, etc pattern. With no default
; color set it'll keep as much from that pattern as it can, which is nice by
; itself, but might be confusing if the group is hurt and you get red, cyan,
; green, yellow, green, cyan. Setting a default would change that to red,
; <default>, <default>, yellow, <default>, <default>.
;So if gls_default_color is an empty string it will keep the colors it got from
; avatar. If it's set to a value that value will be used as default color.
;/set gls_default_color=
/set gls_default_color=cyan

;I also made the columns align differently, so the hp/hp_max and mana/mana_max
; aren't just left-aligned, but the '/' is at a fixed position. I like that
; much better.
;
;Original:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000
; 2|973 Hero Enchantress Stand 1765/1765 6039/6110 4114/5216 819 1000
; 3| 6 Lord Kimla Stand 2086/2086 1095/4686 4283/4283 14458 1000
;
;With this substitute:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000.
; 2|973 Hero Enchantress Stand 1765/1765 6037/6110 4114/5216 819 1000.
; 3| 6 Lord Kimla Stand 2086/2086 1020/4686 4283/4283 14458 1000.

;It appends a dot to each line so you can easily see the trigger is working.

/def -i -mregexp -t"^ *([0-9]+)[^ ] *([0-9]+) *([a-zA-Z]+) *([a-zA-Z]+) *([a-zA-Z]+) *(-?[0-9]+)/([0-9]+) *(-?[0-9]+)/([0-9]+) *(-?[0-9]+)/([0-9]+) *([0-9]+) *(-?[0-9]+)$" group_list_substitute = \
/let _id %{P1}%;\
/let _level %{P2}%;\
/let _tier %{P3}%;\
/let _name %{P4}%;\
/let _pos %{P5}%;\
/let _hp %{P6}%;\
/let _hp_max %{P7}%;\
/let _mana %{P8}%;\
/let _mana_max %{P9}%;\
/let _mv %{P10}%;\
/let _mv_max %{P11}%;\
/let _tnl %{P12}%;\
/let _align %{P13}%;\
;color hp
/if ((_hp*100/_hp_max) <= 20) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cred"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cred"))%;\
/elseif ((_hp*100/_hp_max) <= 50) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cyellow"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_hp:=decode_attr(strip_attr(_hp), "C%{gls_default_color}"), _hp_max:=decode_attr(strip_attr(_hp_max), "C%{gls_default_color}"))%;\
/endif%;\
;color mana
/if ((_mana*100/_mana_max) <= 20) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cred"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cred"))%;\
/elseif ((_mana*100/_mana_max) <= 50) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cyellow"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_mana:=decode_attr(strip_attr(_mana), "C%{gls_default_color}"), _mana_max:=decode_attr(strip_attr(_mana_max), "C%{gls_default_color}"))%;\
/endif%;\
;color move if there's a default
/if (gls_default_color !~ "") \
/test (_mv:=decode_attr(strip_attr(_mv), "C%{gls_default_color}"), _mv_max:=decode_attr(strip_attr(_mv_max), "C%{gls_default_color}"))%;\
/endif%;\
;color tnl
/if (_tnl <= 100) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cred")%;\
/elseif (_tnl <= 250) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cyellow")%;\
/elseif (gls_default_color !~ "") \
/test _tnl:=decode_attr(strip_attr(_tnl), "C%{gls_default_color}")%;\
/endif%;\
;color align
/if ((_align >= -200) & (_align <= 200)) \
/test _align:=decode_attr(strip_attr(_align), "Cred")%;\
/elseif ((_align >= -450) & (_align <= 450)) \
/test _align:=decode_attr(strip_attr(_align), "Cyellow")%;\
/elseif (gls_default_color !~ "") \
/test _align:=decode_attr(strip_attr(_align), "C%{gls_default_color}")%;\
/endif%;\
;substitute the mud output and do some padding
/substitute -aCcyan -p @{n}$[pad(_id, 2, "|", 1, _level, 3, " ", 1, _tier, -5, \
_name, -13, _pos, -6, _hp, 5, "/", 1, _hp_max, -6, _mana, 5, "/", 1, \
_mana_max, -6, _mv, 5, "/", 1, _mv_max, -6, _tnl, -7, _align, 4)].
</pre>

[[Category: TinyFugue Scripting]]

Group list:colors and format

2008-11-10T07:29:08Z

Sulfar: Now colors alignment as well

This script changes the format and color of the list you see when you type "group". See the comments in the script for more information.

<pre>
;Colors
; hp and mana are yellow if they're below 50%, red if they're below 20%.
; tnl is yellow if it's below 250, red if it it's below 100.
; align is yellow if it's between -450 and 450, red if it's between -200 and
; 200.

;The original group list has this green, cyan, etc pattern. With no default
; color set it'll keep as much from that pattern as it can, which is nice by
; itself, but might be confusing if the group is hurt and you get red, cyan,
; green, yellow, green, cyan. Setting a default would change that to red,
; <default>, <default>, yellow, <default>, <default>.
;So if gls_default_color is an empty string it will keep the colors it got from
; avatar. If it's set to a value that value will be used as default color.
;/set gls_default_color=
/set gls_default_color=cyan

;I also made the columns align differently, so the hp/hp_max and mana/mana_max
; aren't just left-aligned, but the '/' is at a fixed position. I like that
; much better.
;
;Original:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000
; 2|973 Hero Enchantress Stand 1765/1765 6039/6110 4114/5216 819 1000
; 3| 6 Lord Kimla Stand 2086/2086 1095/4686 4283/4283 14458 1000
;
;With this substitute:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000.
; 2|973 Hero Enchantress Stand 1765/1765 6037/6110 4114/5216 819 1000.
; 3| 6 Lord Kimla Stand 2086/2086 1020/4686 4283/4283 14458 1000.

;It appends a dot to each line so you can easily see the trigger is working.

/def -i -mregexp -t"^ *([0-9]+)[^ ] *([0-9]+) *([a-zA-Z]+) *([a-zA-Z]+) *([a-zA-Z]+) *(-?[0-9]+)/([0-9]+) *(-?[0-9]+)/([0-9]+) *(-?[0-9]+)/([0-9]+) *([0-9]+) *(-?[0-9]+)$" group_list_substitute = \
/let _id %{P1}%;\
/let _level %{P2}%;\
/let _tier %{P3}%;\
/let _name %{P4}%;\
/let _pos %{P5}%;\
/let _hp %{P6}%;\
/let _hp_max %{P7}%;\
/let _mana %{P8}%;\
/let _mana_max %{P9}%;\
/let _mv %{P10}%;\
/let _mv_max %{P11}%;\
/let _tnl %{P12}%;\
/let _align %{P13}%;\
;color hp
/if ((_hp*100/_hp_max) <= 20) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cred"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cred"))%;\
/elseif ((_hp*100/_hp_max) <= 50) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cyellow"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_hp:=decode_attr(strip_attr(_hp), "C%{gls_default_color}"), _hp_max:=decode_attr(strip_attr(_hp_max), "C%{gls_default_color}"))%;\
/endif%;\
;color mana
/if ((_mana*100/_mana_max) <= 20) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cred"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cred"))%;\
/elseif ((_mana*100/_mana_max) <= 50) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cyellow"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_mana:=decode_attr(strip_attr(_mana), "C%{gls_default_color}"), _mana_max:=decode_attr(strip_attr(_mana_max), "C%{gls_default_color}"))%;\
/endif%;\
;color tnl
/if (_tnl <= 100) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cred")%;\
/elseif (_tnl <= 250) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cyellow")%;\
/elseif (gls_default_color !~ "") \
/test _tnl:=decode_attr(strip_attr(_tnl), "C%{gls_default_color}")%;\
/endif%;\
;color align
/if ((_align >= -200) & (_align <= 200)) \
/test _align:=decode_attr(strip_attr(_align), "Cred")%;\
/elseif ((_align >= -450) & (_align <= 450)) \
/test _align:=decode_attr(strip_attr(_align), "Cyellow")%;\
/elseif (gls_default_color !~ "") \
/test _align:=decode_attr(strip_attr(_align), "C%{gls_default_color}")%;\
/endif%;\
;substitute the mud output and do some padding
/substitute -aCcyan -p @{n}$[pad(_id, 2, "|", 1, _level, 3, " ", 1, _tier, -5, \
_name, -13, _pos, -6, _hp, 5, "/", 1, _hp_max, -6, _mana, 5, "/", 1, \
_mana_max, -6, _mv, 5, "/", 1, _mv_max, -6, _tnl, -7, _align, 4)].

</pre>

[[Category: TinyFugue Scripting]]

Group list:colors and format

2008-11-10T07:24:20Z

Sulfar: forgot align, hp and perhaps mana/moves could be negative

This script changes the format and color of the list you see when you type "group". See the comments in the script for more information.

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

;Colors
; hp and mana are yellow if they're <= 50%, red if they're <= 20%.
; tnl is yellow if it's <= 250, red if it it's <= 100.

;The original group list has this green, cyan, etc pattern. With no default
; color set it'll keep as much from that pattern as it can, which is nice by
; itself, but might be confusing if the group is hurt and you get red, cyan,
; green, yellow, green, cyan. Setting a default would change that to red,
; <default>, <default>, yellow, <default>, <default>.
;So if gls_default_color is an empty string it will keep the colors it got from
; avatar. If it's set to a value that value will be used as default color.
;
;/set gls_default_color=
/set gls_default_color=cyan

;I also made the columns align differently, so the hp/hp_max and mana/mana_max
; aren't just left-aligned, but the '/' is at a fixed position. I like that
; much better.
;
;Original:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000
; 2|973 Hero Enchantress Stand 1765/1765 6039/6110 4114/5216 819 1000
; 3| 6 Lord Kimla Stand 2086/2086 1095/4686 4283/4283 14458 1000
;
;With this substitute:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000.
; 2|973 Hero Enchantress Stand 1765/1765 6037/6110 4114/5216 819 1000.
; 3| 6 Lord Kimla Stand 2086/2086 1020/4686 4283/4283 14458 1000.

;It appends a dot to each line so you can easily see the trigger is working.

/def -i -mregexp -t"^ *([0-9]+)[^ ] *([0-9]+) *([a-zA-Z]+) *([a-zA-Z]+) *([a-zA-Z]+) *-?([0-9]+)/([0-9]+) *-?([0-9]+)/([0-9]+) *-?([0-9]+)/([0-9]+) *([0-9]+) *-?([0-9]+)$" group_list_substitute = \
/let _id %{P1}%;\
/let _level %{P2}%;\
/let _tier %{P3}%;\
/let _name %{P4}%;\
/let _pos %{P5}%;\
/let _hp %{P6}%;\
/let _hp_max %{P7}%;\
/let _mana %{P8}%;\
/let _mana_max %{P9}%;\
/let _mv %{P10}%;\
/let _mv_max %{P11}%;\
/let _tnl %{P12}%;\
/let _align %{P13}%;\
;color hp
/if ((_hp*100/_hp_max) <= 20) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cred"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cred"))%;\
/elseif ((_hp*100/_hp_max) <= 50) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cyellow"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_hp:=decode_attr(strip_attr(_hp), "C%{gls_default_color}"), _hp_max:=decode_attr(strip_attr(_hp_max), "C%{gls_default_color}"))%;\
/endif%;\
;color mana
/if ((_mana*100/_mana_max) <= 20) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cred"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cred"))%;\
/elseif ((_mana*100/_mana_max) <= 50) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cyellow"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_mana:=decode_attr(strip_attr(_mana), "C%{gls_default_color}"), _mana_max:=decode_attr(strip_attr(_mana_max), "C%{gls_default_color}"))%;\
/endif%;\
;color tnl
/if (_tnl <= 100) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cred")%;\
/elseif (_tnl <= 250) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cyellow")%;\
/elseif (gls_default_color !~ "") \
/test _tnl:=decode_attr(strip_attr(_tnl), "C%{gls_default_color}")%;\
/endif%;\
;substitute the mud output and do the padding
/substitute -aCcyan -p @{n}$[pad(_id, 2, "|", 1, _level, 3, " ", 1, _tier, -5, \
_name, -13, _pos, -6, _hp, 5, "/", 1, _hp_max, -6, _mana, 5, "/", 1, \
_mana_max, -6, _mv, 5, "/", 1, _mv_max, -6, _tnl, -7, _align, 4)].
</pre>

[[Category: TinyFugue Scripting]]

Group list:colors and format

2008-11-10T07:02:16Z

Sulfar: Colors hp/mana/tnl in the output of 'group' and reformats it a bit

This script changes the format and color of the list you see when you type "group". See the comments in the script for more information.

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

;Colors
; hp and mana are yellow if they're <= 50%, red if they're <= 20%.
; tnl is yellow if it's <= 250, red if it it's <= 100.

;The original group list has this green, cyan, etc pattern. With no default
; color set it'll keep as much from that pattern as it can, which is nice by
; itself, but might be confusing if the group is hurt and you get red, cyan,
; green, yellow, green, cyan. Setting a default would change that to red,
; <default>, <default>, yellow, <default>, <default>.
;So if gls_default_color is an empty string it will keep the colors it got from
; avatar. If it's set to a value that value will be used as default color.
;
;/set gls_default_color=
/set gls_default_color=cyan

;I also made the columns align differently, so the hp/hp_max and mana/mana_max
; aren't just left-aligned, but the '/' is at a fixed position. I like that
; much better.
;
;Original:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000
; 2|973 Hero Enchantress Stand 1765/1765 6039/6110 4114/5216 819 1000
; 3| 6 Lord Kimla Stand 2086/2086 1095/4686 4283/4283 14458 1000
;
;With this substitute:
; 1| 24 Mag Darkfader Stand 213/213 538/538 268/268 1296 1000.
; 2|973 Hero Enchantress Stand 1765/1765 6037/6110 4114/5216 819 1000.
; 3| 6 Lord Kimla Stand 2086/2086 1020/4686 4283/4283 14458 1000.

;It appends a dot to each line so you can easily see the trigger is working.

/def -i -mregexp -t"^ *([0-9]+)[^ ] *([0-9]+) *([a-zA-Z]+) *([a-zA-Z]+) *([a-zA-Z]+) *([0-9]+)/([0-9]+) *([0-9]+)/([0-9]+) *([0-9]+)/([0-9]+) *([0-9]+) *([0-9]+)$" group_list_substitute = \
/let _id %{P1}%;\
/let _level %{P2}%;\
/let _tier %{P3}%;\
/let _name %{P4}%;\
/let _pos %{P5}%;\
/let _hp %{P6}%;\
/let _hp_max %{P7}%;\
/let _mana %{P8}%;\
/let _mana_max %{P9}%;\
/let _mv %{P10}%;\
/let _mv_max %{P11}%;\
/let _tnl %{P12}%;\
/let _align %{P13}%;\
;color hp
/if ((_hp*100/_hp_max) <= 20) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cred"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cred"))%;\
/elseif ((_hp*100/_hp_max) <= 50) \
/test (_hp:=decode_attr(strip_attr(_hp), "Cyellow"), _hp_max:=decode_attr(strip_attr(_hp_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_hp:=decode_attr(strip_attr(_hp), "C%{gls_default_color}"), _hp_max:=decode_attr(strip_attr(_hp_max), "C%{gls_default_color}"))%;\
/endif%;\
;color mana
/if ((_mana*100/_mana_max) <= 20) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cred"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cred"))%;\
/elseif ((_mana*100/_mana_max) <= 50) \
/test (_mana:=decode_attr(strip_attr(_mana), "Cyellow"), _mana_max:=decode_attr(strip_attr(_mana_max), "Cyellow"))%;\
/elseif (gls_default_color !~ "") \
/test (_mana:=decode_attr(strip_attr(_mana), "C%{gls_default_color}"), _mana_max:=decode_attr(strip_attr(_mana_max), "C%{gls_default_color}"))%;\
/endif%;\
;color tnl
/if (_tnl <= 100) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cred")%;\
/elseif (_tnl <= 250) \
/test _tnl:=decode_attr(strip_attr(_tnl), "Cyellow")%;\
/elseif (gls_default_color !~ "") \
/test _tnl:=decode_attr(strip_attr(_tnl), "C%{gls_default_color}")%;\
/endif%;\
;substitute the mud output and do the padding
/substitute -aCcyan -p @{n}$[pad(_id, 2, "|", 1, _level, 3, " ", 1, _tier, -5, \
_name, -13, _pos, -6, _hp, 5, "/", 1, _hp_max, -6, _mana, 5, "/", 1, \
_mana_max, -6, _mv, 5, "/", 1, _mv_max, -6, _tnl, -7, _align, 4)].
</pre>

[[Category: TinyFugue Scripting]]

Prompt.tf

2008-11-10T01:03:08Z

Sulfar: rgb010 doesnt seem to play nice with some terminal emulators

A prompt script:
* Values are grabbed
* prompt1 is substituted, hp/mana/monitor are colored to reflect their status
* prompt2 containing surge/augment/quicken levels is gagged, the levels go into the status line and are colored
* Provides an easy way for other scripts to trigger on a prompt
* If you log in with a prompt that's incompatible with prompt.tf, it'll set the prompt to be compatible

Changes:
* prompt_exe: instead of setting prompt_exe to 1, you can now set it to a string and it'll send "PROMPT_EXE <string>". Makes it easier to have multiple scripts use prompt_exe. See the chkaff macro in [[affects.tf]] for an example.

Read the comments in the script for more information.
<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/loaded __SULFAR__/prompt.tf

;These are the prompts I set on the mud.
;prompt <%h/%H(%p) %m/%M(%o) %v/%V [%T] %w/%W(%P) t%s>%n
;prompt2 <s%S a%A q%Q>%n
;also type "prompt2" once or twice and make sure it's on since the trigger below
; gags it

;Prompt1 is substituted by substitute_prompt1. It adds values to see the loss
; in hp, mana and monitor's hp. It also changes the color of hp/mana/monitor.
; If hp is higher than 70% it's colored green, if it's between 30% and 70% it's
; colored yellow, if it's lower than 30% it's colored red. Moves are just
; green currently.
;
;The substitute currently looks like:
;$&<D>[S]!@#<10/30(20|33%) 20/80(60|25%) 90mv 100/700(600|14%) t3>
;first the prompt symbols as usual,
;then hp: you're at 10 hp out of 30, that's 33%, you lost 20,
;then mana: you're at 20 mana out of 80, that's 25% used 60,
;then moves: you're at 90 mv,
;then monitor: is at 100 out of 700, that's 14%, lost 600
;then the lag timer, 3 seconds.

;To save space on the prompt line, I put tnl in tf's statusline as [320] for
; example. Tnl also shifts color, green if it's above 300, yellow for 300 or
; lower, bright yellow for 130 or lower.
;The AFK part of the prompt is captured but not displayed anywhere.

;prompt2 has values for surge, augment, quicken, is gagged and its values are
; captured to status_ variables to use in the tf status line. "Off" values
; are changed to "0" to save some space on the satusline. Surge, augment
; and quicken levels are colored. Surge and augment are green if they're off,
; yellow if 2 or 3, bright yellow if 4 or higher. Quicken is green if it's
; off, bright yellow if it's on.

;I set my status line in a single command in my config file, this is what it
; looks like with the right variables for this script
;/status_add -c @more:8:Br @world:9 :1 status_surge:2 :1 status_augment:2 :1 status_quicken:2 :1 status_tnl :1 insert:2 :1 @clock:16

;If you'd like to use the script and the prompt setting above contains all the
; information you want but just doesn't look the way you want, I'd recommend
; setting it to the format above anyways and then change the substitute below
; to make it appear the way you want.

;If prompt_exe is set to a string tf will send a "PROMPT_EXE <string>" to Avatar
; when it receives a prompt. However, it intercepts the "PROMPT_EXE*" string
; with a send hook of priority 990. This allowes you to make a higher priority
; send hook in a script to do something when you get a prompt in.
/set prompt_exe=

;set mud side prompt to be compatible with prompt.tf
/def -i prompt_set = \
prompt <%%h/%%H(%%p) %%m/%%M(%%o) %%v/%%V [%%T] %%w/%%W(%%P) t%%s>%%n%;\
prompt2 <s%%S a%%A q%%Q>%%n%;\
config +prompt%;\
config +prompt2

;Hooray for regexps!
/def -i -F -p400 -mregexp -t"^(\$|)(\&|)(\<D\>|)(\[S\]|)(\!|)(\@|)(\#|)(\*Deaf\* |)($AFK$ |)<(-?[0-9]*)/(-?[0-9]*)$(-?[0-9]*)\%$ (-?[0-9]*)/(-?[0-9]*)$(-?[0-9]*)\%$ (-?[0-9]*)/(-?[0-9]*) \[(-?[0-9]*)\] (-?[0-9]*)/(-?[0-9]*)$(-?[0-9]*)\%?$ t([0-9]+)>" substitute_prompt1 =\
;set prompt vars
/set prompt_sanctuary %{P1}%;\
/set prompt_werrebocler %{P2}%;\
/set prompt_demonfire %{P3}%;\
/set prompt_stance %{P4}%;\
/set prompt_invis %{P5}%;\
/set prompt_move_hidden %{P6}%;\
/set prompt_sneak %{P7}%;\
/set prompt_deaf %{P8}%;\
/set prompt_afk %{P9}%;\
/test prompt_hp:=strip_attr({P10})%;\
/test prompt_hp_max:=strip_attr({P11})%;\
/test prompt_hp_relative:=strip_attr({P12})%;\
/test prompt_mana:=strip_attr({P13})%;\
/test prompt_mana_max:=strip_attr({P14})%;\
/test prompt_mana_relative:=strip_attr({P15})%;\
/test prompt_move:=strip_attr({P16})%;\
/test prompt_move_max:=strip_attr({P17})%;\
/test prompt_tnl:=strip_attr({P18})%;\
/test prompt_monitor:=strip_attr({P19})%;\
/test prompt_monitor_max:=strip_attr({P20})%;\
/test prompt_monitor_relative:=strip_attr({P21})%;\
/test prompt_lagtimer:=strip_attr({P22})%;\
/set prompt_hp_diff $[prompt_hp_max - prompt_hp]%;\
/set prompt_mana_diff $[prompt_mana_max - prompt_mana]%;\
/set prompt_monitor_diff -%;\
/test (prompt_monitor_max !~ "-") & (prompt_monitor_diff:=prompt_monitor_max - prompt_monitor)%;\
;color hp
/if (prompt_hp_relative <= 30) \
/test (prompt_hp:=decode_attr(prompt_hp, "Cred"), \
prompt_hp_max:=decode_attr(prompt_hp_max, "Cred"), \
prompt_hp_diff:=decode_attr(prompt_hp_diff, "Cred"), \
prompt_hp_relative:=decode_attr(prompt_hp_relative, "Cred"))%;\
/elseif (prompt_hp_relative <= 70) \
/test (prompt_hp:=decode_attr(prompt_hp, "Cyellow"), \
prompt_hp_max:=decode_attr(prompt_hp_max, "Cyellow"), \
prompt_hp_diff:=decode_attr(prompt_hp_diff, "Cyellow"), \
prompt_hp_relative:=decode_attr(prompt_hp_relative, "Cyellow"))%;\
/else \
/test (prompt_hp:=decode_attr(prompt_hp, "Cgreen"), \
prompt_hp_max:=decode_attr(prompt_hp_max, "Cgreen"), \
prompt_hp_diff:=decode_attr(prompt_hp_diff, "Cgreen"), \
prompt_hp_relative:=decode_attr(prompt_hp_relative, "Cgreen"))%;\
/endif%;\
;color mana
/if (prompt_mana_relative <= 30) \
/test (prompt_mana:=decode_attr(prompt_mana, "Cred"), \
prompt_mana_max:=decode_attr(prompt_mana_max, "Cred"), \
prompt_mana_diff:=decode_attr(prompt_mana_diff, "Cred"), \
prompt_mana_relative:=decode_attr(prompt_mana_relative, "Cred"))%;\
/elseif (prompt_mana_relative <= 70) \
/test (prompt_mana:=decode_attr(prompt_mana, "Cyellow"), \
prompt_mana_max:=decode_attr(prompt_mana_max, "Cyellow"), \
prompt_mana_diff:=decode_attr(prompt_mana_diff, "Cyellow"), \
prompt_mana_relative:=decode_attr(prompt_mana_relative, "Cyellow"))%;\
/else \
/test (prompt_mana:=decode_attr(prompt_mana, "Cgreen"), \
prompt_mana_max:=decode_attr(prompt_mana_max, "Cgreen"), \
prompt_mana_diff:=decode_attr(prompt_mana_diff, "Cgreen"), \
prompt_mana_relative:=decode_attr(prompt_mana_relative, "Cgreen"))%;\
/endif%;\
;color monitor
/if (prompt_monitor_relative <= 30) \
/test (prompt_monitor:=decode_attr(prompt_monitor, "Cred"), \
prompt_monitor_max:=decode_attr(prompt_monitor_max, "Cred"), \
prompt_monitor_diff:=decode_attr(prompt_monitor_diff, "Cred"), \
prompt_monitor_relative:=decode_attr(prompt_monitor_relative, "Cred"))%;\
/elseif (prompt_monitor_relative <= 70) \
/test (prompt_monitor:=decode_attr(prompt_monitor, "Cyellow"), \
prompt_monitor_max:=decode_attr(prompt_monitor_max, "Cyellow"), \
prompt_monitor_diff:=decode_attr(prompt_monitor_diff, "Cyellow"), \
prompt_monitor_relative:=decode_attr(prompt_monitor_relative, "Cyellow"))%;\
/else \
/test (prompt_monitor:=decode_attr(prompt_monitor, "Cgreen"), \
prompt_monitor_max:=decode_attr(prompt_monitor_max, "Cgreen"), \
prompt_monitor_diff:=decode_attr(prompt_monitor_diff, "Cgreen"), \
prompt_monitor_relative:=decode_attr(prompt_monitor_relative, "Cgreen"))%;\
/endif%;\
;color mv green
/test (prompt_move:=decode_attr(prompt_move, "Cgreen"), \
prompt_move_max:=decode_attr(prompt_move_max, "Cgreen"))%;\
;color tnl
/if (prompt_tnl > 500) /set prompt_tnl $[decode_attr(prompt_tnl, "Cgreen")]%;\
/elseif (prompt_tnl > 300) /set prompt_tnl $[decode_attr(prompt_tnl, "BCgreen")]%;\
/elseif (prompt_tnl > 150) /set prompt_tnl $[decode_attr(prompt_tnl, "Cyellow")]%;\
/else /set prompt_tnl $[decode_attr(prompt_tnl, "BCyellow")]%;\
/endif%;\
;for the status line
/set status_tnl [%{prompt_tnl}]%;\
;color lagtimer
/test prompt_lagtimer:=decode_attr(prompt_lagtimer, "Cgreen")%;\
;finally, the substitute
/substitute -aCgreen \
;prompt symbols
%{prompt_sanctuary}%{prompt_werrebocler}%{prompt_demonfire}\
%{prompt_stance}%{prompt_invis}%{prompt_move_hidden}%{prompt_sneak}\
%{prompt_deaf}\
;hp
<%{prompt_hp}/%{prompt_hp_max}(%{prompt_hp_diff}|%{prompt_hp_relative}%%) \
;mana
%{prompt_mana}/%{prompt_mana_max}(%{prompt_mana_diff}|%{prompt_mana_relative}%%) \
;mv
%{prompt_move}mv \
;
;[tnl] -- uncomment the next line to restore tnl to the prompt you see
; [%{prompt_tnl}] \
;
;monitor
%{prompt_monitor}/%{prompt_monitor_max}(%{prompt_monitor_diff}|%{prompt_monitor_relative}%%) \
;lag timer
t%{prompt_lagtimer}\
>

;Grab prompt2 and set the status line variables
;Also, pretend to send PROMPT_EXE to the server if prompt_exe is set...
/def -i -ag -F -p400 -mregexp -t"^<s([^ ]+) a([^ ]+) q([^ ]+)>$" substitute_prompt2 =\
/test prompt_surge:=strip_attr({P1})%;\
/test prompt_augment:=strip_attr({P2})%;\
/test prompt_quicken:=strip_attr({P3})%;\
/set status_surge s%{prompt_surge}%;\
/set status_augment a%{prompt_augment}%;\
/set status_quicken q%{prompt_quicken}%;\
/test (status_surge =~ "soff") & (status_surge:="s0")%;\
/test (status_augment =~ "aoff") & (status_augment:="a0")%;\
/test (status_quicken =~ "qoff") & (status_quicken:="q0")%;\
;color surge
/if (prompt_surge >= 4) \
/set status_attr_var_status_surge BCyellow%;\
/elseif (prompt_surge >= 2) \
/set status_attr_var_status_surge Cyellow%;\
/else \
/set status_attr_var_status_surge=%;\
/endif%;\
;color augment
/if (prompt_augment >= 4) \
/set status_attr_var_status_augment BCyellow%;\
/elseif (prompt_augment >= 2) \
/set status_attr_var_status_augment Cyellow%;\
/else \
/set status_attr_var_status_augment=%;\
/endif%;\
;color quicken
/if (prompt_quicken >= 1) \
/set status_attr_var_status_quicken BCyellow%;\
/else \
/set status_attr_var_status_quicken=%;\
/endif%;\
/if (prompt_exe !~ "") /send -h PROMPT_EXE %{prompt_exe}%;/endif

;... except that we intercept the PROMPT_EXE with this send hook. Other scripts
; can now use a send hook with priority >990 to know when we got a prompt in.
;If you'd change the hook please be aware that unlike triggers, hooks apparently
; need a body to do anything at all!
/def -i -p990 -mglob -h'send PROMPT_EXE*' send_hook_PROMPT_EXE = /test

;Set the prompts right automagically at login
/def -i -p900 -F -i -t"Welcome back to the AVATAR System*" prompt_wb = \
/set prompt_lagtimer err%;\
/set prompt_mana_diff err%;\
/set prompt_surge err%;\
/set prompt_quicken err%;\
/repeat -0.5 1 /prompt_check

/def -i prompt_check = \
/if ((prompt_surge =~ "err") | \
(prompt_lagtimer =~ "err") | \
(prompt_surge =~ "err") | \
(prompt_quicken =~ "err")) \
/echo -aCcyan %%% Setting prompt compatible to prompt.tf%;\
/prompt_set%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Verbose.tf

2008-11-10T01:01:47Z

Sulfar: More trailing whitespaces removed

While writing a new script, I often wrote a quick "/echo variable is %{variable}" in a macro to see if the values of variables were computed correctly. When I had finished writing the script I'd remove them to reduce the spam on my screen. Sometimes though when I decided to take a different approach to some macros I'd find myself adding pretty much the same /echo's again, rewrite the macro's and then remove them again.

Duh. Wouldn't it be nice if I could just leave them in there and turn them on and off when i want to?

Also, suppose you'd write a somewhat more complicated script that can run for a while and change a lot of variables. Sometimes you'd like to see a lot of debug info, and sometimes you just want to let it do its job without spamming you crazy while you're chatting.

This script makes that pretty easy. To use it in a script I have TINYPREFIX set in my config file, pointing at the directory with my tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>
and load it with this line in the script:
<pre>/eval /require -q %{TINYPREFIX}verbose.tf</pre>

See for example [[identify.tf]] or [[label.tf]].

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/loaded __SULFAR__/verbose.tf

;Flexible script verbosity..

/def -i verbose_usage = \
/echo -aCyellow %%% /verbose Shows usage and current levels%;\
/echo -aCyellow %%% /verbose <line> /echo <line> if verbosity level is 1 or higher%;\
/echo -aCyellow %%% [-l<level>] /echo if verbosity level is <level> or higher%;\
/echo -aCyellow %%% [-o<level>] override verbosity level with <level>%;\
/echo -aCyellow %%% [-s<level>] [<script>]set verbosity level (of <script>) to <level>

/verbose_usage

; Instead of just /echoing lines to the screen, scripts can use /verbose
; so you can easily change the spamminess of scripts. You can set a
; sytem verbosity level in this script, or override it with a script
; verbosity level in another script.

; The verbosity levels I use are:
;
; 0 Complete silence
; 1 Script announces itself and may print additional information
; if it could actually be useful while playing
; 2 All macros announce themselves, sometimes with variables and values
; 3 Full debug mode, all available spam including variables and values
;

; A higher level verbosity does include a lower level.

; Default system wide verbosity level
/set verbosity 1

; Everything after a single - is fed to /echo as is, so to use /verbose to
; print a line in red if the verbosity level is 1 or higher, you could
; /verbose - -aCred a line
; and the -aCred will be seen as option for /echo.

; The -l option indicates at which verbosity level the line should be printed
; and defaults to 1.

; Individual scripts can pass their own verbosity level with -o. If the
; level given by -o is 0 or positive it will override %verbosity .
; In other words, use /verbose -o-100 to turn the individual script level
; off. Default: -100, don't override. Setting it to -1 would do the
; trick too but -100 is easier to distinguish on "/listvar verbosity*".

; Suppose you'd have a walk script, consisting of a trigger and some other
; macros. You could set a verbosity_walk variable. Depending on its value and
; on the value of verbosity in this script you could create different
; possibilities:
;
; normal verbosity while playing
; /set verbosity 1
; /set verbosity_walk -100
; the same would by accomplished by:
; /verbose -s1
; /verbose -s-100 walk

; debug the new walk script without all the other ones spamming you crazy,
; /set verbosity 1
; /set verbosity_walk 3
;
; debug all scripts but that spammy walk one that isn't the problem anyways,
; /set verbosity 3
; /set verbosity_walk 1
;
; watch the flow through each individual macro of all scripts while
; fully debugging the walk script
; /set verbosity 2
; /set verbosity_walk 3
;
; The walk script would then need to call /verbose e.g. in the body of the trigger:
; /verbose -o%{verbosity_walk} -l1 - -aCyellow Walk script running! Use /walk to walk!
; /verbose -o%{verbosity_walk} -l1 - -aBCred NOTE: Water breathing or death!
;
; If you put this at the top of any macro in the script it will show which
; options and arguments the call used:
; /verbose -o%{verbosity_walk} -l2 - /%0: Called as /%0 %*
;
; After expressions, to see what values are computed:
; /verbose -o%{verbosity_walk} -l3 - -aCyellow /%0: variable is %{variable}.

; The -s option sets the verbosity level. "/verbose -s2" to set the system
; verbosity level to 2, "/vebose -s3 walk" to set verbosity_walk to 3.

/def -i verbose = \
/if ({*} =~ "") \
/echo -p %%% @{Cred}--------------------------------------------------------------------------%;\
/verbose_usage%;\
/echo -p %%% @{Cred}--------------------------------------------------------------------------%;\
/echo -p %%% @{Cyellow}Current verbosity levels:%;\
/echo -p %%% @{Cred}--------------------------------------------------------------------------%;\
/listvar verbosity*%;\
/echo -p %%% @{Cred}--------------------------------------------------------------------------%;\
/return 0%;\
/endif%;\
/let line_level=1%;\
/let override_level=-100%;\
/if (!getopts("l:o:s:", "")) /return 0%; /endif%;\
/if (opt_s !~ "") \
/let _arg %1%;\
/if (_arg =~ "") \
/set verbosity %{opt_s}%;\
/echo -aCyellow %%% Verbosity level set to %verbosity%;\
/else \
/eval /set verbosity_%{_arg} %{opt_s}%;\
/eval /echo -aCyellow %%%% Verbosity level of %{_arg} set to %%{verbosity_%{_arg}}%;\
/endif%;\
/return 0%;\
/endif%;\
/test (opt_l !~ "") & (line_level:=opt_l)%;\
/test (opt_o !~ "") & (override_level:=opt_o)%;\
/if (override_level >= 0) \
/if (override_level >= line_level) \
/echo %*%;\
/endif%;\
/elseif (verbosity >= line_level) \
/echo %*%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Tabbing.tf

2008-11-10T00:58:12Z

Sulfar:

Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

<pre>
;;;=== ircII style tabbing for tinyfugue ===
;; 1> You give or get a tell.
;; 2> Name of person is stored in a list.
;; 3> When you hit tab, "tell <person>" will appear on the input line.
;; Where <person> is the last person you added.
;; 4> If you hit tab again, the name of the person prior to the last
;; is used. Etcetc. If last name is reached, next tab will cycle thru.
;; 5> ESC-Tab will remove the name currently on the input line from the list,
;; and clear the input line.
;; 6> Try it... it rocks :-)

/require lisp.tf

/set tabbing_name_list=
/set tabbing_name_index=0

/def -i tabbing_get_name = \
/if (tabbing_name_index > 1) \
/nth $[tabbing_name_index] %tabbing_name_list %;\
/set tabbing_name_index=$[tabbing_name_index-1] %;\
/else \
/nth $[tabbing_name_index] %tabbing_name_list %;\
/set tabbing_name_index=$(/length %tabbing_name_list) %;\
/endif

/def -i tabbing_add_name = \
/if (tabbing_name_index = 0) \
/set tabbing_name_list=%{1} %;\
/set tabbing_name_index=1 %;\
/else \
/set tabbing_name_list=$(/remove %{1} %tabbing_name_list) %;\
/set tabbing_name_list=%tabbing_name_list %{1} %;\
/set tabbing_name_index=$(/length %tabbing_name_list) %;\
/endif

;Bind to TAB key:
;/def -i -b'^I' keyForwardName = \
/def -i key_tab = \
/if (tabbing_name_index > 0) \
/grab tell $(/tabbing_get_name) %;\
/test input (" ") %;\
/else \
/echo %%% No names in list! %;\
/endif

;ESC - TAB will remove the name displayed on the input line and clear the line:
;/def -ib'^[^I' removeCurrentName = \
/def -i key_esc_tab = \
/test kbgoto(kbwordleft()) %;\
/set name=$[kbtail()] %;\
/set tabbing_name_list=$(/remove %{name} %tabbing_name_list) %;\
/set tabbing_name_index=$(/length %tabbing_name_list) %;\
/test kbgoto(kblen()) %;\
/test kbdel(0) %;\
/unset name

/def -i -mregexp -F -p100 -t"^([^ ]+) tells you '" tabbing_tells_you = \
/if (({P1} !~ "Someone") & ({P1} !~ "someone")) \
/tabbing_add_name %{P1} %;\
/endif

/def -i -mregexp -F -p100 -t"^You dream of ([^ ]+) telling you '" tabbing_you_dream_telling = \
/if (({P1} !~ "Someone") & ({P1} !~ "someone")) \
/tabbing_add_name %{P1} %;\
/endif

/def -i -mregexp -F -p100 -t"^You tell ([^ ]+) " tabbing_you_tell = \
/if (({P1} !~ "the") & ({P1} !~ "Someone") & ({P1} !~ "someone")) \
/tabbing_add_name %{P1} %;\
/endif

/def -i -mregexp -F -p100 -t"^([^ ]+) is asleep, but you tell (her|him|it) '" tabbing_tell_they_sleep = \
/if (({P1} !~ "Someone") & ({P1} !~ "someone")) \
/tabbing_add_name %{P1} %;\
/endif

</pre>

[[Category: TinyFugue Scripting]]

Sharpen.tf

2008-11-10T00:56:56Z

Sulfar: Removed trailing whitespaces

This script will sharpen an item until it dulls, or is as sharp as it is going to get.

Aside from this script I already had a simple trigger to make me hold a new whetstone when the old one is worn out. The script will hold a whetstone if it tries to sharpen without it, so you won't really need this trigger, but it'd make it run a little more graceful.
<pre>/def -i -t"The whetstone crumbles out of your hand." byebye_whetstone = hold whetstone</pre>

This script uses [[verbose.tf]] so you'll want that if you want to use this script. You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/loaded __SULFAR__/sharpen.tf

/eval /require -q %{TINYPREFIX}verbose.tf

/echo -aCyellow %% /sharpen <item> Sharpen <item> until it's finished
/echo -aCyellow %% [-x<command>] execute <command> after full sharpen

;This script will sharpen an item untill it dulls, or is as sharp as it is
; going to get. It will schedule the next sharpen at 3 minutes and 15 seconds
; to give you a chance to chat some lines or some, and prevend triggers like
; heighten senses to stack up the lag too much.

;When the script exits it sets global var sharpen_exit to
;no_weapon couldn't find your weapon
;no_whetstone couldn't find a whetstone to use
;was_sharp the weapon was already as sharp as it could be
;sharp the weapon is now as sharp as it can be
;dull we slipped and dulled the weapon
;brill our hands tingled and we got a brilliant green and so on
;brilldull this weapon brilled but dulled afterwards
;
;re no_whetstone: If the weapon was (brill) sharpened, the whetstone crumbles
; and you don't have a new one, it'll lose the information about the result.
;I'm simply keeping a couple of spare whetstone on my sharpen alt.

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 sharpen

;some hilites ... makes it easier to catch these in scrollback
/def -i -p800 -F -PCyellow -mregexp -t"^You smile as you feel the increased sharpness of .+!$" sharpen_hi_ok
/def -i -p800 -F -PBCyellow -mregexp -t"^Your hands tingle as a brilliant green light bursts from .+!$" sharpen_hi_brill
/def -i -p800 -F -PBCred -mregexp -t"^You sigh as you realize you have slipped and dulled .+!$" sharpen_hi_dulled
/def -i -p800 -F -PCwhite -mregexp -t"^Despite your efforts, nothing happens to .+" sharpen_hi_nothing
/def -i -p800 -F -PCwhite -mregexp -t"^The weapon is now as sharp as it is going to get!" sharpen_hi_finished
/def -i -p800 -F -PCwhite -mregexp -t"^The weapon is as sharp as it is going to get!" sharpen_hi_was_sharp

/def -i sharpen_init = \
/verbose -o%{verbosity_sharpen} -l2 - -aCyellow %%% /%0 initializing .... %;\
/set auto_sharpen=0%;\
/set sharpen_item=%;\
/set _sharpen_next_pid=0%;\
/set sharpen_brill=0%;\
/set sharpen_exit=%;\
/set sharpen_post=

/def -i sharpen = \
/sharpen_init%;\
/if (!getopts("x:", "")) /return 0%; /endif%; \
/set sharpen_post %{opt_x}%;\
/set auto_sharpen 1%;\
/set sharpen_item %*%;\
/verbose -o%{verbosity_sharpen} -l1 - -aCcyan %%% /%0: Start sharpenening %sharpen_item. Exit command is %sharpen_post%;\
stand%;hei%;hei%;\
sharpen %{sharpen_item}

/def -i sharpen_next = \
/verbose -o%{verbosity_sharpen} -l2 - -aCyellow %%% /%0: Sharpening again%;\
/repeat -0:03:15 1 sharpen %{sharpen_item}%;\
/set _sharpen_next_pid=%?

/def -i -E(auto_sharpen) -p699 -F -t"You must be carrying a weapon to sharpen it!" sharpen_no_weapon = \
/verbose -o%{verbosity_sharpen} -l1 - -aBCred %%% Can't find your weapon, %{sharpen_item}! Bailing out.%;\
/sharpen_exit no_weapon

/def -i -E(auto_sharpen) -p699 -F -t"Sharpen it with what!" sharpen_no_whetstone = \
/verbose -o%{verbosity_sharpen} -l2 - -aCyellow %%% /%0: Not holding a whetstone. Trying to hold one.%;\
/set auto_sharpen_whetstone 1%;\
hold whetstone

/def -i -E(auto_sharpen_whetstone) -p699 -F -t"You hold a whetstone in your hands." sharpen_now_whetstone = \
/verbose -o%{verbosity_sharpen} -l2 - -aCyellow %%% /%0: We have a whetstone! Alright, sharpening.%;\
/set auto_sharpen_whetstone 0%;\
sharpen %{sharpen_item}

/def -i -E(auto_sharpen_whetstone) -p699 -F -t"You are not carrying a whetstone." sharpen_really_no_whetstone = \
/verbose -o%{verbosity_sharpen} -l1 - -aBCred %%% /%0: No whetstone to use! Bailing out.%;\
/set auto_sharpen_whetstone 0%;\
/sharpen_exit no_whetstone

;we should probably sharpen more
;if not, sharpen_finished will kill the next sharpen
/def -i -E(auto_sharpen) -p699 -F -t"You smile as you feel the increased sharpness of *!" sharpen_ok = \
/verbose -o%{verbosity_sharpen} -l2 - -aCyellow %%% /%0: Sharpening again...%;\
/sharpen_next

/def -i -E(auto_sharpen) -p699 -F -t"Your hands tingle as a brilliant green light bursts from *!" sharpen_brill = \
/verbose -o%{verbosity_sharpen} -l2 - -aBCyellow %%% /%0: Yeeeehaaaa!! Teh brillz! Sharpening again...%;\
/test ++sharpen_brill%;\
/sharpen_next

/def -i -E(auto_sharpen) -p699 -F -t"Despite your efforts, nothing happens to *" sharpen_nothing = \
/verbose -o%{verbosity_sharpen} -l2 - -aCyellow %%% /%0: Sharpening again...%;\
/sharpen_next

/def -i -E(auto_sharpen) -p699 -F -t"You sigh as you realize you have slipped and dulled *!" sharpen_dulled = \
/verbose -o%{verbosity_sharpen} -l2 - -aCyellow %%% /%0: Exit sharpen.%;\
/repeat -0:03:15 1 /sharpen_exit dull

/def -i -E(auto_sharpen) -p699 -F -t"The weapon is now as sharp as it is going to get!" sharpen_finished = \
/verbose -o%{verbosity_sharpen} -l2 - -aCyellow %%% /%0: But we're done! Killing planned sharpen and exit.%;\
/@test _sharpen_next_pid & (kill(_sharpen_next_pid), _sharpen_next_pid:=0)%;\
/repeat -0:03:15 1 /sharpen_exit sharp

/def -i -E(auto_sharpen) -p699 -F -t"The weapon is as sharp as it is going to get!" sharpen_was_sharp = \
/verbose -o%{verbosity_sharpen} -l2 - -aCyellow %%% /%0: This weapon doesn't need sharpening. Exit.%;\
/sharpen_exit was_sharp

/def -i sharpen_exit = \
/let post %sharpen_post%;\
/verbose -o%{verbosity_sharpen} -l1 - -aCcyan %%% /%0: Done with this weapon. Executing command: %post%;\
/if (sharpen_brill & {1} =~ "dull") \
/sharpen_init%;\
/set sharpen_exit brilldull%;\
/elseif (sharpen_brill) \
/sharpen_init%;\
/set sharpen_exit brill%;\
/else \
/sharpen_init%;\
/set sharpen_exit %1%;\
/endif%;\
/verbose -o%{verbosity_sharpen} -l2 - -aCyellow %%% /%0: Exit code: %{sharpen_exit}%;\
/if (post !~ "") /eval -s0 %{post}%; /endif
</pre>

[[Category: TinyFugue Scripting]]

Rescue.tf

2008-11-10T00:55:44Z

Sulfar:

Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''
<pre>
/echo %% /rescue Toggle autorescue
/echo %% /rescue <on|off> Set autorescue on or off
/echo %% /addrescue <name> Add name to rescue list
/echo %% /lsrescue List rescue names
/echo %% /rmrescue <name> Remove name from rescue list

;/addrescue is case insensitive
;/rmrescue is case sensitive

/set warn_curly_re=off
/set rescue_fatigue 0
/set auto_rescue 1
/echo %% Autorescue is enabled.

/def -i rescue = \
/if ({1} =~ "") /set auto_rescue $[!auto_rescue] %;\
/elseif ({1} =~ "on") /set auto_rescue 1 %;\
/elseif ({1} =~ "off") /set auto_rescue 0%;\
/else /echo Valid arguments are: on, off and <none>%;\
/endif%;\
/if (auto_rescue) /echo %%% Autorescue is enabled.%;\
/else /echo %%% Autorescue is disabled%;\
/endif

/def -i addrescue = \
/def -i -E(auto_rescue) -mregexp -t"(?i) strikes %{1} " rescue_%{1}1 = /rescue_them %{1}%;\
/def -i -E(auto_rescue) -mregexp -t"(?i) attacks strike %{1} ([^ ]+) times, with " rescue_%{1}2 = /rescue_them %{1}%;\
/def -i -E(auto_rescue) -mregexp -t"(?i) attacks haven't hurt %{1}!\$" rescue_%{1}3 = /rescue_them %{1}%;\
/def -i -E(auto_rescue) -mregexp -t"(?i) tries to stand and defend against %{1} but can't!\$" rescue_%{1}4 = /rescue_them %{1}%;\
/def -i -E(auto_rescue) -mregexp -t"(?i) shot hits %{1} with " rescue_%{1}5 = /rescue_them %{1}%;\
/rescue_add_name %{1}

/def -i rmrescue = \
/for c 1 5 /undef rescue_%{1}%%c%;\
/set rescue_name_list=$(/remove %{1} %rescue_name_list) %;\
/set rescue_name_index=$(/length %rescue_name_list)

/def -i lsrescue = /echo %% rescue_name_list = %rescue_name_list

;I'm fatigueing the rescue trigs to not rescue 5 times
;with config +battleother
/def -i rescue_them = \
/if (!rescue_fatigue) rescue %1%;/endif%;\
/set rescue_fatigue 1%;\
/repeat -0:00:0.3 1 /set rescue_fatigue 0

/def -i rescue_add_name = \
/if (rescue_name_index = 0) \
/set rescue_name_list=%{1} %;\
/set rescue_name_index=1 %;\
/else \
/set rescue_name_list=$(/remove %{1} %rescue_name_list) %;\
/set rescue_name_list=%rescue_name_list %{1} %;\
/set rescue_name_index=$(/length %rescue_name_list) %;\
/endif

/set warn_curly_re=on

;High priority non-fallthru triggers to prevent rescue triggers from kicking in
;this list is incomplete
/def -i -p100 -mregexp -t"chain lightning strikes ([^ ]+) with " dont_rescue1
/def -i -p100 -mregexp -t"icestrike strikes ([^ ]+) with " dont_rescue2
/def -i -p100 -mregexp -t"blast of gas strikes ([^ ]+) with " dont_rescue3
/def -i -p100 -mregexp -t"disintegrate strikes ([^ ]+) with " dont_rescue4
/def -i -p100 -mregexp -t"cyclone strikes ([^ ]+) with " dont_rescue5
/def -i -p100 -mregexp -t"blast of acid strikes ([^ ]+) with " dont_rescue6
/def -i -p100 -mregexp -t"vampire touch strikes ([^ ]+) with " dont_rescue7
/def -i -p100 -mregexp -t"earthquake strikes ([^ ]+) with " dont_rescue8
/def -i -p100 -mregexp -t"harm spell strikes ([^ ]+) with " dont_rescue9
/def -i -p100 -mregexp -t"flamestrike strikes ([^ ]+) with " dont_rescue10
/def -i -p100 -mregexp -t"ultrablast strikes ([^ ]+) with " dont_rescue11
/def -i -p100 -mregexp -t"brainstorm strikes ([^ ]+) with " dont_rescue12
/def -i -p100 -mregexp -t"psionic blast strikes ([^ ]+) with " dont_rescue13
/def -i -p100 -mregexp -t"mindpower strikes ([^ ]+) with " dont_rescue14
/def -i -p100 -mregexp -t"blast of flame strikes ([^ ]+) with " dont_rescue15
/def -i -p100 -mregexp -t"high explosive ammo strikes ([^ ]+) with " dont_rescue16
/def -i -p100 -mregexp -t"firestorm strikes ([^ ]+) with " dont_rescue17
/def -i -p100 -mregexp -t"acid rain strikes ([^ ]+) with " dont_rescue18
/def -i -p100 -mregexp -t"blast of frost strikes ([^ ]+) with " dont_rescue19
/def -i -p100 -mregexp -t"smash strikes ([^ ]+) with " dont_rescue20
/def -i -p100 -mregexp -t"Meteor Swarm strikes ([^ ]+) with " dont_rescue21
/def -i -p100 -mregexp -t"cataclysm strikes ([^ ]+) with " dont_rescue22
/def -i -p100 -mregexp -t"shard storm strikes ([^ ]+) with " dont_rescue23
/def -i -p100 -mregexp -t"torment strikes ([^ ]+) with " dont_rescue24
/def -i -p100 -mregexp -t"blast of lightning strikes ([^ ]+) with " dont_rescue25

</pre>

[[Category: TinyFugue Scripting]]

Regen.tf

2008-11-10T00:54:54Z

Sulfar: removed trailing whitespace

A regen script. It sends a blank line to the server and checks if we're done at regular intervals, currently 8 seconds. It uses variables from [[prompt.tf]] to see if we're done.

This script uses both [[prompt.tf]] and [[verbose.tf]] so you'll need those if you want to use this
script. You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

You can see examples of its use in the [[identify.tf]] or the [[enchant.tf]] script. If it doesnt have mana for the spell, it calls this script to regen and go back when it's done with the regen.

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''
/loaded __SULFAR__/regen.tf

/eval /require -q %{TINYPREFIX}prompt.tf
/eval /require -q %{TINYPREFIX}verbose.tf

/echo -aCyellow %% /regen -x<command> Fully regen, then execute <command>

;A regen script. It will make you sleep to regen. It will make you stand and
;execute a command when you're done, for example:
; sanc dw
; regen -x"e=u=u=sleep"
;
;Or it might just be more useful in other scripts.

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and use system verbosity level
;see verbose.tf
/verbose -s2 regen

/def -i regen = \
/if (!getopts("x:", "")) /return 0%; /endif%; \
/set regen_post %{opt_x}%;\
/verbose -o%{verbosity_regen} -l1 - -aCcyan %%% /%0: Starting checks. Post command is: %regen_post%;\
sleep%;\
/repeat -7.5 1 /send%;\
/repeat -8 1 /regen_check

/def -i regen_check = \
/let _post %{regen_post}%;\
/let _move_relative $[prompt_move*100/prompt_move_max]%;\
/if ((prompt_hp_relative >= 100) & (prompt_mana_relative >= 100) & \
(_move_relative >= 100) & (!prompt_lagtimer)) \
/verbose -o%{verbosity_regen} -l1 - -aCcyan %%% /%0: Regen done! Executing post command: %regen_post%;\
stand%;\
/unset regen_post%;\
/if (_post !~ "") /eval %{_post}%; /endif%;\
/else \
/verbose -o%{verbosity_regen} -l2 - -aCyellow %%% %0: not done yet....%;\
/repeat -7.5 1 /send%;\
/repeat -8 1 /regen_check%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Prompt.tf

2008-11-10T00:54:06Z

Sulfar:

A prompt script:
* Values are grabbed
* prompt1 is substituted, hp/mana/monitor are colored to reflect their status
* prompt2 containing surge/augment/quicken levels is gagged, the levels go into the status line and are colored
* Provides an easy way for other scripts to trigger on a prompt
* If you log in with a prompt that's incompatible with prompt.tf, it'll set the prompt to be compatible

Changes:
* prompt_exe: instead of setting prompt_exe to 1, you can now set it to a string and it'll send "PROMPT_EXE <string>". Makes it easier to have multiple scripts use prompt_exe. See the chkaff macro in [[affects.tf]] for an example.

Read the comments in the script for more information.
<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/loaded __SULFAR__/prompt.tf

;These are the prompts I set on the mud.
;prompt <%h/%H(%p) %m/%M(%o) %v/%V [%T] %w/%W(%P) t%s>%n
;prompt2 <s%S a%A q%Q>%n
;also type "prompt2" once or twice and make sure it's on since the trigger below
; gags it

;Prompt1 is substituted by substitute_prompt1. It adds values to see the loss
; in hp, mana and monitor's hp. It also changes the color of hp/mana/monitor.
; If hp is higher than 70% it's colored green, if it's between 30% and 70% it's
; colored yellow, if it's lower than 30% it's colored red. Moves are just
; green currently.
;
;The substitute currently looks like:
;$&<D>[S]!@#<10/30(20|33%) 20/80(60|25%) 90mv 100/700(600|14%) t3>
;first the prompt symbols as usual,
;then hp: you're at 10 hp out of 30, that's 33%, you lost 20,
;then mana: you're at 20 mana out of 80, that's 25% used 60,
;then moves: you're at 90 mv,
;then monitor: is at 100 out of 700, that's 14%, lost 600
;then the lag timer, 3 seconds.

;To save space on the prompt line, I put tnl in tf's statusline as [320] for
; example. Tnl also shifts color, green if it's above 300, yellow for 300 or
; lower, bright yellow for 130 or lower.
;The AFK part of the prompt is captured but not displayed anywhere.

;prompt2 has values for surge, augment, quicken, is gagged and its values are
; captured to status_ variables to use in the tf status line. "Off" values
; are changed to "0" to save some space on the satusline. Surge, augment
; and quicken levels are colored. Surge and augment are green if they're off,
; yellow if 2 or 3, bright yellow if 4 or higher. Quicken is green if it's
; off, bright yellow if it's on.

;I set my status line in a single command in my config file, this is what it
; looks like with the right variables for this script
;/status_add -c @more:8:Br @world:9 :1 status_surge:2 :1 status_augment:2 :1 status_quicken:2 :1 status_tnl :1 insert:2 :1 @clock:16

;If you'd like to use the script and the prompt setting above contains all the
; information you want but just doesn't look the way you want, I'd recommend
; setting it to the format above anyways and then change the substitute below
; to make it appear the way you want.

;If prompt_exe is set to a string tf will send a "PROMPT_EXE <string>" to Avatar
; when it receives a prompt. However, it intercepts the "PROMPT_EXE*" string
; with a send hook of priority 990. This allowes you to make a higher priority
; send hook in a script to do something when you get a prompt in.
/set prompt_exe=

;set mud side prompt to be compatible with prompt.tf
/def -i prompt_set = \
prompt <%%h/%%H(%%p) %%m/%%M(%%o) %%v/%%V [%%T] %%w/%%W(%%P) t%%s>%%n%;\
prompt2 <s%%S a%%A q%%Q>%%n%;\
config +prompt%;\
config +prompt2

;Hooray for regexps!
/def -i -F -p400 -mregexp -t"^(\$|)(\&|)(\<D\>|)(\[S\]|)(\!|)(\@|)(\#|)(\*Deaf\* |)($AFK$ |)<(-?[0-9]*)/(-?[0-9]*)$(-?[0-9]*)\%$ (-?[0-9]*)/(-?[0-9]*)$(-?[0-9]*)\%$ (-?[0-9]*)/(-?[0-9]*) \[(-?[0-9]*)\] (-?[0-9]*)/(-?[0-9]*)$(-?[0-9]*)\%?$ t([0-9]+)>" substitute_prompt1 =\
;set prompt vars
/set prompt_sanctuary %{P1}%;\
/set prompt_werrebocler %{P2}%;\
/set prompt_demonfire %{P3}%;\
/set prompt_stance %{P4}%;\
/set prompt_invis %{P5}%;\
/set prompt_move_hidden %{P6}%;\
/set prompt_sneak %{P7}%;\
/set prompt_deaf %{P8}%;\
/set prompt_afk %{P9}%;\
/test prompt_hp:=strip_attr({P10})%;\
/test prompt_hp_max:=strip_attr({P11})%;\
/test prompt_hp_relative:=strip_attr({P12})%;\
/test prompt_mana:=strip_attr({P13})%;\
/test prompt_mana_max:=strip_attr({P14})%;\
/test prompt_mana_relative:=strip_attr({P15})%;\
/test prompt_move:=strip_attr({P16})%;\
/test prompt_move_max:=strip_attr({P17})%;\
/test prompt_tnl:=strip_attr({P18})%;\
/test prompt_monitor:=strip_attr({P19})%;\
/test prompt_monitor_max:=strip_attr({P20})%;\
/test prompt_monitor_relative:=strip_attr({P21})%;\
/test prompt_lagtimer:=strip_attr({P22})%;\
/set prompt_hp_diff $[prompt_hp_max - prompt_hp]%;\
/set prompt_mana_diff $[prompt_mana_max - prompt_mana]%;\
/set prompt_monitor_diff -%;\
/test (prompt_monitor_max !~ "-") & (prompt_monitor_diff:=prompt_monitor_max - prompt_monitor)%;\
;color hp
/if (prompt_hp_relative <= 30) \
/test (prompt_hp:=decode_attr(prompt_hp, "Cred"), \
prompt_hp_max:=decode_attr(prompt_hp_max, "Cred"), \
prompt_hp_diff:=decode_attr(prompt_hp_diff, "Cred"), \
prompt_hp_relative:=decode_attr(prompt_hp_relative, "Cred"))%;\
/elseif (prompt_hp_relative <= 70) \
/test (prompt_hp:=decode_attr(prompt_hp, "Cyellow"), \
prompt_hp_max:=decode_attr(prompt_hp_max, "Cyellow"), \
prompt_hp_diff:=decode_attr(prompt_hp_diff, "Cyellow"), \
prompt_hp_relative:=decode_attr(prompt_hp_relative, "Cyellow"))%;\
/else \
/test (prompt_hp:=decode_attr(prompt_hp, "Cgreen"), \
prompt_hp_max:=decode_attr(prompt_hp_max, "Cgreen"), \
prompt_hp_diff:=decode_attr(prompt_hp_diff, "Cgreen"), \
prompt_hp_relative:=decode_attr(prompt_hp_relative, "Cgreen"))%;\
/endif%;\
;color mana
/if (prompt_mana_relative <= 30) \
/test (prompt_mana:=decode_attr(prompt_mana, "Cred"), \
prompt_mana_max:=decode_attr(prompt_mana_max, "Cred"), \
prompt_mana_diff:=decode_attr(prompt_mana_diff, "Cred"), \
prompt_mana_relative:=decode_attr(prompt_mana_relative, "Cred"))%;\
/elseif (prompt_mana_relative <= 70) \
/test (prompt_mana:=decode_attr(prompt_mana, "Cyellow"), \
prompt_mana_max:=decode_attr(prompt_mana_max, "Cyellow"), \
prompt_mana_diff:=decode_attr(prompt_mana_diff, "Cyellow"), \
prompt_mana_relative:=decode_attr(prompt_mana_relative, "Cyellow"))%;\
/else \
/test (prompt_mana:=decode_attr(prompt_mana, "Cgreen"), \
prompt_mana_max:=decode_attr(prompt_mana_max, "Cgreen"), \
prompt_mana_diff:=decode_attr(prompt_mana_diff, "Cgreen"), \
prompt_mana_relative:=decode_attr(prompt_mana_relative, "Cgreen"))%;\
/endif%;\
;color monitor
/if (prompt_monitor_relative <= 30) \
/test (prompt_monitor:=decode_attr(prompt_monitor, "Cred"), \
prompt_monitor_max:=decode_attr(prompt_monitor_max, "Cred"), \
prompt_monitor_diff:=decode_attr(prompt_monitor_diff, "Cred"), \
prompt_monitor_relative:=decode_attr(prompt_monitor_relative, "Cred"))%;\
/elseif (prompt_monitor_relative <= 70) \
/test (prompt_monitor:=decode_attr(prompt_monitor, "Cyellow"), \
prompt_monitor_max:=decode_attr(prompt_monitor_max, "Cyellow"), \
prompt_monitor_diff:=decode_attr(prompt_monitor_diff, "Cyellow"), \
prompt_monitor_relative:=decode_attr(prompt_monitor_relative, "Cyellow"))%;\
/else \
/test (prompt_monitor:=decode_attr(prompt_monitor, "Cgreen"), \
prompt_monitor_max:=decode_attr(prompt_monitor_max, "Cgreen"), \
prompt_monitor_diff:=decode_attr(prompt_monitor_diff, "Cgreen"), \
prompt_monitor_relative:=decode_attr(prompt_monitor_relative, "Cgreen"))%;\
/endif%;\
;color mv green
/test (prompt_move:=decode_attr(prompt_move, "Cgreen"), \
prompt_move_max:=decode_attr(prompt_move_max, "Cgreen"))%;\
;color tnl
/if (prompt_tnl > 500) /set prompt_tnl $[decode_attr(prompt_tnl, "Cgreen")]%;\
/elseif (prompt_tnl > 300) /set prompt_tnl $[decode_attr(prompt_tnl, "BCgreen")]%;\
/elseif (prompt_tnl > 150) /set prompt_tnl $[decode_attr(prompt_tnl, "Cyellow")]%;\
/else /set prompt_tnl $[decode_attr(prompt_tnl, "BCyellow")]%;\
/endif%;\
;for the status line
/set status_tnl [%{prompt_tnl}]%;\
;color lagtimer
/test prompt_lagtimer:=decode_attr(prompt_lagtimer, "Cgreen")%;\
;finally, the substitute
/substitute -aCrgb010 \
;prompt symbols
%{prompt_sanctuary}%{prompt_werrebocler}%{prompt_demonfire}\
%{prompt_stance}%{prompt_invis}%{prompt_move_hidden}%{prompt_sneak}\
%{prompt_deaf}\
;hp
<%{prompt_hp}/%{prompt_hp_max}(%{prompt_hp_diff}|%{prompt_hp_relative}%%) \
;mana
%{prompt_mana}/%{prompt_mana_max}(%{prompt_mana_diff}|%{prompt_mana_relative}%%) \
;mv
%{prompt_move}mv \
;
;[tnl] -- uncomment the next line to restore tnl to the prompt you see
; [%{prompt_tnl}] \
;
;monitor
%{prompt_monitor}/%{prompt_monitor_max}(%{prompt_monitor_diff}|%{prompt_monitor_relative}%%) \
;lag timer
t%{prompt_lagtimer}\
>

;Grab prompt2 and set the status line variables
;Also, pretend to send PROMPT_EXE to the server if prompt_exe is set...
/def -i -ag -F -p400 -mregexp -t"^<s([^ ]+) a([^ ]+) q([^ ]+)>$" substitute_prompt2 =\
/test prompt_surge:=strip_attr({P1})%;\
/test prompt_augment:=strip_attr({P2})%;\
/test prompt_quicken:=strip_attr({P3})%;\
/set status_surge s%{prompt_surge}%;\
/set status_augment a%{prompt_augment}%;\
/set status_quicken q%{prompt_quicken}%;\
/test (status_surge =~ "soff") & (status_surge:="s0")%;\
/test (status_augment =~ "aoff") & (status_augment:="a0")%;\
/test (status_quicken =~ "qoff") & (status_quicken:="q0")%;\
;color surge
/if (prompt_surge >= 4) \
/set status_attr_var_status_surge BCyellow%;\
/elseif (prompt_surge >= 2) \
/set status_attr_var_status_surge Cyellow%;\
/else \
/set status_attr_var_status_surge=%;\
/endif%;\
;color augment
/if (prompt_augment >= 4) \
/set status_attr_var_status_augment BCyellow%;\
/elseif (prompt_augment >= 2) \
/set status_attr_var_status_augment Cyellow%;\
/else \
/set status_attr_var_status_augment=%;\
/endif%;\
;color quicken
/if (prompt_quicken >= 1) \
/set status_attr_var_status_quicken BCyellow%;\
/else \
/set status_attr_var_status_quicken=%;\
/endif%;\
/if (prompt_exe !~ "") /send -h PROMPT_EXE %{prompt_exe}%;/endif

;... except that we intercept the PROMPT_EXE with this send hook. Other scripts
; can now use a send hook with priority >990 to know when we got a prompt in.
;If you'd change the hook please be aware that unlike triggers, hooks apparently
; need a body to do anything at all!
/def -i -p990 -mglob -h'send PROMPT_EXE*' send_hook_PROMPT_EXE = /test

;Set the prompts right automagically at login
/def -i -p900 -F -i -t"Welcome back to the AVATAR System*" prompt_wb = \
/set prompt_lagtimer err%;\
/set prompt_mana_diff err%;\
/set prompt_surge err%;\
/set prompt_quicken err%;\
/repeat -0.5 1 /prompt_check

/def -i prompt_check = \
/if ((prompt_surge =~ "err") | \
(prompt_lagtimer =~ "err") | \
(prompt_surge =~ "err") | \
(prompt_quicken =~ "err")) \
/echo -aCcyan %%% Setting prompt compatible to prompt.tf%;\
/prompt_set%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Enchantbag.tf

2008-11-10T00:51:04Z

Sulfar: removed trailing whitespaces

<h4>Features</h4>
So you have a pile of armor to enchant. And a couple of weapons and bows to go with that. Well you toss it all in fodderbag, run this script, and collect the results from upgradebag, sparebag or wastebag. Or if you don't configure it with your current gear, you can collect the items from brillbag, shimmerbag, wastebag. It accepts some options:

* -l enchanting with an unshadowed lord
* -w<level> level we want to wear the item at
* -x<command> execute <command> when done

The script uses "get 1. fodderbag", identifies 1., and enchants 1. . It will check the names of
* the item you got from the fodderbag
* the first item in your inventory
* the name of the item it's identifying
If they're not all the same it won't enchant the item.

It sets config +blind, +combine, -condition, +nosummon, +notake, +nodisturb and filter +spellother to decrease the chance of anything/anyone messing up the script. That should make sure the triggers don't respond on people cutting/pasting brills to channels, the triggers work on you inventory, your regen is not interrupted and the triggers won't respond to other players enchants. Config +blind doesn't affect grtz channel but that is still covered by safechannel.tf. The script uses config.tf to store/restore your configuration.

<h4>Example config file</h4>
The script will try to load an enchantbag.gear.tf file with a configuration of gear. It's simply a list of variables, like

<pre>
/set enchantbag_hero_essence_amorphous_orb 12dr 10dr
/set enchantbag_hero_hero_heroes_shield b12 b12
/set enchantbag_hero_bow_sliver_glowing_moonlight_arc 21hr
/set enchantbag_hero_lemans_family_seal_talisman b12 -9 b12 -6

;To reuse a value for an equivalent item, you could
/eval /set enchantbag_hero_mother_pearl %{enchantbag_hero_lemans_family_seal_talisman}

;Lord stuff
/set enchantbag_lord_essence_amorphous_orb 15dr 13dr
</pre>

To make the variable name, you'd append "enchantbag_" with either "hero_", "lord_", or "lowmort_", then append that with the keywords you get from identify, remove "weird" characters (anything not in [a-zA-Z0-9 ]) and turn spaces into underscores.

The first value is the current gear, anything above that will go into upgradebag. The second value is the lowest spare that should go into sparebag. The script currently treats spares kinda aggressively, it'll try to enchant a 12 -3 spare to a 12 -6 spare if the level permits, even if you have 12 -3 as lowest spare to keep. Perhaps I should switch that around, I don't know yet. You can omit the second value, it'll then use the default ranges for spares.

If you're enchanting armor and want to use the configuration, you'll also need to add the item to [[identify.tf]] to know the multiplier for the armor class.

<h4>Stuff you need</h4>
This script uses [[config.tf]], [[verbose.tf]], [[enchant.tf]] and [[identify.tf]] so you'll want those if you want to use this script. Config.tf and identify.tf use [[prompt.tf]], and enchant.tf uses [[regen.tf]] and [[safechannel.tf]] so get those while you're at it. <b>If you update this script from an older version, please update these scripts as well,</b> or strange things might happen, or it might not work at all. You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

You'll also need some bags, look at the comments in the script for a list of etches and christens.

<h4>Examples</h4>
Enchant a pile of stuff with a hero for hero tier:
<pre>/enchantbag</pre>

Enchant a pile of mother pearls with an unshadowed lord but for hero tier:
<pre>/enchantbag -l</pre>

Enchant a pile of amorphous orbs or doom shards for lord and sleep afterwards:
<pre>/enchantbag -l -w125 -xsleep</pre>

If you'd want to see all debug spam it produces, try
<pre>/verbose -s3</pre>
<h4>Disclaimer</h4>
It's not all pretty, some parts of the script might taste good with some bolognese. Larger tf scripts tend to get like that. I blame it on the lack of structured data types, lack of way to pass variables around, lack of pointers, linked lists, anything that a modern language would provide. If you'd know a better design approach tho, please let me know :)

I didn't test enchanting piles of lord eq. If you know any such piles please let me know where I can pick them up ;)

I'm guessing a hero level bow would raise 5 levels if you'd enchant it with a lord. I'm not sure. Also don't know why anybody would want to do that so I can't be bothered to check it.

I've used this script quite a number of times now and debugged it extensively. It works fine for me. However, if you were to vape your b12 -9 shield or heros, or blow your 13/13 hero level doom shard, I'll be more than happy to accept your bug report but will not accept any responsibility for the items. I guess keeping your inventory clean is the way to be 100% sure.

<h4>Trailing space bug</h4>
Somehow some lines got some spaces appended to them when I cut'n'pasted them from my editor. That's nasty, newlines won't be escaped anymore and it'll break the script. Odd thing is there aren't any trailing tabs or spaces in my file. Also, my editor has syntax coloring and putting *anything* after the '\' that's supposed to be at the end of the line will make it change color and I'd notice that immediately. So it's gotta have happened during the cutting and pasting... if you have any idea how/why... please let me know... it's annoying! ;)

<h4>The script</h4>
<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/eval /require -q %{TINYPREFIX}verbose.tf
/eval /require -q %{TINYPREFIX}enchant.tf
/eval /require -q %{TINYPREFIX}config.tf

/echo -aCyellow %% /enchantbag Enchant all items in fodderbag and distribute results
/echo -aCyellow %% [-l] you're an unshadowed lord. Default: you're a hero
/echo -aCyellow %% [-w<level>] you wear the item at level <level>. Default 51.
/echo -aCyellow %% [-x<command>] execute <command> on exit

;etch christen
;fodderbag Fodderbag
;upgradebag Upgradebag
;sparebag Sparebag
;wastebag Wastebag
;brillbag Brillbag
;shimmerbag Shimmerbag
;
;Only the rename of the fodderbag matters, enchantbag_got_item triggers on it
;Use the same name or change the trigger to match your bag

;When the script exits it sets global var enchantbag_exit to
;0 enchantbag finished correctly with an empty fodderbag
;enchant_err we got an error code from enchant.tf
;no_fodderbag couldnt find the fodderbag
;wrong_name names didn't check out

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 enchantbag

;Range to use if we didn't set the lowest spare to keep in the config file
;Range includes the item in the gear, so if the armor spare range is 4 and the
;item in our gear is a 12 -9 lemans seal, the lowest upgrade would be b12 -10,
;and the spares could be b12 -7, b12 -8, b12 -9. If the level permits
;enchanting tho, the script *will* try to make a b12 -9 spare out of a b12 -6,
;or enchant a 12-9 spare to a 12-12 upgrade.
/set enchantbag_armor_spare_range=3
/set enchantbag_weapon_spare_range=2
/set enchantbag_bow_spare_range=3

;Load file with current gear
/set enchantbag_gear_file=enchantbag.gear.tf
/eval /set enchantbag_path=%{TINYPREFIX}
/eval /load -q %{enchantbag_path}%{enchantbag_gear_file}

;should NOT set enchantbag_post here
/def -i enchantbag_init = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0 initializing .... %;\
/set enchantbag=0%;\
/set enchantbag_name=%;\
/set enchantbag_name_check=0%;\
/set enchantbag_inv=0%;\
/set enchantbag_inv_name=%;\
/set enchantbag_level_increment=0%;\
/set enchantbag_enchant_count=0%;\
/set enchantbag_max_level=0%;\
/set enchantbag_fade=0%;\
/set enchantbag_shimmer=0%;\
/set enchantbag_brill=0%;\
/set enchantbag_vape=0%;\
/set enchantbag_item_known=0%;\
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/set enchantbag_exit=

/enchantbag_init

/def -i enchantbag = \
/enchantbag_init%;\
/set enchantbag=1%;\
/set enchantbag_enchanter_level=51%;\
/set enchantbag_wear_level=51%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aCcyan %%% /%0: Start processing bag.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Loading %{enchantbag_path}%{enchantbag_gear_file}.%;\
/load -q %{enchantbag_path}%{enchantbag_gear_file}%;\
/if (!getopts("lx:w#")) /return 0%; /endif%;\
/if (opt_l) /set enchantbag_enchanter_level 125%;/endif%;\
/if (opt_w) /set enchantbag_wear_level %{opt_w}%;/endif%;\
/set enchantbag_post %{opt_x}%;\
/config_store -senchantbag -x/enchantbag_config_done

/def -i enchantbag_config_done = \
/filter_store -senchantbag -x/enchantbag_filter_done

/def -i enchantbag_filter_done = \
config +blind%;\
config +combine%;\
config -condition%;\
config +nosummon%;\
config +notake%;\
config +nodisturb%;\
filter +spellother%;\
/enchantbag_next_item

/def -i enchantbag_next_item = \
/enchantbag_init%;\
/set enchantbag=1%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Getting next item from the fodderbag.%;\
get 1. fodderbag

;Bag empty. We're finished.
/def -i -E(enchantbag) -p799 -F -t"You see nothing like that in Fodderbag." enchantbag_empty = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Your fodderbag is empty. Exiting /enchantbag.%;\
/enchantbag_exit 0

;Wrong alt? Fodderbag in a bag?
/def -i -E(enchantbag) -p799 -F -t"I see no fodderbag here." enchantbag_no_fodderbag = \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% You are not carrying the fodderbag. Exiting /enchantbag.%;\
/enchantbag_exit no_fodderbag

;New item.
/def -i -E(enchantbag) -p799 -F -mregexp -t"^You get (.+) from Fodderbag.$" enchantbag_got_item = \
/set enchantbag_name %{P1}%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% Got %{enchantbag_name}. Going to identify it.%;\
/identify -x/enchantbag_identify_done 1.

/def -i enchantbag_identify_done = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Done identifying. Doing cross reference on name.%;\
/set enchantbag_name_check 1%;\
inv%;\
look "%{identify_object}"

/def -i -E(enchantbag_name_check) -p799 -t"You are carrying:" enchantbag_inv = \
/def -1 -mregexp -t"^(\$ ?[0-9]+\$| ) (\$[a-zA-Z]+\$ )\*([^\\[]+)( \\[.+)\*\$" _enchantbag_inv = \
/set enchantbag_inv_name=%%{P3}%%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%%% /%%0: First item in inventory is %%enchantbag_inv_name

/def -i -E(enchantbag_name_check) -mregexp -t"^You look at (.+) in your inventory...$" enchantbag_name_check = \
/let identify_name %{P1}%;\
/set enchantbag_name_check 0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Looking at %identify_object, we got: %identify_name%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: First item in inventory is %enchantbag_inv_name%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We got %enchantbag_name from the fodderbag.%;\
/if ((identify_name =~ enchantbag_name) & (identify_name =~ enchantbag_inv_name)) \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Names ok.%;\
/echo%;\
/repeat -0.3 1 /enchantbag_processor%;\
/else \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Names mismatch. Exit. Messy inventory?%;\
/enchantbag_exit wrong_name%;\
/endif

/def -i enchantbag_processor = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Processing identify information.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: brill is %enchantbag_brill, shimmer is %enchantbag_shimmer, level is %identify_level.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: fade is %enchantbag_fade, vape is %enchantbag_vape, enchant_count is %enchantbag_enchant_count%;\
/if (identify_type =~ "armor") \
/enchantbag_pre_armor%;\
/elseif (identify_type =~ "weapon") \
/enchantbag_pre_weapon%;\
/elseif (identify_type =~ "bow") \
/enchantbag_pre_bow%;\
/endif%;\
/if (enchantbag_item_known) \
/if (enchantbag_upgrade) \
put 1. upgradebag%;\
save%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: An upgrade! Stashing... Next!%;\
/enchantbag_next_item%;\
/elseif (enchantbag_possible_upgrade) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A possible upgrade! Enchanting.%;\
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done 1.%;\
/elseif (enchantbag_possible_spare) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A possible spare! Enchanting.%;\
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done 1.%;\
/elseif (enchantbag_spare) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A spare! Stashing... Next!%;\
put 1. sparebag%;\
/enchantbag_next_item%;\
/else \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: This item goes to waste... Next!%;\
put 1. wastebag%;\
/enchantbag_next_item%;\
/endif%;\
/else \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: Item unknown. Using simple distribution method.%;\
/if (enchantbag_brill) \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into brillbag.%;\
put 1. brillbag%;\
/enchantbag_next_item%;\
/elseif (enchantbag_shimmer) \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into shimmerbag.%;\
put 1. shimmerbag%;\
/enchantbag_next_item%;\
/elseif (identify_level < enchantbag_max_level) \
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done 1.%;\
/else \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into wastebag.%;\
put 1. wastebag%;\
/enchantbag_next_item%;\
/endif%;\
/endif

/def -i enchantbag_enchant_done = \
/if (regmatch("^$|no_type|no_item|wrong_type", enchant_exit)) \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Enchant script exit status: %{enchant_exit}%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Exit enchantbag, enchant_err.%;\
/enchantbag_exit enchant_err%;\
/elseif (enchant_exit =~ "wrong_name") \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Enchant script exit status: %{enchant_exit}%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Rechecking names.%;\
/identify -x/enchantbag_identify_done 1.%;\
/elseif (enchant_exit =~ "vape") \
/verbose -o%{verbosity_enchantbag} -l2 - -aCred %%% /%0: Our item vaped... Next!%;\
/enchantbag_next_item%;\
/elseif (enchant_exit =~ "fade") \
/send get idontwanttoLID%;\
/test ++identify_level%;\
/set identify_enchant_armor 0%;\
/set identify_enchant_weapon 0%;\
/set identify_enchant_bow 0%;\
/set enchantbag_fade 1%;\
/set enchantbag_brill 0%;\
/set enchantbag_shimmer 0%;\
/set enchantbag_enchant_count 0%;\
/enchantbag_processor%;\
/else \
/set enchantbag_fade 0%;\
/test identify_level += %enchantbag_level_increment%;\
/test ++enchantbag_enchant_count%;\
/if (enchant_exit =~ "shimmer") \
/test ++enchantbag_shimmer%;\
/if (identify_type =~ "armor") \
/test identify_enchant_armor -= 2%;\
/elseif (identify_type =~ "weapon") \
/test ++identify_enchant_weapon%;\
/elseif (identify_type =~ "bow") \
/test identify_enchant_bow += 2%;\
/endif%;\
/elseif (regmatch("presence|brill", enchant_exit)) \
/test ++enchantbag_brill%;\
/if (identify_type =~ "armor") \
/test identify_enchant_armor -= 3%;\
/elseif (identify_type =~ "weapon") \
/test identify_enchant_weapon += 2%;\
/elseif (identify_type =~ "bow") \
/test identify_enchant_bow += 3%;\
/endif%;\
/endif%;\
/enchantbag_processor%;\
/endif

/def -i enchantbag_pre_armor = \
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/set enchantbag_max_level $[enchantbag_wear_level + 3]%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this piece of armor?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
/set enchantbag_level_increment 5%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/if (!identify_armor_multiplier) \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know the armor multiplier for %identify_object.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/let id_total_armor=0%;\
/let id_max_armor=0%;\
/let acgear_stats=%;\
/let acgear_base=0%;\
/let acgear_enchant=0%;\
/let acgear_total_armor=0%;\
/let acgear_spare_base=0%;\
/let acgear_spare_enchant=0%;\
/let acgear_spare_armor=0%;\
/let possible_enchants=0%;\
/let id_total_armor $[(identify_armor_class * identify_armor_multiplier) - identify_enchant_armor]%;\
/test acgear_stats:=enchantbag_get_stats(identify_object)%;\
/if (acgear_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our acgear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("b([0-9]+) \*(-?\\+?[0-9]\*) \*b?([0-9]\*) \*(-?\\+?[0-9]\*)$$", acgear_stats)%;\
/let acgear_base %{P1}%;\
/let acgear_enchant %{P2}%;\
/let acgear_spare_base %{P3}%;\
/let acgear_spare_enchant %{P4}%;\
/let acgear_total_armor $[acgear_base * identify_armor_multiplier - acgear_enchant]%;\
/let acgear_spare_armor $[acgear_spare_base * identify_armor_multiplier - acgear_spare_enchant]%;\
/if (!acgear_spare_armor) \
/let acgear_spare_armor $[acgear_total_armor - enchantbag_armor_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_armor $[id_total_armor - (possible_enchants * -3)]%;\
/set enchantbag_upgrade $[id_total_armor > acgear_total_armor]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_armor > acgear_total_armor)]%;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_armor >= acgear_spare_armor)]%;\
/set enchantbag_spare $[id_total_armor >= acgear_spare_armor]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: In our acgear, we have base %acgear_base, enchant %acgear_enchant%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Lowest spare we want to keep is base %acgear_spare_base, enchant %acgear_spare_enchant%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Armor class multiplier of this item is %identify_armor_multiplier%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCred %%% /%0: Acgear item has a total armor of %acgear_total_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Spare item has min armor of %acgear_spare_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has a total armor of %id_total_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: We could make the total armor %id_max_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_pre_weapon = \
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this weapon?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/if (regmatch("essence amorphous orb|shard black doom marble", identify_object)) \
/set enchantbag_max_level $[enchantbag_wear_level + 3]%;\
/else \
/set enchantbag_max_level $[enchantbag_wear_level + 5]%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 50)) \
/set enchantbag_level_increment 6%;\
/elseif ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
/set enchantbag_level_increment 5%;\
/elseif ((enchantbag_enchanter_level == 51) & (identify_level < 50)) \
/set enchantbag_level_increment 2%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/let id_total_dr=0%;\
/let id_max_dr=0%;\
/let damgear_stats=%;\
/let damgear_total_dr=0%;\
/let damgear_spare_dr=0%;\
/let possible_enchants=0%;\
/let id_total_dr $[identify_dr+identify_enchant_weapon]%;\
/let damgear_stats $[enchantbag_get_stats(identify_object)]%;\
/if (damgear_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our gear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("([0-9]+)dr \*([0-9]+)?(dr)?$$", damgear_stats)%;\
/let damgear_total_dr %{P1}%;\
/let damgear_spare_dr %{P2}%;\
/if (!damgear_spare_dr) \
/let damgear_spare_dr $[damgear_total_dr - enchantbag_weapon_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_dr $[id_total_dr + (possible_enchants * 2)]%;\
/set enchantbag_upgrade $[id_total_dr > damgear_total_dr]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_dr > damgear_total_dr)] %;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_dr >= damgear_spare_dr)] %;\
/set enchantbag_spare $[id_total_dr >= damgear_spare_dr]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: In our damgear, we have a %{damgear_total_dr}dr weapon%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has %id_total_dr dr.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: So we could make the total dr %id_max_dr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_pre_bow = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: The item is a bow. Preprocessing.%;\
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this bow?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 50)) \
/set enchantbag_level_increment 6%;\
/elseif ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
;DEBUG don't actually know what the level would do if a lord enchanted a hero
;DEBUG bow, this is a guess. Also wouldn't know why you'd want to do a thing
;DEBUG like that
/set enchantbag_level_increment 5%;\
/elseif ((enchantbag_enchanter_level == 51) & (identify_level < 50)) \
/set enchantbag_level_increment 2%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/let id_total_hr=0%;\
/let id_max_hr=0%;\
/let bow_cur_stats=%;\
/let bow_cur_hr=0%;\
/let bow_spare_hr=0%;\
/let possible_enchants=0%;\
/let id_total_hr $[identify_hr+identify_enchant_weapon]%;\
/let bow_cur_stats $[enchantbag_get_stats(identify_object)]%;\
/if (bow_cur_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our gear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("([0-9]+)hr \*([0-9]+)?(hr)?$$", damgear_stats)%;\
/let bow_cur_hr %{P1}%;\
/let bow_spare_hr %{P2}%;\
/if (!bow_spare_hr) \
/let bow_spare_hr $[bow_cur_hr - enchantbag_bow_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_hr $[id_total_hr + (possible_enchants * 3)]%;\
/set enchantbag_upgrade $[id_total_hr > bow_cur_hr]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_hr > bow_cur_hr)] %;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_hr >= bow_spare_hr)] %;\
/set enchantbag_spare $[id_total_hr >= bow_spare_hr]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: We have a %{bow_cur_hr}hr bow in our gear%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has %{id_total_hr}hr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: So we could make the total hr %{id_max_hr}hr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_get_stats = \
/if (enchantbag_wear_level == 51) \
/let var_mid hero%;\
/elseif (enchantbag_wear_level == 125) \
/let var_mid lord%;\
/elseif (enchantbag_wear_level <= 50) \
/let var_mid lowmort%;\
/endif%;\
/let var_right=%*%;\
;DEBUG are there any weird characters in the keywords
;DEBUG other than the ' in the archer's gauntlet..?
/test var_right:=replace("'", "", var_right)%;\
/test var_right:=replace(" ", "_", var_right)%;\
/let varname enchantbag_%{var_mid}_%{var_right}%;\
/eval /verbose -o%{verbosity_enchantbag} -l3 - -aCred %%%% /%0: Stats we have on file for %identify_object is %%{%{varname}}%;\
/eval /return "%%{%{varname}}"

/def -i enchantbag_possible_enchants = \
/let pos_ench=0%;\
/let counter %{identify_level}%;\
/while (counter < enchantbag_wear_level - 1) \
/if (counter + enchantbag_level_increment <= enchantbag_max_level) \
/test ++pos_ench%;\
/endif%;\
/test counter+=enchantbag_level_increment%;\
/done%;\
/if (enchantbag_enchanter_level == enchantbag_wear_level) \
/test pos_ench+=$[enchantbag_max_level-(identify_level+(pos_ench*enchantbag_level_increment))]%;\
/else \
/test pos_ench+=$[(enchantbag_max_level-(identify_level+(pos_ench*enchantbag_level_increment)))/enchantbag_level_increment]%;\
/endif%;\
/if (pos_ench < 0) /let pos_ench 0%;/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: We could enchant %pos_ench more times%;\
/return %{pos_ench}

/def -i enchantbag_exit = \
/let _post %enchantbag_post%;\
/config_restore -senchantbag blind%;\
/config_restore -senchantbag combine%;\
/config_restore -senchantbag condition%;\
/config_restore -senchantbag nosummon%;\
/config_restore -senchantbag notake%;\
/config_restore -senchantbag nodisturb%;\
/config_rmset enchantbag%;\
/filter_restore -senchantbag spellother%;\
/filter_rmset enchantbag%;\
/unset enchantbag%;\
/unset enchantbag_name%;\
/unset enchantbag_name_check%;\
/unset enchantbag_inv%;\
/unset enchantbag_inv_name%;\
/unset enchantbag_level_increment%;\
/unset enchantbag_enchant_count%;\
/unset enchantbag_max_level%;\
/unset enchantbag_fade%;\
/unset enchantbag_shimmer%;\
/unset enchantbag_brill%;\
/unset enchantbag_vape%;\
/unset enchantbag_item_known%;\
/unset enchantbag_upgrade%;\
/unset enchantbag_possible_upgrade%;\
/unset enchantbag_possible_spare%;\
/unset enchantbag_spare%;\
/unset enchantbag_post%;\
/unset enchantbag_enchanter_level%;\
/unset enchantbag_wear_level%;\
/set enchantbag_exit %1%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aCcyan %%% /%0 reports: We're finished. Post command is: %{_post}%;\
/if (_post !~ "") /eval -s0 /repeat -0.3 1 %{_post}%; /endif
</pre>

[[Category: TinyFugue Scripting]]

Enchant.tf

2008-11-10T00:43:43Z

Sulfar: whitespaces removed

An enchant script. It'll enchant an item until something happens to it, and execute the command given by option -x when it's done. The -i option makes it use information gathered by the [[identify.tf]] script, and is its default way of getting the item's type. When the enchant is finished it will set global var enchant_exit to some useful exit status.

This script uses [[verbose.tf]], [[regen.tf]] and [[safechannel.tf]] so you'll want those if you want to use this script. Regen.tf uses [[prompt.tf]]. You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/loaded __SULFAR__/enchant.tf

/eval /require -q %{TINYPREFIX}verbose.tf
/eval /require -q %{TINYPREFIX}regen.tf
/eval /require -q %{TINYPREFIX}safechannel.tf

;All tf commands have the options before the arguments, e.g.
;/enchant -a ring
/def -i enchant_usage = \
/echo -aCyellow %%% /enchant <item> Enchant <item> until something happens to it%;\
/echo -aCyellow %%% [-a] item is an armor%;\
/echo -aCyellow %%% [-w] item is a weapon%;\
/echo -aCyellow %%% [-b] item is a bow%;\
/echo -aCyellow %%% [-i] item is a %%{identify_type} <- default%;\
/echo -aCyellow %%% [-n"<name>"] use <name> to verify triggers%;\
/echo -aCyellow %%% [-x"<command>"] execute <command> on exit

/enchant_usage

;When the enchant is finished it will set global var enchant_exit to
;no_type couldn't determine item type
;no_item you're not carrying the item
;wrong_type the items type is not what was expected
;wrong_name the triggers responded to something but the name was wrong
;fade we enchanted and got a fade
;shimmer we enchanted and got a shimmer
;presence we enchanted and got a shimmer and a presence
;brill we enchanted and got a brilliant
;vape we enchanted and the item vaporized or exploded
;
;re wrong_name: the script does ignore the next line of mud output when someone
; else enchants something. If it still exits with wrong_name it probably
; means something weird is going on.

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and use system verbosity level
;see verbose.tf
/verbose -s-100 enchant

/def -i enchant_init = \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: Initializing .... %;\
/set auto_enchant=0%;\
/set enchant_timeout=0%;\
/set enchant_keyword=%;\
/set enchant_name=%;\
/set enchant_type=%;\
/set enchant_exit=%;\
/set enchant_post=

/def -i enchant = \
/enchant_init%;\
/if (!getopts("awbin:x:")) /return 0%;/endif%; \
/set enchant_name %{opt_n}%;\
/safechannel -q on%;\
/set enchant_post %{opt_x}%;\
/if (opt_a) /set enchant_type armor%;\
/elseif (opt_w) /set enchant_type weapon%;\
/elseif (opt_b) /set enchant_type bow%;\
/elseif (identify_type !~ "") /set enchant_type %{identify_type}%;\
/else \
/echo -aCyellow %%% No idea how to enchant %*.%;\
/enchant_exit no_type%;\
/return 1%;\
/endif%;\
/set enchant_keyword %*%;\
/set auto_enchant 1%;\
/verbose -o%{verbosity_enchant} -l1 - -aCcyan %%% /%0: Start enchanting %enchant_keyword.%;\
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Type is %enchant_type, post command is %enchant_post%;\
/enchant_do%;\

/def -i enchant_do = \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: Enchanting %{enchant_keyword} as %{enchant_type}.%;\
c 'enchant %{enchant_type}' %{enchant_keyword}

;Stuff that could go wrong
/def -i -E(auto_enchant) -p699 -F -t"You are not carrying *!" enchant_no_item = \
/verbose -o%{verbosity_enchant} -l2 - -aBCred %%% Can't find your item, %{enchant_keyword}! Bailing out.%;\
/enchant_exit no_item

/def -i -E(auto_enchant) -p699 -F -mregexp -t"^You do not have enough mana to cast enchant (weapon|bow|armor).$" enchant_no_mana = \
/verbose -o%{verbosity_enchant} -l1 - -aCcyan %%% /%0: Yikes! Out of mana. Calling regen script and returning.%;\
/regen -x/enchant_do

/def -i -E(auto_enchant) -p699 -F -mregexp -t"^That isn't (an|a) (armor|weapon|bow).$" enchant_wrong_type = \
/verbose -o%{verbosity_enchant} -l1 - -aBCred %%% /%0: WRONG TYPE! Exiting.%;\
/enchant_exit wrong_type

;If someone else enchants we dont want our triggers to grab their results
/def -i -E(auto_enchant) -t"* utters the words, 'enchant *'." enchant_timeout = \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: Someone enchanted something. Disabling enchant triggers.%;\
/set enchant_timeout 1
;So we ignore the next line of mud output with a highest priority non-fallthru trigger
/def -i -E(enchant_timeout) -p999 -t"*" enchant_exit_timeout = \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: We got their result. Enabling enchant triggers.%;\
/set enchant_timeout 0
;DEBUG? triggers are still not 100% fool proof (but getting really close)
;someone could enchant something just a millisecond before we do so both results
;would be on consecutive lines of mud output. If their enchant fails or does
;nothing, we'll be ignoring the result of ours, stalling the script.

;armor, weapon, bow
/def -i -E(auto_enchant) -p699 -F -mregexp -t"^Nothing seemed to happen.$" enchant_nothing = \
/verbose -o%{verbosity_enchant} -l1 - -aCyellow %%% /%0: Sigh... *yawn* ... Mumble mumph ZZZZZZZZZ ... retrying...%;\
/enchant_do

/def -i -E(auto_enchant) -p699 -F -mregexp -t" glows brightly, then fades...oops.$" enchant_fade = \
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from -n: %enchant_name%;\
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from trigger: %{PL}%;\
/if ((enchant_name =~ "") | (enchant_name =/ {PL})) \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: Item fades! Beh.%;\
/enchant_exit fade%;\
/else \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: Name mismatch. Exit.%;\
/enchant_exit wrong_name%;\
/endif

;a presence kills the enchant_exit /repeated by the shimmer
/def -i -E(auto_enchant) -p699 -F -mregexp -t"^You feel the presence of (Shizaga|Quixoltan|Durr)!$" enchant_presence = \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: Gotta love %{P1}!%;\
/@test _enchant_exit_pid & (kill(_enchant_exit_pid), _enchant_exit_pid:=0)%;\
/enchant_exit presence

;armor
/def -i -E(auto_enchant) -p699 -F -mregexp -t" shimmers with a gold aura.$" enchant_shimmers_gold = \
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from -n: %enchant_name%;\
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from trigger: %{PL}%;\
/if ((enchant_name =~ "") | (enchant_name =/ {PL})) \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: We got gold... But where is Shizaga?%;\
/repeat -0.5 1 /enchant_exit shimmer%;\
/set _enchant_exit_pid=%?%;\
/else \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: Name mismatch. Exit.%;\
/enchant_exit wrong_name%;\
/endif

/def -i -E(auto_enchant) -p699 -F -mregexp -t" glows a brilliant gold!$" enchant_brilliant_gold = \
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from -n: %enchant_name%;\
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from trigger: %{PL}%;\
/if ((enchant_name =~ "") | (enchant_name =/ {PL})) \
/verbose -o%{verbosity_enchant} -l2 - -aBCyellow %%% /%0: Yesss!!! A brill!.%;\
/enchant_exit brill%;\
/else \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: Name mismatch. Exit.%;\
/enchant_exit wrong_name%;\
/endif

/def -i -E(auto_enchant) -p699 -F -mregexp -t" flares blindingly... and evaporates!$" enchant_vape = \
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from -n: %enchant_name%;\
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from trigger: %{PL}%;\
/if ((enchant_name =~ "") | (enchant_name =/ {PL})) \
/verbose -o%{verbosity_enchant} -l2 - -aBCred %%% /%0: Oh nooooooooo.... another one vaped!%;\
/enchant_exit vape%;\
/else \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: Name mismatch. Exit.%;\
/enchant_exit wrong_name%;\
/endif

;weapon, bow
/def -i -E(auto_enchant) -p699 -F -mregexp -t" glows blue.$" enchant_shimmers_blue = \
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from -n: %enchant_name%;\
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from trigger: %{PL}%;\
/if ((enchant_name =~ "") | (enchant_name =/ {PL})) \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: This one enchanted... any presence?%;\
/repeat -0.5 1 /enchant_exit shimmer%;\
/set _enchant_exit_pid=%?%;\
/else \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: Name mismatch. Exit.%;\
/enchant_exit wrong_name%;\
/endif

/def -i -E(auto_enchant) -p699 -F -mregexp -t" glows a brilliant blue!$" enchant_brilliant_blue = \
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from -n: %enchant_name%;\
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from trigger: %{PL}%;\
/if ((enchant_name =~ "") | (enchant_name =/ {PL})) \
/verbose -o%{verbosity_enchant} -l2 - -aBCblue %%% /%0: I wish this would happen all the time!%;\
/enchant_exit brill%;\
/else \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: Name mismatch. Exit.%;\
/enchant_exit wrong_name%;\
/endif

/def -i -E(auto_enchant) -p699 -F -mregexp -t" shivers violently and explodes!$" enchant_explode = \
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from -n: %enchant_name%;\
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Name from trigger: %{PL}%;\
/if ((enchant_name =~ "") | (enchant_name =/ {PL})) \
/verbose -o%{verbosity_enchant} -l2 - -aBCred %%% /%0: Boom boom boom boom... Byebye!!%;\
/enchant_exit vape%;\
/else \
/verbose -o%{verbosity_enchant} -l2 - -aCyellow %%% /%0: Name mismatch. Exit.%;\
/enchant_exit wrong_name%;\
/endif

;Finally, we exit!
/def -i enchant_exit = \
/let _post %{enchant_post}%;\
/safechannel -q off%;\
/unset auto_enchant%;\
/unset enchant_timeout%;\
/unset enchant_keyword%;\
/unset enchant_name%;\
/unset enchant_type%;\
/unset enchant_post%;\
/set enchant_exit %1%;\
/verbose -o%{verbosity_enchant} -l3 - -aCyellow %%% /%0: Exit code: %{enchant_exit}%;\
/verbose -o%{verbosity_enchant} -l1 - -aCcyan %%% /%0: Enchant script done! Executing post command: %{_post}%;\
/if (_post !~ "") /eval -s0 /repeat -0.4 1 %{_post}%; /endif
</pre>

[[Category: TinyFugue Scripting]]

Dirrev.tf

2008-11-10T00:37:59Z

Sulfar: mutter at wiki whitespace stuff

Non issue: The script won't revert 3w200s, max supported is 99.

<pre>
/echo -aCyellow %% /dirrev <path> Revert speedwalk path

/def -i dirrev = \
/if ({#}=0) \
/echo -p %%% @{Cred}Syntax: /%{0} <path>@{n}%;\
/else \
/let _dir_str %1 %;\
/let _length $[strlen(_dir_str)] %;\
/let _double_digit=0%;\
/set dirrev=%;\
/for c 0 $[_length-1] \
/let _position $$[_length-c] %%;\
/let _cur_char $$[substr(_dir_str, _position-1, 1)] %%;\
/if (_cur_char =~ "e") /let _new_char w %%;\
/elseif (_cur_char =~ "s") /let _new_char n %%;\
/elseif (_cur_char =~ "w") /let _new_char e %%;\
/elseif (_cur_char =~ "n") /let _new_char s %%;\
/elseif (_cur_char =~ "u") /let _new_char d %%;\
/elseif (_cur_char =~ "d") /let _new_char u %%;\
/else /let _new_char %%{_cur_char} %%;\
/endif %%;\
/if ((_new_char =/ "[0-9]") & (!_double_digit)) \
/set dirrev $$[strcat(substr(dirrev, 0, c-1), _new_char, substr(dirrev, c-1, 1))] %%;\
/if (substr(_dir_str, _position-2, 1) =/ "[0-9]") \
/set dirrev $$[strcat(substr(dirrev, 0, c-1), substr(_dir_str, _position-2, 1), substr(dirrev, c-1, 2))] %%;\
/let _double_digit 1 %%;\
/endif %%;\
/elseif ( regmatch("[nsewud]", _new_char) ) \
/set dirrev $$[strcat(dirrev, _new_char)] %%;\
/let _double_digit 0 %%;\
/endif %;\
/echo -p %%% @{Cwhite}The reverse of @{Cgreen}%{_dir_str} @{Cwhite}is @{Cgreen}%dirrev@{n}%;\
/return "%dirrev"%;\
/endif
</pre>
[[Category: TinyFugue Scripting]]

Config.tf

2008-11-10T00:33:54Z

Sulfar: whitespace annoying wiki stuff

A script to store mud side configuration and filter options into variables and restore them later. It also allows you to set defaults and restore them with "/config_restore all" For more information, read the comments in the first 100 lines.

This script uses [[prompt.tf]] and [[verbose.tf]] so you'll want those if you want to use this script. You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/loaded __SULFAR__/config.tf

/require -q lisp.tf
/eval /require -q %{TINYPREFIX}prompt.tf
/eval /require -q %{TINYPREFIX}verbose.tf

;Scripts can use this script to store configuration and filter options from
; Avatar into variables. Example for a call from myscript
;
; /config_store -smyscript -x/myscript_config_done
;
;/def -i myscript_config_done = \
; config +notake%;\
; config +nosummon%;\
; /myscript_continues
;
;/def -i myscript_exit = \
; /config_restore -smyscript notake%;\
; /config_restore -smyscript nosummon%;\
; /config_rmset myscript

/def -i config_usage = \
/echo -aCyellow %%% /config_store Stores mud configuration%;\
/echo -aCyellow %%% [-s<name>] name for this set of options, default: avatar%;\
/echo -aCyellow %%% [-x<command>] execute <command> on exit%;\
/echo -aCyellow %%% /config_restore <option> Restore config <option>%;\
/echo -aCyellow %%% /config_restore all Restore all config options from this set%;\
/echo -aCyellow %%% [-s<name>] name for this set of options, default: avatar%;\
/echo -aCyellow %%% /config_rmset <set> Remove config <set> from memory

/def -i filter_usage = \
/echo -aCyellow %%% /filter_store Stores mud filter configuration%;\
/echo -aCyellow %%% [-s<name>] name for this set of options, default: avatar%;\
/echo -aCyellow %%% [-x<command>] execute <command> on exit%;\
/echo -aCyellow %%% /filter_restore <option> Restore filter <option>%;\
/echo -aCyellow %%% /filter_restore all Restore all filter options from this set%;\
/echo -aCyellow %%% [-s<name>] name for this set of options, default: avatar%;\
/echo -aCyellow %%% /filter_rmset <set> Remove filter <set> from memory

;Default config. If you interrupt a script or otherwise mess up your config
; you can just use "/config_restore all".
;To produce this list I used "/config_store" and "/listvar config_avatar*".
/set config_avatar_autoexit= +autoexit
/set config_avatar_autogold= +autogold
/set config_avatar_autogroup= +autogroup
/set config_avatar_autoloot= -autoloot
/set config_avatar_autopull= +autopull
/set config_avatar_autosac= -autosac
/set config_avatar_autosplit= +autosplit
/set config_avatar_autotitle= +autotitle
/set config_avatar_battlenone= -battlenone
/set config_avatar_battleother= -battleother
/set config_avatar_battleself= -battleself
/set config_avatar_blank= +blank
/set config_avatar_blind= -blind
/set config_avatar_brief= -brief
/set config_avatar_cmdcolor= +cmdcolor
/set config_avatar_color= +color
/set config_avatar_combine= +combine
/set config_avatar_condition= -condition
/set config_avatar_demonbank= +demonbank
/set config_avatar_keepalive= -keepalive
/set config_avatar_label= +label
/set config_avatar_nobeep= -nobeep
/set config_avatar_nodisturb= -nodisturb
/set config_avatar_nogenesis= -nogenesis
/set config_avatar_nosummon= -nosummon
/set config_avatar_notake= -notake
/set config_avatar_prompt= +prompt
/set config_avatar_prompt2= +prompt2
/set config_avatar_scoreaff= -scoreaff
/set config_avatar_telnetga= -telnetga
/set config_avatar_list= autoexit autoloot autogold autogroup autopull \
autosplit autosac autotitle battleother battleself battlenone blank blind \
brief color cmdcolor combine condition demonbank keepalive nobeep \
nogenesis nosummon notake nodisturb label prompt prompt2 scoreaff telnetga
/eval /set config_set_list $(/unique %{config_set_list} avatar)

;Default filter, for /filter_restore all
/set filter_avatar_objectother=0
/set filter_avatar_roomindiv=0
/set filter_avatar_roomtotal=1
/set filter_avatar_spellother=0
/set filter_avatar_walkother=0
/set filter_avatar_list= walkother roomindiv roomtotal spellother objectother
/eval /set filter_set_list $(/unique %{filter_set_list} avatar)

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 config

/config_usage
/filter_usage

/def -i config_store = \
/set config_set=avatar%;\
/if (!getopts("x:s:")) /return 0%; /endif%;\
/if (opt_s !~ "") /set config_set %{opt_s}%;/endif%;\
/set config_post %{opt_x}%;\
/eval /set config_%{config_set}_list=%;\
/set config_set_list $(/unique %{config_set_list} %{config_set})%;\
/set config_store 1%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Grabbing configuration, storing in set %config_set%;\
config

/def -i -E(config_store) -t"\[ Keyword \] Option" config_liststart = \
/verbose -o%{verbosity_config} -l2 - -aCyellow %%% /%0: Start of configuration list%;\
/set prompt_exe config_store

/def -i -E(config_store) -mregexp -t"^\[(-|\+)([a-zA-Z0-9]+) *\] .+\.$" config_option = \
/let _sign %{P1}%;\
/let _option $[tolower({P2})]%;\
/verbose -o%{verbosity_config} -l2 - -aCyellow %%% /%0: Got config option: %{_option}%;\
/eval /set config_%{config_set}_list %%{config_%{config_set}_list} %%{_option}%;\
/eval /set config_%{config_set}_%{_option} %{_sign}%{_option}

/def -i -E(config_store) -p991 -mglob -h'send PROMPT_EXE config_store' config_prompt_exe = \
/let _post %{config_post}%;\
/set prompt_exe=%;\
/unset config_store%;\
/unset config_post%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Stored configuration in set %{config_set}, executing %{_post}%;\
/unset config_set%;\
/if (_post !~ "") /eval -s0 %{_post}%; /endif

/def -i config_restore = \
/let _set=avatar%;\
/set config_noset 0%;\
/if (!getopts("s:")) /return 0%; /endif%;\
/if (opt_s !~ "") /let _set %{opt_s}%;/endif%;\
/eval \
/if (!regmatch("autoexit", config_%{_set}_autoexit)) \
/set config_noset 1%%;\
/endif%;\
/let _option %1%;\
/if (config_noset) \
/verbose -o%{verbosity_config} -l1 - -aCred %%% %;\
/verbose -o%{verbosity_config} -l1 - -aCred %%% /%0: No configuration set %{_set} stored!%;\
/verbose -o%{verbosity_config} -l1 - -aCred %%% %;\
/elseif (_option =~ "all") \
/eval /mapcar /config_restore %%{config_%{_set}_list}%;\
/elseif (_option !~ "") \
/eval config %%{config_%{_set}_%{_option}}%;\
/else \
/config_usage%;\
/endif%;\
/verbose -o%{verbosity_config} -l3 - -aCyellow %%% /%0: Option %{_option} restored using set %{_set}%;\
/unset config_noset

/def -i config_rmset = \
/let _set %*%;\
/if (_set =~ "") /let _set=avatar%;/endif%;\
/eval /set rmset_options %%{config_%{_set}_list}%;\
/let _length $(/length %{rmset_options})%;\
/let _counter=1%;\
/while (_counter <= _length) \
/unset config_%{_set}_$(/nth %{_counter} %{rmset_options})%;\
/test ++_counter%;\
/done%;\
/set config_set_list $(/remove %{_set} %{config_set_list})%;\
/unset config_%{_set}_list%;\
/unset rmset_options%;\
/if (config_set_list =~ "") /unset config_set_list%;/endif%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Configuration set %{_set} removed.

; Same for filter

/def -i filter_store = \
/set filter_set=avatar%;\
/if (!getopts("x:s:")) /return 0%; /endif%;\
/if (opt_s !~ "") /set filter_set %{opt_s}%;/endif%;\
/set filter_post %{opt_x}%;\
/eval /set filter_%{filter_set}_list=%;\
/set filter_set_list $(/unique %{filter_set_list} %{filter_set})%;\
/set filter_store 1%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Grabbing filters, storing in set %filter_set%;\
filter

/def -i -E(filter_store) -t"Filter Type Status" filter_liststart = \
/verbose -o%{verbosity_config} -l2 - -aCyellow %%% /%0: Start of filter list%;\
/set prompt_exe filter_store

/def -i -E(filter_store) -mregexp -t"^([A-Z]+).+(ON|off)" filter_option = \
/let _option $[tolower({P1})]%;\
/let _sign %{P2}%;\
/verbose -o%{verbosity_config} -l2 - -aCyellow %%% /%0: Got filter: %{_option}%;\
/eval /set filter_%{filter_set}_list %%{filter_%{filter_set}_list} %%{_option}%;\
/if (_sign =~ "off") \
/eval /set filter_%{filter_set}_%{_option} 0%;\
/else \
/eval /set filter_%{filter_set}_%{_option} 1%;\
/endif

/def -i -E(filter_store) -p991 -mglob -h'send PROMPT_EXE filter_store' filter_prompt_exe = \
/let _post %{filter_post}%;\
/set prompt_exe=%;\
/unset filter_store%;\
/unset filter_post%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Stored filters in set %{filter_set}, executing %{_post}%;\
/unset filter_set%;\
/if (_post !~ "") /eval -s0 %{_post}%; /endif

/def -i filter_restore = \
/let _set=avatar%;\
/set filter_noset 0%;\
/if (!getopts("s:")) /return 0%; /endif%;\
/if (opt_s !~ "") /let _set %{opt_s}%;/endif%;\
/eval \
/if (!regmatch("0|1", filter_%{_set}_objectother)) \
/set filter_noset 1%%;\
/endif%;\
/let _option %1%;\
/if (filter_noset) \
/verbose -o%{verbosity_config} -l1 - -aCred %%% %;\
/verbose -o%{verbosity_config} -l1 - -aCred %%% /%0: No filter set %{_set} stored!%;\
/verbose -o%{verbosity_config} -l1 - -aCred %%% %;\
/elseif (_option =~ "all") \
/eval /mapcar /filter_restore %%{filter_%{_set}_list}%;\
/elseif (_option !~ "") \
/eval \
/if (filter_%{_set}_%{_option}) \
filter +%%{_option}%%;\
/else \
filter -%%{_option}%%;\
/endif%;\
/verbose -o%{verbosity_config} -l3 - -aCyellow %%% /%0: Filter %{_option} restored using set %{_set}%;\
/else \
/filter_usage%;\
/endif%;\
/unset filter_noset

/def -i filter_rmset = \
/let _set %*%;\
/if (_set =~ "") /let _set=avatar%;/endif%;\
/eval /set rmset_options %%{filter_%{_set}_list}%;\
/let _length $(/length %{rmset_options})%;\
/let _counter=1%;\
/while (_counter <= _length) \
/unset filter_%{_set}_$(/nth %{_counter} %{rmset_options})%;\
/test ++_counter%;\
/done%;\
/set filter_set_list $(/remove %{_set} %{filter_set_list})%;\
/unset filter_%{_set}_list%;\
/unset rmset_options%;\
/if (filter_set_list =~ "") /unset filter_set_list%;/endif%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Filter set %{_set} removed.
</pre>

[[Category: TinyFugue Scripting]]

Alt.tf

2008-11-10T00:19:42Z

Sulfar: more whitespaces

<P>This script provides
* easy alt switching, one command will log out the current char and login the other
* triggers to log in quickly scrolling by the motd and what not
* a modified /world (stdlib.tf) which will not connect if tf has an active connection
* a modification to /world to set secho off during the /@connect, this prevends the password from being displayed if you have secho on.
* you can use /alt -x<command> <alt> to log in <alt> and have <command> executed when the alt logged in, so you could easily make a spellup macro that'd use 2 alts :)</P>
<P>
You'll probably want to change the value of "main_alt" at the beginning of this script.
</P>
<B>An older version had a bug</B> that creeped in when I changed the trigger to a disconnect hook. It didn't turn it off after an alt switch. If you'd use it to log in (create) a denied character, <B>the script would loop trying to log in that character.</B> I suspect it'd do the same if you'd have a wrong password in your config file. Big oops! If you're using this script, plz make sure and update.
<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''
/loaded __SULFAR__/alt.tf

/echo -aCyellow %% /alt (Logout and) login %{main_alt}
/echo -aCyellow %% /alt <world> (Logout and) login <world>
/echo -aCyellow %% [-x<command>] execute <command> after alt switch
/echo -aCyellow %% /relog (Logout and) login current world

;Set this variable to your main alt
/set main_alt sulfar

/def alt_init = \
/set alt_get=0%;\
/set alt=%;\
/set alt_post=%;\
/set alt_execute_post=0

;;Quick, easy and safe alt switching
/def -i alt = \
/alt_init%;\
/if (!getopts("x:", "")) /return 0%; /endif%; \
/if (opt_x !~ "") \
/set alt_post %{opt_x}%;\
/set alt_execute_post 1%;\
/endif%;\
/set alt %*%;\
/if (alt =~ "") /set alt %{main_alt}%;/endif%;\
/if (is_open())\
/set alt_get 1%;\
quit%;\
/else \
/world %{alt}%;\
/set alt=%;\
/endif

/def -i relog = /alt ${world_name}

/def -i -E(alt_get) -p999 -F -h'disconnect' alt_disconnect = \
/set alt_get 0%;\
/world %{alt}%;\
/set alt=

/def -i -E(alt_execute_post) -p999 -F -t"Welcome back to the AVATAR System, *" alt_welcome_back = \
/let post %alt_post%;\
/alt_init%;\
/echo -aCcyan %%% /%0: Alt switch ready! Executing command: %post%;\
/if (post !~ "") /eval -s0 %{post}%; /endif

;Some triggers to scroll by the motd and what not
/def -i -mregexp -t"AVATAR (PLAYER|MORTAL) INFORMATION CENTER" login_enter_1 = /eval /send%;/repeat -0:00:0.5 1 /eval /send %;/echo %%% trigger: %0
/def -i -mregexp -t"Please press <enter> to continue" login_enter_2 = /eval /send%;/repeat -0:00:0.5 1 /eval /send %; /echo %%% trigger: %0
/def -i -mregexp -t"Please ensure that you've read and understood the Rules." login_enter_3 = /eval /send%;/repeat -0:00:0.5 1 /eval /send %; /echo %%% trigger: %0
/def -i -mregexp -t"please press *RETURN* to continue" login_enter_4 = /eval /send%;/repeat -0:00:0.5 1 /eval /send %; /echo %%% trigger: %0
/def -i -mregexp -t"Press <ENTER> to continue" login_enter_5 = /eval /send%;/repeat -0:00:0.5 1 /eval /send %; /echo %%% trigger: %0

;Modified /world (stdlib.tf)
; will not connect if tf has an active connection to avoid multiplay accidents
; will turn secho off before connecting to prevend echoing the password to the
; screen in case it was on. The value of secho is restored after connecting.
/def -i world = \
/if (!getopts("nlqxfb", 0)) /return 0%; \
/endif%; \
/let _args=%*%; \
/if (_args =~ "") \
/let _args=$(/nth 1 $(/@listworlds -s))%; \
/if (_args =/ "default") \
/let _args=$(/nth 2 $(/@listworlds -s))%; \
/endif%; \
/endif%; \
/let _opts=%; \
/if (is_open(_args)) \
/if (opt_n) /let _opts=%_opts -n%; /endif%; \
/if (opt_q) /let _opts=%_opts -q%; /endif%; \
/@fg %_opts %_args%; \
/elseif (is_open())\
/echo %% But you *are* connected!%;\
/else \
/if (opt_l) /let _opts=%_opts -l%; /endif%; \
/if (opt_q) /let _opts=%_opts -q%; /endif%; \
/if (opt_x) /let _opts=%_opts -x%; /endif%; \
/if (opt_f) /let _opts=%_opts -f%; /endif%; \
/if (opt_b) /let _opts=%_opts -b%; /endif%; \
/let _secho %{secho}%;\
/set secho off%;\
/@connect %_opts %_args%; \
/set secho %{_secho}%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Affects.tf

2008-11-10T00:17:36Z

Sulfar:

Provides
* custom colors of affects list
* /aff <spell> shows affects list just for <spell>
* /sick shows how sick you are
* /chkaff shows which spells you are *not* affected by
* Sanctuary ticker on the satus line
* Spellup ticker on the status line

The tickers grab the duration of sanctuary and holy aura from the affects list, colors them and puts them in a status variable. It then uses [[tick.tf]] to make the tickers count down on the tick.

This script uses [[prompt.tf]] and [[tick.tf]] so you'll need those too. Also, you should have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/require -q lisp.tf

/eval /require -q %{TINYPREFIX}prompt.tf
/eval /require -q %{TINYPREFIX}tick.tf

/echo -aCyellow %% /aff <spell> Shows affects list for <spell>
/echo -aCyellow %% /sick Shows how sick you are
/echo -aCyellow %% /chkaff Shows which spells you are *not* affected by

;I set my status line in a single command in my config file, this is what it
; looks like with the right variables for this script:
;/status_add -c @more:8:Br @world:9 :1 status_sanctuary:3 :1 status_spellup:3 :1 status_position insert:2 :1 @clock:16

;Custom color the affects list..
;Paint all of the affects list green
/def -i -p999 -F -PCgreen -mregexp -t"^Spell: '.*" affects_green

;yellow for some spells i might want to check more than others
/def -i -p998 -F -PCyellow -mregexp -t"^Spell: '(steel|iron|bark|pass|fly|water|heigh|conc).*" affects_yellow

;white for spells i most probably want to find quickly
/def -i -p998 -F -PCwhite -mregexp -t"^Spell: '(sanc|regen|scramble|hand).*" affects_white

;You can "/aff sanc" and it'll only show the sanctuary line
;or use a regexp, "/aff sanc|fren"
/def -i aff = \
/def -t"You are affected by:" _aff_affected = \
/def -p900 -mregexp -t"^Spell: '%{1}.*" _aff_spell%%;\
/def -p899 -ag -mregexp -t"^Spell: '" _aff_gag_other_affects%%;\
/repeat -0.3 1 /undef _aff_affected _aff_spell _aff_gag_other_affects%;\
affects

;Just a /sick macro.
/def -i sick = \
/set sick_poison 0%;\
/set sick_disease 0%;\
/def -t"You are affected by:" _sick_affected = \
/def -p900 -mregexp -t"^Spell: '(poison|toxin|biotoxin|venom)'.*" _sick_poison = /test $$$[++sick_poison] %%;\
/def -p900 -mregexp -t"^Spell: '(virus|plague)'.*" _sick_disease = /test $$$[++sick_disease]%%;\
/def -p899 -ag -mregexp -t"^Spell: '" _sick_gag_other_affects%%;\
/repeat -0.3 1 \
/undef _sick_affected _sick_poison _sick_disease _sick_gag_other_affects%%%;\
gtell %%%%% I am affected by: %%%sick_poison poisons and %%%sick_disease diseases%;\
affects

;/chkaff will show you the spells from the chkaff_list by which
;you're *not* affected.
/def -i chkaff = \
/set chkaff_list= |BR| sanctuary |R| awen foci fortitudes \
invincibility barkskin steel_skeleton iron_skin |W| protection_evil bless holy_aura \
holy_armor armor water_breathing energy_shield displacement body_brace \
mental_barrier calcify_flesh biofeedback anticipate adrenaline_pump concentrate \
pass_door fly shield stone_skin giant_strength |G| frenzy |B| heighten_senses%;\
/set chkaff 1%;\
affects

/def -i -E(chkaff) -p100 -F -t"You are affected by:" chkaff_affected = \
/set prompt_exe chkaff

/def -i -E(chkaff) -p100 -F -mregexp -t"^Spell: '(.+)' .+" chkaff_spell = \
/let affect=$[replace(" ", "_", {P1})]%;\
/set chkaff_list=$(/remove %affect %chkaff_list)

/def -i -E(chkaff) -p991 -mglob -h'send PROMPT_EXE chkaff' chkaff_PROMPT_EXE = \
/set prompt_exe=%;\
/set chkaff 0%;\
gtell %%% I am *not* affected by %chkaff_list

;Sanc and spellup tickers on the status line
/def -i -p999 -F -t"You are affected by:" tickers_init = \
/set sanctuary_duration=%;\
/set spellup_duration=%;\
/sanctuary_status%;\
/spellup_status

/tickers_init

/def -i -p999 -F -mregexp -t"^Spell: 'sanctuary' for ([0-9]+) hours.$" aff_sanc = \
/test sanctuary_duration:=strip_attr({P1})%;\
/sanctuary_status

/def -i -p999 -F -t"The protective aura fades from around your body." sanctuary_fades = \
/set sanctuary_duration=

/def -i -p991 -F -mglob -h'send TICK_EXE' sanctuary_tick = \
/if (sanctuary_duration > 0) /test --sanctuary_duration%;\
/else /set sanctuary_duration=%;\
/endif%;\
/sanctuary_status

/def -i sanctuary_status = \
/set status_sanctuary \$%{sanctuary_duration}%;\
/if (sanctuary_duration =~ "") \
/set status_attr_var_status_sanctuary=%;\
/elseif (sanctuary_duration == 0) \
/set status_attr_var_status_sanctuary BCred%;\
/elseif (sanctuary_duration <= 2) \
/set status_attr_var_status_sanctuary Cred%;\
/elseif (sanctuary_duration <= 5) \
/set status_attr_var_status_sanctuary Cyellow%;\
/else \
/set status_attr_var_status_sanctuary=%;\
/endif

/def -i -t"You are surrounded by a white aura." got_sanc = affects

;Do the same for holy aura to have a spellup ticker
/def -i -p999 -F -mregexp -t"^Spell: 'holy aura' modifies armor class by -[0-9]+ for ([0-9]+) hours.$" aff_spellup = \
/test spellup_duration:=strip_attr({P1})%;\
/spellup_status

/def -i -p999 -F -t"Your Aura of Holiness fades..." spellup_fades = \
/set spellup_duration=

/def -i -p991 -F -mglob -h'send TICK_EXE' spellup_tick = \
/if (spellup_duration > 0) /test --spellup_duration%;\
/else /set spellup_duration=%;\
/endif%;\
/spellup_status

/def -i spellup_status = \
/set status_spellup s%{spellup_duration}%;\
/if (spellup_duration =~ "") \
/set status_attr_var_status_spellup=%;\
/elseif (spellup_duration == 0) \
/set status_attr_var_status_spellup BCred%;\
/elseif (spellup_duration <= 1) \
/set status_attr_var_status_spellup Cred%;\
/elseif (spellup_duration <= 3) \
/set status_attr_var_status_spellup Cyellow%;\
/else \
/set status_attr_var_status_spellup=%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Tick.tf

2008-11-10T00:14:46Z

Sulfar: More annoying whitespaces

A modified tick.tf. It's backwards compatible with tick.tf as found in tflib. Changes are in the comments below.

It also provides a means to other scripts to have something executed on the tick. See tick_exe in the script, or [[affects.tf]] for a usage example of this.

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

;;;; Tick counting
;;;; This file implements several tick counting commands similar to those
;;;; found in tintin, useful on Diku muds.

;;;; usage:
/echo -aCyellow %% /tick Display the time remaining until next tick
/echo -aCyellow %% /tickon Reset and start the tick counter
/echo -aCyellow %% /tickoff Stop the tick counter
/echo -aCyellow %% /tickset Reset and start the tick counter
/echo -aCyellow %% /ticksize <n> Set the tick length to <n> seconds (default is 28.45)
/echo -aCyellow %% /tickshow Toggle tick messages
/echo -aCyellow %% /tick+ Increase the ticksize with 0.05 seconds
/echo -aCyellow %% /tick- Decrease the ticksize with 0.05 seconds

;;;; This is a modified version of tick.tf as found in tf-lib
;;;; Modifications:
;;; Mod - Made tick warning catch the eye
;;; New - 5 seconds tick warning
;;; Mod - /tickoff also kills the 5 seconds warning
;;; New - /tickshow, you can now run the counter without seeing a message
;;; if you need the counter, you can /tickshow to see the
;;; messages and have a synced tick counter ready
;;; Mod - Made /tickset show a message if show_tick is 1
;;; New - /tick+ and /tick-
;;; New - Triggers to sync tick counter
;;; New - Send TICK_EXE to the server but intercept it, see tick_exe below

/loaded __TFLIB__/tick.tf

;Time between ticks in seconds
/set ticksize=28.45

/set next_tick=0
/set _tick_pid1=0
/set _tick_pid2=0
/set _tick_pid3=0
/set show_tick=1
/set tickon_time 0

/def -i tick_warn = /if (show_tick) /echo %%% Next tick in 10 seconds.%;/endif
/def -i tick_warn2 = /if (show_tick) /echo %%% Next tick in 5 seconds.%;/endif
/def -i tick_action = /if (show_tick) /echo %%% ---===> TICK <===--- ---===> TICK <===--- ---===> TICK <===---%;/endif

/def -i tick = \
/if (next_tick) \
/eval /echo %%% $$[next_tick - $(/time @)] seconds until tick%;\
/else \
/echo -e %% Tick counter is not running.%;\
/endif

;Send TICK_EXE to the server,
/def tick_exe = /send -h TICK_EXE

;but intercept it with a send hook.
;If you'd change the hook please be aware it needs a body to do anything at all!
/def -i -p990 -mglob -h'send TICK_EXE' send_hook_TICK_EXE = /test

;If an other script needs to do anything on the tick all you need to do is
;create a similar send hook with a higher priority, like
;/def -E(some_boolean) -i -p991 -F -mglob -h'send TICK_EXE' myscript_tick = /some_command

;tick_on calls /tick_exe if it didn't do so in the past 4 seconds
/def -i tickon = \
/let tick_cur_t $(/time @)%;\
/if (tickon_time + 4 < tick_cur_t) \
/tick_exe%;\
/endif%;\
/set tickon_time $(/time @)%;\
/tickoff%;\
/@test next_tick := $(/time @) + ticksize %;\
/repeat -$[ticksize - 10] 1 \
/set _tick_pid1=0%%;\
/tick_warn%;\
/set _tick_pid1=%?%;\
/repeat -$[ticksize - 5] 1 \
/set _tick_pid3=0%%;\
/tick_warn2%;\
/set _tick_pid3=%?%;\
/repeat -%ticksize 1 \
/set _tick_pid2=0%%;\
/tick_action%%;\
/tickon%;\
/set _tick_pid2=%?

/def -i tickoff = \
/@test _tick_pid1 & (kill(_tick_pid1), _tick_pid1:=0)%;\
/@test _tick_pid3 & (kill(_tick_pid3), _tick_pid3:=0)%;\
/@test _tick_pid2 & (kill(_tick_pid2), _tick_pid2:=0)%;\
/set next_tick=0

/def -i tickset = \
/if (show_tick) \
/eval /echo %%% Tick counter offset $$[next_tick - $(/time @)]%;\
/echo %%% ---===> TICK <===--- ---===> TICK <===--- synchronized%;\
;A spellup dropping was causing a lot of tick sync spam, so:
/set show_tick 0%;\
/repeat -0:0:2 1 /set show_tick 1%;\
/endif%;\
/tickon

/def -i ticksize = /set ticksize %*

/def -i tickshow = \
/set show_tick $[!show_tick] %;\
/if (show_tick) \
/echo %% Now showing tick messages%;\
/else \
/echo %% No longer showing tick messages%;\
/endif

;macros to fiddle with ticksize
/def -i tick+ = /set ticksize $[ticksize + 0.05] %;/echo Ticksize is now %{ticksize} seconds.
/def -i tick- = /set ticksize $[ticksize - 0.05] %;/echo Ticksize is now %{ticksize} seconds.

;triggers to sync tick counter
/def -i -p200 -F -t"Corpse of * decays into dust." tick_corpse_decays = /tickset
/def -i -p200 -F -t"Corpse of * decays leaving only a stench." tick_corpse_decays2 = /tickset
/def -i -p200 -F -t"Corpse of * dissolves into smoke." tick_corpse_smokes = /tickset
/def -i -p200 -F -t"Corpse of * gets taken by imps." tick_corpse_imped = /tickset
/def -i -p200 -F -t"Corpse of * spontaneously combusts leaving only ash." tick_corpse_combusts = /tickset
/def -i -p200 -F -t"Corpse of * liquifies into nothing." tick_corpse_liquifies = /tickset
/def -i -p200 -F -t"Corpse of * is consumed by maggots." tick_corpse_consumed = /tickset
/def -i -p200 -F -t"Corpse of * breaks apart into pieces." tick_corpse_breaks = /tickset
/def -i -p200 -F -t"An imp grabs * and vanishes." tick_imp_grabs = /tickset
/def -i -p200 -F -t"* decomposes." tick_something_decomposes = /tickset
/def -i -p200 -F -t"The portal crackles suddenly, flares brightly, and is gone!" tick_portal = /tickset
/def -i -p200 -F -t"The room shudders as the nexus implodes in on itself and vanishes!" tick_nexus = /tickset
/def -i -p200 -F -t"You can't take the bright sunlight!" tick_no_sun_self = /tickset
/def -i -p200 -F -mregexp -t"^([^ ]+) screams in pain from the sunlight!$" tick_no_sun_other = /tickset
/def -i -p200 -F -t"The sky is getting cloudy." tick_sky_cloudy = /tickset
/def -i -p200 -F -t"The clouds disappear." tick_clouds_disappear = /tickset
/def -i -p200 -F -t"It starts to rain!" tick_rain_starts = /tickset
/def -i -p200 -F -t"The rain has stopped." tick_rain_stops = /tickset
/def -i -p200 -F -t"Lightning flashes in the sky." tick_lightning_flashes = /tickset
/def -i -p200 -F -t"The lightning has stopped." tick_lightning_stopped = /tickset
/def -i -p200 -F -t"The day has begun." tick_day_begun = /tickset
/def -i -p200 -F -t"The night has begun." tick_night_begun = /tickset
/def -i -p200 -F -t"The sun slowly disappears in the west." tick_sun_disappears = /tickset
/def -i -p200 -F -t"The sun rises in the east." tick_sun_rises = /tickset
/def -i -p200 -F -t"The protective aura fades from around your body." tick_sanctuary = /tickset
/def -i -p200 -F -t"You slowly come out of your rage." tick_frenzy = /tickset
/def -i -p200 -F -t"You feel less perceptive." tick_alertness = /tickset
/def -i -p200 -F -t"Your senses return to normal." tick_heighten_senses = /tickset
/def -i -p200 -F -t"You feel less righteous." tick_bless = /tickset
/def -i -p200 -F -t"You feel less focused." tick_concentration = /tickset
/def -i -p200 -F -t"Your battle sense has faded." tick_anticipate = /tickset
/def -i -p200 -F -t"Your God's presence disappears." tick_prayer = /tickset
/def -i -p200 -F -t"You no longer perceive auras." tick_detect_alignment = /tickset
/def -i -p200 -F -t"You feel less armored." tick_armor = /tickset
/def -i -p200 -F -t"Your Aura of Holiness fades..." tick_holy_aura = /tickset
/def -i -p200 -F -t"You are no longer protected by your God." tick_holy_armor = /tickset
/def -i -p200 -F -t"You feel less fatigued." tick_racial_fatigue = /tickset
/def -i -p200 -F -t"One of your Exhausted spells has refreshed." tick_exhausted = /tickset
/def -i -p200 -F -t"Your pulse slows and your body returns to normal." tick_regeneration = /tickset
/def -i -p200 -F -t"You no longer feel invincible!" tick_invincibility = /tickset
/def -i -p200 -F -t"Your lungs adapt to oxygen once again." tick_water_breathing = /tickset
/def -i -p200 -F -t"Your skin softens and returns to normal." tick_iron_skin = /tickset
/def -i -p200 -F -t"Your skin feels soft again." tick_stone_skin = /tickset
/def -i -p200 -F -t"Your force shield shimmers then fades away." tick_shield = /tickset
/def -i -p200 -F -t"You feel weaker." tick_giant_strength = /tickset
/def -i -p200 -F -t"Your calcified flesh softens and returns to normal." tick_calcify = /tickset
/def -i -p200 -F -t"You feel lighter as your bones return to normal." tick_steel_skeleton = /tickset
/def -i -p200 -F -t"You gain a sense of reality." tick_overconfidence = /tickset
/def -i -p200 -F -t"The voices in your head fall silent." tick_scramble = /tickset
/def -i -p200 -F -t"You feel less savvy." tick_savvy = /tickset
/def -i -p200 -F -t"You no longer feel quite so mellow." tick_calm = /tickset
/def -i -p200 -F -t"You feel less insightful." tick_acumen = /tickset
/def -i -p200 -F -t"Your innate frenzy subdues down to normal." tick_racial_frenzy = /tickset
</pre>

[[Category: TinyFugue Scripting]]

Prompt.tf

2008-11-10T00:06:54Z

Sulfar: mutter mutter trailing whitespace

A prompt script:
* Values are grabbed
* prompt1 is substituted, hp/mana/monitor are colored to reflect their status
* prompt2 containing surge/augment/quicken levels is gagged, the levels go into the status line and are colored
* Provides an easy way for other scripts to trigger on a prompt
* If you log in with a prompt that's incompatible with prompt.tf, it'll set the prompt to be compatible

Changes:
* prompt_exe: instead of setting prompt_exe to 1, you can now set it to a string and it'll send "PROMPT_EXE <string>". Makes it easier to have multiple scripts use prompt_exe. See the chkaff macro in [[affects.tf]] for an example.

Read the comments in the script for more information.
<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/loaded __SULFAR__/prompt.tf

;These are the prompts I set on the mud.
;prompt <%h/%H(%p) %m/%M(%o) %v/%V [%T] %w/%W(%P) t%s>%n
;prompt2 <s%S a%A q%Q>%n
;also type "prompt2" once or twice and make sure it's on since the trigger below
; gags it

;Prompt1 is substituted by substitute_prompt1. It adds values to see the loss
; in hp, mana and monitor's hp. It also changes the color of hp/mana/monitor.
; If hp is higher than 70% it's colored green, if it's between 30% and 70% it's
; colored yellow, if it's lower than 30% it's colored red. Moves are just
; green currently.
;
;The substitute currently looks like:
;$&<D>[S]!@#<10/30(20|33%) 20/80(60|25%) 90mv 100/700(600|14%) t3>
;first the prompt symbols as usual,
;then hp: you're at 10 hp out of 30, that's 33%, you lost 20,
;then mana: you're at 20 mana out of 80, that's 25% used 60,
;then moves: you're at 90 mv,
;then monitor: is at 100 out of 700, that's 14%, lost 600
;then the lag timer, 3 seconds.

;To save space on the prompt line, I put tnl in tf's statusline as [320] for
; example. Tnl also shifts color, green if it's above 300, yellow for 300 or
; lower, bright yellow for 130 or lower.
;The AFK part of the prompt is captured but not displayed anywhere.

;prompt2 has values for surge, augment, quicken, is gagged and its values are
; captured to status_ variables to use in the tf status line. "Off" values
; are changed to "0" to save some space on the satusline. Surge, augment
; and quicken levels are colored. Surge and augment are green if they're off,
; yellow if 2 or 3, bright yellow if 4 or higher. Quicken is green if it's
; off, bright yellow if it's on.

;I set my status line in a single command in my config file, this is what it
; looks like with the right variables for this script
;/status_add -c @more:8:Br @world:9 :1 status_surge:2 :1 status_augment:2 :1 status_quicken:2 :1 status_tnl :1 insert:2 :1 @clock:16

;If you'd like to use the script and the prompt setting above contains all the
; information you want but just doesn't look the way you want, I'd recommend
; setting it to the format above anyways and then change the substitute below
; to make it appear the way you want.

;If prompt_exe is set to a string tf will send a "PROMPT_EXE <string>" to Avatar
; when it receives a prompt. However, it intercepts the "PROMPT_EXE*" string
; with a send hook of priority 990. This allowes you to make a higher priority
; send hook in a script to do something when you get a prompt in.
/set prompt_exe=

;set mud side prompt to be compatible with prompt.tf
/def -i prompt_set = \
prompt <%%h/%%H(%%p) %%m/%%M(%%o) %%v/%%V [%%T] %%w/%%W(%%P) t%%s>%%n%;\
prompt2 <s%%S a%%A q%%Q>%%n%;\
config +prompt%;\
config +prompt2

;Hooray for regexps!
/def -i -F -p400 -mregexp -t"^(\$|)(\&|)(\<D\>|)(\[S\]|)(\!|)(\@|)(\#|)(\*Deaf\* |)($AFK$ |)<(-?[0-9]*)/(-?[0-9]*)$(-?[0-9]*)\%$ (-?[0-9]*)/(-?[0-9]*)$(-?[0-9]*)\%$ (-?[0-9]*)/(-?[0-9]*) \[(-?[0-9]*)\] (-?[0-9]*)/(-?[0-9]*)$(-?[0-9]*)\%?$ t([0-9]+)>" substitute_prompt1 =\
;set prompt vars
/set prompt_sanctuary %{P1}%;\
/set prompt_werrebocler %{P2}%;\
/set prompt_demonfire %{P3}%;\
/set prompt_stance %{P4}%;\
/set prompt_invis %{P5}%;\
/set prompt_move_hidden %{P6}%;\
/set prompt_sneak %{P7}%;\
/set prompt_deaf %{P8}%;\
/set prompt_afk %{P9}%;\
/test prompt_hp:=strip_attr({P10})%;\
/test prompt_hp_max:=strip_attr({P11})%;\
/test prompt_hp_relative:=strip_attr({P12})%;\
/test prompt_mana:=strip_attr({P13})%;\
/test prompt_mana_max:=strip_attr({P14})%;\
/test prompt_mana_relative:=strip_attr({P15})%;\
/test prompt_move:=strip_attr({P16})%;\
/test prompt_move_max:=strip_attr({P17})%;\
/test prompt_tnl:=strip_attr({P18})%;\
/test prompt_monitor:=strip_attr({P19})%;\
/test prompt_monitor_max:=strip_attr({P20})%;\
/test prompt_monitor_relative:=strip_attr({P21})%;\
/test prompt_lagtimer:=strip_attr({P22})%;\
/set prompt_hp_diff $[prompt_hp_max - prompt_hp]%;\
/set prompt_mana_diff $[prompt_mana_max - prompt_mana]%;\
/set prompt_monitor_diff -%;\
/test (prompt_monitor_max !~ "-") & (prompt_monitor_diff:=prompt_monitor_max - prompt_monitor)%;\
;color hp
/if (prompt_hp_relative <= 30) \
/test (prompt_hp:=decode_attr(prompt_hp, "Cred"), \
prompt_hp_max:=decode_attr(prompt_hp_max, "Cred"), \
prompt_hp_diff:=decode_attr(prompt_hp_diff, "Cred"), \
prompt_hp_relative:=decode_attr(prompt_hp_relative, "Cred"))%;\
/elseif (prompt_hp_relative <= 70) \
/test (prompt_hp:=decode_attr(prompt_hp, "Cyellow"), \
prompt_hp_max:=decode_attr(prompt_hp_max, "Cyellow"), \
prompt_hp_diff:=decode_attr(prompt_hp_diff, "Cyellow"), \
prompt_hp_relative:=decode_attr(prompt_hp_relative, "Cyellow"))%;\
/else \
/test (prompt_hp:=decode_attr(prompt_hp, "Cgreen"), \
prompt_hp_max:=decode_attr(prompt_hp_max, "Cgreen"), \
prompt_hp_diff:=decode_attr(prompt_hp_diff, "Cgreen"), \
prompt_hp_relative:=decode_attr(prompt_hp_relative, "Cgreen"))%;\
/endif%;\
;color mana
/if (prompt_mana_relative <= 30) \
/test (prompt_mana:=decode_attr(prompt_mana, "Cred"), \
prompt_mana_max:=decode_attr(prompt_mana_max, "Cred"), \
prompt_mana_diff:=decode_attr(prompt_mana_diff, "Cred"), \
prompt_mana_relative:=decode_attr(prompt_mana_relative, "Cred"))%;\
/elseif (prompt_mana_relative <= 70) \
/test (prompt_mana:=decode_attr(prompt_mana, "Cyellow"), \
prompt_mana_max:=decode_attr(prompt_mana_max, "Cyellow"), \
prompt_mana_diff:=decode_attr(prompt_mana_diff, "Cyellow"), \
prompt_mana_relative:=decode_attr(prompt_mana_relative, "Cyellow"))%;\
/else \
/test (prompt_mana:=decode_attr(prompt_mana, "Cgreen"), \
prompt_mana_max:=decode_attr(prompt_mana_max, "Cgreen"), \
prompt_mana_diff:=decode_attr(prompt_mana_diff, "Cgreen"), \
prompt_mana_relative:=decode_attr(prompt_mana_relative, "Cgreen"))%;\
/endif%;\
;color monitor
/if (prompt_monitor_relative <= 30) \
/test (prompt_monitor:=decode_attr(prompt_monitor, "Cred"), \
prompt_monitor_max:=decode_attr(prompt_monitor_max, "Cred"), \
prompt_monitor_diff:=decode_attr(prompt_monitor_diff, "Cred"), \
prompt_monitor_relative:=decode_attr(prompt_monitor_relative, "Cred"))%;\
/elseif (prompt_monitor_relative <= 70) \
/test (prompt_monitor:=decode_attr(prompt_monitor, "Cyellow"), \
prompt_monitor_max:=decode_attr(prompt_monitor_max, "Cyellow"), \
prompt_monitor_diff:=decode_attr(prompt_monitor_diff, "Cyellow"), \
prompt_monitor_relative:=decode_attr(prompt_monitor_relative, "Cyellow"))%;\
/else \
/test (prompt_monitor:=decode_attr(prompt_monitor, "Cgreen"), \
prompt_monitor_max:=decode_attr(prompt_monitor_max, "Cgreen"), \
prompt_monitor_diff:=decode_attr(prompt_monitor_diff, "Cgreen"), \
prompt_monitor_relative:=decode_attr(prompt_monitor_relative, "Cgreen"))%;\
/endif%;\
;color mv green
/test (prompt_move:=decode_attr(prompt_move, "Cgreen"), \
prompt_move_max:=decode_attr(prompt_move_max, "Cgreen"))%;\
;color tnl
/if (prompt_tnl > 500) /set prompt_tnl $[decode_attr(prompt_tnl, "Cgreen")]%;\
/elseif (prompt_tnl > 300) /set prompt_tnl $[decode_attr(prompt_tnl, "BCgreen")]%;\
/elseif (prompt_tnl > 150) /set prompt_tnl $[decode_attr(prompt_tnl, "Cyellow")]%;\
/else /set prompt_tnl $[decode_attr(prompt_tnl, "BCyellow")]%;\
/endif%;\
;for the status line
/set status_tnl [%{prompt_tnl}]%;\
;color lagtimer
/test prompt_lagtimer:=decode_attr(prompt_lagtimer, "Cgreen")%;\
;finally, the substitute
/substitute -aCrgb010 \
;prompt symbols
%{prompt_sanctuary}%{prompt_werrebocler}%{prompt_demonfire}\
%{prompt_stance}%{prompt_invis}%{prompt_move_hidden}%{prompt_sneak}\
%{prompt_deaf}\
;hp
<%{prompt_hp}/%{prompt_hp_max}(%{prompt_hp_diff}|%{prompt_hp_relative}%%) \
;mana
%{prompt_mana}/%{prompt_mana_max}(%{prompt_mana_diff}|%{prompt_mana_relative}%%) \
;mv
%{prompt_move}mv \
;
;[tnl] -- uncomment the next line to restore tnl to the prompt you see
; [%{prompt_tnl}] \
;
;monitor
%{prompt_monitor}/%{prompt_monitor_max}(%{prompt_monitor_diff}|%{prompt_monitor_relative}%%) \
;lag timer
t%{prompt_lagtimer}\
>

;Grab prompt2 and set the status line variables
;Also, pretend to send PROMPT_EXE to the server if prompt_exe is set...
/def -i -ag -F -p400 -mregexp -t"^<s([^ ]+) a([^ ]+) q([^ ]+)>$" substitute_prompt2 =\
/test prompt_surge:=strip_attr({P1})%;\
/test prompt_augment:=strip_attr({P2})%;\
/test prompt_quicken:=strip_attr({P3})%;\
/set status_surge s%{prompt_surge}%;\
/set status_augment a%{prompt_augment}%;\
/set status_quicken q%{prompt_quicken}%;\
/test (status_surge =~ "soff") & (status_surge:="s0")%;\
/test (status_augment =~ "aoff") & (status_augment:="a0")%;\
/test (status_quicken =~ "qoff") & (status_quicken:="q0")%;\
;color surge
/if (prompt_surge >= 4) \
/set status_attr_var_status_surge BCyellow%;\
/elseif (prompt_surge >= 2) \
/set status_attr_var_status_surge Cyellow%;\
/else \
/set status_attr_var_status_surge=%;\
/endif%;\
;color augment
/if (prompt_augment >= 4) \
/set status_attr_var_status_augment BCyellow%;\
/elseif (prompt_augment >= 2) \
/set status_attr_var_status_augment Cyellow%;\
/else \
/set status_attr_var_status_augment=%;\
/endif%;\
;color quicken
/if (prompt_quicken >= 1) \
/set status_attr_var_status_quicken BCyellow%;\
/else \
/set status_attr_var_status_quicken=%;\
/endif%;\
/if (prompt_exe !~ "") /send -h PROMPT_EXE %{prompt_exe}%;/endif

;... except that we intercept the PROMPT_EXE with this send hook. Other scripts
; can now use a send hook with priority >990 to know when we got a prompt in.
;If you'd change the hook please be aware that unlike triggers, hooks apparently
; need a body to do anything at all!
/def -i -p990 -mglob -h'send PROMPT_EXE*' send_hook_PROMPT_EXE = /test

;Set the prompts right automagically at login
/def -i -p900 -F -i -t"Welcome back to the AVATAR System*" prompt_wb = \
/set prompt_lagtimer err%;\
/set prompt_mana_diff err%;\
/set prompt_surge err%;\
/set prompt_quicken err%;\
/repeat -0.5 1 /prompt_check

/def -i prompt_check = \
/if ((prompt_surge =~ "err") | \
(prompt_lagtimer =~ "err") | \
(prompt_surge =~ "err") | \
(prompt_quicken =~ "err")) \
/echo -aCcyan %%% Setting prompt compatible to prompt.tf%;\
/prompt_set%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Sharpenbag.tf

2008-11-09T18:27:12Z

Sulfar: bugfix exit command and a typo or two

So you have a bunch of weapons to sharpen. Toss them in a weaponbag, run the script, collect the results from sharpbag, brillbag, dullbag, or brilldullbag. See the comments in the script for a list of etches/christens. It accepts a -x<command> option to have a <command> executed when it's done.

The script is not 100% fool proof. It gets 1. from weaponbag, then sharpens 1. So if you're carrying or wielding a weapon similar to the one you got from the weaponbag, 1. might not be the weapon you want to sharpen. Keep the inv clean from weapons, don't wield anything, and it'll work perfectly fine always. Or should anyways.

This script uses [[verbose.tf]] and [[sharpen.tf]] so you'll want those if you want to use this script. Also, you should have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/eval /require -q %{TINYPREFIX}sharpen.tf
/eval /require -q %{TINYPREFIX}verbose.tf

/echo -aCyellow %% /sharpenbag Sharpen all items in sharpbag and distribute results
/echo -aCyellow %% [-x<command>] command to execute after sharpenbag

;etch christen
;weaponbag a bag of sharpenable weapons
;sharpbag a bag of sharpened weapons
;brillbag a bag of brill sharpened weapons
;dullbag a bag of dulled weapons
;brilldullbag a bag of weapons that brilled, then dulled
;
;Only the christen for the weaponbag matters, sharpenbag_got_weapon triggers
; on it

;When the script exits it sets global var sharpenbag_exit to
;0 sharpenbag finished correctly with an empty weaponbag
;no_weapon error code from sharpen.tf
;no_whetstone error code from sharpen.tf
;no_weaponbag can't find the weaponbag

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 sharpenbag

/def -i sharpenbag_init = \
/set sharpenbag=0%;\
/set sharpenbag_post=%;\
/set sharpenbag_exit=

/sharpenbag_init

/def -i sharpenbag = \
/verbose -o%{verbosity_sharpenbag} -l2 - -aCyellow %%% /%0 initializing .... %;\
/sharpenbag_init%;\
/set sharpenbag=1%;\
/if (!getopts("x:", "")) /return 0%; /endif%; \
/set sharpenbag_post %{opt_x}%;\
/sharpenbag_start

/def -i sharpenbag_start = \
/verbose -o%{verbosity_sharpenbag} -l2 - -aCyellow %%% /%0: Start sharpening%;\
stand%;hei%;hei%;\
get 1. weaponbag

;Wrong alt? Weaponbag in a bag?
/def -i -E(sharpenbag) -p799 -F -t"I see no weaponbag here." sharpenbag_no_weaponbag = \
/verbose -o%{verbosity_sharpenbag} -l1 - -aBCred %%% You are not carrying the weaponbag. Exiting /sharpenbag.%;\
/enchantbag_exit no_weaponbag

/def -i -E(sharpenbag) -p799 -F -mregexp -t"^You get (.+) from a bag of sharpenable weapons.$" sharpenbag_got_weapon = \
/verbose -o%{verbosity_sharpenbag} -l2 - -aCyellow %%% /%0: Got weapon, %{P1}.%;\
/sharpen -x/sharpenbag_weapon_done 1.

/def -i -E(sharpenbag) -p799 -F -t"You see nothing like that in a bag of sharpenable weapons." weaponbag_empty = \
/verbose -o%{verbosity_sharpenbag} -l1 - -aCcyan %%% Your weaponbag is empty. Exiting /sharpenbag.%;\
/sharpenbag_exit 0

/def -i sharpenbag_weapon_done = \
/verbose -o%{verbosity_sharpenbag} -l2 - -aCyellow %%% /%0: This weapon is done.%;\
/if (regmatch("^$|no_weapon|no_whetstone", sharpen_exit)) \
/verbose -o%{verbosity_sharpenbag} -l1 - -aBCred %%% /%0: Sharpen script exit status: %{sharpen_exit}%;\
/verbose -o%{verbosity_sharpenbag} -l1 - -aBCred %%% /%0: Exit sharpenbag, sharpen_err.%;\
/sharpenbag_exit %{P1}%;\
/elseif (regmatch("sharp|was_sharp", sharpen_exit)) \
put 1. sharpbag%;\
/sharpenbag_start%;\
/elseif (sharpen_exit =~ "dull") \
put 1. dullbag%;\
/sharpenbag_start%;\
/elseif (sharpen_exit =~ "brill") \
put 1. brillbag%;\
/sharpenbag_start%;\
/elseif (sharpen_exit =~ "brilldull") \
put 1. brilldullbag%;\
/sharpenbag_start%;\
/endif

/def -i sharpenbag_exit = \
/let _post %sharpenbag_post%;\
/verbose -o%{verbosity_sharpenbag} -l1 - -aCyellow %%% /%0: Exiting and executing command: %_post%;\
/sharpenbag_init%;\
/set sharpenbag_exit %1%;\
/verbose -o%{verbosity_sharpenbag} -l3 - -aCyellow %%% /%0: Exit code: %sharpenbag_exit%;\
/if (_post !~ "") /eval -s0 %{_post}%; /endif
</pre>

[[Category: TinyFugue Scripting]]

Regen.tf

2008-11-09T06:51:21Z

Sulfar:

Verbose.tf

2008-11-08T14:47:51Z

Sulfar: arrgh @ magically appearing trailing white spaces

Regen.tf

2008-11-08T14:39:12Z

Sulfar: Where do these @!%^&$$ whitespaces come from

A regen script. It sends a blank line to the server and checks if we're done at regular intervals, currently 8 seconds. It uses variables from [[prompt.tf]] to see if we're done.

This script uses both [[prompt.tf]] and [[verbose.tf]] so you'll need those if you want to use this
script. You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

You can see examples of its use in the [[identify.tf]] or the [[enchant.tf]] script. If it doesnt have mana for the spell, it calls this script to regen and go back when it's done with the regen.

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''
/loaded __SULFAR__/regen.tf

/eval /require -q %{TINYPREFIX}prompt.tf
/eval /require -q %{TINYPREFIX}verbose.tf

/echo -aCyellow %% /regen -x<command> Fully regen, then execute <command>

;A regen script. It will make you sleep to regen. It will make you stand and
;execute a command when you're done, for example:
; sanc dw
; regen -x"e=u=u=sleep"
;
;Or it might just be more useful in other scripts.

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and use system verbosity level
;see verbose.tf
/verbose -s2 regen

/def -i regen = \
/if (!getopts("x:", "")) /return 0%; /endif%; \
/set regen_post %{opt_x}%;\
/verbose -o%{verbosity_regen} -l1 - -aCcyan %%% /%0: Starting checks. Post command is: %regen_post%;\
sleep%;\
/repeat -7.5 1 /send%;\
/repeat -8 1 /regen_check

/def -i regen_check = \
/let _post %{regen_post}%;\
/let _move_relative $[prompt_move*100/prompt_move_max]%;\
/if ((prompt_hp_relative >= 100) & (prompt_mana_relative >= 100) & \
(_move_relative >= 100) & (!prompt_lagtimer)) \
/verbose -o%{verbosity_regen} -l1 - -aCcyan %%% /%0: Regen done! Executing post command: %regen_post%;\
stand%;\
/unset regen_post%;\
/if (_post !~ "") /eval -s0 %{_post}%; /endif%;\
/else \
/verbose -o%{verbosity_regen} -l2 - -aCyellow %%% %0: not done yet....%;\
/repeat -7.5 1 /send%;\
/repeat -8 1 /regen_check%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Lowmort gear macro and etching scheme

2008-11-08T14:33:23Z

Sulfar: arrgh trailing white spaces

Running 4 lowmorts at a time on multiday can give you a headache. After each multiday I've been trying to find ways to cut down annoyance time and have more playing time ;) This etching scheme and the script below cuts out the most annoying and time consuming part of running lowmorts on a multiday... keeping track of about 250 pieces of equipment. If you have your gear etched and bagged according to the etching scheme, the script will always make you wear the best gear available to you on the level - and within a second.

I use 3 locker alts. One carries bags of ac gear, one hit gear and one arc gear. The bags are etched according to the gear kit and level range they contain. The etch is b<gear><levelrange>, bac20 for a bag of ac gear you can wear from level 20-30, barc40 for a bag of arc gear you can wear from 40-50 and so on. All of them have level 50 hero gear in a bag as well, bags go like bhit47, bac47, barc47.

I etch items according to the gear kit they're in (ac, arc, hit) and the level... Pay attention though, I didn't use the level of the item for the etch but the level you can wear/wield it at. Wields are kept in a seperate bag, called bwields. I put bows and shields in the barc/bac bags as I would with the other archer/ac items. This list of examples should cover all etches in use by the script:

<pre>
item etch
level 27 gargoyle bracer b7 ac24
level 28 gargoyle bracer b7 -3 ac25
level 29 gargoyle bracer b8 -3 ac26
level 14 pants of illusion hit11
level 36 spidersilk bracers arc33
level 20 simple hunter's bow arc15
level 23 sharpened golden claw wield18
level 25 offhand 11/11 moonblade dagger offhand20
level 30 silver cavalry shield ac27
level 50 flaming pants hit47
bag of lvl 10-20 wearable hitgear bhit10
bag of lvl 20-30 wearable arcgear barc20
bag of lvl 30-40 wearable acgear bac30
bag of lvl 50 hero hit gear bhit47
bag of lvl 50 hero arc gear barc47
bag of wields bwields
</pre>
Since I have just 2 nicely enchanted offhands for the 2 wars i dont really use a loop for those but just "wear offhand". The three gargoyle bracers here serve as an example... As long as you make sure the higher level wrist item is better than the lower level wrist item, you can put as many of them in your bags as you like, the script will make you wear the best you can at the level. My bags of lowmort hit gear actually contain everything for 2 sets, the second warrior will just use the best of what's left over by the first ;)

Now I can start manipulating all these items with loops. What I do is "drop all.barc", "drop all.bac" or "drop all.bhit=drop bwields" with the locker carrying the gear, then hit the fixgear script with the lowmort, then pick up the bags with the locker(!).
This is the script, i put some example output below it.

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''
; lowmort gear fixing macro :)
; /fixgear <gear> <level> Wears hit, ac, arc or mana gear for level
; /fixgear <gear> 0 Will put the gear into the appropriate bags

/def -i fixgear = \
/let gear %1%;\
/let level %2%;\
rem all%;\
/if (level >= 47) \
get all b%{gear}47%;\
wear all.%{gear}47%;\
/endif%;\
put all.%{gear}47 b%{gear}47%;\
/let level_counter=%;\
/test (level_counter:=level, level_counter > 46) & (level_counter:=46)%;\
/while (level_counter > 10) \
/if ((level_counter == level) | (level_counter == 46)) \
get all b%{gear}$[(level_counter/10)]0%;\
/elseif (mod(level_counter, 10) == 9) \
put all.%{gear}$[(level_counter/10)+1] b%{gear}$[(level_counter/10)+1]0%;\
get all b%{gear}$[(level_counter/10)]0%;\
/endif%;\
wear all.%{gear}%{level_counter}%;\
/test --level_counter%;\
/done%;\
;cleanup line
/for c 1 4 put all.%{gear}%%{c} b%{gear}%%{c}0%;\
/if (gear =~ "hit") \
get all bwields%;\
/for c $[level-9] %{level} wield wield%%{c}%;\
put all.wield bwields%;\
wear offhand%;\
/endif%;\
;try to wear some level eq i might have
wear "cult hat bonk"%;\
wear "golden robe"%;\
wear "wreath laurel"

</pre>

Example (trimmed) output of "/fixgear hit 32":

<pre>
remove all
get all bhit30
wear all.hit32
wear all.hit31
wear all.hit30
put all.hit3 bhit30
get all bhit20
wear all.hit29
... [snip] ...
wear all.hit20
put all.hit2 bhit20
... [snip, that'll continue to level 11] ...
get all bwields
wield wield23
wield wield24
... [snip] ...
wield wield32
put all.wield bwields
wear offhand
wear "golden robe"
wear "wreath laurel"
</pre>

For armor pieces I use the fact that "wear all.*" will not switch out gear you're already wearing, for wields I use the fact that wield wield20 *will* switch out the wield19. What's left to pack manually is 4 wreathes, a golden robe, 2 shields to bash with and a bunch of arrows to shoot.

As a useful example but easier than the fixgear script, this would clean up all hit gear:

<pre>put all.wield bwields
put all.hit47 bhit47
/for c 1 4 put all.hit%c bhit%{c}0</pre>

Or for the arc gear it would be
<pre>put all.arc47 barc47
/for c 1 4 put all.arc%c barc%{c}0</pre>

To label all items, I wrote [[label.tf]] and used it like
<pre>/for c 1 20 /label %c.ac</pre>

HTH

[[Category: TinyFugue Scripting]]

Identify.tf

2008-11-08T14:27:01Z

Sulfar: Fixed annoying trailing white space thing

This identify script was mostly cut from the old label script, to make it useful for other things than just labeling. The script identifies an item and grabs some info. You can use -e<command> to specify a command that should run before the identify, which is useful if you'd expect to loop the identify. See [[label.tf]].

You can use -x<command> to specify a command that should run when all the info grabbing triggers had a chance to do their job. This is useful for other scripts, again see [[label.tf]].

It also tries to look up the multiplier for the armor class of the slot where its worn at, like 3.50 for a shield. It does this by converting the object keyword to a variable name. See the list at the bottom of the script. I currently use the values with armor opt. The list is complete only as far as I've used it.

You can see which info it grabs by looking at identify_init, at its triggers, or by typing "/listvar identify*". I've only added identify lines I've been using.

To use it in a script I have TINYPREFIX set in my config file, pointing at the directory with my tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>
and load it with this line in the script:
<pre>/eval /require -q %{TINYPREFIX}identify.tf</pre>

Identify uses [[verbose.tf]], [[regen.tf]] and [[prompt.tf]] so you'll need those as well if you want to use it.

<pre>
;DEBUG indefinately incomplete identify_armor_multiplier_ variable list

/loaded __SULFAR__/identify.tf

/eval /require -q %{TINYPREFIX}prompt.tf
/eval /require -q %{TINYPREFIX}regen.tf
/eval /require -q %{TINYPREFIX}verbose.tf

/echo -aCyellow %% /identify <item> Identify item and grab info
/echo -aCyellow %% [-e<command>] execute <command> before identify
/echo -aCyellow %% [-x<command>] execute <command> on exit
/echo -aCyellow %% /id [-x] [-e] <item> short version of /identify ;)

;When identify's finished it sets an exit code
; 0 finished correctly
; no_item couldn't find item

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 identify

;When the identify is finished it will set global var identify_exit to
;0 identify script exit normally
;no_item couldn't find your item to identify

;do NOT set identify_post here
/def -i identify_init = \
/verbose -o%{verbosity_identify} -l2 - -aCyellow %%% /%0 initializing .... %;\
/set identify_pre=%;\
/set identify_object=%;\
/set identify_type=%;\
/set identify_flags=%;\
/set identify_etch=%;\
/set identify_weight=%;\
/set identify_value=%;\
/set identify_level=%;\
/set identify_type=%;\
/set identify_enchant_armor=%;\
/set identify_enchant_weapon=%;\
/set identify_enchant_bow=%;\
/set identify_armor_class=%;\
/set identify_armor_multiplier=%;\
/set identify_dam_min=%;\
/set identify_dam_max=%;\
/set identify_dam_avg=%;\
/set identify_hr=%;\
/set identify_dr=%;\
/set identify_draw_strength=%;\
/set identify_capacity=%;\
/set identify_flametongue=%;\
/set identify_lightning=%;\
/set identify_exit=

/identify_init

/def -i id = /identify %*

/def -i identify = \
/verbose -o%{verbosity_identify} -l1 - -aCcyan %%% /%0: Identifying and grabbing info.%;\
/set identify_call /%0 %*%;\
/verbose -o%{verbosity_identify} -l2 - -aCyellow %%% /%0: Identify was called as: %identify_call%;\
/if (!getopts("e:x:", "")) /return 0%; /endif%; \
/set identify_pre %{opt_e}%;\
/set identify_post %{opt_x}%;\
/set identify_grab 1%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: identify_pre is %identify_pre. identify_post is %identify_post.%;\
/if (identify_pre !~ "") /eval -s0 %identify_pre %;/endif%;\
c identify %1

/def -i -E(identify_grab) -p900 -F -t"You are not carrying .+!" identify_no_item = \
/identify_exit no_item%;\
/verbose -o%{verbosity_identify} -l2 - -aCyellow %%% /%0: Not carrying that, exit no_item. Post command is %identify_post%;\
/if (identify_post !~ "") /eval %{identify_post}%; /endif

/def -i -E(identify_grab) -p900 -F -t"You failed your identify due to lack of concentration!" identify_failed = \
/verbose -o%{verbosity_identify} -l2 - -aCyellow %%% /%0: Retrying.....%;\
/eval -s0 %{identify_call}

/def -i -E(identify_grab) -p900 -F -t"You do not have enough mana to cast identify." identify_no_mana = \
/verbose -o%{verbosity_identify} -l2 - -aCyellow %%% Yikes! Out of mana. Calling regen script and retrying.%;\
/regen -x'%{identify_call}'

/def -i -E(identify_grab) -p900 -F -mregexp -t"^Object '(.+)' type ([^ ]+), extra flags (.+).$" identify_object = \
/verbose -o%{verbosity_identify} -l2 - -aCyellow %%% /%0: Grabbing..... Post command is %identify_post%;\
/identify_init%;\
/set identify_object %{P1}%;\
/set identify_type %{P2}%;\
/set identify_flags %{P3}%;\
/if (regmatch("etched", identify_flags)) \
/test regmatch("(.+) ([^ ]+)$$", identify_object)%;\
/set identify_object %{P1}%;\
/set identify_etch %{P2}%;\
/endif%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: Object is %identify_object, type is %identify_type, etch is %identify_etch%;\
/set prompt_exe identify

/def -i -E(identify_grab) -p991 -mglob -h'send PROMPT_EXE identify' identify_PROMPT_EXE = \
/set prompt_exe=%;\
/identify_exit 0

/def -i identify_exit = \
/let post %{identify_post}%;\
/set identify_grab 0%;\
/set identify_pre=%;\
/set identify_exit %1%;\
/if (identify_type =~ "armor") \
/let var_postfix=%{identify_object}%;\
;DEBUG are there any weird characters in the keywords
;DEBUG other than the ' in the archer's gauntlet..?
/test var_postfix:=replace("'", "", var_postfix)%;\
/test var_postfix:=replace(" ", "_", var_postfix)%;\
/eval /set identify_armor_multiplier %%{identify_armor_multiplier_%{var_postfix}}%;\
/if (identify_armor_multiplier > 0) /verbose -o%{verbosity_identify} -l1 - -aCcyan %%% /%0: Known armor. Its base multiplier is %identify_armor_multiplier%;/endif%;\
/endif%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: Exit code: %{identify_exit}%;\
/verbose -o%{verbosity_identify} -l1 - -aCyellow %%% /%0: Finishing up. Post command is %identify_post%;\
/if (post !~ "") /eval -s0 %{post}%; /endif

/def -i -E(identify_grab) -p900 -F -mregexp -t"^Weight ([0-9]+), value ([0-9]+), level ([0-9]+).$" identify_level = \
/set identify_weight %{P1}%;\
/set identify_value %{P2}%;\
/set identify_level %{P3}%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: Weight %identify_weight, Value %identify_value, Level %identify_level.

/def -i -E(identify_grab) -p900 -F -mregexp -t"^Armor class is ([0-9]+)." identify_armor_class = \
/set identify_armor_class %{P1}%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: Armor class is %identify_armor_class.

/def -i -E(identify_grab) -p900 -F -mregexp -t"^Damage is ([0-9]+) to ([0-9]+) $average ([0-9]+)$.$" identify_dam = \
/set identify_dam_min %{P1}%;\
/set identify_dam_max %{P2}%;\
/set identify_dam_avg %{P3}%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: Damage, minimum: %identify_dam_min, average: %identify_dam_avg, maximum: %identify_dam_max

/def -i -E(identify_grab) -p900 -F -mregexp -t"^'enchant armor 'Modifies armor class by (-[0-9]+) continuous.$" identify_enchant_armor = \
/set identify_enchant_armor %{P1}%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: Enchanted armor, by %identify_enchant_armor continuous.

/def -i -E(identify_grab) -p900 -F -mregexp -t"^ Modifies damage roll by (-?[0-9]+) continuous.$" identify_dr = \
/set identify_dr %{P1}%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: It has a dr mod, %identify_dr continuous.

/def -i -E(identify_grab) -p900 -F -mregexp -t"^ Modifies hit roll by (-?[0-9]+) continuous.$" identify_hr = \
/set identify_hr %{P1}%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: It has a hr mod, %identify_dr.

/def -i -E(identify_grab) -p900 -F -mregexp -t"^'enchant weapon 'Modifies damage roll by ([0-9]+) continuous.$" identify_enchant_weapon = \
/set identify_enchant_weapon %{P1}%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: Enchanted weapon, enchanted %identify_enchant_weapon/%identify_enchant_weapon.

/def -i -E(identify_grab) -p900 -F -mregexp -t"^'enchant bow 'Modifies hit roll by ([0-9]+) continuous.$" identify_enchant_bow = \
/set identify_enchant_bow %{P1}%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: Enchanted bow, enchanted %identify_enchant_bow.

/def -i -E(identify_grab) -p900 -F -mregexp -t"^Draw strength is ([0-9]+).$" identify_draw_strength = \
/set identify_draw_strength %{P1}%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: This bow's draw strength is %identify_draw_strength

/def -i -E(identify_grab) -p900 -F -mregexp -t"^Capacity is ([0-9]+) lbs.$" identify_capacity = \
/set identify_capacity %{P1}%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: This container has a capacity of %identify_capacity lbs.

/def -i -E(identify_grab) -p900 -F -mregexp -t"^It has ([0-9]+) charges of flametongue.$" identify_flametongue = \
/set identify_flametongue %{P1}%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: This shield has %identify_flametongue charges of flametongue.

/def -i -E(identify_grab) -p900 -F -mregexp -t"^It has ([0-9]+) charges of arc lightning.$" identify_lightning = \
/set identify_lightning %{P1}%;\
/verbose -o%{verbosity_identify} -l3 - -aCyellow %%% /%0: This shield has %identify_lightning charges arc lightning.

;To add values, create a line like these below. The recipe for the variable
;name is: identify an object, take the 'object', remove all weird characters,
;then change spaces to underscores, prefix identify_armor_multiplier_ .
;Kinda clumsy but a quick hack and i don't expect to enchant hundreds of
;different items or something ;)
/set identify_armor_multiplier_Antharian_Signet_ring 1.00
/set identify_armor_multiplier_carved_bone_necklace 1.00
/set identify_armor_multiplier_embroidered_breastplate_silk 3.50
/set identify_armor_multiplier_teardrop_helmet 1.25
/set identify_armor_multiplier_crown_smoldering 1.25
/set identify_armor_multiplier_heroic_dragonscale_dragon_scale_skirt 1.25
/set identify_armor_multiplier_fatewalkers_mystical_sandals 1.00
/set identify_armor_multiplier_single_silver_archers_gauntlet 1.00
/set identify_armor_multiplier_steel_bracers 1.25
/set identify_armor_multiplier_hero_heroes_shield 3.50
/set identify_armor_multiplier_shroud_cloth_unholy 2.25
/set identify_armor_multiplier_collar_steel_chained 1.25
/set identify_armor_multiplier_orosca_enchanted_wrist_guard 1.10
/set identify_armor_multiplier_lemans_family_seal_talisman 1.00
/set identify_armor_multiplier_mother_pearl 1.00
</pre>

[[Category: TinyFugue Scripting]]

Enchantbag.tf

2008-11-08T14:17:15Z

Sulfar: Removed some trailing spaces

<h4>Features</h4>
So you have a pile of armor to enchant. And a couple of weapons and bows to go with that. Well you toss it all in fodderbag, run this script, and collect the results from upgradebag, sparebag or wastebag. Or if you don't configure it with your current gear, you can collect the items from brillbag, shimmerbag, wastebag. It accepts some options:

* -l enchanting with an unshadowed lord
* -w<level> level we want to wear the item at
* -x<command> execute <command> when done

The script uses "get 1. fodderbag", identifies 1., and enchants 1. . It will check the names of
* the item you got from the fodderbag
* the first item in your inventory
* the name of the item it's identifying
If they're not all the same it won't enchant the item.

It sets config +blind, +combine, -condition, +nosummon, +notake, +nodisturb and filter +spellother to decrease the chance of anything/anyone messing up the script. That should make sure the triggers don't respond on people cutting/pasting brills to channels, the triggers work on you inventory, your regen is not interrupted and the triggers won't respond to other players enchants. Config +blind doesn't affect grtz channel but that is still covered by safechannel.tf. The script uses config.tf to store/restore your configuration.

<h4>Example config file</h4>
The script will try to load an enchantbag.gear.tf file with a configuration of gear. It's simply a list of variables, like

<pre>
/set enchantbag_hero_essence_amorphous_orb 12dr 10dr
/set enchantbag_hero_hero_heroes_shield b12 b12
/set enchantbag_hero_bow_sliver_glowing_moonlight_arc 21hr
/set enchantbag_hero_lemans_family_seal_talisman b12 -9 b12 -6

;To reuse a value for an equivalent item, you could
/eval /set enchantbag_hero_mother_pearl %{enchantbag_hero_lemans_family_seal_talisman}

;Lord stuff
/set enchantbag_lord_essence_amorphous_orb 15dr 13dr
</pre>

To make the variable name, you'd append "enchantbag_" with either "hero_", "lord_", or "lowmort_", then append that with the keywords you get from identify, remove "weird" characters (anything not in [a-zA-Z0-9 ]) and turn spaces into underscores.

The first value is the current gear, anything above that will go into upgradebag. The second value is the lowest spare that should go into sparebag. The script currently treats spares kinda aggressively, it'll try to enchant a 12 -3 spare to a 12 -6 spare if the level permits, even if you have 12 -3 as lowest spare to keep. Perhaps I should switch that around, I don't know yet. You can omit the second value, it'll then use the default ranges for spares.

If you're enchanting armor and want to use the configuration, you'll also need to add the item to [[identify.tf]] to know the multiplier for the armor class.

<h4>Stuff you need</h4>
This script uses [[config.tf]], [[verbose.tf]], [[enchant.tf]] and [[identify.tf]] so you'll want those if you want to use this script. Config.tf and identify.tf use [[prompt.tf]], and enchant.tf uses [[regen.tf]] and [[safechannel.tf]] so get those while you're at it. <b>If you update this script from an older version, please update these scripts as well,</b> or strange things might happen, or it might not work at all. You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

You'll also need some bags, look at the comments in the script for a list of etches and christens.

<h4>Examples</h4>
Enchant a pile of stuff with a hero for hero tier:
<pre>/enchantbag</pre>

Enchant a pile of mother pearls with an unshadowed lord but for hero tier:
<pre>/enchantbag -l</pre>

Enchant a pile of amorphous orbs or doom shards for lord and sleep afterwards:
<pre>/enchantbag -l -w125 -xsleep</pre>

If you'd want to see all debug spam it produces, try
<pre>/verbose -s3</pre>
<h4>Disclaimer</h4>
It's not all pretty, some parts of the script might taste good with some bolognese. Larger tf scripts tend to get like that. I blame it on the lack of structured data types, lack of way to pass variables around, lack of pointers, linked lists, anything that a modern language would provide. If you'd know a better design approach tho, please let me know :)

I didn't test enchanting piles of lord eq. If you know any such piles please let me know where I can pick them up ;)

I'm guessing a hero level bow would raise 5 levels if you'd enchant it with a lord. I'm not sure. Also don't know why anybody would want to do that so I can't be bothered to check it.

I've used this script quite a number of times now and debugged it extensively. It works fine for me. However, if you were to vape your b12 -9 shield or heros, or blow your 13/13 hero level doom shard, I'll be more than happy to accept your bug report but will not accept any responsibility for the items. I guess keeping your inventory clean is the way to be 100% sure.

<h4>Trailing space bug</h4>
Somehow some lines got some spaces appended to them when I cut'n'pasted them from my editor. That's nasty, newlines won't be escaped anymore and it'll break the script. Odd thing is there aren't any trailing tabs or spaces in my file. Also, my editor has syntax coloring and putting *anything* after the '\' that's supposed to be at the end of the line will make it change color and I'd notice that immediately. So it's gotta have happened during the cutting and pasting... if you have any idea how/why... please let me know... it's annoying! ;)

<h4>The script</h4>
<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/eval /require -q %{TINYPREFIX}verbose.tf
/eval /require -q %{TINYPREFIX}enchant.tf
/eval /require -q %{TINYPREFIX}config.tf

/echo -aCyellow %% /enchantbag Enchant all items in fodderbag and distribute results
/echo -aCyellow %% [-l] you're an unshadowed lord. Default: you're a hero
/echo -aCyellow %% [-w<level>] you wear the item at level <level>. Default 51.
/echo -aCyellow %% [-x<command>] execute <command> on exit

;etch christen
;fodderbag Fodderbag
;upgradebag Upgradebag
;sparebag Sparebag
;wastebag Wastebag
;brillbag Brillbag
;shimmerbag Shimmerbag
;
;Only the rename of the fodderbag matters, enchantbag_got_item triggers on it
;Use the same name or change the trigger to match your bag

;When the script exits it sets global var enchantbag_exit to
;0 enchantbag finished correctly with an empty fodderbag
;enchant_err we got an error code from enchant.tf
;no_fodderbag couldnt find the fodderbag
;wrong_name names didn't check out

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 enchantbag

;Range to use if we didn't set the lowest spare to keep in the config file
;Range includes the item in the gear, so if the armor spare range is 4 and the
;item in our gear is a 12 -9 lemans seal, the lowest upgrade would be b12 -10,
;and the spares could be b12 -7, b12 -8, b12 -9. If the level permits
;enchanting tho, the script *will* try to make a b12 -9 spare out of a b12 -6,
;or enchant a 12-9 spare to a 12-12 upgrade.
/set enchantbag_armor_spare_range=3
/set enchantbag_weapon_spare_range=2
/set enchantbag_bow_spare_range=3

;Load file with current gear
/set enchantbag_gear_file=enchantbag.gear.tf
/eval /set enchantbag_path=%{TINYPREFIX}
/eval /load -q %{enchantbag_path}%{enchantbag_gear_file}

;should NOT set enchantbag_post here
/def -i enchantbag_init = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0 initializing .... %;\
/set enchantbag=0%;\
/set enchantbag_name=%;\
/set enchantbag_name_check=0%;\
/set enchantbag_inv=0%;\
/set enchantbag_inv_name=%;\
/set enchantbag_level_increment=0%;\
/set enchantbag_enchant_count=0%;\
/set enchantbag_max_level=0%;\
/set enchantbag_fade=0%;\
/set enchantbag_shimmer=0%;\
/set enchantbag_brill=0%;\
/set enchantbag_vape=0%;\
/set enchantbag_item_known=0%;\
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/set enchantbag_exit=

/enchantbag_init

/def -i enchantbag = \
/enchantbag_init%;\
/set enchantbag=1%;\
/set enchantbag_enchanter_level=51%;\
/set enchantbag_wear_level=51%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aCcyan %%% /%0: Start processing bag.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Loading %{enchantbag_path}%{enchantbag_gear_file}.%;\
/load -q %{enchantbag_path}%{enchantbag_gear_file}%;\
/if (!getopts("lx:w#")) /return 0%; /endif%;\
/if (opt_l) /set enchantbag_enchanter_level 125%;/endif%;\
/if (opt_w) /set enchantbag_wear_level %{opt_w}%;/endif%;\
/set enchantbag_post %{opt_x}%;\
/config_store -senchantbag -x/enchantbag_config_done

/def -i enchantbag_config_done = \
/filter_store -senchantbag -x/enchantbag_filter_done

/def -i enchantbag_filter_done = \
config +blind%;\
config +combine%;\
config -condition%;\
config +nosummon%;\
config +notake%;\
config +nodisturb%;\
filter +spellother%;\
/enchantbag_next_item

/def -i enchantbag_next_item = \
/enchantbag_init%;\
/set enchantbag=1%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Getting next item from the fodderbag.%;\
get 1. fodderbag

;Bag empty. We're finished.
/def -i -E(enchantbag) -p799 -F -t"You see nothing like that in Fodderbag." enchantbag_empty = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Your fodderbag is empty. Exiting /enchantbag.%;\
/enchantbag_exit 0

;Wrong alt? Fodderbag in a bag?
/def -i -E(enchantbag) -p799 -F -t"I see no fodderbag here." enchantbag_no_fodderbag = \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% You are not carrying the fodderbag. Exiting /enchantbag.%;\
/enchantbag_exit no_fodderbag

;New item.
/def -i -E(enchantbag) -p799 -F -mregexp -t"^You get (.+) from Fodderbag.$" enchantbag_got_item = \
/set enchantbag_name %{P1}%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% Got %{enchantbag_name}. Going to identify it.%;\
/identify -x/enchantbag_identify_done 1.

/def -i enchantbag_identify_done = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Done identifying. Doing cross reference on name.%;\
/set enchantbag_name_check 1%;\
inv%;\
look "%{identify_object}"

/def -i -E(enchantbag_name_check) -p799 -t"You are carrying:" enchantbag_inv = \
/def -1 -mregexp -t"^(\$ ?[0-9]+\$| ) (\$[a-zA-Z]+\$ )\*([^\\[]+)( \\[.+)\*\$" _enchantbag_inv = \
/set enchantbag_inv_name=%%{P3}%%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%%% /%%0: First item in inventory is %%enchantbag_inv_name

/def -i -E(enchantbag_name_check) -mregexp -t"^You look at (.+) in your inventory...$" enchantbag_name_check = \
/let identify_name %{P1}%;\
/set enchantbag_name_check 0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Looking at %identify_object, we got: %identify_name%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: First item in inventory is %enchantbag_inv_name%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We got %enchantbag_name from the fodderbag.%;\
/if ((identify_name =~ enchantbag_name) & (identify_name =~ enchantbag_inv_name)) \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Names ok.%;\
/echo%;\
/repeat -0.3 1 /enchantbag_processor%;\
/else \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Names mismatch. Exit. Messy inventory?%;\
/enchantbag_exit wrong_name%;\
/endif

/def -i enchantbag_processor = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Processing identify information.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: brill is %enchantbag_brill, shimmer is %enchantbag_shimmer, level is %identify_level.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: fade is %enchantbag_fade, vape is %enchantbag_vape, enchant_count is %enchantbag_enchant_count%;\
/if (identify_type =~ "armor") \
/enchantbag_pre_armor%;\
/elseif (identify_type =~ "weapon") \
/enchantbag_pre_weapon%;\
/elseif (identify_type =~ "bow") \
/enchantbag_pre_bow%;\
/endif%;\
/if (enchantbag_item_known) \
/if (enchantbag_upgrade) \
put 1. upgradebag%;\
save%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: An upgrade! Stashing... Next!%;\
/enchantbag_next_item%;\
/elseif (enchantbag_possible_upgrade) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A possible upgrade! Enchanting.%;\
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done 1.%;\
/elseif (enchantbag_possible_spare) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A possible spare! Enchanting.%;\
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done 1.%;\
/elseif (enchantbag_spare) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A spare! Stashing... Next!%;\
put 1. sparebag%;\
/enchantbag_next_item%;\
/else \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: This item goes to waste... Next!%;\
put 1. wastebag%;\
/enchantbag_next_item%;\
/endif%;\
/else \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: Item unknown. Using simple distribution method.%;\
/if (enchantbag_brill) \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into brillbag.%;\
put 1. brillbag%;\
/enchantbag_next_item%;\
/elseif (enchantbag_shimmer) \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into shimmerbag.%;\
put 1. shimmerbag%;\
/enchantbag_next_item%;\
/elseif (identify_level < enchantbag_max_level) \
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done 1.%;\
/else \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into wastebag.%;\
put 1. wastebag%;\
/enchantbag_next_item%;\
/endif%;\
/endif

/def -i enchantbag_enchant_done = \
/if (regmatch("^$|no_type|no_item|wrong_type", enchant_exit)) \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Enchant script exit status: %{enchant_exit}%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Exit enchantbag, enchant_err.%;\
/enchantbag_exit enchant_err%;\
/elseif (enchant_exit =~ "wrong_name") \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Enchant script exit status: %{enchant_exit}%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Rechecking names.%;\
/identify -x/enchantbag_identify_done 1.%;\
/elseif (enchant_exit =~ "vape") \
/verbose -o%{verbosity_enchantbag} -l2 - -aCred %%% /%0: Our item vaped... Next!%;\
/enchantbag_next_item%;\
/elseif (enchant_exit =~ "fade") \
/send get idontwanttoLID%;\
/test ++identify_level%;\
/set identify_enchant_armor 0%;\
/set identify_enchant_weapon 0%;\
/set identify_enchant_bow 0%;\
/set enchantbag_fade 1%;\
/set enchantbag_brill 0%;\
/set enchantbag_shimmer 0%;\
/set enchantbag_enchant_count 0%;\
/enchantbag_processor%;\
/else \
/set enchantbag_fade 0%;\
/test identify_level += %enchantbag_level_increment%;\
/test ++enchantbag_enchant_count%;\
/if (enchant_exit =~ "shimmer") \
/test ++enchantbag_shimmer%;\
/if (identify_type =~ "armor") \
/test identify_enchant_armor -= 2%;\
/elseif (identify_type =~ "weapon") \
/test ++identify_enchant_weapon%;\
/elseif (identify_type =~ "bow") \
/test identify_enchant_bow += 2%;\
/endif%;\
/elseif (regmatch("presence|brill", enchant_exit)) \
/test ++enchantbag_brill%;\
/if (identify_type =~ "armor") \
/test identify_enchant_armor -= 3%;\
/elseif (identify_type =~ "weapon") \
/test identify_enchant_weapon += 2%;\
/elseif (identify_type =~ "bow") \
/test identify_enchant_bow += 3%;\
/endif%;\
/endif%;\
/enchantbag_processor%;\
/endif

/def -i enchantbag_pre_armor = \
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/set enchantbag_max_level $[enchantbag_wear_level + 3]%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this piece of armor?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
/set enchantbag_level_increment 5%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/if (!identify_armor_multiplier) \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know the armor multiplier for %identify_object.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/let id_total_armor=0%;\
/let id_max_armor=0%;\
/let acgear_stats=%;\
/let acgear_base=0%;\
/let acgear_enchant=0%;\
/let acgear_total_armor=0%;\
/let acgear_spare_base=0%;\
/let acgear_spare_enchant=0%;\
/let acgear_spare_armor=0%;\
/let possible_enchants=0%;\
/let id_total_armor $[(identify_armor_class * identify_armor_multiplier) - identify_enchant_armor]%;\
/test acgear_stats:=enchantbag_get_stats(identify_object)%;\
/if (acgear_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our acgear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("b([0-9]+) \*(-?\\+?[0-9]\*) \*b?([0-9]\*) \*(-?\\+?[0-9]\*)$$", acgear_stats)%;\
/let acgear_base %{P1}%;\
/let acgear_enchant %{P2}%;\
/let acgear_spare_base %{P3}%;\
/let acgear_spare_enchant %{P4}%;\
/let acgear_total_armor $[acgear_base * identify_armor_multiplier - acgear_enchant]%;\
/let acgear_spare_armor $[acgear_spare_base * identify_armor_multiplier - acgear_spare_enchant]%;\
/if (!acgear_spare_armor) \
/let acgear_spare_armor $[acgear_total_armor - enchantbag_armor_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_armor $[id_total_armor - (possible_enchants * -3)]%;\
/set enchantbag_upgrade $[id_total_armor > acgear_total_armor]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_armor > acgear_total_armor)]%;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_armor >= acgear_spare_armor)]%;\
/set enchantbag_spare $[id_total_armor >= acgear_spare_armor]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: In our acgear, we have base %acgear_base, enchant %acgear_enchant%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Lowest spare we want to keep is base %acgear_spare_base, enchant %acgear_spare_enchant%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Armor class multiplier of this item is %identify_armor_multiplier%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCred %%% /%0: Acgear item has a total armor of %acgear_total_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Spare item has min armor of %acgear_spare_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has a total armor of %id_total_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: We could make the total armor %id_max_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_pre_weapon = \
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this weapon?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/if (regmatch("essence amorphous orb|shard black doom marble", identify_object)) \
/set enchantbag_max_level $[enchantbag_wear_level + 3]%;\
/else \
/set enchantbag_max_level $[enchantbag_wear_level + 5]%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 50)) \
/set enchantbag_level_increment 6%;\
/elseif ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
/set enchantbag_level_increment 5%;\
/elseif ((enchantbag_enchanter_level == 51) & (identify_level < 50)) \
/set enchantbag_level_increment 2%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/let id_total_dr=0%;\
/let id_max_dr=0%;\
/let damgear_stats=%;\
/let damgear_total_dr=0%;\
/let damgear_spare_dr=0%;\
/let possible_enchants=0%;\
/let id_total_dr $[identify_dr+identify_enchant_weapon]%;\
/let damgear_stats $[enchantbag_get_stats(identify_object)]%;\
/if (damgear_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our gear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("([0-9]+)dr \*([0-9]+)?(dr)?$$", damgear_stats)%;\
/let damgear_total_dr %{P1}%;\
/let damgear_spare_dr %{P2}%;\
/if (!damgear_spare_dr) \
/let damgear_spare_dr $[damgear_total_dr - enchantbag_weapon_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_dr $[id_total_dr + (possible_enchants * 2)]%;\
/set enchantbag_upgrade $[id_total_dr > damgear_total_dr]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_dr > damgear_total_dr)] %;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_dr >= damgear_spare_dr)] %;\
/set enchantbag_spare $[id_total_dr >= damgear_spare_dr]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: In our damgear, we have a %{damgear_total_dr}dr weapon%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has %id_total_dr dr.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: So we could make the total dr %id_max_dr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_pre_bow = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: The item is a bow. Preprocessing.%;\
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this bow?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 50)) \
/set enchantbag_level_increment 6%;\
/elseif ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
;DEBUG don't actually know what the level would do if a lord enchanted a hero
;DEBUG bow, this is a guess. Also wouldn't know why you'd want to do a thing
;DEBUG like that
/set enchantbag_level_increment 5%;\
/elseif ((enchantbag_enchanter_level == 51) & (identify_level < 50)) \
/set enchantbag_level_increment 2%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/let id_total_hr=0%;\
/let id_max_hr=0%;\
/let bow_cur_stats=%;\
/let bow_cur_hr=0%;\
/let bow_spare_hr=0%;\
/let possible_enchants=0%;\
/let id_total_hr $[identify_hr+identify_enchant_weapon]%;\
/let bow_cur_stats $[enchantbag_get_stats(identify_object)]%;\
/if (bow_cur_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our gear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("([0-9]+)hr \*([0-9]+)?(hr)?$$", damgear_stats)%;\
/let bow_cur_hr %{P1}%;\
/let bow_spare_hr %{P2}%;\
/if (!bow_spare_hr) \
/let bow_spare_hr $[bow_cur_hr - enchantbag_bow_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_hr $[id_total_hr + (possible_enchants * 3)]%;\
/set enchantbag_upgrade $[id_total_hr > bow_cur_hr]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_hr > bow_cur_hr)] %;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_hr >= bow_spare_hr)] %;\
/set enchantbag_spare $[id_total_hr >= bow_spare_hr]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: We have a %{bow_cur_hr}hr bow in our gear%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has %{id_total_hr}hr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: So we could make the total hr %{id_max_hr}hr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_get_stats = \
/if (enchantbag_wear_level == 51) \
/let var_mid hero%;\
/elseif (enchantbag_wear_level == 125) \
/let var_mid lord%;\
/elseif (enchantbag_wear_level <= 50) \
/let var_mid lowmort%;\
/endif%;\
/let var_right=%*%;\
;DEBUG are there any weird characters in the keywords
;DEBUG other than the ' in the archer's gauntlet..?
/test var_right:=replace("'", "", var_right)%;\
/test var_right:=replace(" ", "_", var_right)%;\
/let varname enchantbag_%{var_mid}_%{var_right}%;\
/eval /verbose -o%{verbosity_enchantbag} -l3 - -aCred %%%% /%0: Stats we have on file for %identify_object is %%{%{varname}}%;\
/eval /return "%%{%{varname}}"

/def -i enchantbag_possible_enchants = \
/let pos_ench=0%;\
/let counter %{identify_level}%;\
/while (counter < enchantbag_wear_level - 1) \
/if (counter + enchantbag_level_increment <= enchantbag_max_level) \
/test ++pos_ench%;\
/endif%;\
/test counter+=enchantbag_level_increment%;\
/done%;\
/if (enchantbag_enchanter_level == enchantbag_wear_level) \
/test pos_ench+=$[enchantbag_max_level-(identify_level+(pos_ench*enchantbag_level_increment))]%;\
/else \
/test pos_ench+=$[(enchantbag_max_level-(identify_level+(pos_ench*enchantbag_level_increment)))/enchantbag_level_increment]%;\
/endif%;\
/if (pos_ench < 0) /let pos_ench 0%;/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: We could enchant %pos_ench more times%;\
/return %{pos_ench}

/def -i enchantbag_exit = \
/let _post %enchantbag_post%;\
/config_restore -senchantbag blind%;\
/config_restore -senchantbag combine%;\
/config_restore -senchantbag condition%;\
/config_restore -senchantbag nosummon%;\
/config_restore -senchantbag notake%;\
/config_restore -senchantbag nodisturb%;\
/config_rmset enchantbag%;\
/filter_restore -senchantbag spellother%;\
/filter_rmset enchantbag%;\
/unset enchantbag%;\
/unset enchantbag_name%;\
/unset enchantbag_name_check%;\
/unset enchantbag_inv%;\
/unset enchantbag_inv_name%;\
/unset enchantbag_level_increment%;\
/unset enchantbag_enchant_count%;\
/unset enchantbag_max_level%;\
/unset enchantbag_fade%;\
/unset enchantbag_shimmer%;\
/unset enchantbag_brill%;\
/unset enchantbag_vape%;\
/unset enchantbag_item_known%;\
/unset enchantbag_upgrade%;\
/unset enchantbag_possible_upgrade%;\
/unset enchantbag_possible_spare%;\
/unset enchantbag_spare%;\
/unset enchantbag_post%;\
/unset enchantbag_enchanter_level%;\
/unset enchantbag_wear_level%;\
/set enchantbag_exit %1%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aCcyan %%% /%0 reports: We're finished. Post command is: %{_post}%;\
/if (_post !~ "") /eval -s0 /repeat -0.3 1 %{_post}%; /endif
</pre>

[[Category: TinyFugue Scripting]]

Enchant.tf

2008-11-08T13:44:28Z

Sulfar: cleanup, enchant_exit now unsets most global vars instead of reinitializing them, also, diff *again* shows the old version on the wiki had some trailing spaces!? What's up with that!?

Dirrev.tf

2008-11-08T12:49:39Z

Sulfar: cleanup, changed most global vars to local vars, made it return a value

Config.tf

2008-11-08T12:09:50Z

Sulfar: bugfix

Affects.tf

2008-11-08T11:43:58Z

Sulfar: made the tickers init when the script loads.. also diff shows there was a trailing space on line 144? odd :)

Provides
* custom colors of affects list
* /aff <spell> shows affects list just for <spell>
* /sick shows how sick you are
* /chkaff shows which spells you are *not* affected by
* Sanctuary ticker on the satus line
* Spellup ticker on the status line

The tickers grab the duration of sanctuary and holy aura from the affects list, colors them and puts them in a status variable. It then uses [[tick.tf]] to make the tickers count down on the tick.

This script uses [[prompt.tf]] and [[tick.tf]] so you'll need those too. Also, you should have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/require -q lisp.tf

/eval /require -q %{TINYPREFIX}prompt.tf
/eval /require -q %{TINYPREFIX}tick.tf

/echo -aCyellow %% /aff <spell> Shows affects list for <spell>
/echo -aCyellow %% /sick Shows how sick you are
/echo -aCyellow %% /chkaff Shows which spells you are *not* affected by

;I set my status line in a single command in my config file, this is what it
; looks like with the right variables for this script:
;/status_add -c @more:8:Br @world:9 :1 status_sanctuary:3 :1 status_spellup:3 :1 status_position insert:2 :1 @clock:16

;Custom color the affects list..
;Paint all of the affects list green
/def -i -p999 -F -PCgreen -mregexp -t"^Spell: '.*" affects_green

;yellow for some spells i might want to check more than others
/def -i -p998 -F -PCyellow -mregexp -t"^Spell: '(steel|iron|bark|pass|fly|water|heigh|conc).*" affects_yellow

;white for spells i most probably want to find quickly
/def -i -p998 -F -PCwhite -mregexp -t"^Spell: '(sanc|regen|scramble|hand).*" affects_white

;You can "/aff sanc" and it'll only show the sanctuary line
;or use a regexp, "/aff sanc|fren"
/def -i aff = \
/def -t"You are affected by:" _aff_affected = \
/def -p900 -mregexp -t"^Spell: '%{1}.*" _aff_spell%%;\
/def -p899 -ag -mregexp -t"^Spell: '" _aff_gag_other_affects%%;\
/repeat -0.3 1 /undef _aff_affected _aff_spell _aff_gag_other_affects%;\
affects

;Just a /sick macro.
/def -i sick = \
/set sick_poison 0%;\
/set sick_disease 0%;\
/def -t"You are affected by:" _sick_affected = \
/def -p900 -mregexp -t"^Spell: '(poison|toxin|biotoxin|venom)'.*" _sick_poison = /test $$$[++sick_poison] %%;\
/def -p900 -mregexp -t"^Spell: '(virus|plague)'.*" _sick_disease = /test $$$[++sick_disease]%%;\
/def -p899 -ag -mregexp -t"^Spell: '" _sick_gag_other_affects%%;\
/repeat -0.3 1 \
/undef _sick_affected _sick_poison _sick_disease _sick_gag_other_affects%%%;\
gtell %%%%% I am affected by: %%%sick_poison poisons and %%%sick_disease diseases%;\
affects

;/chkaff will show you the spells from the chkaff_list by which
;you're *not* affected.
/def -i chkaff = \
/set chkaff_list= |BR| sanctuary |R| awen foci fortitudes \
invincibility barkskin steel_skeleton iron_skin |W| protection_evil bless holy_aura \
holy_armor armor water_breathing energy_shield displacement body_brace \
mental_barrier calcify_flesh biofeedback anticipate adrenaline_pump concentrate \
pass_door fly shield stone_skin giant_strength |G| frenzy |B| heighten_senses%;\
/set chkaff 1%;\
affects

/def -i -E(chkaff) -p100 -F -t"You are affected by:" chkaff_affected = \
/set prompt_exe chkaff

/def -i -E(chkaff) -p100 -F -mregexp -t"^Spell: '(.+)' .+" chkaff_spell = \
/let affect=$[replace(" ", "_", {P1})]%;\
/set chkaff_list=$(/remove %affect %chkaff_list)

/def -i -E(chkaff) -p991 -mglob -h'send PROMPT_EXE chkaff' chkaff_PROMPT_EXE = \
/set prompt_exe=%;\
/set chkaff 0%;\
gtell %%% I am *not* affected by %chkaff_list

;Sanc and spellup tickers on the status line
/def -i -p999 -F -t"You are affected by:" tickers_init = \
/set sanctuary_duration=%;\
/set spellup_duration=%;\
/sanctuary_status%;\
/spellup_status

/tickers_init

/def -i -p999 -F -mregexp -t"^Spell: 'sanctuary' for ([0-9]+) hours.$" aff_sanc = \
/test sanctuary_duration:=strip_attr({P1})%;\
/sanctuary_status

/def -i -p999 -F -t"The protective aura fades from around your body." sanctuary_fades = \
/set sanctuary_duration=

/def -i -p991 -F -mglob -h'send TICK_EXE' sanctuary_tick = \
/if (sanctuary_duration > 0) /test --sanctuary_duration%;\
/else /set sanctuary_duration=%;\
/endif%;\
/sanctuary_status

/def -i sanctuary_status = \
/set status_sanctuary \$%{sanctuary_duration}%;\
/if (sanctuary_duration =~ "") \
/set status_attr_var_status_sanctuary=%;\
/elseif (sanctuary_duration == 0) \
/set status_attr_var_status_sanctuary BCred%;\
/elseif (sanctuary_duration <= 2) \
/set status_attr_var_status_sanctuary Cred%;\
/elseif (sanctuary_duration <= 5) \
/set status_attr_var_status_sanctuary Cyellow%;\
/else \
/set status_attr_var_status_sanctuary=%;\
/endif

/def -i -t"You are surrounded by a white aura." got_sanc = affects

;Do the same for holy aura to have a spellup ticker
/def -i -p999 -F -mregexp -t"^Spell: 'holy aura' modifies armor class by -[0-9]+ for ([0-9]+) hours.$" aff_spellup = \
/test spellup_duration:=strip_attr({P1})%;\
/spellup_status

/def -i -p999 -F -t"Your Aura of Holiness fades..." spellup_fades = \
/set spellup_duration=

/def -i -p991 -F -mglob -h'send TICK_EXE' spellup_tick = \
/if (spellup_duration > 0) /test --spellup_duration%;\
/else /set spellup_duration=%;\
/endif%;\
/spellup_status

/def -i spellup_status = \
/set status_spellup s%{spellup_duration}%;\
/if (spellup_duration =~ "") \
/set status_attr_var_status_spellup=%;\
/elseif (spellup_duration == 0) \
/set status_attr_var_status_spellup BCred%;\
/elseif (spellup_duration <= 1) \
/set status_attr_var_status_spellup Cred%;\
/elseif (spellup_duration <= 3) \
/set status_attr_var_status_spellup Cyellow%;\
/else \
/set status_attr_var_status_spellup=%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Affects.tf

2008-11-08T11:30:55Z

Sulfar: one regexp triggers wasnt really a regexp, anchored some others, and fixes 2 harmless bugs

Provides
* custom colors of affects list
* /aff <spell> shows affects list just for <spell>
* /sick shows how sick you are
* /chkaff shows which spells you are *not* affected by
* Sanctuary ticker on the satus line
* Spellup ticker on the status line

The tickers grab the duration of sanctuary and holy aura from the affects list, colors them and puts them in a status variable. It then uses [[tick.tf]] to make the tickers count down on the tick.

This script uses [[prompt.tf]] and [[tick.tf]] so you'll need those too. Also, you should have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/require -q lisp.tf

/eval /require -q %{TINYPREFIX}prompt.tf
/eval /require -q %{TINYPREFIX}tick.tf

/echo -aCyellow %% /aff <spell> Shows affects list for <spell>
/echo -aCyellow %% /sick Shows how sick you are
/echo -aCyellow %% /chkaff Shows which spells you are *not* affected by

;I set my status line in a single command in my config file, this is what it
; looks like with the right variables for this script:
;/status_add -c @more:8:Br @world:9 :1 status_sanctuary:3 :1 status_spellup:3 :1 status_position insert:2 :1 @clock:16

;Custom color the affects list..
;Paint all of the affects list green
/def -i -p999 -F -PCgreen -mregexp -t"^Spell: '.*" affects_green

;yellow for some spells i might want to check more than others
/def -i -p998 -F -PCyellow -mregexp -t"^Spell: '(steel|iron|bark|pass|fly|water|heigh|conc).*" affects_yellow

;white for spells i most probably want to find quickly
/def -i -p998 -F -PCwhite -mregexp -t"^Spell: '(sanc|regen|scramble|hand).*" affects_white

;You can "/aff sanc" and it'll only show the sanctuary line
;or use a regexp, "/aff sanc|fren"
/def -i aff = \
/def -t"You are affected by:" _aff_affected = \
/def -p900 -mregexp -t"^Spell: '%{1}.*" _aff_spell%%;\
/def -p899 -ag -mregexp -t"^Spell: '" _aff_gag_other_affects%%;\
/repeat -0.3 1 /undef _aff_affected _aff_spell _aff_gag_other_affects%;\
affects

;Just a /sick macro.
/def -i sick = \
/set sick_poison 0%;\
/set sick_disease 0%;\
/def -t"You are affected by:" _sick_affected = \
/def -p900 -mregexp -t"^Spell: '(poison|toxin|biotoxin|venom)'.*" _sick_poison = /test $$$[++sick_poison] %%;\
/def -p900 -mregexp -t"^Spell: '(virus|plague)'.*" _sick_disease = /test $$$[++sick_disease]%%;\
/def -p899 -ag -mregexp -t"^Spell: '" _sick_gag_other_affects%%;\
/repeat -0.3 1 \
/undef _sick_affected _sick_poison _sick_disease _sick_gag_other_affects%%%;\
gtell %%%%% I am affected by: %%%sick_poison poisons and %%%sick_disease diseases%;\
affects

;/chkaff will show you the spells from the chkaff_list by which
;you're *not* affected.
/def -i chkaff = \
/set chkaff_list= |BR| sanctuary |R| awen foci fortitudes \
invincibility barkskin steel_skeleton iron_skin |W| protection_evil bless holy_aura \
holy_armor armor water_breathing energy_shield displacement body_brace \
mental_barrier calcify_flesh biofeedback anticipate adrenaline_pump concentrate \
pass_door fly shield stone_skin giant_strength |G| frenzy |B| heighten_senses%;\
/set chkaff 1%;\
affects

/def -i -E(chkaff) -p100 -F -t"You are affected by:" chkaff_affected = \
/set prompt_exe chkaff

/def -i -E(chkaff) -p100 -F -mregexp -t"^Spell: '(.+)' .+" chkaff_spell = \
/let affect=$[replace(" ", "_", {P1})]%;\
/set chkaff_list=$(/remove %affect %chkaff_list)

/def -i -E(chkaff) -p991 -mglob -h'send PROMPT_EXE chkaff' chkaff_PROMPT_EXE = \
/set prompt_exe=%;\
/set chkaff 0%;\
gtell %%% I am *not* affected by %chkaff_list

;Sanctuary ticker on the status line
/def -i -p999 -F -t"You are affected by:" = \
/set sanctuary_duration=%;\
/set spellup_duration=%;\
/sanctuary_status%;\
/spellup_status

/def -i -p999 -F -mregexp -t"^Spell: 'sanctuary' for ([0-9]+) hours.$" aff_sanc = \
/test sanctuary_duration:=strip_attr({P1})%;\
/sanctuary_status

/def -i -p999 -F -t"The protective aura fades from around your body." sanctuary_fades = \
/set sanctuary_duration=

/def -i -p991 -F -mglob -h'send TICK_EXE' sanctuary_tick = \
/if (sanctuary_duration > 0) /test --sanctuary_duration%;\
/else /set sanctuary_duration=%;\
/endif%;\
/sanctuary_status

/def -i sanctuary_status = \
/set status_sanctuary \$%{sanctuary_duration}%;\
/if (sanctuary_duration =~ "") \
/set status_attr_var_status_sanctuary=%;\
/elseif (sanctuary_duration == 0) \
/set status_attr_var_status_sanctuary BCred%;\
/elseif (sanctuary_duration <= 2) \
/set status_attr_var_status_sanctuary Cred%;\
/elseif (sanctuary_duration <= 5) \
/set status_attr_var_status_sanctuary Cyellow%;\
/else \
/set status_attr_var_status_sanctuary=%;\
/endif

/def -i -t"You are surrounded by a white aura." got_sanc = affects

;Do the same for holy aura to have a spellup ticker
/def -i -p999 -F -mregexp -t"^Spell: 'holy aura' modifies armor class by -[0-9]+ for ([0-9]+) hours.$" aff_spellup = \
/test spellup_duration:=strip_attr({P1})%;\
/spellup_status

/def -i -p999 -F -t"Your Aura of Holiness fades..." spellup_fades = \
/set spellup_duration=

/def -i -p991 -F -mglob -h'send TICK_EXE' spellup_tick = \
/if (spellup_duration > 0) /test --spellup_duration%;\
/else /set spellup_duration=%;\
/endif%;\
/spellup_status

/def spellup_status = \
/set status_spellup s%{spellup_duration}%;\
/if (spellup_duration =~ "") \
/set status_attr_var_status_spellup=%;\
/elseif (spellup_duration == 0) \
/set status_attr_var_status_spellup BCred%;\
/elseif (spellup_duration <= 1) \
/set status_attr_var_status_spellup Cred%;\
/elseif (spellup_duration <= 3) \
/set status_attr_var_status_spellup Cyellow%;\
/else \
/set status_attr_var_status_spellup=%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Regen.tf

2008-11-08T10:08:56Z

Sulfar: cleaning

A regen script. It sends a blank line to the server and checks if we're done at regular intervals, currently 8 seconds. It uses variables from [[prompt.tf]] to see if we're done.

This script uses both [[prompt.tf]] and [[verbose.tf]] so you'll need those if you want to use this
script. You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

You can see examples of its use in the [[identify.tf]] or the [[enchant.tf]] script. If it doesnt have mana for the spell, it calls this script to regen and go back when it's done with the regen.

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''
/loaded __SULFAR__/regen.tf

/eval /require -q %{TINYPREFIX}prompt.tf
/eval /require -q %{TINYPREFIX}verbose.tf

/echo -aCyellow %% /regen -x<command> Fully regen, then execute <command>

;A regen script. It will make you sleep to regen. It will make you stand and
;execute a command when you're done, for example:
; sanc dw
; regen -x"e=u=u=sleep"
;
;Or it might just be more useful in other scripts.

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and use system verbosity level
;see verbose.tf
/verbose -s2 regen

/def -i regen = \
/if (!getopts("x:", "")) /return 0%; /endif%; \
/set regen_post %{opt_x}%;\
/verbose -o%{verbosity_regen} -l1 - -aCcyan %%% /%0: Starting checks. Post command is: %regen_post%;\
sleep%;\
/repeat -7.5 1 /send%;\
/repeat -8 1 /regen_check

/def -i regen_check = \
/let _post %{regen_post}%;\
/let _move_relative $[prompt_move*100/prompt_move_max]%;\
/if ((prompt_hp_relative >= 100) & (prompt_mana_relative >= 100) & \
(_move_relative >= 100) & (!prompt_lagtimer)) \
/verbose -o%{verbosity_regen} -l1 - -aCcyan %%% /%0: Regen done! Executing post command: %regen_post%;\
stand%;\
/unset regen_post%;\
/if (_post !~ "") /eval -s0 %{_post}%; /endif%;\
/else \
/verbose -o%{verbosity_regen} -l2 - -aCyellow %%% %0: not done yet....%;\
/repeat -7.5 1 /send%;\
/repeat -8 1 /regen_check%;\
/endif
</pre>

[[Category: TinyFugue Scripting]]

Enchantbag.tf

2008-11-08T09:59:05Z

Sulfar: Mods _exit to unset global vars instead of reinitializing them

<h4>Features</h4>
So you have a pile of armor to enchant. And a couple of weapons and bows to go with that. Well you toss it all in fodderbag, run this script, and collect the results from upgradebag, sparebag or wastebag. Or if you don't configure it with your current gear, you can collect the items from brillbag, shimmerbag, wastebag. It accepts some options:

* -l enchanting with an unshadowed lord
* -w<level> level we want to wear the item at
* -x<command> execute <command> when done

The script uses "get 1. fodderbag", identifies 1., and enchants 1. . It will check the names of
* the item you got from the fodderbag
* the first item in your inventory
* the name of the item it's identifying
If they're not all the same it won't enchant the item.

It sets config +blind, +combine, -condition, +nosummon, +notake, +nodisturb and filter +spellother to decrease the chance of anything/anyone messing up the script. That should make sure the triggers don't respond on people cutting/pasting brills to channels, the triggers work on you inventory, your regen is not interrupted and the triggers won't respond to other players enchants. Config +blind doesn't affect grtz channel but that is still covered by safechannel.tf. The script uses config.tf to store/restore your configuration.

<h4>Example config file</h4>
The script will try to load an enchantbag.gear.tf file with a configuration of gear. It's simply a list of variables, like

<pre>
/set enchantbag_hero_essence_amorphous_orb 12dr 10dr
/set enchantbag_hero_hero_heroes_shield b12 b12
/set enchantbag_hero_bow_sliver_glowing_moonlight_arc 21hr
/set enchantbag_hero_lemans_family_seal_talisman b12 -9 b12 -6

;To reuse a value for an equivalent item, you could
/eval /set enchantbag_hero_mother_pearl %{enchantbag_hero_lemans_family_seal_talisman}

;Lord stuff
/set enchantbag_lord_essence_amorphous_orb 15dr 13dr
</pre>

To make the variable name, you'd append "enchantbag_" with either "hero_", "lord_", or "lowmort_", then append that with the keywords you get from identify, remove "weird" characters (anything not in [a-zA-Z0-9 ]) and turn spaces into underscores.

The first value is the current gear, anything above that will go into upgradebag. The second value is the lowest spare that should go into sparebag. The script currently treats spares kinda aggressively, it'll try to enchant a 12 -3 spare to a 12 -6 spare if the level permits, even if you have 12 -3 as lowest spare to keep. Perhaps I should switch that around, I don't know yet. You can omit the second value, it'll then use the default ranges for spares.

If you're enchanting armor and want to use the configuration, you'll also need to add the item to [[identify.tf]] to know the multiplier for the armor class.

<h4>Stuff you need</h4>
This script uses [[config.tf]], [[verbose.tf]], [[enchant.tf]] and [[identify.tf]] so you'll want those if you want to use this script. Config.tf and identify.tf use [[prompt.tf]], and enchant.tf uses [[regen.tf]] and [[safechannel.tf]] so get those while you're at it. <b>If you update this script from an older version, please update these scripts as well,</b> or strange things might happen, or it might not work at all. You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

You'll also need some bags, look at the comments in the script for a list of etches and christens.

<h4>Examples</h4>
Enchant a pile of stuff with a hero for hero tier:
<pre>/enchantbag</pre>

Enchant a pile of mother pearls with an unshadowed lord but for hero tier:
<pre>/enchantbag -l</pre>

Enchant a pile of amorphous orbs or doom shards for lord and sleep afterwards:
<pre>/enchantbag -l -w125 -xsleep</pre>

If you'd want to see all debug spam it produces, try
<pre>/verbose -s3</pre>
<h4>Disclaimer</h4>
It's not all pretty, some parts of the script might taste good with some bolognese. Larger tf scripts tend to get like that. I blame it on the lack of structured data types, lack of way to pass variables around, lack of pointers, linked lists, anything that a modern language would provide. If you'd know a better design approach tho, please let me know :)

I didn't test enchanting piles of lord eq. If you know any such piles please let me know where I can pick them up ;)

I'm guessing a hero level bow would raise 5 levels if you'd enchant it with a lord. I'm not sure. Also don't know why anybody would want to do that so I can't be bothered to check it.

I've used this script quite a number of times now and debugged it extensively. It works fine for me. However, if you were to vape your b12 -9 shield or heros, or blow your 13/13 hero level doom shard, I'll be more than happy to accept your bug report but will not accept any responsibility for the items. I guess keeping your inventory clean is the way to be 100% sure.

<h4>The script</h4>
<pre>
;brillbag Brillbag
;shimmerbag Shimmerbag
;
;Only the rename of the fodderbag matters, enchantbag_got_item triggers on it
;Use the same name or change the trigger to match your bag

;When the script exits it sets global var enchantbag_exit to
;0 enchantbag finished correctly with an empty fodderbag
;enchant_err we got an error code from enchant.tf
;no_fodderbag couldnt find the fodderbag
;wrong_name names didn't check out

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 enchantbag

;Range to use if we didn't set the lowest spare to keep in the config file
;Range includes the item in the gear, so if the armor spare range is 4 and the
;item in our gear is a 12 -9 lemans seal, the lowest upgrade would be b12 -10,
;and the spares could be b12 -7, b12 -8, b12 -9. If the level permits
;enchanting tho, the script *will* try to make a b12 -9 spare out of a b12 -6,
;or enchant a 12-9 spare to a 12-12 upgrade.
/set enchantbag_armor_spare_range=3
/set enchantbag_weapon_spare_range=2
/set enchantbag_bow_spare_range=3

;Load file with current gear
/set enchantbag_gear_file=enchantbag.gear.tf
/eval /set enchantbag_path=%{TINYPREFIX}
/eval /load -q %{enchantbag_path}%{enchantbag_gear_file}

;should NOT set enchantbag_post here
/def -i enchantbag_init = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0 initializing .... %;\
/set enchantbag=0%;\
/set enchantbag_name=%;\
/set enchantbag_name_check=0%;\
/set enchantbag_inv=0%;\
/set enchantbag_inv_name=%;\
/set enchantbag_level_increment=0%;\
/set enchantbag_enchant_count=0%;\
/set enchantbag_max_level=0%;\
/set enchantbag_fade=0%;\
/set enchantbag_shimmer=0%;\
/set enchantbag_brill=0%;\
/set enchantbag_vape=0%;\
/set enchantbag_item_known=0%;\
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/set enchantbag_exit=

/enchantbag_init

/def -i enchantbag = \
/enchantbag_init%;\
/set enchantbag=1%;\
/set enchantbag_enchanter_level=51%;\
/set enchantbag_wear_level=51%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aCcyan %%% /%0: Start processing bag.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Loading %{enchantbag_path}%{enchantbag_gear_file}.%;\
/load -q %{enchantbag_path}%{enchantbag_gear_file}%;\
/if (!getopts("lx:w#")) /return 0%; /endif%;\
/if (opt_l) /set enchantbag_enchanter_level 125%;/endif%;\
/if (opt_w) /set enchantbag_wear_level %{opt_w}%;/endif%;\
/set enchantbag_post %{opt_x}%;\
/config_store -senchantbag -x/enchantbag_config_done

/def -i enchantbag_config_done = \
/filter_store -senchantbag -x/enchantbag_filter_done

/def -i enchantbag_filter_done = \
config +blind%;\
config +combine%;\
config -condition%;\
config +nosummon%;\
config +notake%;\
config +nodisturb%;\
filter +spellother%;\
/enchantbag_next_item

/def -i enchantbag_next_item = \
/enchantbag_init%;\
/set enchantbag=1%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Getting next item from the fodderbag.%;\
get 1. fodderbag

;Bag empty. We're finished.
/def -i -E(enchantbag) -p799 -F -t"You see nothing like that in Fodderbag." enchantbag_empty = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Your fodderbag is empty. Exiting /enchantbag.%;\
/enchantbag_exit 0

;Wrong alt? Fodderbag in a bag?
/def -i -E(enchantbag) -p799 -F -t"I see no fodderbag here." enchantbag_no_fodderbag = \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% You are not carrying the fodderbag. Exiting /enchantbag.%;\
/enchantbag_exit no_fodderbag

;New item.
/def -i -E(enchantbag) -p799 -F -mregexp -t"^You get (.+) from Fodderbag.$" enchantbag_got_item = \
/set enchantbag_name %{P1}%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% Got %{enchantbag_name}. Going to identify it.%;\
/identify -x/enchantbag_identify_done 1.

/def -i enchantbag_identify_done = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Done identifying. Doing cross reference on name.%;\
/set enchantbag_name_check 1%;\
inv%;\
look "%{identify_object}"

/def -i -E(enchantbag_name_check) -p799 -t"You are carrying:" enchantbag_inv = \
/def -1 -mregexp -t"^(\$ ?[0-9]+\$| ) (\$[a-zA-Z]+\$ )\*([^\\[]+)( \\[.+)\*\$" _enchantbag_inv = \
/set enchantbag_inv_name=%%{P3}%%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%%% /%%0: First item in inventory is %%enchantbag_inv_name

/def -i -E(enchantbag_name_check) -mregexp -t"^You look at (.+) in your inventory...$" enchantbag_name_check = \
/let identify_name %{P1}%;\
/set enchantbag_name_check 0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Looking at %identify_object, we got: %identify_name%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: First item in inventory is %enchantbag_inv_name%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We got %enchantbag_name from the fodderbag.%;\
/if ((identify_name =~ enchantbag_name) & (identify_name =~ enchantbag_inv_name)) \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Names ok.%;\
/echo%;\
/repeat -0.3 1 /enchantbag_processor%;\
/else \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Names mismatch. Exit. Messy inventory?%;\
/enchantbag_exit wrong_name%;\
/endif

/def -i enchantbag_processor = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: Processing identify information.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: brill is %enchantbag_brill, shimmer is %enchantbag_shimmer, level is %identify_level.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: fade is %enchantbag_fade, vape is %enchantbag_vape, enchant_count is %enchantbag_enchant_count%;\
/if (identify_type =~ "armor") \
/enchantbag_pre_armor%;\
/elseif (identify_type =~ "weapon") \
/enchantbag_pre_weapon%;\
/elseif (identify_type =~ "bow") \
/enchantbag_pre_bow%;\
/endif%;\
/if (enchantbag_item_known) \
/if (enchantbag_upgrade) \
put 1. upgradebag%;\
save%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: An upgrade! Stashing... Next!%;\
/enchantbag_next_item%;\
/elseif (enchantbag_possible_upgrade) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A possible upgrade! Enchanting.%;\
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done 1.%;\
/elseif (enchantbag_possible_spare) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A possible spare! Enchanting.%;\
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done 1.%;\
/elseif (enchantbag_spare) \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: A spare! Stashing... Next!%;\
put 1. sparebag%;\
/enchantbag_next_item%;\
/else \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: This item goes to waste... Next!%;\
put 1. wastebag%;\
/enchantbag_next_item%;\
/endif%;\
/else \
/verbose -o%{verbosity_enchantbag} -l2 - -aBCcyan %%% /%0: Item unknown. Using simple distribution method.%;\
/if (enchantbag_brill) \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into brillbag.%;\
put 1. brillbag%;\
/enchantbag_next_item%;\
/elseif (enchantbag_shimmer) \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into shimmerbag.%;\
put 1. shimmerbag%;\
/enchantbag_next_item%;\
/elseif (identify_level < enchantbag_max_level) \
/enchant -n"%{enchantbag_name}" -i -x/enchantbag_enchant_done 1.%;\
/else \
/verbose -o%{verbosity_enchantbag} -l3 -aCyellow %%% /%0: Putting item into wastebag.%;\
put 1. wastebag%;\
/enchantbag_next_item%;\
/endif%;\
/endif

/def -i enchantbag_enchant_done = \
/if (regmatch("^$|no_type|no_item|wrong_type", enchant_exit)) \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Enchant script exit status: %{enchant_exit}%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Exit enchantbag, enchant_err.%;\
/enchantbag_exit enchant_err%;\
/elseif (enchant_exit =~ "wrong_name") \
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Enchant script exit status: %{enchant_exit}%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aBCred %%% /%0: Rechecking names.%;\
/identify -x/enchantbag_identify_done 1.%;\
/elseif (enchant_exit =~ "vape") \
/verbose -o%{verbosity_enchantbag} -l2 - -aCred %%% /%0: Our item vaped... Next!%;\
/enchantbag_next_item%;\
/elseif (enchant_exit =~ "fade") \
/send get idontwanttoLID%;\
/test ++identify_level%;\
/set identify_enchant_armor 0%;\
/set identify_enchant_weapon 0%;\
/set identify_enchant_bow 0%;\
/set enchantbag_fade 1%;\
/set enchantbag_brill 0%;\
/set enchantbag_shimmer 0%;\
/set enchantbag_enchant_count 0%;\
/enchantbag_processor%;\
/else \
/set enchantbag_fade 0%;\
/test identify_level += %enchantbag_level_increment%;\
/test ++enchantbag_enchant_count%;\
/if (enchant_exit =~ "shimmer") \
/test ++enchantbag_shimmer%;\
/if (identify_type =~ "armor") \
/test identify_enchant_armor -= 2%;\
/elseif (identify_type =~ "weapon") \
/test ++identify_enchant_weapon%;\
/elseif (identify_type =~ "bow") \
/test identify_enchant_bow += 2%;\
/endif%;\
/elseif (regmatch("presence|brill", enchant_exit)) \
/test ++enchantbag_brill%;\
/if (identify_type =~ "armor") \
/test identify_enchant_armor -= 3%;\
/elseif (identify_type =~ "weapon") \
/test identify_enchant_weapon += 2%;\
/elseif (identify_type =~ "bow") \
/test identify_enchant_bow += 3%;\
/endif%;\
/endif%;\
/enchantbag_processor%;\
/endif

/def -i enchantbag_pre_armor = \
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/set enchantbag_max_level $[enchantbag_wear_level + 3]%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this piece of armor?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
/set enchantbag_level_increment 5%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/if (!identify_armor_multiplier) \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know the armor multiplier for %identify_object.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/let id_total_armor=0%;\
/let id_max_armor=0%;\
/let acgear_stats=%;\
/let acgear_base=0%;\
/let acgear_enchant=0%;\
/let acgear_total_armor=0%;\
/let acgear_spare_base=0%;\
/let acgear_spare_enchant=0%;\
/let acgear_spare_armor=0%;\
/let possible_enchants=0%;\
/let id_total_armor $[(identify_armor_class * identify_armor_multiplier) - identify_enchant_armor]%;\
/test acgear_stats:=enchantbag_get_stats(identify_object)%;\
/if (acgear_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our acgear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("b([0-9]+) \*(-?\\+?[0-9]\*) \*b?([0-9]\*) \*(-?\\+?[0-9]\*)$$", acgear_stats)%;\
/let acgear_base %{P1}%;\
/let acgear_enchant %{P2}%;\
/let acgear_spare_base %{P3}%;\
/let acgear_spare_enchant %{P4}%;\
/let acgear_total_armor $[acgear_base * identify_armor_multiplier - acgear_enchant]%;\
/let acgear_spare_armor $[acgear_spare_base * identify_armor_multiplier - acgear_spare_enchant]%;\
/if (!acgear_spare_armor) \
/let acgear_spare_armor $[acgear_total_armor - enchantbag_armor_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_armor $[id_total_armor - (possible_enchants * -3)]%;\
/set enchantbag_upgrade $[id_total_armor > acgear_total_armor]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_armor > acgear_total_armor)]%;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_armor >= acgear_spare_armor)]%;\
/set enchantbag_spare $[id_total_armor >= acgear_spare_armor]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: In our acgear, we have base %acgear_base, enchant %acgear_enchant%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Lowest spare we want to keep is base %acgear_spare_base, enchant %acgear_spare_enchant%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Armor class multiplier of this item is %identify_armor_multiplier%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCred %%% /%0: Acgear item has a total armor of %acgear_total_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: Spare item has min armor of %acgear_spare_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has a total armor of %id_total_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: We could make the total armor %id_max_armor%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_pre_weapon = \
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this weapon?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/if (regmatch("essence amorphous orb|shard black doom marble", identify_object)) \
/set enchantbag_max_level $[enchantbag_wear_level + 3]%;\
/else \
/set enchantbag_max_level $[enchantbag_wear_level + 5]%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 50)) \
/set enchantbag_level_increment 6%;\
/elseif ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
/set enchantbag_level_increment 5%;\
/elseif ((enchantbag_enchanter_level == 51) & (identify_level < 50)) \
/set enchantbag_level_increment 2%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/let id_total_dr=0%;\
/let id_max_dr=0%;\
/let damgear_stats=%;\
/let damgear_total_dr=0%;\
/let damgear_spare_dr=0%;\
/let possible_enchants=0%;\
/let id_total_dr $[identify_dr+identify_enchant_weapon]%;\
/let damgear_stats $[enchantbag_get_stats(identify_object)]%;\
/if (damgear_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our gear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("([0-9]+)dr \*([0-9]+)?(dr)?$$", damgear_stats)%;\
/let damgear_total_dr %{P1}%;\
/let damgear_spare_dr %{P2}%;\
/if (!damgear_spare_dr) \
/let damgear_spare_dr $[damgear_total_dr - enchantbag_weapon_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_dr $[id_total_dr + (possible_enchants * 2)]%;\
/set enchantbag_upgrade $[id_total_dr > damgear_total_dr]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_dr > damgear_total_dr)] %;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_dr >= damgear_spare_dr)] %;\
/set enchantbag_spare $[id_total_dr >= damgear_spare_dr]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: In our damgear, we have a %{damgear_total_dr}dr weapon%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has %id_total_dr dr.%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: So we could make the total dr %id_max_dr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_pre_bow = \
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: The item is a bow. Preprocessing.%;\
/set enchantbag_upgrade=0%;\
/set enchantbag_possible_upgrade=0%;\
/set enchantbag_possible_spare=0%;\
/set enchantbag_spare=0%;\
/verbose -o%{verbosity_enchantbag} -l2 - -aCyellow %%% /%0: What can we do with this bow?%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: Our enchanter is level %enchantbag_enchanter_level%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We're enchanting to level %enchantbag_max_level max.%;\
/if ((enchantbag_enchanter_level == 125) & (identify_level < 50)) \
/set enchantbag_level_increment 6%;\
/elseif ((enchantbag_enchanter_level == 125) & (identify_level < 124)) \
;DEBUG don't actually know what the level would do if a lord enchanted a hero
;DEBUG bow, this is a guess. Also wouldn't know why you'd want to do a thing
;DEBUG like that
/set enchantbag_level_increment 5%;\
/elseif ((enchantbag_enchanter_level == 51) & (identify_level < 50)) \
/set enchantbag_level_increment 2%;\
/else \
/set enchantbag_level_increment 1%;\
/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: The level will increase by %enchantbag_level_increment per enchant.%;\
/let id_total_hr=0%;\
/let id_max_hr=0%;\
/let bow_cur_stats=%;\
/let bow_cur_hr=0%;\
/let bow_spare_hr=0%;\
/let possible_enchants=0%;\
/let id_total_hr $[identify_hr+identify_enchant_weapon]%;\
/let bow_cur_stats $[enchantbag_get_stats(identify_object)]%;\
/if (bow_cur_stats =~ "") \
/verbose -o%{verbosity_enchantbag} -l3 - -aCyellow %%% /%0: We don't know if %identify_object is in our gear.%;\
/set enchantbag_item_known 0%;\
/return 1%;\
/endif%;\
/test regmatch("([0-9]+)hr \*([0-9]+)?(hr)?$$", damgear_stats)%;\
/let bow_cur_hr %{P1}%;\
/let bow_spare_hr %{P2}%;\
/if (!bow_spare_hr) \
/let bow_spare_hr $[bow_cur_hr - enchantbag_bow_spare_range + 1]%;\
/endif%;\
/test possible_enchants:=enchantbag_possible_enchants()%;\
/let id_max_hr $[id_total_hr + (possible_enchants * 3)]%;\
/set enchantbag_upgrade $[id_total_hr > bow_cur_hr]%;\
/set enchantbag_possible_upgrade $[possible_enchants & (id_max_hr > bow_cur_hr)] %;\
/set enchantbag_possible_spare $[possible_enchants & (id_max_hr >= bow_spare_hr)] %;\
/set enchantbag_spare $[id_total_hr >= bow_spare_hr]%;\
/set enchantbag_item_known 1%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCred %%% /%0: We have a %{bow_cur_hr}hr bow in our gear%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: New item has %{id_total_hr}hr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCmagenta %%% /%0: So we could make the total hr %{id_max_hr}hr%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: upgrade is %enchantbag_upgrade, possible_upgrade is %enchantbag_possible_upgrade%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aBCblue %%% /%0: spare is %enchantbag_spare, possible_spare is %enchantbag_possible_spare

/def -i enchantbag_get_stats = \
/if (enchantbag_wear_level == 51) \
/let var_mid hero%;\
/elseif (enchantbag_wear_level == 125) \
/let var_mid lord%;\
/elseif (enchantbag_wear_level <= 50) \
/let var_mid lowmort%;\
/endif%;\
/let var_right=%*%;\
;DEBUG are there any weird characters in the keywords
;DEBUG other than the ' in the archer's gauntlet..?
/test var_right:=replace("'", "", var_right)%;\
/test var_right:=replace(" ", "_", var_right)%;\
/let varname enchantbag_%{var_mid}_%{var_right}%;\
/eval /verbose -o%{verbosity_enchantbag} -l3 - -aCred %%%% /%0: Stats we have on file for %identify_object is %%{%{varname}}%;\
/eval /return "%%{%{varname}}"

/def -i enchantbag_possible_enchants = \
/let pos_ench=0%;\
/let counter %{identify_level}%;\
/while (counter < enchantbag_wear_level - 1) \
/if (counter + enchantbag_level_increment <= enchantbag_max_level) \
/test ++pos_ench%;\
/endif%;\
/test counter+=enchantbag_level_increment%;\
/done%;\
/if (enchantbag_enchanter_level == enchantbag_wear_level) \
/test pos_ench+=$[enchantbag_max_level-(identify_level+(pos_ench*enchantbag_level_increment))]%;\
/else \
/test pos_ench+=$[(enchantbag_max_level-(identify_level+(pos_ench*enchantbag_level_increment)))/enchantbag_level_increment]%;\
/endif%;\
/if (pos_ench < 0) /let pos_ench 0%;/endif%;\
/verbose -o%{verbosity_enchantbag} -l3 - -aCmagenta %%% /%0: We could enchant %pos_ench more times%;\
/return %{pos_ench}

/def -i enchantbag_exit = \
/let _post %enchantbag_post%;\
/config_restore -senchantbag blind%;\
/config_restore -senchantbag combine%;\
/config_restore -senchantbag condition%;\
/config_restore -senchantbag nosummon%;\
/config_restore -senchantbag notake%;\
/config_restore -senchantbag nodisturb%;\
/config_rmset enchantbag%;\
/filter_restore -senchantbag spellother%;\
/filter_rmset enchantbag%;\
/unset enchantbag%;\
/unset enchantbag_name%;\
/unset enchantbag_name_check%;\
/unset enchantbag_inv%;\
/unset enchantbag_inv_name%;\
/unset enchantbag_level_increment%;\
/unset enchantbag_enchant_count%;\
/unset enchantbag_max_level%;\
/unset enchantbag_fade%;\
/unset enchantbag_shimmer%;\
/unset enchantbag_brill%;\
/unset enchantbag_vape%;\
/unset enchantbag_item_known%;\
/unset enchantbag_upgrade%;\
/unset enchantbag_possible_upgrade%;\
/unset enchantbag_possible_spare%;\
/unset enchantbag_spare%;\
/unset enchantbag_post%;\
/unset enchantbag_enchanter_level%;\
/unset enchantbag_wear_level%;\
/set enchantbag_exit %1%;\
/verbose -o%{verbosity_enchantbag} -l1 - -aCcyan %%% /%0 reports: We're finished. Post command is: %{_post}%;\
/if (_post !~ "") /eval -s0 /repeat -0.3 1 %{_post}%; /endif
</pre>

[[Category: TinyFugue Scripting]]

Label.tf

2008-11-08T09:35:08Z

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

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>

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.
* identify now uses prompt_exe to get rid of the /repeat... meaning identify lag doesn't matter anymore

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>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/loaded __SULFAR__/label.tf

/eval /require -q %{TINYPREFIX}identify.tf
/eval /require -q %{TINYPREFIX}verbose.tf

/echo -aCyellow %% /label <item> Label item
/echo -aCyellow %% [-x<command>] execute command after label

;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> [ds<drawstrength>] <hr>hr [<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
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 label

/def -i label = \
/if (!getopts("x:", "")) /return 0%; /endif%; \
/set label_post %{opt_x}%;\
/verbose -o%{verbosity_label} -l1 - -aCcyan %%% /%0: Labeling. Post command is %{label_post}%;\
/identify -e"get %1labeleok" -x/label_identify_done %1

;Setting global variable identify_grab to make /label work in loops
;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 = \
/set identify_grab 1%;\
/set label_keyword %{P1}%;\
/verbose -o%{verbosity_label} -l2 - -aCyellow %%% /%0: Got keyword, %{label_keyword}

/def -i label_identify_done = \
/verbose -o%{verbosity_label} -l2 - -aCyellow %%% /%0: Compiling label string and labeling.%;\
/let label_string=%;\
/let _post=%{label_post}%;\
/if (regmatch ("armor|weapon|bow|container|light|treasure", identify_type))\
/let label_string l%{identify_level}%;\
/if (identify_type =~ "armor") \
/let label_string %{label_string} b%{identify_armor_class}%;\
/if (identify_enchant_armor < 0) \
/let label_string %{label_string} %{identify_enchant_armor}%;\
/endif%;\
/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") \
/let label_string %{label_string} %{identify_dam_min}-%{identify_dam_avg}-%{identify_dam_max}%;\
/if (identify_draw_strength !~ "") \
/let label_string %{label_string} ds%{identify_draw_strength}%;\
/endif%;\
/let label_string %{label_string} $[identify_hr+identify_enchant_bow]hr%;\
/elseif (identify_type =~ "container") \
/let label_string %{label_string} c%{identify_capacity}%;\
/let label_string %{label_string} w%{identify_weight}%;\
/endif%;\
/if (identify_etch !~ "") \
/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 - -aCcyan %%% /%0: I have no idea how to label %{label_keyword} of type %{identify_type}, sorry.%;\
/endif%;\
/unset label_post%;\
/unset label_keyword%;\
/if (_post !~ "") /eval -s0 %{_post}%; /endif
</pre>

[[Category: TinyFugue Scripting]]

Label.tf

2008-11-08T09:31:42Z

Sulfar: Cleaning till it shines...

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>

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.
* identify now uses prompt_exe to get rid of the /repeat... meaning identify lag doesn't matter anymore

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>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/loaded __SULFAR__/label.tf

/eval /require -q %{TINYPREFIX}identify.tf
/eval /require -q %{TINYPREFIX}verbose.tf

/echo -aCyellow %% /label <item> Label item
/echo -aCyellow %% [-x<command>] execute command after label

;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> [ds<drawstrength>] <hr>hr [<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
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 label

/def -i label = \
/if (!getopts("x:", "")) /return 0%; /endif%; \
/set label_post %{opt_x}%;\
/verbose -o%{verbosity_label} -l1 - -aCcyan %%% /%0: Labeling. Post command is %{label_post}%;\
/identify -e"get %1labeleok" -x/label_identify_done %1

;Setting global variable identify_grab to make /label work in loops
;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 = \
/set identify_grab 1%;\
/set label_keyword %{P1}%;\
/verbose -o%{verbosity_label} -l2 - -aCyellow %%% /%0: Got keyword, %{label_keyword}

/def -i label_identify_done = \
/verbose -o%{verbosity_label} -l2 - -aCyellow %%% /%0: Compiling label string and labeling.%;\
/let label_string=%;\
/let _post=%{label_post}%;\
/if (regmatch ("armor|weapon|bow|container|light|treasure", identify_type))\
/let label_string l%{identify_level}%;\
/if (identify_type =~ "armor") \
/let label_string %{label_string} b%{identify_armor_class}%;\
/if (identify_enchant_armor < 0) \
/let label_string %{label_string} %{identify_enchant_armor}%;\
/endif%;\
/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") \
/let label_string %{label_string} %{identify_dam_min}-%{identify_dam_avg}-%{identify_dam_max}%;\
/if (identify_draw_strength !~ "") \
/let label_string %{label_string} ds%{identify_draw_strength}%;\
/endif%;\
/let label_string %{label_string} $[identify_hr+identify_enchant_bow]hr%;\
/elseif (identify_type =~ "container") \
/let label_string %{label_string} c%{identify_capacity}%;\
/let label_string %{label_string} w%{identify_weight}%;\
/endif%;\
/if (identify_etch !~ "") \
/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 - -aCcyan %%% /%0: I have no idea how to label %{label_keyword} of type %{identify_type}, sorry.%;\
/endif%;\
/unset label_post%;\
/unset label_keyword%;\
/if (_post !~ "") /eval %{_post}%; /endif
</pre>

[[Category: TinyFugue Scripting]]

Identify.tf

2008-11-08T09:18:54Z

Sulfar: Mod: summary

Config.tf

2008-11-07T19:48:23Z

Sulfar: cleaning up i found (and fixed) a bug in config_rmset and filter_rmset

A script to store mud side configuration and filter options into variables and restore them later. It also allows you to set defaults and restore them with "/config_restore all" For more information, read the comments in the first 100 lines.

This script uses [[prompt.tf]] and [[verbose.tf]] so you'll want those if you want to use this script. You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''

/loaded __SULFAR__/config.tf

/require -q lisp.tf
/eval /require -q %{TINYPREFIX}prompt.tf
/eval /require -q %{TINYPREFIX}verbose.tf

;Scripts can use this script to store configuration and filter options from
; Avatar into variables. Example for a call from myscript
;
; /config_store -smyscript -x/myscript_config_done
;
;/def -i myscript_config_done = \
; config +notake%;\
; config +nosummon%;\
; /myscript_continues
;
;/def -i myscript_exit = \
; /config_restore -smyscript notake%;\
; /config_restore -smyscript nosummon%;\
; /config_rmset myscript

/def -i config_usage = \
/echo -aCyellow %%% /config_store Stores mud configuration%;\
/echo -aCyellow %%% [-s<name>] name for this set of options, default: avatar%;\
/echo -aCyellow %%% [-x<command>] execute <command> on exit%;\
/echo -aCyellow %%% /config_restore <option> Restore config <option>%;\
/echo -aCyellow %%% /config_restore all Restore all config options from this set%;\
/echo -aCyellow %%% [-s<name>] name for this set of options, default: avatar%;\
/echo -aCyellow %%% /config_rmset <set> Remove config <set> from memory

/def -i filter_usage = \
/echo -aCyellow %%% /filter_store Stores mud filter configuration%;\
/echo -aCyellow %%% [-s<name>] name for this set of options, default: avatar%;\
/echo -aCyellow %%% [-x<command>] execute <command> on exit%;\
/echo -aCyellow %%% /filter_restore <option> Restore filter <option>%;\
/echo -aCyellow %%% /filter_restore all Restore all filter options from this set%;\
/echo -aCyellow %%% [-s<name>] name for this set of options, default: avatar%;\
/echo -aCyellow %%% /filter_rmset <set> Remove filter <set> from memory

;Default config. If you interrupt a script or otherwise mess up your config
; you can just use "/config_restore all".
;To produce this list I used "/config_store" and "/listvar config_avatar*".
/set config_avatar_autoexit= +autoexit
/set config_avatar_autogold= +autogold
/set config_avatar_autogroup= +autogroup
/set config_avatar_autoloot= -autoloot
/set config_avatar_autopull= +autopull
/set config_avatar_autosac= -autosac
/set config_avatar_autosplit= +autosplit
/set config_avatar_autotitle= +autotitle
/set config_avatar_battlenone= -battlenone
/set config_avatar_battleother= -battleother
/set config_avatar_battleself= -battleself
/set config_avatar_blank= +blank
/set config_avatar_blind= -blind
/set config_avatar_brief= -brief
/set config_avatar_cmdcolor= +cmdcolor
/set config_avatar_color= +color
/set config_avatar_combine= +combine
/set config_avatar_condition= -condition
/set config_avatar_demonbank= +demonbank
/set config_avatar_keepalive= -keepalive
/set config_avatar_label= +label
/set config_avatar_nobeep= -nobeep
/set config_avatar_nodisturb= -nodisturb
/set config_avatar_nogenesis= -nogenesis
/set config_avatar_nosummon= -nosummon
/set config_avatar_notake= -notake
/set config_avatar_prompt= +prompt
/set config_avatar_prompt2= +prompt2
/set config_avatar_scoreaff= -scoreaff
/set config_avatar_telnetga= -telnetga
/set config_avatar_list= autoexit autoloot autogold autogroup autopull \
autosplit autosac autotitle battleother battleself battlenone blank blind \
brief color cmdcolor combine condition demonbank keepalive nobeep \
nogenesis nosummon notake nodisturb label prompt prompt2 scoreaff telnetga
/eval /set config_set_list $(/unique %{config_set_list} avatar)

;Default filter, for /filter_restore all
/set filter_avatar_objectother=0
/set filter_avatar_roomindiv=0
/set filter_avatar_roomtotal=1
/set filter_avatar_spellother=0
/set filter_avatar_walkother=0
/set filter_avatar_list= walkother roomindiv roomtotal spellother objectother
/eval /set filter_set_list $(/unique %{filter_set_list} avatar)

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 config

/config_usage
/filter_usage

/def -i config_store = \
/set config_set=avatar%;\
/if (!getopts("x:s:")) /return 0%; /endif%;\
/if (opt_s !~ "") /set config_set %{opt_s}%;/endif%;\
/set config_post %{opt_x}%;\
/eval /set config_%{config_set}_list=%;\
/set config_set_list $(/unique %{config_set_list} %{config_set})%;\
/set config_store 1%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Grabbing configuration, storing in set %config_set%;\
config

/def -i -E(config_store) -t"\[ Keyword \] Option" config_liststart = \
/verbose -o%{verbosity_config} -l2 - -aCyellow %%% /%0: Start of configuration list%;\
/set prompt_exe config_store

/def -i -E(config_store) -mregexp -t"^\[(-|\+)([a-zA-Z0-9]+) *\] .+\.$" config_option = \
/let _sign %{P1}%;\
/let _option $[tolower({P2})]%;\
/verbose -o%{verbosity_config} -l2 - -aCyellow %%% /%0: Got config option: %{_option}%;\
/eval /set config_%{config_set}_list %%{config_%{config_set}_list} %%{_option}%;\
/eval /set config_%{config_set}_%{_option} %{_sign}%{_option}

/def -i -E(config_store) -p991 -mglob -h'send PROMPT_EXE config_store' config_prompt_exe = \
/let _post %{config_post}%;\
/set prompt_exe=%;\
/unset config_store%;\
/unset config_post%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Stored configuration in set %{config_set}, executing %{_post}%;\
/unset config_set%;\
/if (_post !~ "") /eval -s0 %{_post}%; /endif

/def -i config_restore = \
/let _set=avatar%;\
/set config_noset 0%;\
/if (!getopts("s:")) /return 0%; /endif%;\
/if (opt_s !~ "") /let _set %{opt_s}%;/endif%;\
/eval \
/if (!regmatch("autoexit", config_%{_set}_autoexit)) \
/set config_noset 1%%;\
/endif%;\
/let _option %1%;\
/if (config_noset) \
/verbose -o%{verbosity_config} -l1 - -aCred %%% %;\
/verbose -o%{verbosity_config} -l1 - -aCred %%% /%0: No configuration set %{_set} stored!%;\
/verbose -o%{verbosity_config} -l1 - -aCred %%% %;\
/elseif (_option =~ "all") \
/eval /mapcar /config_restore %%{config_%{_set}_list}%;\
/elseif (_option !~ "") \
/eval config %%{config_%{_set}_%{_option}}%;\
/else \
/config_usage%;\
/endif%;\
/verbose -o%{verbosity_config} -l3 - -aCyellow %%% /%0: Option %{_option} restored using set %{_set}%;\
/unset config_noset

/def -i config_rmset = \
/let _set %*%;\
/if (_set =~ "") /let _set=avatar%;/endif%;\
/eval /set rmset_options %%{config_%{_set}_list}%;\
/let _length $(/length %{rmset_options})%;\
/let _counter=1%;\
/while (_counter <= _length) \
/unset config_%{_set}_$(/nth %{_counter} %{rmset_options})%;\
/test ++_counter%;\
/done%;\
/set config_set_list $(/remove %{_set} %{config_set_list})%;\
/unset config_%{_set}_list%;\
/unset rmset_options%;\
/if (config_set_list =~ "") /unset config_set_list%;/endif%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Configuration set %{_set} removed.

; Same for filter

/def -i filter_store = \
/set filter_set=avatar%;\
/if (!getopts("x:s:")) /return 0%; /endif%;\
/if (opt_s !~ "") /set filter_set %{opt_s}%;/endif%;\
/set filter_post %{opt_x}%;\
/eval /set filter_%{filter_set}_list=%;\
/set filter_set_list $(/unique %{filter_set_list} %{filter_set})%;\
/set filter_store 1%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Grabbing filters, storing in set %filter_set%;\
filter

/def -i -E(filter_store) -t"Filter Type Status" filter_liststart = \
/verbose -o%{verbosity_config} -l2 - -aCyellow %%% /%0: Start of filter list%;\
/set prompt_exe filter_store

/def -i -E(filter_store) -mregexp -t"^([A-Z]+).+(ON|off)" filter_option = \
/let _option $[tolower({P1})]%;\
/let _sign %{P2}%;\
/verbose -o%{verbosity_config} -l2 - -aCyellow %%% /%0: Got filter: %{_option}%;\
/eval /set filter_%{filter_set}_list %%{filter_%{filter_set}_list} %%{_option}%;\
/if (_sign =~ "off") \
/eval /set filter_%{filter_set}_%{_option} 0%;\
/else \
/eval /set filter_%{filter_set}_%{_option} 1%;\
/endif

/def -i -E(filter_store) -p991 -mglob -h'send PROMPT_EXE filter_store' filter_prompt_exe = \
/let _post %{filter_post}%;\
/set prompt_exe=%;\
/unset filter_store%;\
/unset filter_post%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Stored filters in set %{filter_set}, executing %{post}%;\
/unset filter_set%;\
/if (_post !~ "") /eval -s0 %{_post}%; /endif

/def -i filter_restore = \
/let _set=avatar%;\
/set filter_noset 0%;\
/if (!getopts("s:")) /return 0%; /endif%;\
/if (opt_s !~ "") /let _set %{opt_s}%;/endif%;\
/eval \
/if (!regmatch("0|1", filter_%{_set}_objectother)) \
/set filter_noset 1%%;\
/endif%;\
/let _option %1%;\
/if (filter_noset) \
/verbose -o%{verbosity_config} -l1 - -aCred %%% %;\
/verbose -o%{verbosity_config} -l1 - -aCred %%% /%0: No filter set %{_set} stored!%;\
/verbose -o%{verbosity_config} -l1 - -aCred %%% %;\
/elseif (_option =~ "all") \
/eval /mapcar /filter_restore %%{filter_%{_set}_list}%;\
/elseif (_option !~ "") \
/eval \
/if (filter_%{_set}_%{_option}) \
filter +%%{_option}%%;\
/else \
filter -%%{_option}%%;\
/endif%;\
/verbose -o%{verbosity_config} -l3 - -aCyellow %%% /%0: Filter %{_option} restored using set %{_set}%;\
/else \
/filter_usage%;\
/endif%;\
/unset filter_noset

/def -i filter_rmset = \
/let _set %*%;\
/if (_set =~ "") /let _set=avatar%;/endif%;\
/eval /set rmset_options %%{filter_%{_set}_list}%;\
/let _length $(/length %{rmset_options})%;\
/let _counter=1%;\
/while (_counter <= _length) \
/unset filter_%{_set}_$(/nth %{_counter} %{rmset_options})%;\
/test ++_counter%;\
/done%;\
/set filter_set_list $(/remove %{_set} %{filter_set_list})%;\
/unset filter_%{_set}_list%;\
/unset rmset_options%;\
/if (filter_set_list =~ "") /unset filter_set_list%;/endif%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Filter set %{_set} removed.
</pre>

[[Category: TinyFugue Scripting]]

Config.tf

2008-11-07T05:36:13Z

Sulfar: made /config_restore all less spammy

A script to store mud side configuration and filter options into variables and restore them later. It also allows you to set defaults and restore them with "/config_restore all" For more information, read the comments in the first 100 lines.

This script uses [[prompt.tf]] and [[verbose.tf]] so you'll want those if you want to use this script. You should also have TINYPREFIX set in your config file, pointing at the directory with tf scripts like
<pre>/set TINYPREFIX=~/tinyfugue/</pre>

<pre>
;Bug reports, suggestions and/or diffs are appreciated, '''sulfar''' _AT_ ''inbox'' +DOT+ ''com''
/loaded __SULFAR__/config.tf

/require -q lisp.tf
/eval /require -q %{TINYPREFIX}prompt.tf
/eval /require -q %{TINYPREFIX}verbose.tf

;Scripts can use this script to store configuration and filter options from
; Avatar into variables. Example for a call from myscript
;
; /config_store -smyscript -x/myscript_config_done
;
;/def -i myscript_config_done = \
; config +notake%;\
; config +nosummon%;\
; /myscript_continues
;
;/def -i myscript_exit = \
; /config_restore -smyscript notake%;\
; /config_restore -smyscript nosummon%;\
; /config_rmset myscript

/def -i config_usage = \
/echo -aCyellow %%% /config_store Stores mud configuration%;\
/echo -aCyellow %%% [-s<name>] name for this set of options, default: avatar%;\
/echo -aCyellow %%% [-x<command>] execute <command> on exit%;\
/echo -aCyellow %%% /config_restore <option> Restore config <option>%;\
/echo -aCyellow %%% /config_restore all Restore all config options from this set%;\
/echo -aCyellow %%% [-s<name>] name for this set of options, default: avatar%;\
/echo -aCyellow %%% /config_rmset <set> Remove config <set> from memory

/def -i filter_usage = \
/echo -aCyellow %%% /filter_store Stores mud filter configuration%;\
/echo -aCyellow %%% [-s<name>] name for this set of options, default: avatar%;\
/echo -aCyellow %%% [-x<command>] execute <command> on exit%;\
/echo -aCyellow %%% /filter_restore <option> Restore filter <option>%;\
/echo -aCyellow %%% /filter_restore all Restore all filter options from this set%;\
/echo -aCyellow %%% [-s<name>] name for this set of options, default: avatar%;\
/echo -aCyellow %%% /filter_rmset <set> Remove filter <set> from memory

;Default config. If you interrupt a script or otherwise mess up your config
; you can just /config_restore all
;To produce this list I used "/config_store" and "/listvar config_avatar*".
/set config_avatar_autoexit= +autoexit
/set config_avatar_autogold= +autogold
/set config_avatar_autogroup= +autogroup
/set config_avatar_autoloot= -autoloot
/set config_avatar_autopull= +autopull
/set config_avatar_autosac= -autosac
/set config_avatar_autosplit= +autosplit
/set config_avatar_autotitle= +autotitle
/set config_avatar_battlenone= -battlenone
/set config_avatar_battleother= -battleother
/set config_avatar_battleself= -battleself
/set config_avatar_blank= +blank
/set config_avatar_blind= -blind
/set config_avatar_brief= -brief
/set config_avatar_cmdcolor= +cmdcolor
/set config_avatar_color= +color
/set config_avatar_combine= +combine
/set config_avatar_condition= -condition
/set config_avatar_demonbank= +demonbank
/set config_avatar_keepalive= -keepalive
/set config_avatar_label= +label
/set config_avatar_nobeep= -nobeep
/set config_avatar_nodisturb= -nodisturb
/set config_avatar_nogenesis= -nogenesis
/set config_avatar_nosummon= -nosummon
/set config_avatar_notake= -notake
/set config_avatar_prompt= +prompt
/set config_avatar_prompt2= +prompt2
/set config_avatar_scoreaff= -scoreaff
/set config_avatar_telnetga= -telnetga
/set config_avatar_list= autoexit autoloot autogold autogroup autopull \
autosplit autosac autotitle battleother battleself battlenone blank blind \
brief color cmdcolor combine condition demonbank keepalive nobeep \
nogenesis nosummon notake nodisturb label prompt prompt2 scoreaff telnetga
/eval /set config_set_list $(/unique %{config_set_list} avatar)

;Default filter, for /filter_restore all
/set filter_avatar_objectother=0
/set filter_avatar_roomindiv=0
/set filter_avatar_roomtotal=1
/set filter_avatar_spellother=0
/set filter_avatar_walkother=0
/set filter_avatar_list= walkother roomindiv roomtotal spellother objectother
/eval /set filter_set_list $(/unique %{filter_set_list} avatar)

;Set to 0-3 to override system verbosity level
;Set to -100 to disable script verbosity level and keep system verbosity level
;see verbose.tf
/verbose -s-100 config

/config_usage
/filter_usage

/def -i config_store = \
/set config_set=avatar%;\
/if (!getopts("x:s:")) /return 0%; /endif%;\
/if (opt_s !~ "") /set config_set %{opt_s}%;/endif%;\
/set config_post %{opt_x}%;\
/eval /set config_%{config_set}_list=%;\
/set config_set_list $(/unique %{config_set_list} %{config_set})%;\
/set config_store 1%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Grabbing configuration, storing in set %config_set%;\
config

/def -i -E(config_store) -t"\[ Keyword \] Option" config_liststart = \
/verbose -o%{verbosity_config} -l2 - -aCyellow %%% /%0: Start of configuration list%;\
/set prompt_exe config

/def -i -E(config_store) -mregexp -t"^\[(-|\+)([a-zA-Z0-9]+) *\] .+\.$" config_option = \
/let sign %{P1}%;\
/let option $[tolower({P2})]%;\
/verbose -o%{verbosity_config} -l2 - -aCyellow %%% /%0: Got config option: %{option}%;\
/eval /set config_%{config_set}_list %%{config_%{config_set}_list} %%{option}%;\
/eval /set config_%{config_set}_%{option} %{sign}%{option}

/def -i -E(config_store) -p991 -mglob -h'send PROMPT_EXE config' config_prompt_exe = \
/let post %{config_post}%;\
/set prompt_exe=%;\
/unset config_store%;\
/unset config_post%;\
/verbose -o%{verbosity_config} -ls - -aCyellow %%% /%0: Stored configuration in set %{config_set}, executing %{post}%;\
/unset config_set%;\
/if (post !~ "") /eval -s0 %{post}%; /endif

/def -i config_restore = \
/set config_set=avatar%;\
/set config_noset 0%;\
/if (!getopts("s:")) /return 0%; /endif%;\
/if (opt_s !~ "") /set config_set %{opt_s}%;/endif%;\
/eval \
/if (!regmatch("autoexit", config_%{config_set}_autoexit)) \
/verbose -o%{verbosity_config} -l1 - -aCred %%%% %%;\
/verbose -o%{verbosity_config} -l1 - -aCred %%%% /%0: No configuration set %{config_set} stored!%%;\
/verbose -o%{verbosity_config} -l1 - -aCred %%%% %%;\
/set config_noset 1%%;\
/endif%;\
/if (config_noset) \
/unset config_set%;\
/unset config_noset%;\
/return 0%;\
/endif%;\
/let option %1%;\
/if (option =~ "all") \
/eval /mapcar /config_restore %%{config_%{config_set}_list}%;\
/elseif (option !~ "") \
/eval config %%{config_%{config_set}_%{option}}%;\
/else \
/config_usage%;\
/return 0%;\
/endif%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Config option %{option} restored using set %{config_set}%;\
/unset config_set%;\
/unset config_noset

/def -i config_rmset = \
/let rmset_set %*%;\
/if (rmset_set =~ "") /let rmset_set=avatar%;/endif%;\
/eval /set rmset_options %%{config_%{rmset_set}_list}%;\
/let rmset_length $(/length %rmset_options)%;\
/let counter=1%;\
/while (counter <= rmset_length) \
/unset config_%{rmset_set}_$(/nth %{counter} %{rmset_options})%;\
/test ++counter%;\
/done%;\
/set config_set_list $(/remove %{rm_set} %{config_set_list})%;\
/unset config_%{rmset_set}_list%;\
/unset rmset_options%;\
/if (config_set_list =~ "") /unset config_set_list%;/endif%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Configuration set %{rmset_set} removed.

; Same for filter

/def -i filter_store = \
/set filter_set=avatar%;\
/if (!getopts("x:s:")) /return 0%; /endif%;\
/if (opt_s !~ "") /set filter_set %{opt_s}%;/endif%;\
/set filter_post %{opt_x}%;\
/eval /set filter_%{filter_set}_list=%;\
/set filter_set_list $(/unique %{filter_set_list} %{filter_set})%;\
/set filter_store 1%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Grabbing filters, storing in set %filter_set%;\
filter

/def -i -E(filter_store) -t"Filter Type Status" filter_liststart = \
/verbose -o%{verbosity_config} -l2 - -aCyellow %%% /%0: Start of filter list%;\
/set prompt_exe filter

/def -i -E(filter_store) -mregexp -t"^([A-Z]+).+(ON|off)" filter_option = \
/let option $[tolower({P1})]%;\
/let sign %{P2}%;\
/verbose -o%{verbosity_config} -l2 - -aCyellow %%% /%0: Got filter: %{option}%;\
/eval /set filter_%{filter_set}_list %%{filter_%{filter_set}_list} %%{option}%;\
/if (sign =~ "off") \
/eval /set filter_%{filter_set}_%{option} 0%;\
/else \
/eval /set filter_%{filter_set}_%{option} 1%;\
/endif

/def -i -E(filter_store) -p991 -mglob -h'send PROMPT_EXE filter' filter_prompt_exe = \
/let post %{filter_post}%;\
/set prompt_exe=%;\
/unset filter_store%;\
/unset filter_post%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Stored filters in set %{filter_set}, executing %{post}%;\
/unset filter_set%;\
/if (post !~ "") /eval -s0 %{post}%; /endif

/def -i filter_restore = \
/set filter_set=avatar%;\
/set filter_noset 0%;\
/if (!getopts("s:")) /return 0%; /endif%;\
/if (opt_s !~ "") /set filter_set %{opt_s}%;/endif%;\
/eval \
/if (!regmatch("0|1", filter_%{filter_set}_objectother)) \
/verbose -o%{verbosity_config} -l1 - -aCred %%%% %%;\
/verbose -o%{verbosity_config} -l1 - -aCred %%%% /%0: No filter set %{filter_set} stored!%%;\
/verbose -o%{verbosity_config} -l1 - -aCred %%%% %%;\
/set filter_noset 1%%;\
/endif%;\
/if (filter_noset) \
/unset filter_set%;\
/unset filter_noset%;\
/return 0%;\
/endif%;\
/let option %1%;\
/if (option =~ "all") \
/eval /mapcar /filter_restore %%{filter_%{filter_set}_list}%;\
/elseif (option !~ "") \
/eval \
/if (filter_%{filter_set}_%{option}) \
filter +%%{option}%%;\
/else \
filter -%%{option}%%;\
/endif%;\
/else \
/filter_usage%;\
/return 0%;\
/endif%;\
/verbose -o%{verbosity_config} -l3 - -aCyellow %%% /%0: Filter %{option} restored using set %{filter_set}%;\
/unset filter_set%;\
/unset filter_noset

/def -i filter_rmset = \
/let rmset_set %*%;\
/if (rmset_set =~ "") /let rmset_set=avatar%;/endif%;\
/eval /set rmset_options %%{filter_%{rmset_set}_list}%;\
/let rmset_length $(/length %rmset_options)%;\
/let counter=1%;\
/while (counter <= rmset_length) \
/unset filter_%{rmset_set}_$(/nth %{counter} %{rmset_options})%;\
/test ++counter%;\
/done%;\
/set filter_set_list $(/remove %{rm_set} %{filter_set_list})%;\
/unset filter_%{rmset_set}_list%;\
/unset rmset_options%;\
/if (filter_set_list =~ "") /unset filter_set_list%;/endif%;\
/verbose -o%{verbosity_config} -l1 - -aCcyan %%% /%0: Filter set %{rmset_set} removed.
</pre>

[[Category: TinyFugue Scripting]]