Scan durability of everything equipped on character. !dura_cur = current durability, !dura_max = max durability, %prop = name of current item
set %dura_warn 5
set %remove_armor_on_warn #true
gosub scan_armor
halt
;--------------------------------------------------------------
;--------------------------------------------------------------
sub scan_armor
set #lpc 1000
finditem * C_ , #charid
for #findindex 1 #findcnt
{
gosub scan_dura #findid
if #result = #true && !dura_max <> N/A
{
event property #findid
set %temp_sid #property
str pos %temp_sid $
set %del #strres - 1
str left %temp_sid %del
set %prop #strres
set %slash /
; menu list add durabox %prop , #spc , !dura_cur , %slash , !dura_max
display %prop !dura_cur %slash !dura_max
if !dura_cur <= %dura_warn
{
if %remove_armor_on_warn = #true
{
wait 10
exevent drag #findid #findstack
wait 10
exevent dropc #backpackid
wait 10
}
}
}
}
set #lpc 20
set %problem 0
return
;--------------------------------------------------------------
;--------------------------------------------------------------
sub scan_dura
namespace push
namespace local dura_check
set !item %1
set !dura durability
event property !item
if !dura in #property
{
set !temp_string #property
str pos !temp_string durability
set !delete_this #strres + 10
str del !temp_string 1 !delete_this
set !temp_string #strres
str len !temp_string
set !delete_this #strres - 1
str left !temp_string !delete_this
set !temp_string #strres
wait 1
str pos !temp_string /
set !delete_this #strres - 1
str left !temp_string !delete_this
set !dura_cur #strres
wait 1
str pos !temp_string /
set !delete_this #strres - 1
str right !temp_string !delete_this
set !dura_max #strres
namespace push
return #true
}
return #false
;--------------------------------------------------------------
;--------------------------------------------------------------