Ramor Manteau

Item ID 2598 Name Ramor Manteau
A magical cloak imbued with the power of immortality.
_______________________
Decreases damage taken from Undead elemental by 5%.
_______________________
Increases damage taken from monsters of Demi-Human race by 5%.
_______________________
When equipped with L'Amour Shield:
For each Refine Level of L'Amour Manteau:
Decreases damage taken from Demi-Human race by 1%.
_______________________
For each Refine Level of L'Amour Shield:
Increases Physical Damage against enemies of Undead element by 1%.
_______________________
When equipped with L'Amour Shoes:
Increases Physical Damage against enemies of Undead element by 5%.
_______________________
For each Refine Level of L'Amour 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 Ramor_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_Undead,5;
bonus2 bSubRace,RC_DemiHuman,-5;
if (vip_status(VIP_STATUS_ACTIVE)) {
   bonus bFlee,20;
}

Set Script
Lamor Shoes
Ramor Manteau 
bonus2 bAddRace,RC_Undead,5;
.@r_garment = getequiprefinerycnt(EQI_GARMENT);
bonus bMaxHPrate,.@r_garment;
bonus bMaxSPrate,.@r_garment;
Ramor Manteau
Ramor Shield 
bonus2 bSubRace,RC_DemiHuman,getequiprefinerycnt(EQI_GARMENT);
bonus2 bAddEle,Ele_Undead,getequiprefinerycnt(EQI_HAND_L);
bonus2 bMagicAddEle,Ele_Undead,getequiprefinerycnt(EQI_HAND_L);