Elanthipedia Items (script)

From Elanthipedia
Jump to navigation Jump to search
Elanthipedia Items (script)
Category information
Front-end Genie
Author Isharon


This script creates Elanthipedia forms for weapons, shields, armor, and items that you appraise in shops. The results are both echoed to the game window and logged to the Appraisal file in Genie's Logs folder.

This script is intended for experience Elanthipedia contributors only. The forms that are created by this script often require some manual editing. (See below for details.) Please check for errors before posting them to Elanthipedia.

Field values are not defined unless you are "certain" about the stat that you are appraising.

Instructions

Syntax

.ELANTH [ITEM NOUN]: You must type the entire noun. (For example, if you're appraising a greatsword, you must type greatsword; greats wouldn't work.)

Most of the time, the script needs to type shop/appraise X on Y, but sometimes, the required preposition is in. In these cases, edit the first line of the script before running it:

setvariable preposition on

When the script loads, it will send shop $shopv to check the surface that the item is on. (This is not required, but I find it helpful.) A menu will then prompt you to select the type of item you're appraising:

  1. Weapon: Melee/Thrown: most weapons (except types 2-5)
  2. Weapon: Ranged: bows, crossbows, and slings
  3. Weapon: Ammunition: for bows, crossbows, and slings
  4. Weapon: Brawling: worn brawling gear (excluding parry sticks)
  5. Weapon: Parry Stick
  6. Shield
  7. Armor
  8. Item: all other items


Required Genie Settings

You must install and use this alias to set the shop surface variable.

#alias {shopv} {#var shop $0}


The "shop surface" is the thing on which the item is placed (for example, table, second rack, or oak shelf).

You must install and run this script to set your currency variable. (It only needs to be run once unless you go to another province.) If you don't wear a ring, change the item to something that you wear.

put app my ring quick

matchre dokoras ^You .+ worth .+ dokoras
matchre kronars ^You .+ worth .+ kronars
matchre lirums ^You .+ worth .+ lirums
matchwait

dokoras:
put #var currency Dokoras
goto end

kronars:
put #var currency Kronars
goto end

lirums:
put #var currency Lirums
goto end

end:

echo
echo Currency set to $currency
echo

Changelog

05/18/2011

  • Fixed bug that prevented item types from being set to "cambrinth."
  • Script fills out "area" field for armor.
  • Script fills out some MTags, CTags, and STags.

05/17/2011

  • Added support for instrument types.
  • Script now recognizes when all armor absorption values are equal.

05/16/2011

  • Added support for more fluff item types.

05/15/2011

  • Fixed some bugs with fluff item types.

04/26/2011

  • The script now includes the Elanthipedia URL for each item (assuming that the tap is the same as the page name).

04/18/2011

  • The "Appraisal" log is now saved as a text file.

04/14/2011

  • The script now recognizes appraisal values of 1 Kronar.

04/05/2011

  • The script now sets gem pouch appraisal values to 0.

04/04/2011

  • added "the" as a leading article (to be omitted from page names)
  • fixed a bug that prevented recognition of some weapon types

03/20/2011: The script has the following new features:

  • adds commas to costs and appraisal values
  • adds the currency to the cost field (requires the script above)
  • equipment construction values don't need to be edited to make them consistent with Elanthipedia's template
  • recognizes gaethzen as a type of fluff item
  • recognizes many common guild and race styles for fluff items

Fields That Require Manual Editing

Name

Delete this field unless the item tap differs from the page name (for example, in capitalization).

Missing Data

Some fields that the script can't fill are left as placeholders for your convenience.

Likewise, any field with a DELETE or % in the result has not been filled by the script. (These fields are in the script, because the script sometimes has values for them.) These fields should be deleted unless you know the appropriate value.

Fields to watch out for:

  • |type2=%wtype2: this field is used for thrown weapons
  • |maxcharge=%maxcharge: this field is filled when cambrinth is appraised. (Delete this field if the data is missing, or it is defined as "delete this line".)
  • |special=%special: this field is defined as "cambrinth" when the item is cambrinth. Otherwise, delete this field unless there is some other special type, such as a guild or racial style.

Item Types

For your convenience, the script leaves room for up to four item types for fluff. Sometimes, the script will define a type for you. Some automatic settings:

  • |type=clothing: automatic for most clothing
  • |type=jewelry: automatic for most jewelry
  • |type=-: automatic when the item is not set as clothing or jewelry
  • |type2=container: containers and pocketed items
  • |type3=cambrinth: cambrinth


If a type field is blank, please delete it.

If type2 or type3 is set, but there is no type, change it to the lowest available type number. It doesn't matter what order they're in, but I tend to put properties like clothing or jewelry first, then container, then cambrinth, then guild and race styles.

If type is defined as "-", it means that the item doesn't belong in any of Elanthipedia's type categories. This definition is incorrect if another type variable has been set (for example, container or cambrinth). When in doubt, delete this unless you know that no other item category applies.


Source, Sourcetype, and Cost

By default, the source field is defined as the room name. This does not always match the shop name on Elanthipedia.

Player-run Shops

If you are appraising items in player-run Trader shops, please delete the following fields unless you know the original source:

  • |sourcetype=sold by
  • |source=
  • |cost=

Swappable Weapons

This script supports thrown weapons, but it does not fully support swappable weapons, such as bastard swords. (It will only generate the damage and balance/power fields for one side of the weapon.)

The easiest way to handle this situation is to let the form supply the one side's values, save changes, and click the "edit with form" button to supply the other side's values.

Brawling Weapons

Replace "quite a bit of" with "quite a bit."

Armor

area: This field is defined by the script, but you need to delete the word(s) DELETE from the "area" field.

Absorption: The absorption fields are filled out twice, and some values need to be deleted.

For most armor, absorption is the same for all damage types. When this is the case, keep the absorbance field and delete the following fields:

  • |punctureab=
  • |sliceab=
  • |impactab=
  • |fireab=
  • |coldab=
  • |electricab=


If absorption values are not the same for every damage type, the script output will be |absorbance=VALUES NOT EQUAL. Delete the absorbance field and use the six specific values (punctureab=, sliceab=, etc.) instead.

Script

put #class rp on
put #class combat off
put #class arrive off

setvariable preposition on
var source $roomname
action exit when ^I could not find what (you|you were) referring to\.$
var numbers first|second|third|fourth|fifth|sixth|seventh|eighth|ninth|tenth|eleventh
var numbers.index 0
send shop $shop
waitfor [Type SHOP [GOOD] to see some details about it.]

action setvariable tap $2 when ^You tap (a|an|some|the) (.+) (atop|inside) (an?|some)
action setvariable short $2 when ^Short: (a|an|some|the) (.+)
action setvariable look $1 when ^Look:  (.+)
action setvariable look - when ^Look:  You see nothing unusual\.$
action setvariable read $1 when ^Read:\s+(.+)$
action setvariable type2 container when ^The .+ (are|is) a container, and can be opened and closed\.$
action setvariable type2 container when ^The .+ (are|is) a container\.$
action setvariable type2 container when ^The .+ (are|is) pocketed, and can be opened and closed\.$
action setvariable type2 container when ^The .+ (are|is) pocketed\.$
action setvariable type2 container when ^The gem pouch is made for easy storage of gems
action setvariable type4 cambrinth when ^You.+holds?.+mana\.$
action setvariable special cambrinth when ^You.+holds?.+mana\.$
action setvariable wearloc $2 when ^It appears that .+ can be worn (around|in|on) the (.+)\.$
action setvariable wearloc $1 when ^It appears that .+ can be draped over the (.+)\.$
action setvariable wearloc generic when ^It appears that .+ can be worn\.$
action setvariable wearloc belt when ^It appears that .+ can be worn attached to a belt\.$
action setvariable wearloc belt when ^The gem pouch is made for easy storage of gems
action setvariable wearloc ear when ^It appears that .+ can be worn in one ear
action setvariable wearloc ears when ^It appears that .+ can be worn in both ears
action setvariable wearloc hair (placed) when ^It appears that .+ can be worn in the hair\.$
action setvariable wearloc pants when ^It appears that .+ can be worn like pants or a skirt\.$
action setvariable wearloc shirt+ when ^It appears that .+ can be worn as a shirt or robe, even with armor\.$
action setvariable wearloc shirt- when ^It appears that .+ can be worn like a shirt or robe\.$
action setvariable wearloc shoulder when ^It appears that .+ can be slung over one shoulder\.$
action setvariable weight $1 when ^You are certain that .+ weighs exactly (\d+) (stones?)\.$
action setvariable appcosti $2 when ^You are certain that .+ (is|are) worth exactly (\d+) kronars\.$
action setvariable appcosti 1 when ^You are certain that .+ (is|are) worth exactly 1 kronar\.$
action setvariable appcosti 0 when ^You are certain that .+ (is|are) worth exactly nothing\.$
action setvariable appcosti 0 when ^There doesn't appear to be anything in the gem pouch\.$
action setvariable costi $1 when ^Cost:  (\d+)
action setvariable maxcharge $1 when ^You are certain that the .+ holds? exactly (\d+) mana\.$
action setvariable metal yes when ^The .+ (is|are) made with metal\.$

