Einherjar Armor

Item ID 15189 Name Einherjar Armor
A suit of armor wore by Odin warriors whose fought against giants.
_______________________
MDEF +5
ATK +10
_______________________
Decreases damage taken from Demi-Human race by 1%.
_______________________
Refine Level +7:
Decreases damage taken from Demi-Human race by additional 2%.
_______________________
Refine Level +8:
Decreases damage taken from Demi-Human race by additional 2%.
_______________________
Refine Level +9:
Decreases damage taken from Demi-Human race by additional 2%.
_______________________
When compounded with Evil Druid Card:
Refine Level +9:
Prevents Curse status.
_______________________
When equipped with Manteau of The Fallen:
For each Refine Level of Manteau of The Fallen:
ATK +3

Refine Level of Manteau of The Fallen is +7 or higher:
For each 10 base STR:
ATK +5

Refine Level of Manteau of The Fallen is +8 or higher:
For each 10 base STR:
ATK +7
_______________________
Type: Armor
Defense: 60
Weight: 80
Armor Level: 1
_______________________
Requirement:
Base Level 90
Weapon Level 0 Identifier Einherial_Armor
Attack 0 Type Armor
MATK 0 Equip Locations Armor
Defense 60 Equippable Jobs None
Range 0 Equip Gender Both (Male and Female)
Slots 1 Equip Upper None
Weight 80 Min Equip Level 90
NPC Buy 20 Max Equip Level None
NPC Sell 10 Refineable Yes
Credit Price None Trade restriction None
Item Script 
bonus bMdef,5;
bonus bBaseAtk,10;
.@r = getrefine();
if (.@r>=7) {
   bonus2 bSubRace,RC_DemiHuman,2;
}
if (.@r>=8) {
   bonus2 bSubRace,RC_DemiHuman,2;
}
if (.@r>=9) {
   bonus2 bSubRace,RC_DemiHuman,2;
}

Set Script
Einherjar Armor
Fallen Warrior Manteau 
.@r = getequiprefinerycnt(EQI_GARMENT);
bonus bBaseAtk,3*.@r;
if (.@r >= 7)
   bonus bBaseAtk,5*(readparam(bStr)/10);
   if (.@r >= 8)
      bonus bBaseAtk,7*(readparam(bStr)/10);
Einherjar Armor
Fallen Warrior Manteau 
.@r = getequiprefinerycnt(EQI_GARMENT);
bonus bBaseAtk,3*.@r;
if (.@r >= 7)
   bonus bBaseAtk,5*(readparam(bStr)/10);
   if (.@r >= 8)
      bonus bBaseAtk,7*(readparam(bStr)/10);
Einherjar Armor
Evil Druid Card 
if (getequiprefinerycnt(EQI_ARMOR) >= 9)
   bonus2 bResEff,Eff_Curse,10000;