Clergy's Manteau

.@r = getrefine();
bonus bMaxSPrate,5;
bonus bMdef,10;
bonus bVariableCastrate,-10;
bonus2 bMagicAddRace,RC_Angel,(.@r/2);
bonus2 bMagicAddRace,RC_Demon,(.@r/2);
bonus2 bSubRace,RC_Angel,(.@r/3);
bonus2 bSubRace,RC_Demon,(.@r/3);
if (.@r>=7) {
   bonus bVariableCastrate,-10;
}