action setvariable wtype1 LE when (is a|are a|and) light edged .+ weapon
action setvariable wtype1 ME when (is a|are a|and) medium edged .+ weapon
action setvariable wtype1 HE when (is a|are a|and) heavy edged .+ weapon
action setvariable wtype1 2HE when (is a|are a|and) two-handed edged .+ weapon
action setvariable wtype1 LB when (is a|are a|and) light blunt .+ weapon
action setvariable wtype1 MB when (is a|are a|and) medium blunt .+ weapon
action setvariable wtype1 HB when (is a|are a|and) heavy blunt .+ weapon
action setvariable wtype1 2HB when (is a|are a|and) two-handed blunt .+ weapon
action setvariable wtype1 2HB when (is a|are a|and) two-handed blunt .+ weapon
action setvariable wtype1 SL when (is|are) a sling .+ weapon
action setvariable wtype1 StS when (is|are) a staff sling .+ weapon
action setvariable wtype1 SB when (is|are) a short bow .+ weapon
action setvariable wtype1 LoB when (is|are) a long bow .+ weapon
action setvariable wtype1 CB when (is|are) a composite bow .+ weapon
action setvariable wtype1 LX when (is|are) a light crossbow .+ weapon
action setvariable wtype1 HX when (is|are) a heavy crossbow .+ weapon
action setvariable wtype1 SS when (is a|are a|and) short staff .+ weapon
action setvariable wtype1 QS when (is a|are a|and) quarter staff .+ weapon
action setvariable wtype1 PI when (is a|are a|and) pike .+ weapon
action setvariable wtype1 HAL when (is a|are a|and) halberd .+ weapon
action setvariable wtype2 LT when (is|are) a light thrown and .+ weapon
action setvariable wtype2 HT when (is|are) a heavy thrown and .+ weapon

action setvariable range melee when melee-ranged weapon
action setvariable range pole when pole-ranged weapon
action setvariable puncture $1 when ^\s+(.*) puncture damage
action setvariable slice $1 when ^\s+(.*) slice damage
action setvariable impact $1 when ^\s+(.*) impact damage
action setvariable puncturetype Yes when ^\s+(.*) puncture damage increase
action setvariable slicetype Yes when ^\s+(.*) slice damage increase
action setvariable impacttype Yes when ^\s+(.*) impact damage increase
action setvariable balance $1 when .+ is (.*) balanced
action setvariable power $1 when .+ is (.*) suited

action setvariable stype lsh when is large in size\.$
action setvariable stype msh when is medium in size\.$
action setvariable stype ssh when is small in size\.$
action setvariable sprotection $1 when .+ offers (.*) protection
action setvariable smin $1 when ^You are certain that .+ offers (.*) to .+ protection\.
action setvariable smax $1 when ^You are certain that .+ offers .+ to (.*) protection\.
action setvariable shindrance $1 when .+ it imposes? an? (.*) maneuvering hinde?rance

action setvariable atype cloth armor when (is|are) cloth armor\.$|cloth\.$
action setvariable atype leather armor when (is|are) leather armor\.$
action setvariable atype bone armor when (is|are) bone armor\.$
action setvariable atype light chain when (is|are) light chain\.$
action setvariable atype heavy chain when (is|are) heavy chain\.$
action setvariable atype light plate when (is|are) light plate\.$
action setvariable atype heavy plate when (is|are) heavy plate\.$
action setvariable abpuncture $1 when .+ \s(.*) for puncture attacks
action setvariable abslice $1 when .+ \s(.*) for slice attacks
action setvariable abimpact $1 when .+ \s(.*) for impact attacks
action setvariable abfire $1 when .+ \s(.*) for fire attacks
action setvariable abcold $1 when .+ \s(.*) for cold attacks
action setvariable abelectrical $1 when .+ \s(.*) for electrical attacks
action setvariable appuncture $1 when .+ \s(.*) protection and .+ damage absorption for puncture attacks
action setvariable apslice $1 when .+ \s(.*) protection and .+ damage absorption for slice attacks
action setvariable apimpact $1 when .+ \s(.*) protection and .+ damage absorption for impact attacks
action setvariable apfire $1 when .+ \s(.*) protection and .+ damage absorption for fire attacks
action setvariable apcold $1 when .+ \s(.*) protection and .+ damage absorption for cold attacks
action setvariable apelectrical $1 when .+ \s(.*) protection and .+ damage absorption for electrical attacks
action setvariable aapuncture $1 when .+ protection and (.*) damage absorption for puncture attacks
action setvariable aaslice $1 when .+ protection and (.*) damage absorption for slice attacks
action setvariable aaimpact $1 when .+ protection and (.*) damage absorption for impact attacks
action setvariable aafire $1 when .+ protection and (.*) damage absorption for fire attacks
action setvariable aacold $1 when .+ protection and (.*) damage absorption for cold attacks
action setvariable aaelectrical $1 when .+ protection and (.*) damage absorption for electrical attacks
action setvariable ahindrance $1 when .+ appears? to impose (.*), offering
action setvariable mhindrance $1 when .+ appears? to impose (.*) maneuvering hindrance and
action setvariable shindrance $1 when .+ appears? to impose .+ maneuvering hindrance and (.*) stealth hindrance
action setvariable ahead head when ^\s+head$
action setvariable aeyes eyes when ^\s+right eye$
action setvariable aneck neck when ^\s+neck$
action setvariable achest chest when ^\s+chest$
action setvariable aback back when ^\s+back$
action setvariable aabdomen abdomen when ^\s+abdomen$
action setvariable aarms arms when ^\s+right arm$
action setvariable alegs legs when ^\s+right leg$
action setvariable ahands hands when ^\s+right hand$

action setvariable construction $2 when ^You are certain that the .+ (is|are) (.*) (against|to) damage, and
action setvariable construction extremely weak when ^You are certain that the .+ (is|are) extremely weak, and
action setvariable construction very delicate when ^You are certain that the .+ (is|are) very delicate, and
action setvariable construction quite fragile when ^You are certain that the .+ (is|are) quite fragile, and
action setvariable construction rather flimsy when ^You are certain that the .+ (is|are) rather flimsy, and
action setvariable construction particularly weak when ^You are certain that the .+ (is|are) particularly weak, and
action setvariable construction average construction when ^You are certain that the .+ (is|are) of average construction, and
action setvariable construction very strong when ^You are certain that the .+ (is|are) very strong, and

echo
echo ITEM TYPE:
echo
echo 1:	Weapon: Melee/Thrown
echo
echo 2:	Weapon: Ranged
echo
echo 3:	Weapon: Ammunition
echo
echo 4:	Weapon: Brawling
echo
echo 5:	Weapon: Parry Stick
echo
echo 6:	Shield
echo
echo 7:	Armor
echo
echo 8:	Item
echo
echo Enter Type Number:

matchre WeaponApp1 ^1
matchre WeaponApp2 ^2
matchre WeaponApp3 ^3
matchre WeaponApp4 ^4
matchre WeaponApp5 ^5
matchre ShieldApp ^6
matchre ArmorApp ^7
matchre ItemApp ^8
matchwait

WeaponApp1:
var number %numbers(%numbers.index)
gosub AppraiseWeapon1
math numbers.index add 1
if %numbers.index > 11 then goto end
goto WeaponApp1

WeaponApp2:
var number %numbers(%numbers.index)
gosub AppraiseWeapon2
math numbers.index add 1
if %numbers.index > 11 then goto end
goto WeaponApp2

WeaponApp3:
var number %numbers(%numbers.index)
gosub AppraiseWeapon3
math numbers.index add 1
if %numbers.index > 11 then goto end
goto WeaponApp3

WeaponApp4:
var number %numbers(%numbers.index)
gosub AppraiseWeapon4
math numbers.index add 1
if %numbers.index > 11 then goto end
goto WeaponApp4

WeaponApp5:
var number %numbers(%numbers.index)
gosub AppraiseWeapon5
math numbers.index add 1
if %numbers.index > 11 then goto end
goto WeaponApp5

ShieldApp:
var number %numbers(%numbers.index)
gosub AppraiseShield
math numbers.index add 1
if %numbers.index > 11 then goto end
goto ShieldApp

ArmorApp:
var number %numbers(%numbers.index)
gosub AppraiseArmor
math numbers.index add 1
if %numbers.index > 11 then goto end
goto ArmorApp

ItemApp:
var number %numbers(%numbers.index)
gosub AppraiseItem
math numbers.index add 1
if %numbers.index > 11 then goto end
goto ItemApp

number1:
var number first
return
number2:
var number second
return
number3:
var number third
return
number4:
var number fourth
return
number5:
var number fifth
return
number6:
var number sixth
return
number7:
var number seventh
return
number8:
var number eighth
return
number9:
var number ninth
return
number10:
var number tenth
return
number11:
var number eleventh
return

AppraiseWeapon1:
gosub VarBlank
pause 1
send tap %number %1 %preposition $shop
waitforre ^You
send shop %number %1 %preposition $shop
waitforre ^Short
send appraise %number %1 %preposition $shop careful
wait
pause
gosub CommaAppcost
gosub CommaCost
if %maxcharge > 0 then var special cambrinth
gosub Tagset
echo http://www.elanthipedia.com/wiki/Weapon:%tap&action=edit
echo
echo {{Weapon
echo |name=%tap
echo |newapp=Yes
echo |noun=%1
echo |look=%look
echo Read: %read
echo |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
echo |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
echo |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
echo |range=%range
echo |type=%wtype1
echo |type2=%wtype2
echo |puncture=%puncture
echo |slice=%slice
echo |impact=%impact
echo |balance=%balance
echo |suitedness=%power
echo |construction=%construction
echo |metal=%metal
echo |weight=%weight
echo |appcost=%appcost
echo |wearloc=%wearloc
echo |sourcetype=sold by
echo |source=%source
echo |cost=%cost $currency
echo |maxcharge=%maxcharge
echo |special=%special
echo }}
put #log >Appraisal.txt http://www.elanthipedia.com/wiki/Weapon:%tap&action=edit
put #log >Appraisal.txt {{Weapon
put #log >Appraisal.txt |name=%tap
put #log >Appraisal.txt |newapp=Yes
put #log >Appraisal.txt |noun=%1
put #log >Appraisal.txt |look=%look
put #log >Appraisal.txt Read: %read
put #log >Appraisal.txt |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
put #log >Appraisal.txt |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
put #log >Appraisal.txt |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
put #log >Appraisal.txt |range=%range
put #log >Appraisal.txt |type=%wtype1
put #log >Appraisal.txt |type2=%wtype2
put #log >Appraisal.txt |puncture=%puncture
put #log >Appraisal.txt |slice=%slice
put #log >Appraisal.txt |impact=%impact
put #log >Appraisal.txt |balance=%balance
put #log >Appraisal.txt |suitedness=%power
put #log >Appraisal.txt |construction=%construction
put #log >Appraisal.txt |metal=%metal
put #log >Appraisal.txt |weight=%weight
put #log >Appraisal.txt |appcost=%appcost
put #log >Appraisal.txt |wearloc=%wearloc
put #log >Appraisal.txt |sourcetype=sold by
put #log >Appraisal.txt |source=%source
put #log >Appraisal.txt |cost=%cost $currency
put #log >Appraisal.txt |maxcharge=%maxcharge
put #log >Appraisal.txt |special=%special
put #log >Appraisal.txt }}

