Code: Select all
if (RandomInt (1000) == 1)
defender_armor.hp := defender_armor.hp - 1;
if (defender_armor.hp < 1)
SendSysMessage (defender, "Your " + defender_armor.desc + " breaks!");
DestroyItem (defender_armor);
endif