Super Novice Shadow Shield

Item ID 24318 Name Super Novice Shadow Shield
A small shield worn on the arm for additional defense. Needs a complete set to have bonus effect.
_______________________
MaxHP +1000
MaxSP +200
_______________________
For each Level of Double Attack:
Increases Attack Speed (decreases After Attack Delay by 2%).
_______________________
For each Level of Owl's Eye:
Decreases Variable Casting Time by 2%.
_______________________
For each Refine Level:
Increases Attack Speed (decreases After Attack Delay by 1%).
Decreases Variable Casting Time by 1%.
_______________________
Refine Level +7:
ATK +2%
MATK +2%
_______________________
Refine Level +9:
ATK +3%
MATK +3%
_______________________
When equipped with Super Novice Shadow Weapon:
All Basic Stats +3
MaxHP +2%
MaxSP +2%
Decreases SP Consumption by 10%.
_______________________
Type: Shadow Shield
_______________________
Requirement:
Novice
Weapon Level 0 Identifier S_SuperNovice_Shield
Attack 0 Type Shadow Equipment
MATK 0 Equip Locations Shadow Shield
Defense 0 Equippable Jobs Novice, Super novice
Range 0 Equip Gender Both (Male and Female)
Slots 0 Equip Upper None
Weight 0 Min Equip Level 1
NPC Buy 10 Max Equip Level None
NPC Sell 5 Refineable Yes
Credit Price None Trade restriction None
Item Script 
.@r = getrefine();
bonus bMaxHP,.@r*10;
bonus bMaxHP,1000;
bonus bMaxSP,200;
bonus bAspdRate,(2*getskilllv("TF_DOUBLE")+.@r);
bonus bVariableCastrate,-(2*getskilllv("AC_OWL")+.@r);
if (.@r>=7) {
   bonus bAtkRate,2;
   bonus bMatkRate,2;
}
if (.@r>=9) {
   bonus bAtkRate,3;
   bonus bMatkRate,3;
}

Set Script
Super Novice Shadow Weapon
Super Novice Shadow Shield 
bonus bMaxHPrate,2;
bonus bMaxSPrate,2;
bonus bAllStats,3;
bonus bUseSPrate,-10;
Super Power Shadow Weapon
Super Novice Shadow Shield 
.@sum = getequiprefinerycnt(EQI_SHADOW_WEAPON)+getequiprefinerycnt(EQI_SHADOW_SHIELD);
bonus2 bIgnoreDefRaceRate,RC_All,40+.@sum;
bonus2 bIgnoreDefRaceRate,RC_Player_Human,-40-.@sum;
bonus2 bIgnoreDefRaceRate,RC_Player_Doram,-40-.@sum;