return

AppraiseWeapon2:
gosub VarBlank
pause 1
send tap %number %1 %preposition $shop
waitforre ^You
send shop %number %1 %preposition $shop
waitforre ^Short
send appraise %number %1 %preposition $shop careful
wait
pause
gosub CommaAppcost
gosub CommaCost
if %maxcharge > 0 then var special cambrinth
if (matchre ("%wtype1", "(SB|LoB|CB)")) then var ammo arrow
if (matchre ("%wtype1", "(LX|HX)")) then var ammo bolt
if (matchre ("%wtype1", "(SL|StS)")) then var ammo rock
if (matchre ("%wtype1", "(LT|HT)")) then var ammo thrown
gosub Tagset
echo http://www.elanthipedia.com/wiki/Weapon:%tap&action=edit
echo
echo {{Weapon
echo |name=%tap
echo |newapp=Yes
echo |noun=%1
echo |look=%look
echo Read: %read
echo |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
echo |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
echo |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
echo |range=ranged
echo |ammo=%ammo
echo |ammocap=
echo |rangedRT=
echo |type=%wtype1
echo |puncture=-
echo |balance=%balance
echo |suitedness=%power
echo |construction=%construction
echo |metal=%metal
echo |weight=%weight
echo |appcost=%appcost
echo |wearloc=%wearloc
echo |sourcetype=sold by
echo |source=%source
echo |cost=%cost $currency
echo |maxcharge=%maxcharge
echo |special=%special
echo }}
put #log >Appraisal.txt http://www.elanthipedia.com/wiki/Weapon:%tap&action=edit
put #log >Appraisal.txt {{Weapon
put #log >Appraisal.txt |name=%tap
put #log >Appraisal.txt |newapp=Yes
put #log >Appraisal.txt |noun=%1
put #log >Appraisal.txt |look=%look
put #log >Appraisal.txt Read: %read
put #log >Appraisal.txt |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
put #log >Appraisal.txt |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
put #log >Appraisal.txt |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
put #log >Appraisal.txt |range=ranged
put #log >Appraisal.txt |ammo=%ammo
put #log >Appraisal.txt |ammocap=
put #log >Appraisal.txt |rangedRT=
put #log >Appraisal.txt |type=%wtype1
put #log >Appraisal.txt |puncture=-
put #log >Appraisal.txt |balance=%balance
put #log >Appraisal.txt |suitedness=%power
put #log >Appraisal.txt |construction=%construction
put #log >Appraisal.txt |metal=%metal
put #log >Appraisal.txt |weight=%weight
put #log >Appraisal.txt |appcost=%appcost
put #log >Appraisal.txt |wearloc=%wearloc
put #log >Appraisal.txt |sourcetype=sold by
put #log >Appraisal.txt |source=%source
put #log >Appraisal.txt |cost=%cost $currency
put #log >Appraisal.txt |maxcharge=%maxcharge
put #log >Appraisal.txt |special=%special
put #log >Appraisal.txt }}

return

AppraiseWeapon3:
gosub VarBlank
pause 1
send tap %number %1 %preposition $shop
waitforre ^You
send shop %number %1 %preposition $shop
waitforre ^Short
send appraise %number %1 %preposition $shop careful
wait
pause
gosub CommaAppcost
gosub CommaCost
if %maxcharge > 0 then var special cambrinth
if (matchre ("%1", "(arrows?)")) then var wtype1 arrow
if (matchre ("%1", "(bolts?|quadrellos?|quarrels?|pulzones?)")) then var wtype1 bolt
if (matchre ("%1", "(bullets?|clumps?|lumps?|rocks?)")) then var wtype1 rock
gosub Tagset
echo http://www.elanthipedia.com/wiki/Weapon:%tap&action=edit
echo
echo {{Weapon
echo |name=%tap
echo |newapp=Yes
echo |noun=%1
echo |look=%look
echo Read: %read
echo |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
echo |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
echo |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
echo |type=%wtype1
echo |puncture=%puncture
echo |slice=%slice
echo |impact=%impact
echo |balance=-
echo |construction=%construction
echo |metal=%metal
echo |weight=%weight
echo |appcost=%appcost
echo |wearloc=%wearloc
echo |sourcetype=sold by
echo |source=%source
echo |cost=%cost $currency
echo |maxcharge=%maxcharge
echo |special=%special
echo }}
put #log >Appraisal.txt http://www.elanthipedia.com/wiki/Weapon:%tap&action=edit
put #log >Appraisal.txt {{Weapon
put #log >Appraisal.txt |name=%tap
put #log >Appraisal.txt |newapp=Yes
put #log >Appraisal.txt |noun=%1
put #log >Appraisal.txt |look=%look
put #log >Appraisal.txt Read: %read
put #log >Appraisal.txt |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
put #log >Appraisal.txt |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
put #log >Appraisal.txt |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
put #log >Appraisal.txt |type=%wtype1
put #log >Appraisal.txt |puncture=%puncture
put #log >Appraisal.txt |slice=%slice
put #log >Appraisal.txt |impact=%impact
put #log >Appraisal.txt |balance=-
put #log >Appraisal.txt |construction=%construction
put #log >Appraisal.txt |metal=%metal
put #log >Appraisal.txt |weight=%weight
put #log >Appraisal.txt |appcost=%appcost
put #log >Appraisal.txt |wearloc=%wearloc
put #log >Appraisal.txt |sourcetype=sold by
put #log >Appraisal.txt |source=%source
put #log >Appraisal.txt |cost=%cost $currency
put #log >Appraisal.txt |maxcharge=%maxcharge
put #log >Appraisal.txt |special=%special
put #log >Appraisal.txt }}

return

AppraiseWeapon4:
gosub VarBlank
pause 1
send tap %number %1 %preposition $shop
waitforre ^You
send shop %number %1 %preposition $shop
waitforre ^Short
send appraise %number %1 %preposition $shop careful
wait
pause
gosub CommaAppcost
gosub CommaCost
if %maxcharge > 0 then var special cambrinth
if (matchre ("%1", "(handwraps?|knuckleguards?|knuckles?)")) then var wtype1 hands
if (matchre ("%tap", "(elbow)")) then var wtype1 elbows
if (matchre ("%tap", "(knee)")) then var wtype1 knees
if (matchre ("%1", "(footwraps?)")) then var wtype1 feet
gosub Tagset
echo http://www.elanthipedia.com/wiki/Weapon:%tap&action=edit
echo
echo {{Weapon
echo |name=%tap
echo |newapp=Yes
echo |brawl=yes
echo |noun=%1
echo |look=%look
echo Read: %read
echo |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
echo |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
echo |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
echo |type=%wtype1
echo |puncture=%puncture
echo |puncturetype=Yes
echo |slice=%slice
echo |slicetype=Yes
echo |impact=%impact
echo |impacttype=Yes
echo |balance=-
echo |construction=%construction
echo |metal=%metal
echo |weight=%weight
echo |appcost=%appcost
echo |sourcetype=sold by
echo |source=%source
echo |cost=%cost $currency
echo |maxcharge=%maxcharge
echo |special=%special
echo }}
put #log >Appraisal.txt http://www.elanthipedia.com/wiki/Weapon:%tap&action=edit
put #log >Appraisal.txt {{Weapon
put #log >Appraisal.txt |name=%tap
put #log >Appraisal.txt |newapp=Yes
put #log >Appraisal.txt |brawl=yes
put #log >Appraisal.txt |noun=%1
put #log >Appraisal.txt |look=%look
put #log >Appraisal.txt Read: %read
put #log >Appraisal.txt |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
put #log >Appraisal.txt |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
put #log >Appraisal.txt |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
put #log >Appraisal.txt |type=%wtype1
put #log >Appraisal.txt |puncture=%puncture
put #log >Appraisal.txt |puncturetype=Yes
put #log >Appraisal.txt |slice=%slice
put #log >Appraisal.txt |slicetype=Yes
put #log >Appraisal.txt |impact=%impact
put #log >Appraisal.txt |impacttype=Yes
put #log >Appraisal.txt |balance=-
put #log >Appraisal.txt |construction=%construction
put #log >Appraisal.txt |metal=%metal
put #log >Appraisal.txt |weight=%weight
put #log >Appraisal.txt |appcost=%appcost
put #log >Appraisal.txt |wearloc=%wearloc
put #log >Appraisal.txt |sourcetype=sold by
put #log >Appraisal.txt |source=%source
put #log >Appraisal.txt |cost=%cost $currency
put #log >Appraisal.txt |maxcharge=%maxcharge
put #log >Appraisal.txt |special=%special
put #log >Appraisal.txt }}

return

