Skarlet's Robe (OSM) [1]

.@r = getrefine();
.@a = ((.@r >= 10) ? 200 : ((.@r >= 9) ? 140 :  ((.@r >= 8) ? 90 : ((.@r >= 7) ? 50 : 20))));
.@b = ((.@r >= 10) ? 60 : ((.@r >= 9) ? 40 :  ((.@r >= 8) ? 20 : ((.@r >= 7) ? 10 : 0))));
.@c = ((.@r >= 10) ? 6 : ((.@r >= 9) ? 4 :  ((.@r >= 8) ? 2 : ((.@r >= 7) ? 1 : 0))));
bonus bMdef,10;
bonus bAllStats,1;
bonus2 bExpAddRace,RC_All,5;
bonus bHPGainValue,.@a;
bonus bMagicHPGainValue,.@a;
bonus2 bHPDrainRate,.@b,.@c;