;-------------------------------------------------------------------------------
; %1 - percentage left from max. CURRENT/MAX
; %2 - #TRUE, display warn
sub CheckItemDurability
namespace push
namespace local CID
set !temp_LPC #LPC
set #LPC 1000
set !warning_percentage %1
set !displaywarning %2
set !result #FALSE
set !warnstring
finditem * C_ , #CHARID
for #FINDINDEX 1 #FINDCNT
{
set !item #FINDID
event property !item
set !searchfor Durability , #SPC
if !searchfor in #PROPERTY
{
gosub TM_CheckMaxDurability !item
set !max #RESULT
gosub TM_CheckCurrentDurability !item
set !current #RESULT
gosub TM_GetItemName !item
if #RESULT <> #TRUE
{
set !name #RESULT
set !percent !current * 100 / !max
if !percent <= !warning_percentage
{
set !warnstring !warnstring , !name , : , #SPC , !current , / , !max , $
set !result #TRUE
}
}
}
}
if !result = #TRUE && !displaywarning = #TRUE
{
display ok Repair scan summary: , $ , $ , !warnstring
}
set #LPC !temp_LPC
set #RESULT !result
namespace pop
return #RESULT