AppraiseWeapon5:
gosub VarBlank
pause 1
send tap %number %1 %preposition $shop
waitforre ^You
send shop %number %1 %preposition $shop
waitforre ^Short
send appraise %number %1 %preposition $shop careful
wait
pause
gosub CommaAppcost
gosub CommaCost
if %maxcharge > 0 then var special cambrinth
gosub Tagset
echo http://www.elanthipedia.com/wiki/Weapon:%tap&action=edit
echo
echo {{Weapon
echo |brawl=yes
echo |name=%tap
echo |newapp=Yes
echo |noun=%1
echo |look=%look
echo Read: %read
echo |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
echo |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
echo |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
echo |type=parry
echo |puncture=-
echo |puncturetype=No
echo |slicetype=No
echo |impacttype=No
echo |balance=%balance
echo |suitedness=%power
echo |construction=%construction
echo |metal=%metal
echo |weight=%weight
echo |appcost=%appcost
echo |sourcetype=sold by
echo |source=%source
echo |cost=%cost $currency
echo |maxcharge=%maxcharge
echo |special=%special
echo }}
put #log >Appraisal.txt http://www.elanthipedia.com/wiki/Weapon:%tap&action=edit
put #log >Appraisal.txt {{Weapon
put #log >Appraisal.txt |brawl=yes
put #log >Appraisal.txt |name=%tap
put #log >Appraisal.txt |newapp=Yes
put #log >Appraisal.txt |noun=%1
put #log >Appraisal.txt |look=%look
put #log >Appraisal.txt Read: %read
put #log >Appraisal.txt |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
put #log >Appraisal.txt |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
put #log >Appraisal.txt |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
put #log >Appraisal.txt |type=parry
put #log >Appraisal.txt |puncture=-
put #log >Appraisal.txt |puncturetype=No
put #log >Appraisal.txt |slicetype=No
put #log >Appraisal.txt |impacttype=No
put #log >Appraisal.txt |balance=%balance
put #log >Appraisal.txt |suitedness=%power
put #log >Appraisal.txt |construction=%construction
put #log >Appraisal.txt |metal=%metal
put #log >Appraisal.txt |weight=%weight
put #log >Appraisal.txt |appcost=%appcost
put #log >Appraisal.txt |wearloc=%wearloc
put #log >Appraisal.txt |sourcetype=sold by
put #log >Appraisal.txt |source=%source
put #log >Appraisal.txt |cost=%cost $currency
put #log >Appraisal.txt |maxcharge=%maxcharge
put #log >Appraisal.txt |special=%special
put #log >Appraisal.txt }}

return

AppraiseShield:
gosub VarBlank
pause 1
send tap %number %1 %preposition $shop
waitforre ^You
send shop %number %1 %preposition $shop
waitforre ^Short
send appraise %number %1 %preposition $shop careful
wait
pause
gosub CommaAppcost
gosub CommaCost
if %maxcharge > 0 then var special cambrinth
gosub Tagset
echo http://www.elanthipedia.com/wiki/Shield:%tap&action=edit
echo
echo {{Shield
echo |name=%tap
echo |newapp=Yes
echo |noun=%1
echo |look=%look
echo Read: %read
echo |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
echo |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
echo |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
echo |type=%stype
echo |hindrance=%shindrance
echo |minprotection=%smin
echo |maxprotection=%smax
echo |paladinapp=Yes
echo |puncture=%puncture
echo |slice=%slice
echo |impact=%impact
echo |balance=%balance
echo |suitedness=%power
echo |construction=%construction
echo |metal=%metal
echo |weight=%weight
echo |appcost=%appcost
echo |sourcetype=sold by
echo |source=%source
echo |cost=%cost $currency
echo |maxcharge=%maxcharge
echo |special=%special
echo }}
put #log >Appraisal.txt http://www.elanthipedia.com/wiki/Shield:%tap&action=edit
put #log >Appraisal.txt {{Shield
put #log >Appraisal.txt |name=%tap
put #log >Appraisal.txt |newapp=Yes
put #log >Appraisal.txt |noun=%1
put #log >Appraisal.txt |look=%look
put #log >Appraisal.txt Read: %read
put #log >Appraisal.txt |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
put #log >Appraisal.txt |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
put #log >Appraisal.txt |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
put #log >Appraisal.txt |type=%stype
put #log >Appraisal.txt |hindrance=%shindrance
put #log >Appraisal.txt |minprotection=%smin
put #log >Appraisal.txt |maxprotection=%smax
put #log >Appraisal.txt |paladinapp=Yes
put #log >Appraisal.txt |puncture=%puncture
put #log >Appraisal.txt |slice=%slice
put #log >Appraisal.txt |impact=%impact
put #log >Appraisal.txt |balance=%balance
put #log >Appraisal.txt |suitedness=%power
put #log >Appraisal.txt |construction=%construction
put #log >Appraisal.txt |metal=%metal
put #log >Appraisal.txt |weight=%weight
put #log >Appraisal.txt |appcost=%appcost
put #log >Appraisal.txt |sourcetype=sold by
put #log >Appraisal.txt |source=%source
put #log >Appraisal.txt |cost=%cost $currency
put #log >Appraisal.txt |maxcharge=%maxcharge
put #log >Appraisal.txt |special=%special
put #log >Appraisal.txt }}

return

AppraiseArmor:
gosub VarBlank
pause 1
send tap %number %1 %preposition $shop
waitforre ^You
send shop %number %1 %preposition $shop
waitforre ^Short
send appraise %number %1 %preposition $shop careful
wait
pause
gosub CommaAppcost
gosub CommaCost
if %maxcharge > 0 then var special cambrinth
if %aapuncture = %aaslice = %aaimpact = %aafire = %aacold = %aaelectrical then var absorbance %aapuncture
gosub Tagset
echo http://www.elanthipedia.com/wiki/Armor:%tap&action=edit
echo
echo {{Armor
echo |name=%tap
echo |newapp=Yes
echo |noun=%1
echo |look=%look
echo Read: %read
echo |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
echo |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
echo |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
echo |type=%atype
echo |area=%ahead,%aeyes,%aneck,%achest,%aback,%aabdomen,%aarms,%alegs,%ahands
echo |hindrance=%mhindrance
echo |stealth=%shindrance
echo |puncture=%appuncture
echo |slice=%apslice
echo |impact=%apimpact
echo |fire=%apfire
echo |cold=%apcold
echo |electric=%apelectrical
echo |absorbance=%absorbance
echo |punctureab=%aapuncture
echo |sliceab=%aaslice
echo |impactab=%aaimpact
echo |fireab=%aafire
echo |coldab=%aacold
echo |electricab=%aaelectrical
echo |construction=%construction
echo |metal=%metal
echo |appcost=%appcost
echo |weight=%weight
echo |sourcetype=sold by
echo |source=%source
echo |cost=%cost $currency
echo |maxcharge=%maxcharge
echo |special=%special
echo }}
put #log >Appraisal.txt http://www.elanthipedia.com/wiki/Armor:%tap&action=edit
put #log >Appraisal.txt {{Armor
put #log >Appraisal.txt |name=%tap
put #log >Appraisal.txt |newapp=Yes
put #log >Appraisal.txt |noun=%1
put #log >Appraisal.txt |look=%look
put #log >Appraisal.txt Read: %read
put #log >Appraisal.txt |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
put #log >Appraisal.txt |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
put #log >Appraisal.txt |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
put #log >Appraisal.txt |type=%atype
put #log >Appraisal.txt |area=%ahead,%aeyes,%aneck,%achest,%aback,%aabdomen,%aarms,%alegs,%ahands
put #log >Appraisal.txt |hindrance=%mhindrance
put #log >Appraisal.txt |stealth=%shindrance
put #log >Appraisal.txt |puncture=%appuncture
put #log >Appraisal.txt |slice=%apslice
put #log >Appraisal.txt |impact=%apimpact
put #log >Appraisal.txt |fire=%apfire
put #log >Appraisal.txt |cold=%apcold
put #log >Appraisal.txt |electric=%apelectrical
put #log >Appraisal.txt |absorbance=%absorbance
put #log >Appraisal.txt |punctureab=%aapuncture
put #log >Appraisal.txt |sliceab=%aaslice
put #log >Appraisal.txt |impactab=%aaimpact
put #log >Appraisal.txt |fireab=%aafire
put #log >Appraisal.txt |coldab=%aacold
put #log >Appraisal.txt |electricab=%aaelectrical
put #log >Appraisal.txt |construction=%construction
put #log >Appraisal.txt |metal=%metal
put #log >Appraisal.txt |appcost=%appcost
put #log >Appraisal.txt |weight=%weight
put #log >Appraisal.txt |sourcetype=sold by
put #log >Appraisal.txt |source=%source
put #log >Appraisal.txt |cost=%cost $currency
put #log >Appraisal.txt |maxcharge=%maxcharge
put #log >Appraisal.txt |special=%special
put #log >Appraisal.txt }}
return

