Evil Curse Shadow Earring

Item ID 24658 Name Evil Curse Shadow Earring
A sacred earring which is believed to protect its wearer. It also draws the wearer's potential abilities.
_______________________
Increases Magical Damage with Shadow element by 3%.
_______________________
Refine Level +7:
Increases Magical Damage with Shadow element by additional 3%.
_______________________
Refine Level +9:
Increases Magical Damage with Shadow element by additional 4%.
_______________________
When equipped with Evil Curse Shadow Pendant and 9Evil Curse Shadow Shoes:
For each Refine Level of entire set:
Increases damage of Curse Explosion by 1%.
_______________________
When equipped with oul Reaper Shadow Armor:
Ignores magic defense of all race, except Players, by 40%.

For each Refine Level of entire set:
Ignores magic defense of all race, except Players, by additional 1%.
_______________________
Type: Shadow Earring
_______________________
Requirement:
Base Level 99
Soul Reaper
Weapon Level 0 Identifier S_Evilcurse_Earring
Attack 0 Type Shadow Equipment
MATK 0 Equip Locations Shadow Accessory Right (Earring)
Defense 0 Equippable Jobs Soul Linker
Range 0 Equip Gender Both (Male and Female)
Slots 0 Equip Upper None
Weight 0 Min Equip Level 99
NPC Buy 0 Max Equip Level None
NPC Sell 0 Refineable Yes
Credit Price None Trade restriction None
Item Script 
.@r = getrefine();
bonus bMaxHP,.@r*10;
if (.@r>=9) {
   bonus2 bMagicAtkEle,Ele_Dark,10;
}
else if (.@r>=7) {
   bonus2 bMagicAtkEle,Ele_Dark,6;
}
else {
   bonus2 bMagicAtkEle,Ele_Dark,3;
}

Set Script
Evil Curse Shadow Earring
Soul Reaper Shadow Armor 
.@sum = getequiprefinerycnt(EQI_SHADOW_ACC_R)+getequiprefinerycnt(EQI_SHADOW_ARMOR);
bonus2 bIgnoreMdefRaceRate,RC_All,40+.@sum;
bonus2 bIgnoreMdefRaceRate,RC_Player_Human,-40-.@sum;
bonus2 bIgnoreMdefRaceRate,RC_Player_Doram,-40-.@sum;
Evil Curse Shadow Earring
Evil Curse Shadow Pendant
Evil Curse Shadow Shoes 
.@sum = getequiprefinerycnt(EQI_SHADOW_ACC_R)+getequiprefinerycnt(EQI_SHADOW_ACC_L)+getequiprefinerycnt(EQI_SHADOW_SHOES);
bonus2 bSkillAtk,"SP_CURSEEXPLOSION",.@sum;