Rite Robe

.@r = getrefine();
bonus bHealPower,5;
bonus bDelayrate,-10;
bonus bMaxHPrate,5;
if (.@r>=7) {
   bonus bMaxHPrate,5;
   bonus bHealPower,5;
}
if (.@r>=8) {
   bonus bMaxHPrate,5;
   bonus bHealPower,10;
   bonus bUseSPrate,-10;
   bonus2 bResEff,Eff_Sleep,10000;
}
if (.@r>=9) {
   bonus bMaxHPrate,5;
   bonus bHealPower,10;
}