AppraiseItem:
gosub VarBlank
pause 1
send tap %number %1 %preposition $shop
waitforre ^You
send shop %number %1 %preposition $shop
waitforre ^Short
send appraise %number %1 %preposition $shop careful
wait
pause
gosub CommaAppcost
gosub CommaCost
if %maxcharge > 0 then var type4 cambrinth
if (matchre ("%1", "(aggahhpel|amulet|anklet|armband|armlet|badge|band|bangle|barrette|bead|bracelet|bracer|brooch|chain|charm|choker|circlet|clasp|claw|crown|cuff|earcuff|earring|feather|fetish|haircomb|hairnet|hairpin|locket|medal|medallion|necklace|pendant|periapt|pilonu|pin|por'nidrel|ring|stud|sur'nidrel|tailband|torque|trinket|venda|wristband|wristcuff|wristlet)")) then var type1 jewelry
if (matchre ("%1", "(alb|apron|bandeau|belt|beret|blouse|bodice|bonnet|boots|breeches|caftan|cape|cassock|chemise|cloak|clogs|coat|corset|dirndl|drape|dress|eyepatch|fabric|fedora|fillet|frock|gamantang|gloves|gown|hat|hood|hose|jacket|jerkin|josta|kilt|kimono|krekls|leggings|loincloth|mantle|mask|moccasins|mra'sin|nauda|odaj|overalls|pall|pants|pelt|ribbon|robe|safros|sandals|sarong|sarrak|sash|scarf|shawl|shirt|shoes|skirt|skullcap|slippers|smock|snood|sochi|socks|stockings|stole|tabard|tam|tights|toga|trousers|tunic|turban|uaro's'sugi|veil|vest|vikses|vluze|wimple|wing|wrap)")) then var type1 clothing
if (matchre ("%1", "(bodhran|bones|castanets|cymbals|damaru|darje|doumbec|frottoir|gansa-gambang|guiro|naqqara|spoons|tabla|tambourine|tapani|zills)")) then var type1 percussion instrument
if (matchre ("%1", "(banjo|cistre|cittern|faenellica|fiddle|gittern|guti'adar|harp|khurmary|kithara|lute|lyre|mandolin|psaltery|rebec|sarangi|sitar|sra'ajahh|tambura|violin|zither)")) then var type1 string instrument
if (matchre ("%1", "(bagpipes|bassoon|cane flute|clarin|cornet|didjeridu|fife|flute|gemshorn|hichiriki|horn|minjayrah|mirliton|mitbiq|oboe|ocarina|physalis|recorder|sackbut|serpent|shakuhachi|shawm|syrinx|txistu|whistle|yarghul|zurna)")) then var type1 wind instrument
if (matchre ("%1", "(aggahhpel|gamantang|pel'hhsmur|pilonu|por'nidrel|rasha'hhsograth|sur'nidrel|uaro's'sugi)")) then var type3 skra mur style
if (matchre ("%1", "(cassock|censer)")) then var type3 cleric style
if (matchre ("%1", "(feedbag)")) then var type1 trader style
if (matchre ("%1", "(kimono)")) then var type3 elothean style
if (matchre ("%1", "(mra'sin|josta|krekls|rugursora|safros|sarrak|sega|sochi|vikses|vluze)")) then var type3 prydaen style
if (matchre ("%1", "(nauda|odaj)")) then var type3 rakash style
if (matchre ("%1", "(sigilbook|starchart)")) then var type1 moon mage style
if (matchre ("%1", "(warhorn)")) then var type1 barbarian style
if (matchre ("%1", "(warhorn)")) then var type2 bard style
if (matchre ("%look", "(Curiously, no cord, chain or other binding links the small trinkets together)")) then var type1 jewelry
if (matchre ("%look", "(This customization can be used with any normal.+home)")) then var type1 housing
if (matchre ("%tap", "(anloral|pilgrim's badge)")) then var type2 cleric style
if (matchre ("%tap", "(anloral|pilgrim's badge)")) then var type3 paladin style
if (matchre ("%tap", "(Barbarian|chakrel|warpaint)")) then var type2 barbarian style
if (matchre ("%tap", "(Bard|Bardic|neithrel)")) then var type3 bard style
if (matchre ("%tap", "(acolyte|clergy|clerical|Cleric|devotional|ecclesiastic|Inquisition|Inquisitor|libation|minister|monastic|monk|\bnun\b|pastor|prayer|preach|priest|pulpit|sham[ae]n|vestment)")) then var type3 cleric style
if (matchre ("%tap", "(Dwarf|Dwarve[ns]|Haakish)")) then var type3 dwarf style
if (matchre ("%tap", "(Elf|Elve[ns]|Elvish|Ilithic|sana'ati dyaus)")) then var type3 elf style
if (matchre ("%tap", "(Eloth|Gerenshuge)")) then var type3 elothean style
if (matchre ("%tap", "(Empath|apothecaries|apothecary|doctor|empathic|foraging|healer|healing|medicine|medic|nurse|physician|surgeon)")) then var type3 empath style
if (matchre ("%tap", "(gaethzen)")) then var type2 gaethzen
if (matchre ("%tap", "(Gnome|Gnomic|Gnomish|Gizzbolf|Krigglin|Spangklud)")) then var type3 gnome style
if (matchre ("%tap", "(Gor'Tog|Toggish|Toggler)")) then var type3 gortog style
if (matchre ("%tap", "(Halfling|Olvi)")) then var halfling race style
if (matchre ("%tap", "(Human|Gamgweth)")) then var human race style
if (matchre ("%tap", "(Kaldar|Gorbesh|Aliesa|Aniek|Eimeuz|Merion|Misiumos|Orisas|Sieben|Sraxaec|Tieheq|Xosiurion)")) then var type3 kaldar style
if (matchre ("%tap", "(Moon Mage|Arid Steppe|astrologer|astrology|Celestial Compact|constellation|Crystal Hand|divination|Fortune's Path|G'nar Pethian|Heritage House|lunar|planet|Progeny|telescope|Tezirah)")) then var type3 moon mage style
if (matchre ("%tap", "(Paladin|soulstone)")) then var type3 paladin style
if (matchre ("%tap", "(Prydaen|Demrris|\bEu\b|Faiyka|Iladza|Shariza|Tenemlor)")) then var type3 prydaen style
if (matchre ("%tap", "(Rakash|Moonskin|Coshivi|Enelne|Mrod)")) then var type3 rakash style
if (matchre ("%tap", "(Ranger)")) then var type3 ranger style
if (matchre ("%tap", "(S'?Kra|Eth'ral'khh|ama'hhrsk|Hav'roth|Indakar|Irhhnth|Malk|mehath|Mhhg|Nehgris|Peri'el|Rasha|ru'at|sharmiit'mhhg|Smolg|Sraan|tail drape|T'Lar Venda)")) then var type3 skra mur style
if (matchre ("%tap", "(Thief|Thieves|brigand|burglar|highwaym[ae]n|pirate|robber|smuggler)")) then var type3 thief style
if (matchre ("%tap", "(Trader|auction|bazaar|caravan|contract|merchant)")) then var type3 trader style
if (matchre ("%tap", "(Warrior Mage|aether|element|talisman)")) then var type3 warrior mage style
gosub Tagset
echo http://www.elanthipedia.com/wiki/Item:%tap&action=edit
echo
echo {{Item
echo |name=%tap
echo |noun=%1
echo |look=%look
echo Read: %read
echo |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
echo |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
echo |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
echo |type=%type1
echo |type2=%type2
echo |type3=%type3
echo |type4=%type4
echo |wearloc=%wearloc
echo |weight=%weight
echo |appcost=%appcost
echo |sourcetype=sold by
echo |source=%source
echo |cost=%cost $currency
echo |maxcharge=%maxcharge
echo |metal=%metal
echo }}
put #log >Appraisal.txt http://www.elanthipedia.com/wiki/Item:%tap&action=edit
put #log >Appraisal.txt {{Item
put #log >Appraisal.txt |name=%tap
put #log >Appraisal.txt |noun=%1
put #log >Appraisal.txt |look=%look
put #log >Appraisal.txt Read: %read
put #log >Appraisal.txt |MTag=%mtags,%mtagg,%mtagm,%mtagw,%mtagf
put #log >Appraisal.txt |CTag=%ctagr,%ctago,%ctagy,%ctagg,%ctagb,%ctagv,%ctagn,%ctagm
put #log >Appraisal.txt |STag=%stagp,%stagg,%staga,%stage,%stagr,%stagl
put #log >Appraisal.txt |type=%type1
put #log >Appraisal.txt |type2=%type2
put #log >Appraisal.txt |type3=%type3
put #log >Appraisal.txt |type4=%type4
put #log >Appraisal.txt |wearloc=%wearloc
put #log >Appraisal.txt |weight=%weight
put #log >Appraisal.txt |appcost=%appcost
put #log >Appraisal.txt |sourcetype=sold by
put #log >Appraisal.txt |source=%source
put #log >Appraisal.txt |cost=%cost $currency
put #log >Appraisal.txt |maxcharge=%maxcharge
put #log >Appraisal.txt |metal=%metal
put #log >Appraisal.txt }}
return

VarBlank:
var metal no
var maxcharge DELETE
var wearloc -
var appcost NOT SET
var mtags DELETE
var mtagg DELETE
var mtagm DELETE
var mtagw DELETE
var mtagf DELETE
var ctagr DELETE
var ctago DELETE
var ctagy DELETE
var ctagg DELETE
var ctagb DELETE
var ctagv DELETE
var ctagn DELETE
var ctagm DELETE
var stagp DELETE
var stagg DELETE
var staga DELETE
var stage DELETE
var stagr DELETE
var stagl DELETE
var wtype2 NOT SET
var puncturetype No
var slicetype No
var impacttype No
var absorbance VALUES NOT EQUAL
var ahead DELETE
var aeyes DELETE
var aneck DELETE
var achest DELETE
var aback DELETE
var aabdomen DELETE
var aarms DELETE
var alegs DELETE
var ahands DELETE
var type1 -
var type2 NOT SET
var type3 NOT SET
var type4 NOT SET
return

