施密特國王新衣 [1] 15388 / Schmidt_Suits

.@r = getrefine();
bonus bUnbreakableArmor;
bonus2 bAddSize,Size_Medium,10;
bonus2 bAddSize,Size_Large,10;
bonus2 bMagicAddSize,Size_Medium,10;
bonus2 bMagicAddSize,Size_Large,10;
if (.@r > 6) {
   bonus2 bAddEle,Ele_Fire,10;
   bonus2 bAddEle,Ele_Dark,10;
   bonus2 bMagicAddEle,Ele_Fire,10;
   bonus2 bMagicAddEle,Ele_Dark,10;
}
if (.@r > 8) {
   bonus2 bSubRace,RC_Dragon,15;
   bonus2 bSubRace,RC_Formless,15;
}
if (.@r > 10) {
   bonus2 bSubSize,Size_Medium,10;
   bonus2 bSubSize,Size_Large,10;
}