1 bonus bMaxHP,100;
2 bonus bMaxSP,20;
3 bonus bMaxHP,(readparam(bVit)/10)*50;
4 if (readparam(bVit)>=110)
5 bonus bMaxHPrate,1;