Tagset:
if (matchre ("%look", "(avaes|imnera|sraeth|dhhresh|hafaltu|indakar|ithridu|keismin|xibaryl|asketine|celstite|lemicule|negnetha|zengalmi|iheaneu'a|chakrel|soulstone)")) then var mtags $1
if (matchre ("%look", "(\bgems?\b|\bjade\b|onyx|\bopal|ruby|\bagate\b|\bamber|beryl|coral|flint|\bglass\b|ivory|lapis|pearl|topaz|garnet|iolite|jasper|\bmarble\b|pyrite|quartz|spinel|svelae|zircon|anloral|axinite|azurite|citrine|crystal|diamond|dwalgim|elbaite|eldring|emerald|granite|jadeite|kunzite|kyanite|larimar|lasmodi|olivine|peridot|sjatmal|amethyst|cinnabar|diopside|grazhite|hematite|ilmenite|ismenite|neitrice|obsidian|porphyry|sapphire|selenite|sky opal|sodalite|sunstone|szeldite|verenite|waermodi|xibarite|yavasite|alabaster|ambergris|amlothite|carnelian|dawgolite|elanthite|erythrite|glowstone|kaolinite|katambite|malachite|mistglass|moonstone|morganite|penhetite|rhodonite|runestone|scheelite|scrimshaw|snow opal|star ruby|tanzanite|tsavorite|turquoise|wulfenite|yoakenite|andalusite|aquamarine|blood ruby|bloodstone|chalcedony|cloud ruby|er'?qutrite|estrildite|fang pearl|fire pearl|flame opal|frost opal|gloamstone|heartstone|lantholite|moon pearl|morleenite|nightstone|seordstone|smoke ruby|star-stone|thealstone|tourmaline|water opal|alexandrite|aurora opal|cherry opal|chrysoberyl|chrysoprase|durgauldite|geshi pearl|merewaldite|pitch pearl|smoky topaz|sunset opal|talan pearl|Xibar topaz|blue diamond|dafora pearl|idopun pearl|lapis lazuli|mystic topaz|ocean jasper|pink diamond|autumn jasper|black diamond|calav[ae]rite|damaryn pearl|damilyo pearl|draconic opal|firesilk opal|haze sapphire|imperial ruby|lilac diamond|midnight ruby|moonspun ruby|night diamond|nimbus garnet|saffron topaz|smoky diamond|star sapphire|white diamond|zenith spinel|frostfire opal|Ilithi emerald|imperial topaz|nightfire opal|sana'?ati heart|starfire topaz|starlight ruby|Taisidon pearl|winter emerald|frostflare opal|glacier emerald|katamba'?s spire|crimson sapphire|dragon fire opal|dragonfire amber|phantom sapphire|spiderweb jasper|Taisidon emerald|tempest sapphire|aurora tourmaline|champagne diamond|dalterein diamond|dragon'?s eye ruby|fire maiden topaz|imperial sapphire|Teiro'?s hate ruby|twilight sapphire|wild horse jasper|eventide moonstone|lion'?s heart topaz|orchid alexandrite|dragon'?s blood ruby|dragon'?s heart ruby|Hav'?roth'?s ambrosia|molten-core diamond|royal zoluren topaz|jackal'?s heart pearl|ocean'?s deep emerald|serpent'?s heart ruby|vela'?tohr tourmaline|forest'?s heart garnet|lotus flower sapphire|shrike'?s eye sapphire|Eluned'?s tear sapphire|Musparan gold sapphire|white Zoluren sapphire|Crystalline dragon tear|dragon'?s scale sapphire|mermaid'?s tear sapphire|nature'?s canopy emerald|summer'?s heart sapphire|violet'?s heart amethyst|volcano'?s heart citrine)")) then var mtagg $1
if (matchre ("%look", "(\bmetal\b|\btin\b|gold|\biron\b|\blead\b|zinc|brass|glaes|steel|bronze|copper|damite|kertig|lumium|nickel|niello|niniam|oravir|pewter|silver|tyrium|animite|haralun|iridium|aluminum|audrualm|electrum|platinum|red gold|spangold|tantalum|titanium|blue gold|darkstone|grey gold|hepatizon|palladium|pink gold|rose gold|black gold|crown gold|green gold|orichalcum|white gold|purple gold|anlora[- ]avtoma)")) then var mtagm $1
if (matchre ("%look", "(\bwood\b|\bash\b|\belm\b|\bfir\b|\boak\b|\byew\b|haon|\bpine\b|\bteak\b|\balder\b|aspen|balsa|beech|birch|cedar|ebony|lunat|maple|shaal|acanth|bamboo|deobar|halmik|huljik|modwir|poplar|spruce|walnut|willow|cypress|dogwood|hickory|redwood|chestnut|ebonwood|gethwood|goldbark|ironwood|mahogany|mistwood|plumwood|sana'?ati|wiirwood|wormwood|adderwood|bloodwood|e'?erdream|flamewood|gloomwood|goldenoak|khor-vela|satinwood|smokewood|taborwood|witchclaw|wyndewood|cherrywood|copperleaf|copperwood|cottonwood|dragonwood|eucalyptus|flamethorn|sandalwood|silverwood|aganylosh'?a|diamondwood|bricklebranch|hhr'?lav'?geluhh)")) then var mtagw $1
if (matchre ("%look", "(\bfelt\b|\bhemp\b|\blace\b|\bsilk\b|\bwool\b|khaki|linen|satin|suede|tweed|\btwine\b|angora|burlap|canvas|cotton|muslin|brocade|khiynit|leather|rawhide|worsted|shagreen|haircloth|longcloth|lava samite|(ice|fire|moon|blood|Elven|night|shade|steel|storm|water|marble|shadow|spider|duchess|bluefire|Elothean|Musparan|fae woven|oceanmist|starlight|nightreaver|nightweaver|nightstalker) ?(lace|silk|satin|velvet|snowlace))")) then var mtagf $1
if (matchre ("%look", "(\bred\b|\bpink\b|gules|auburn|cerise|maroon|murrey|carmine|crimson|magenta|scarlet|burgundy|cardinal|chestnut|sanguine|blood-red|carnelian|vermilion|orange-red)")) then var ctagr $1
if (matchre ("%look", "(orange|\btan\b|brown|fiery|sepia|tawny|tenne|\bumber\b|russet|persimmon|red-orange)")) then var ctago $1
if (matchre ("%look", "(yellow|\becru\b|gold|amber|lemon|saffron|green-yellow)")) then var ctagy $1
if (matchre ("%look", "(green|\blime\b|\bvert\b|clover|celadon|viridian|asparagus|chartreuse|sea[- ]green|yellow-green|olive[- ]drab|olive[- ]green|forest[- ]green|hunter[- ]green)")) then var ctagg $1
if (matchre ("%look", "(\bblue\b|\bceil\b|\bcyan\b|\bteal\b|azure|cobalt|indigo|cerulean|turquoise|sky[- ]blue|ultramarine|baby[- ]blue|navy[- ]blue|royal[- ]blue|cobalt[- ]blue|blue[- ]celeste)")) then var ctagb $1
if (matchre ("%look", "(violet|lilac|mauve|orchid|purple|fuchsia|purpure|thistle|eggplant|lavender|periwinkle|red-violet)")) then var ctagv $1
if (matchre ("%look", "(\bgr[ae]y\b|ashen|beige|\bblack\b|cream|eisen|ivory|sable|taupe|white|argent|silver|arsenic|eggshell|feldgrau|glaucous|platinum|cinereous|colorless|ash[- ]gray|slate[- ]gray|midnight[- ]black)")) then var ctagn $1
if (matchre ("%look", "(rainbow|multi-?hued|multi-?colored)")) then var ctagm $1
if (matchre ("%look", "(Bard|\bmage\b|\bmonk\b|Thief|Cleric|doctor|Empath|healer|knight|priest|Ranger|Trader|wizard|Paladin|surgeon|Thieves|warrior|merchant|Barbarian|Moon Mage|Necromancer|Warrior Mage)")) then var stagp $1
if (matchre ("%look", "(\bgods?\b|Immortal|\bEu\b|\bIdon\b|Mrod|Aniek|Elide|Aliesa|Asketi|Botolf|Drogor|Eerayn|Eimeuz|Eluned|Enelne|Faiyka|Firulf|Glacis|Huldah|Iladza|Kuniyo|Meraud|Merion|Orisas|Phelim|Sieben|Sildua|Tieheq|Alamhif|Albreda|Aldauth|Be'?ort|Coshivi|Damaris|Demrris|Dergati|Everild|Eylhaar|Harawep|Lemicus|Murrula|Rutilor|Saemaus|Shariza|Sraxaec|Tamsine|Ushnish|Chadatru|Divyaush|Faenella|Gizzbolf|Hodierna|Issendar|Kertigen|Kirmhara|Krigglin|Misiumos|Peri'?el|Tenemlor|Thirteen|Glythtide|Hav'?roth|Spangklud|Triquetra|Trothfang|Truffenyi|Xosiurion|Berengaria|Zachriedek|Urrem'?tier|Kerenhappuch|World Dragon)")) then var stagg $1
if (matchre ("%look", "(animal|beast|\box\b|\bapes?\b|\bass\b|\bbats?\b|\bbees?\b|\bcats?\b|\bcows?\b|\bdoe\b|\bdogs?\b|\beels?\b|\belk\b|\bewes?\b|\bfly\b|\bfox\b|\bhogs?\b|\bowls?\b|\bpigs?\b|\brams?\b|\brats?\b|\byaks?\b|\bbears?\b|bird|\bboars?\b|\bbucks?\b|\bbulls?\b|\bclams?\b|\bcocks?\b|\bcrabs?\b|\bcrows?\b|\bdeer\b|dove|duck|\bfauns?\b|fish|frog|goat|\bhares?\b|hawk|ibex|lamb|\blarks?\b|\blions?\b|lynx|mink|\bmoths?\b|\bmules?\b|nyad|pika|puma|\bstags?\b|\bswans?\b|\btoads?\b|\bvoles?\b|wasp|\bwings?\b|wolf|\bwrens?\b|\byales?\b|adder|alfar|bison|burro|camel|civet|cobra|coney|crane|demon|dingo|dryad|eagle|fairy|finch|gecko|genie|ghost|goose|harpy|heron|hinny|horse|hound|hydra|hyena|kirin|lemur|llama|moose|mouse|\botters?\b|prawn|quail|\bravens?\b|robin|satyr|shark|sheep|\bshrews?\b|\bskulls?\b|snail|snake|stoat|stork|swine|tiger|\btrolls?\b|trout|viper|whale|zebra|alpaca|alphyn|antler|badger|bagwyn|beaver|beetle|canary|cattle|cicada|collie|condor|cougar|coyote|curlew|donkey|dragon|ermine|falcon|ferret|gerbil|goblin|gopher|grouse|hornet|iguana|impala|insect|jackal|jaguar|kelpie|kobold|lizard|locust|magpie|mantis|marmot|marten|merman|minnow|monkey|muskox|ocelot|onager|osprey|oyster|parrot|pigeon|\bpossums?\b|python|rabbit|remora|salmon|scarab|selkie|shrike|shrimp|sphinx|spider|talbot|thrush|toucan|turkey|turtle|undead|walrus|weasel|welkin|wraith|wyvern|yeehar|zombie|anchovy|aurochs|banshee|boggart|boobrie|buffalo|bustard|buzzard|calopus|caracal|centaur|cheetah|chimera|cricket|dolphin|echidna|feather|gazelle|giraffe|gorilla|goshawk|griffin|griffon|gryphon|hamster|herring|katydid|lemming|leopard|lioness|lobster|mammoth|manatee|martlet|mastiff|meerkat|merelew|mermaid|mouflon|musimon|opossum|ostrich|panther|peacock|pegasus|pelican|phoenix|polecat|primate|raccoon|rooster|sardine|seagull|serpent|sparrow|swallow|termite|tityrus|unicorn|vulture|wildcat|aardvark|antelope|arachnid|barnacle|basilisk|blue jay|capybara|cardinal|chipmunk|elephant|flounder|hedgehog|inkhorne|kangaroo|minotaur|mongoose|mosquito|parakeet|pheasant|platypus|popinjay|reindeer|scorpion|skeleton|squirrel|starling|sturgeon|terrapin|tortoise|albatross|alligator|armadillo|blackbird|butterfly|centipede|chameleon|cockroach|crocodile|damselfly|dragonfly|greyhound|groundhog|hippocamp|kingsnake|manticore|partridge|porcupine|springbok|swordfish|tarantula|wolverine|woodchuck|camelopard|chimpanzee|chinchilla|cockatrice|cottontail|guinea pig|hippogriff|kingfisher|rhinoceros|salamander|black widow|grasshopper|mockingbird|nightingale|prairie dog|winged horse|mountain lion)")) then var staga $1
if (matchre ("%look", "(element|\bair\b|\bice\b|\bfire\b|\bwind\b|\bearth\b|\bflame\b|\bwater\b|a?ether|inferno|thunder|lightning|electricity)")) then var stage $1
if (matchre ("%look", "(Dwarf|Elf|Elothean|Gnome|Gorbesh|Gor'?Tog|Halfling|Human|Kaldar|Ocular|Olvi|Prydaen|Rakash|S'?Kra Mur)")) then var stagr $1
if (matchre ("%look", "(\bplanet\b|constellation|\bsea\b|\bsun\b|\blake\b|\bmoon\b|\bstar\b|\briver\b|Aesry|comet|Dirge|Ratha|\bShard\b|\bXibar\b|Ilithi|\bReshal\b|Velaka|Verena|Yavash|Amlothi|Faldesu|Grazhir|Ismenia|\bKatamba\b|M'?Riss|Szeldia|Yoakena|Zoluren|Elanthia|Estrilda|Fornsted|Hekemhhg|Kermoria|Morleena|Penhetia|Reshalia|Sawstwar|Segoltha|Shamilho|Siksraja|Taisgath|Zaulfung|Zhamikhh|Boar Clan|Dawgolesh|Durgaulda|Er'?qutra|Gwenalion|Irasushen|Jantspyre|Merewalda|Muspar'?i|Pi'?Qanah|Ratamipak|Surlaenis|Therengia|Wolf Clan|Ain Ghazal|Arthe Dale|Forfedhdar|Hara'?jaal|Knife Clan|Mer'?Kresh|Oxenwaithe|Riverhaven|Sarasunath|Stone Clan|Tiger Clan|Belarritaco|El'?Bain'?s|Ilaya Taipa|Langenfirth|Leth Deriel|Nenav Dalar|Throne City|Hibarnhvidar|Qi'?Reshalia|The Crossing|Therenborough|Fayrin'?s Rest|Kaerna Village|Raven'?s Point|Steelclaw Clan|Chyolvea Tayeu'?a|Aesry Surlaenis'?a|Rossman'?s Landing)")) then var stagl $1
if (matchre ("%tap", "(avaes|imnera|sraeth|dhhresh|hafaltu|indakar|ithridu|keismin|xibaryl|asketine|celstite|lemicule|negnetha|zengalmi|iheaneu'a|chakrel|soulstone)")) then var mtags $1
if (matchre ("%tap", "(\bgems?\b|\bjade\b|onyx|\bopal|ruby|\bagate\b|\bamber|beryl|coral|flint|\bglass\b|ivory|lapis|pearl|topaz|garnet|iolite|jasper|\bmarble\b|pyrite|quartz|spinel|svelae|zircon|anloral|axinite|azurite|citrine|crystal|diamond|dwalgim|elbaite|eldring|emerald|granite|jadeite|kunzite|kyanite|larimar|lasmodi|olivine|peridot|sjatmal|amethyst|cinnabar|diopside|grazhite|hematite|ilmenite|ismenite|neitrice|obsidian|porphyry|sapphire|selenite|sky opal|sodalite|sunstone|szeldite|verenite|waermodi|xibarite|yavasite|alabaster|ambergris|amlothite|carnelian|dawgolite|elanthite|erythrite|glowstone|kaolinite|katambite|malachite|mistglass|moonstone|morganite|penhetite|rhodonite|runestone|scheelite|scrimshaw|snow opal|star ruby|tanzanite|tsavorite|turquoise|wulfenite|yoakenite|andalusite|aquamarine|blood ruby|bloodstone|chalcedony|cloud ruby|er'?qutrite|estrildite|fang pearl|fire pearl|flame opal|frost opal|gloamstone|heartstone|lantholite|moon pearl|morleenite|nightstone|seordstone|smoke ruby|star-stone|thealstone|tourmaline|water opal|alexandrite|aurora opal|cherry opal|chrysoberyl|chrysoprase|durgauldite|geshi pearl|merewaldite|pitch pearl|smoky topaz|sunset opal|talan pearl|Xibar topaz|blue diamond|dafora pearl|idopun pearl|lapis lazuli|mystic topaz|ocean jasper|pink diamond|autumn jasper|black diamond|calav[ae]rite|damaryn pearl|damilyo pearl|draconic opal|firesilk opal|haze sapphire|imperial ruby|lilac diamond|midnight ruby|moonspun ruby|night diamond|nimbus garnet|saffron topaz|smoky diamond|star sapphire|white diamond|zenith spinel|frostfire opal|Ilithi emerald|imperial topaz|nightfire opal|sana'?ati heart|starfire topaz|starlight ruby|Taisidon pearl|winter emerald|frostflare opal|glacier emerald|katamba'?s spire|crimson sapphire|dragon fire opal|dragonfire amber|phantom sapphire|spiderweb jasper|Taisidon emerald|tempest sapphire|aurora tourmaline|champagne diamond|dalterein diamond|dragon'?s eye ruby|fire maiden topaz|imperial sapphire|Teiro'?s hate ruby|twilight sapphire|wild horse jasper|eventide moonstone|lion'?s heart topaz|orchid alexandrite|dragon'?s blood ruby|dragon'?s heart ruby|Hav'?roth'?s ambrosia|molten-core diamond|royal zoluren topaz|jackal'?s heart pearl|ocean'?s deep emerald|serpent'?s heart ruby|vela'?tohr tourmaline|forest'?s heart garnet|lotus flower sapphire|shrike'?s eye sapphire|Eluned'?s tear sapphire|Musparan gold sapphire|white Zoluren sapphire|Crystalline dragon tear|dragon'?s scale sapphire|mermaid'?s tear sapphire|nature'?s canopy emerald|summer'?s heart sapphire|violet'?s heart amethyst|volcano'?s heart citrine)")) then var mtagg $1
if (matchre ("%tap", "(\bmetal\b|\btin\b|gold|\biron\b|\blead\b|zinc|brass|glaes|steel|bronze|copper|damite|kertig|lumium|nickel|niello|niniam|oravir|pewter|silver|tyrium|animite|haralun|iridium|aluminum|audrualm|electrum|platinum|red gold|spangold|tantalum|titanium|blue gold|darkstone|grey gold|hepatizon|palladium|pink gold|rose gold|black gold|crown gold|green gold|orichalcum|white gold|purple gold|anlora[- ]avtoma)")) then var mtagm $1
if (matchre ("%tap", "(\bwood\b|\bash\b|\belm\b|\bfir\b|\boak\b|\byew\b|haon|\bpine\b|\bteak\b|\balder\b|aspen|balsa|beech|birch|cedar|ebony|lunat|maple|shaal|acanth|bamboo|deobar|halmik|huljik|modwir|poplar|spruce|walnut|willow|cypress|dogwood|hickory|redwood|chestnut|ebonwood|gethwood|goldbark|ironwood|mahogany|mistwood|plumwood|sana'?ati|wiirwood|wormwood|adderwood|bloodwood|e'?erdream|flamewood|gloomwood|goldenoak|khor-vela|satinwood|smokewood|taborwood|witchclaw|wyndewood|cherrywood|copperleaf|copperwood|cottonwood|dragonwood|eucalyptus|flamethorn|sandalwood|silverwood|aganylosh'?a|diamondwood|bricklebranch|hhr'?lav'?geluhh)")) then var mtagw $1
if (matchre ("%tap", "(\bfelt\b|\bhemp\b|\blace\b|\bsilk\b|\bwool\b|khaki|linen|satin|suede|tweed|\btwine\b|angora|burlap|canvas|cotton|muslin|brocade|khiynit|leather|rawhide|worsted|shagreen|haircloth|longcloth|lava samite|(ice|fire|moon|blood|Elven|night|shade|steel|storm|water|marble|shadow|spider|duchess|bluefire|Elothean|Musparan|fae woven|oceanmist|starlight|nightreaver|nightweaver|nightstalker) ?(lace|silk|satin|velvet|snowlace))")) then var mtagf $1
if (matchre ("%tap", "(\bred\b|\bpink\b|gules|auburn|cerise|maroon|murrey|carmine|crimson|magenta|scarlet|burgundy|cardinal|chestnut|sanguine|blood-red|carnelian|vermilion|orange-red)")) then var ctagr $1
if (matchre ("%tap", "(orange|\btan\b|brown|fiery|sepia|tawny|tenne|\bumber\b|russet|persimmon|red-orange)")) then var ctago $1
if (matchre ("%tap", "(yellow|\becru\b|gold|amber|lemon|saffron|green-yellow)")) then var ctagy $1
if (matchre ("%tap", "(green|\blime\b|\bvert\b|clover|celadon|viridian|asparagus|chartreuse|sea[- ]green|yellow-green|olive[- ]drab|olive[- ]green|forest[- ]green|hunter[- ]green)")) then var ctagg $1
if (matchre ("%tap", "(\bblue\b|\bceil\b|\bcyan\b|\bteal\b|azure|cobalt|indigo|cerulean|turquoise|sky[- ]blue|ultramarine|baby[- ]blue|navy[- ]blue|royal[- ]blue|cobalt[- ]blue|blue[- ]celeste)")) then var ctagb $1
if (matchre ("%tap", "(violet|lilac|mauve|orchid|purple|fuchsia|purpure|thistle|eggplant|lavender|periwinkle|red-violet)")) then var ctagv $1
if (matchre ("%tap", "(\bgr[ae]y\b|ashen|beige|\bblack\b|cream|eisen|ivory|sable|taupe|white|argent|silver|arsenic|eggshell|feldgrau|glaucous|platinum|cinereous|colorless|ash[- ]gray|slate[- ]gray|midnight[- ]black)")) then var ctagn $1
if (matchre ("%tap", "(rainbow|multi-?hued|multi-?colored)")) then var ctagm $1
if (matchre ("%tap", "(Bard|\bmage\b|\bmonk\b|Thief|Cleric|doctor|Empath|healer|knight|priest|Ranger|Trader|wizard|Paladin|surgeon|Thieves|warrior|merchant|Barbarian|Moon Mage|Necromancer|Warrior Mage)")) then var stagp $1
if (matchre ("%tap", "(\bgods?\b|Immortal|\bEu\b|\bIdon\b|Mrod|Aniek|Elide|Aliesa|Asketi|Botolf|Drogor|Eerayn|Eimeuz|Eluned|Enelne|Faiyka|Firulf|Glacis|Huldah|Iladza|Kuniyo|Meraud|Merion|Orisas|Phelim|Sieben|Sildua|Tieheq|Alamhif|Albreda|Aldauth|Be'?ort|Coshivi|Damaris|Demrris|Dergati|Everild|Eylhaar|Harawep|Lemicus|Murrula|Rutilor|Saemaus|Shariza|Sraxaec|Tamsine|Ushnish|Chadatru|Divyaush|Faenella|Gizzbolf|Hodierna|Issendar|Kertigen|Kirmhara|Krigglin|Misiumos|Peri'?el|Tenemlor|Thirteen|Glythtide|Hav'?roth|Spangklud|Triquetra|Trothfang|Truffenyi|Xosiurion|Berengaria|Zachriedek|Urrem'?tier|Kerenhappuch|World Dragon)")) then var stagg $1
if (matchre ("%tap", "(animal|beast|\box\b|\bapes?\b|\bass\b|\bbats?\b|\bbees?\b|\bcats?\b|\bcows?\b|\bdoe\b|\bdogs?\b|\beels?\b|\belk\b|\bewes?\b|\bfly\b|\bfox\b|\bhogs?\b|\bowls?\b|\bpigs?\b|\brams?\b|\brats?\b|\byaks?\b|\bbears?\b|bird|\bboars?\b|\bbucks?\b|\bbulls?\b|\bclams?\b|\bcocks?\b|\bcrabs?\b|\bcrows?\b|\bdeer\b|dove|duck|\bfauns?\b|fish|frog|goat|\bhares?\b|hawk|ibex|lamb|\blarks?\b|\blions?\b|lynx|mink|\bmoths?\b|\bmules?\b|nyad|pika|puma|\bstags?\b|\bswans?\b|\btoads?\b|\bvoles?\b|wasp|\bwings?\b|wolf|\bwrens?\b|\byales?\b|adder|alfar|bison|burro|camel|civet|cobra|coney|crane|demon|dingo|dryad|eagle|fairy|finch|gecko|genie|ghost|goose|harpy|heron|hinny|horse|hound|hydra|hyena|kirin|lemur|llama|moose|mouse|\botters?\b|prawn|quail|\bravens?\b|robin|satyr|shark|sheep|\bshrews?\b|\bskulls?\b|snail|snake|stoat|stork|swine|tiger|\btrolls?\b|trout|viper|whale|zebra|alpaca|alphyn|antler|badger|bagwyn|beaver|beetle|canary|cattle|cicada|collie|condor|cougar|coyote|curlew|donkey|dragon|ermine|falcon|ferret|gerbil|goblin|gopher|grouse|hornet|iguana|impala|insect|jackal|jaguar|kelpie|kobold|lizard|locust|magpie|mantis|marmot|marten|merman|minnow|monkey|muskox|ocelot|onager|osprey|oyster|parrot|pigeon|\bpossums?\b|python|rabbit|remora|salmon|scarab|selkie|shrike|shrimp|sphinx|spider|talbot|thrush|toucan|turkey|turtle|undead|walrus|weasel|welkin|wraith|wyvern|yeehar|zombie|anchovy|aurochs|banshee|boggart|boobrie|buffalo|bustard|buzzard|calopus|caracal|centaur|cheetah|chimera|cricket|dolphin|echidna|feather|gazelle|giraffe|gorilla|goshawk|griffin|griffon|gryphon|hamster|herring|katydid|lemming|leopard|lioness|lobster|mammoth|manatee|martlet|mastiff|meerkat|merelew|mermaid|mouflon|musimon|opossum|ostrich|panther|peacock|pegasus|pelican|phoenix|polecat|primate|raccoon|rooster|sardine|seagull|serpent|sparrow|swallow|termite|tityrus|unicorn|vulture|wildcat|aardvark|antelope|arachnid|barnacle|basilisk|blue jay|capybara|cardinal|chipmunk|elephant|flounder|hedgehog|inkhorne|kangaroo|minotaur|mongoose|mosquito|parakeet|pheasant|platypus|popinjay|reindeer|scorpion|skeleton|squirrel|starling|sturgeon|terrapin|tortoise|albatross|alligator|armadillo|blackbird|butterfly|centipede|chameleon|cockroach|crocodile|damselfly|dragonfly|greyhound|groundhog|hippocamp|kingsnake|manticore|partridge|porcupine|springbok|swordfish|tarantula|wolverine|woodchuck|camelopard|chimpanzee|chinchilla|cockatrice|cottontail|guinea pig|hippogriff|kingfisher|rhinoceros|salamander|black widow|grasshopper|mockingbird|nightingale|prairie dog|winged horse|mountain lion)")) then var staga $1
if (matchre ("%tap", "(element|\bair\b|\bice\b|\bfire\b|\bwind\b|\bearth\b|\bflame\b|\bwater\b|a?ether|inferno|thunder|lightning|electricity)")) then var stage $1
if (matchre ("%tap", "(Dwarf|Elf|Elothean|Gnome|Gorbesh|Gor'?Tog|Halfling|Human|Kaldar|Ocular|Olvi|Prydaen|Rakash|S'?Kra Mur)")) then var stagr $1
if (matchre ("%tap", "(\bplanet\b|constellation|\bsea\b|\bsun\b|\blake\b|\bmoon\b|\bstar\b|\briver\b|Aesry|comet|Dirge|Ratha|\bShard\b|\bXibar\b|Ilithi|\bReshal\b|Velaka|Verena|Yavash|Amlothi|Faldesu|Grazhir|Ismenia|\bKatamba\b|M'?Riss|Szeldia|Yoakena|Zoluren|Elanthia|Estrilda|Fornsted|Hekemhhg|Kermoria|Morleena|Penhetia|Reshalia|Sawstwar|Segoltha|Shamilho|Siksraja|Taisgath|Zaulfung|Zhamikhh|Boar Clan|Dawgolesh|Durgaulda|Er'?qutra|Gwenalion|Irasushen|Jantspyre|Merewalda|Muspar'?i|Pi'?Qanah|Ratamipak|Surlaenis|Therengia|Wolf Clan|Ain Ghazal|Arthe Dale|Forfedhdar|Hara'?jaal|Knife Clan|Mer'?Kresh|Oxenwaithe|Riverhaven|Sarasunath|Stone Clan|Tiger Clan|Belarritaco|El'?Bain'?s|Ilaya Taipa|Langenfirth|Leth Deriel|Nenav Dalar|Throne City|Hibarnhvidar|Qi'?Reshalia|The Crossing|Therenborough|Fayrin'?s Rest|Kaerna Village|Raven'?s Point|Steelclaw Clan|Chyolvea Tayeu'?a|Aesry Surlaenis'?a|Rossman'?s Landing)")) then var stagl $1
return

CommaAppcost:
var commanumber %appcosti
eval length len(%commanumber)
var appcost %commanumber
if %length < 4 then goto return
evalmath length %length - 3
eval temp substr(%commanumber, %length, 3)
var appcost %temp
topapp:
if %length < 3 then goto lastapp
evalmath length %length - 3
eval temp substr(%commanumber, %length, 3)
var appcost %temp,%appcost
goto topapp
lastapp:
if %length > 0 then
{eval temp substr(%commanumber, 0, %length)
var appcost %temp,%appcost
}goto return

CommaCost:
var commanumber %costi
eval length len(%commanumber)
var cost %commanumber
if %length < 4 then goto return
evalmath length %length - 3
eval temp substr(%commanumber, %length, 3)
var cost %temp
topcost:
if %length < 3 then goto lastcost
evalmath length %length - 3
eval temp substr(%commanumber, %length, 3)
var cost %temp,%cost
goto topcost
lastcost:
if %length > 0 then
{eval temp substr(%commanumber, 0, %length)
var cost %temp,%cost
}goto return

return:
return

end:
exit