;-------------------------------------------------------------------------------
; %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