[EasyUO] Stag Trophy Eval
Posted: Wed Feb 05, 2014 12:22 am
Excel Stag Calculator = Good tool.
I took it one step lazier.. This script will:
Determine the score of a trophy in your main pack.
Open a corpse and search for a trophy.
Evaluate a trophy if found.
Display the score of the trophy on the corpse, if found.
Let you know to loot if it is higher.
Will tell you compare trophy if the score is the same.
-- The higher the last digit on the weight, the better trophy if scores are the same
I don't know if there is a way to use decimals for the weight or not, nor do I care enough to investigate as it works fine the way it is.
I took it one step lazier.. This script will:
Determine the score of a trophy in your main pack.
Open a corpse and search for a trophy.
Evaluate a trophy if found.
Display the score of the trophy on the corpse, if found.
Let you know to loot if it is higher.
Will tell you compare trophy if the score is the same.
-- The higher the last digit on the weight, the better trophy if scores are the same
I don't know if there is a way to use decimals for the weight or not, nor do I care enough to investigate as it works fine the way it is.
Code: Select all
set %CurrentHigh 0
finditem BLL C_ , #BackpackID
If #FindCNT > 0
goto Eval
Top:
Finditem YFM G_2 ; Look for corpses on the ground
If #FindCNT > 0
{
set #LObjectID #FindID
set %CorpseID #FindID
event macro 17 0
ignoreitem #FindID
wait 10
finditem BLL C_
If #FindCNT > 0
{
Eval:
Event Property #findID
set %MountID #FindID
gosub extract #PROPERTY Weighing , #spc #spc Weight
set %WeightPoints %Weight / 10
gosub extract #PROPERTY With , #spc #spc Rack
set %RackPoints %Rack
if Poor in #Property
set %QualityPoints 10
if Fair in #Property
set %QualityPoints 15
if Average in #Property
set %QualityPoints 20
if Above in #Property
set %QualityPoints 25
if Superior in #Property
set %QualityPoints 30
if Peerless in #Property
set %QualityPoints 35
set %TotalPoints %WeightPoints + %RackPoints + %QualityPoints
event ExMsg %CorpseID 0 0 Total Points: %TotalPoints
if %TotalPoints = %CurrentHigh
event ExMsg %CorpseID 0 0 Compare Mounts
if %TotalPoints > %CurrentHigh
{
set %CurrentHigh %TotalPoints
event ExMsg %CorpseID 0 0 Loot Mount
}
ignoreitem %MountID
}
}
wait 10
Goto Top
sub extract
{
set %weaponString %1
set %leftOf %2
set %rightOf %3
str Pos %weaponString %leftOf
set %tempPos #STRRES
str Len %leftOf
set %tempPos %tempPos + #STRRES - 1
str Del %weaponString 1 %tempPos
set %weaponString #STRRES
str Pos %weaponString %rightOf
set %tempPos #STRRES - 1
str Left %weaponString %tempPos
set % . %4 #STRRES
return
}