if (getequiprefinerycnt(EQI_ARMOR) >= 9) bonus2 bResEff,Eff_Curse,10000;
.@r = min(14,getequiprefinerycnt(EQI_ARMOR)); bonus bMaxHPrate,3*(.@r/2);
bonus2 bAddClass,Class_All,15; bonus2 bMagicAddClass,Class_All,15; bonus bMaxHPrate,8*(min(14,getequiprefinerycnt(EQI_ARMOR))/2);