1 bonus bDelayrate,-5;
2 bonus bMdef,2;
3 .@r = getrefine();
4 if (.@r>5)
5 bonus bVariableCastrate,-(.@r-5);