Sombre Manteau

Item ID 2595 Name Sombre Manteau
A mysterious manteau with the power of darkness.
_______________________
Decreases damage taken from Shadow elemental by 5%.
_______________________
Increases damage taken from monsters of Undead race by 5%.
_______________________
When equipped with Sombre Shield:
For each Refine Level of Sombre Manteau:
Decreases damage taken from Undead race by 1%.
_______________________
For each Refine Level of Sombre Shield:
Increases Physical Damage against enemies of Shadow elemental by 1%.
_______________________
When equipped with Sombre Shoes:
Increases Physical Damage against enemies of Shadow elemental by 5%.
_______________________
For each Refine Level of Sombre Manteau:
MaxHP +1%
MaxSP +1%
_______________________
When VIP status active:
FLEE +20
_______________________
Type: Garment
Defense: 20
Weight: 70
Armor Level: 1
_______________________
Requirement:
Base Level 65
Weapon Level 0 Identifier Sombre_Manteau
Attack 0 Type Armor
MATK 0 Equip Locations Garment
Defense 20 Equippable Jobs None
Range 0 Equip Gender Both (Male and Female)
Slots 1 Equip Upper None
Weight 70 Min Equip Level 65
NPC Buy 20 Max Equip Level None
NPC Sell 10 Refineable Yes
Credit Price None Trade restriction None
Item Script 
bonus2 bSubEle,Ele_Dark,5;
bonus2 bSubRace,RC_Undead,-5;
if (vip_status(VIP_STATUS_ACTIVE)) {
   bonus bFlee,20;
}

Set Script
Sombre Manteau
Sombre Shield 
bonus2 bSubRace,RC_Undead,getequiprefinerycnt(EQI_GARMENT);
bonus2 bAddEle,Ele_Dark,getequiprefinerycnt(EQI_HAND_L);
bonus2 bMagicAddEle,Ele_Dark,getequiprefinerycnt(EQI_HAND_L);
Sombre Shoes
Sombre Manteau 
bonus2 bAddEle,Ele_Dark,5;
bonus2 bMagicAddEle,Ele_Dark,5;
.@r_garment = getequiprefinerycnt(EQI_GARMENT);
bonus bMaxHPrate,.@r_garment;
bonus bMaxSPrate,.@r_garment;