EQ2EMu/server/SpawnScripts/Generic/SubClassToCommoner.lua

--[[
    Script Name    : SpawnScripts/Generic/SubClassToCommoner.lua
    Script Author  : Dorbin
    Script Date    : 2022.09.11 04:09:45
    Script Purpose : For converting to a Commoner (naked) from a starting character's subclass.  Newer clients start as subclasses.
                   : 
--]]





function RemoveGear(NPC,player)
if HasItem(player,20903) then
    RemoveItem(player,20903,1)
end   
if HasItem(player,20921) then
    RemoveItem(player,20921,1)
end   
UnequipSlot(player,0)
UnequipSlot(player,1)  
UnequipSlot(player,3)  
UnequipSlot(player,6)  
UnequipSlot(player,7)  
UnequipSlot(player,8)  
UnequipSlot(player,16)  
UnequipSlot(player,17)  
UnequipSlot(player,20)  
UnequipSlot(player,22)  
UnequipSlot(player, 23) 


Qeynos = GetFactionAmount(player, 11)
Freeport = GetFactionAmount(player, 12)
Neriak = GetFactionAmount(player, 13)
Kelethin = GetFactionAmount(player, 14)
Halas = GetFactionAmount(player, 16)
Gorowyn = GetFactionAmount(player, 17)
alignment = GetAlignment(player)

if GetRace(player) == 0 or GetRace(player) == 3 or GetRace(player) == 5 or GetRace(player) == 6 or GetRace(player) == 9 or GetRace(player) == 11 or GetRace(player) == 20 then
SetAlignment(player, 2)
end

if Qeynos >0 then ChangeFaction(player, 11, -Qeynos)
    elseif Qeynos <0 then ChangeFaction(player, 11, (Qeynos*-1))
end
if Freeport >0 then ChangeFaction(player, 12, -Freeport)
    elseif Freeport <0 then ChangeFaction(player, 12, (Freeport*-1))
end
if Neriak >0 then ChangeFaction(player, 13, -Neriak)
    elseif Neriak <0 then ChangeFaction(player, 13, (Neriak*-1))
end
if Kelethin >0 then ChangeFaction(player, 14, -Kelethin)
    elseif Kelethin <0 then  ChangeFaction(player, 14, (Kelethin*-1))
end
if Halas >0 then ChangeFaction(player, 16, -Halas)
    elseif Halas <0 then ChangeFaction(player, 16, (Halas*-1))
end
if Gorowyn >0 then ChangeFaction(player, 17, -Gorowyn)
    elseif Gorowyn <0 then ChangeFaction(player, 17, (Gorowyn*-1))
end

--[[
Qfighters = GetFactionAmount(player,214)
Qpriests = GetFactionAmount(player,155)
Qscouts = GetFactionAmount(player, 243)
Qmages = GetFactionAmount(player, 136)

FPfighters = GetFactionAmount(player,102)
FPpriests = GetFactionAmount(player,105)
FPscouts = GetFactionAmount(player, 103)
FPmages = GetFactionAmount(player, 104)

if Qfighters >0 then ChangeFaction(player, 214, -Qfighters)
    else ChangeFaction(player, 214, (Qfighters*-1))
end
if Qpriests >0 then ChangeFaction(player, 155, -Qpriests)
    else ChangeFaction(player, 155, (Qpriests*-1))
end
if Qscouts >0 then ChangeFaction(player, 243, -Qscouts)
    else ChangeFaction(player, 243, (Qscouts*-1))
end
if Qmages >0 then ChangeFaction(player, 102, -Qmages)
    else ChangeFaction(player, 102, (Qmages*-1))
end
if FPfighters >0 then ChangeFaction(player, 16, -FPfighters)
    else ChangeFaction(player, 16, (FPfighters*-1))
end
if FPpriests >0 then ChangeFaction(player, 105, -FPpriests)
    else ChangeFaction(player, 105, (FPpriests*-1))
end
if FPscouts >0 then ChangeFaction(player, 103, -FPscouts)
    else ChangeFaction(player, 103, (FPscouts*-1))
end
if FPmages >0 then ChangeFaction(player, 104, -FPmages)
    else ChangeFaction(player, 104, (FPmages*-1))
end
]]--
AddTimer(NPC,500,"Removal",1,player)
AddTimer(NPC,1000,"SkillSwitch",1,player)
end

function Removal(NPC,player)
if HasItem(player,134899) then
    RemoveItem(player,134899,1)
end
if HasItem(player,71041) then
    RemoveItem(player,71041,1)
end
if HasItem(player,134900) then
    RemoveItem(player,134900,1)
end
if HasItem(player,134901) then
    RemoveItem(player,134901,1)
end
if HasItem(player,186964) then
    RemoveItem(player,186964,1)
end
if HasItem(player,89436) then
    RemoveItem(player,89436,1)
end
if HasItem(player,36211) then
    RemoveItem(player,36211,20)
end
if HasItem(player,144517) then
    RemoveItem(player,144517,1)
end
if HasItem(player,144516) then
    RemoveItem(player,144516,1)
end
if HasItem(player,184887) then
    RemoveItem(player,184887,1)
end
if HasItem(player,184889) then
    RemoveItem(player,184889,1)
end
if HasItem(player,184886) then
    RemoveItem(player,184886,1)
end
if HasItem(player,88905) then
    RemoveItem(player,88905,1)
end
if HasItem(player,154403) then
    RemoveItem(player,154403,1)
end
if HasItem(player,154402) then
    RemoveItem(player,154402,1)
end
if HasItem(player,154401) then
    RemoveItem(player,154401,1)
end
if HasItem(player,79258) then
    RemoveItem(player,79258,1)
end
if HasItem(player,160641) then
    RemoveItem(player,160641,1)
end
if HasItem(player,20921) then
    RemoveItem(player,20921,1)
end
if HasItem(player,160638) then
    RemoveItem(player,160638,1)
end
if HasItem(player,83260) then
    RemoveItem(player,83260,1)
end
if HasItem(player,189954) then
    RemoveItem(player,189954,1)
end
if HasItem(player,189955) then
    RemoveItem(player,189955,1)
end
if HasItem(player,189953) then
    RemoveItem(player,189953,1)
end
if HasItem(player,90087) then
    RemoveItem(player,90087,1)
end
if HasItem(player,139787) then
    RemoveItem(player,139787,1)
end
if HasItem(player,139788) then
    RemoveItem(player,139788,1)
end
if HasItem(player,139789) then
    RemoveItem(player,139789,1)
end
if HasItem(player,73251) then
    RemoveItem(player,73251,1)
end
if HasItem(player,158994) then
    RemoveItem(player,158994,1)
end
if HasItem(player,158995) then
    RemoveItem(player,158995,1)
end
if HasItem(player,158996) then
    RemoveItem(player,158996,1)
end
if HasItem(player,80159) then
    RemoveItem(player,80159,1)
end
if HasItem(player,164838) then
    RemoveItem(player,164838,1)
end
if HasItem(player,164839) then
    RemoveItem(player,164839,1)
end
if HasItem(player,164841) then
    RemoveItem(player,164841,1)
end
if HasItem(player,43203) then
    RemoveItem(player,43203,1)
end
if HasItem(player,84307) then
    RemoveItem(player,84307,1)
end
if HasItem(player,84307) then
    RemoveItem(player,84307,1)
end
if HasItem(player,20530) then
    RemoveItem(player,20530,1)
end
if HasItem(player,160639) then
    RemoveItem(player,160639,1)
end
if HasItem(player,86297) then
    RemoveItem(player,86297,1)
end
if HasItem(player,176518) then
    RemoveItem(player,176518,1)
end
if HasItem(player,176519) then
    RemoveItem(player,176519,1)
end
if HasItem(player,176520) then
    RemoveItem(player,176520,1)
end
if HasItem(player,54189) then
    RemoveItem(player,54189,1)
end
if HasItem(player,36684) then
    RemoveItem(player,36684,1)
end
if HasItem(player,157226) then
    RemoveItem(player,157226,1)
end
if HasItem(player,157229) then
    RemoveItem(player,157229,1)
end
if HasItem(player,157225) then
    RemoveItem(player,157225,1)
end
if HasItem(player,79782) then
    RemoveItem(player,79782,1)
end
if HasItem(player,52601) then
    RemoveItem(player,52601,1)
end
if HasItem(player,137308) then
    RemoveItem(player,137308,1)
end
if HasItem(player,137307) then
    RemoveItem(player,137307,1)
end
if HasItem(player,137306) then
    RemoveItem(player,137306,1)
end
if HasItem(player,40228) then
    RemoveItem(player,40228,1)
end
if HasItem(player,20538) then
    RemoveItem(player,20538,1)
end
if HasItem(player,72751) then
    RemoveItem(player,72751,1)
end
if HasItem(player,135223) then
    RemoveItem(player,135223,1)
end
if HasItem(player,135225) then
    RemoveItem(player,135225,1)
end
if HasItem(player,135227) then
    RemoveItem(player,135227,1)
end
if HasItem(player,71059) then
    RemoveItem(player,71059,1)
end
if HasItem(player,43528) then
    RemoveItem(player,43528,1)
end
if HasItem(player,20527) then
    RemoveItem(player,20527,1)
end
if HasItem(player,168902) then
    RemoveItem(player,168902,1)
end
if HasItem(player,168903) then
    RemoveItem(player,168903,1)
end
if HasItem(player,168904) then
    RemoveItem(player,168904,1)
end
if HasItem(player,85113) then
    RemoveItem(player,85113,1)
end
if HasItem(player,53700) then
    RemoveItem(player,53700,1)
end
if HasItem(player,144058) then
    RemoveItem(player,144058,1)
end
if HasItem(player,144059) then
    RemoveItem(player,144059,1)
end
if HasItem(player,144060) then
    RemoveItem(player,144060,1)
end
if HasItem(player,75400) then
    RemoveItem(player,75400,1)
end
if HasItem(player,165131) then
    RemoveItem(player,165131,1)
end
if HasItem(player,165132) then
    RemoveItem(player,165132,1)
end
if HasItem(player,165135) then
    RemoveItem(player,165135,1)
end
if HasItem(player,84347) then
    RemoveItem(player,84347,1)
end
if HasItem(player,191144) then
    RemoveItem(player,191144,1)
end
if HasItem(player,191145) then
    RemoveItem(player,191145,1)
end
if HasItem(player,191146) then
    RemoveItem(player,191146,1)
end
if HasItem(player,90320) then
    RemoveItem(player,90320,1)
end
if HasItem(player,165457) then
    RemoveItem(player,165457,1)
end
if HasItem(player,84367) then
    RemoveItem(player,84367,1)
end
if HasItem(player,189973) then
    RemoveItem(player,189973,1)
end
if HasItem(player,189974) then
    RemoveItem(player,189974,1)
end
if HasItem(player,189975) then
    RemoveItem(player,189975,1)
end
if HasItem(player,90096) then
    RemoveItem(player,90096,1)
end
if HasItem(player,140141) then
    RemoveItem(player,140141,1)
end
if HasItem(player,140142) then
    RemoveItem(player,140142,1)
end
if HasItem(player,140143) then
    RemoveItem(player,140143,1)
end
if HasItem(player,73663) then
    RemoveItem(player,73663,1)
end
if HasItem(player,183463) then
    RemoveItem(player,183463,1)
end
if HasItem(player,183464) then
    RemoveItem(player,183464,1)
end
if HasItem(player,183465) then
    RemoveItem(player,183465,1)
end
if HasItem(player,88681) then
    RemoveItem(player,88681,1)
end
if HasItem(player,43534) then
    RemoveItem(player,43534,1)
end
if HasItem(player,20535) then
    RemoveItem(player,20535,1)
end
if HasItem(player,75509) then
    RemoveItem(player,75509,1)
end
if HasItem(player,43528) then
    RemoveItem(player,43528,1)
end
if HasItem(player,43528) then
    RemoveItem(player,43528,1)
end
if HasItem(player,20527) then
    RemoveItem(player,20527,1)
end
if HasItem(player,133757) then
    RemoveItem(player,133757,1)
end
if HasItem(player,133760) then
    RemoveItem(player,133760,1)
end
if HasItem(player,133761) then
    RemoveItem(player,133761,1)
end
if HasItem(player,70875) then
    RemoveItem(player,70875,1)
end
if HasItem(player,40189) then
    RemoveItem(player,40189,1)
end
if HasItem(player,20527) then
    RemoveItem(player,20527,1)
end
if HasItem(player,47635) then
    RemoveItem(player,47635,1)
end
if HasItem(player,47836) then
    RemoveItem(player,47836,1)
end
if HasItem(player,137128) then
    RemoveItem(player,137128,1)
end
if HasItem(player,137129) then
    RemoveItem(player,137129,1)
end
if HasItem(player,137130) then
    RemoveItem(player,137130,1)
end
if HasItem(player,72648) then
    RemoveItem(player,72648,1)
end
if HasItem(player,172484) then
    RemoveItem(player,172484,1)
end
if HasItem(player,172486) then
    RemoveItem(player,172486,1)
end
if HasItem(player,172487) then
    RemoveItem(player,172487,1)
end
if HasItem(player,85697) then
    RemoveItem(player,85697,1)
end
if HasItem(player,42288) then
    RemoveItem(player,42288,1)
end

end

function SkillSwitch(NPC,player)
if HasSkill(player, 366253016) then --Ministration
    RemoveSkill(player, 366253016)
end
if HasSkill(player, 613995491) then -- Disruption
    RemoveSkill(player, 613995491)
end
if HasSkill(player, 882983852) then -- Subjigation
    RemoveSkill(player, 882983852)
end
if HasSkill(player, 3587918036) then -- Ordination
    RemoveSkill(player, 3587918036)
end
if HasSkill(player, 2638198038) then -- Focus
    RemoveSkill(player, 2638198038)
end

if HasSkill(player, 723762198) then -- Aggression
    RemoveSkill(player, 723762198)
end
if HasSkill(player, 540022425) then -- Parry
    RemoveSkill(player, 540022425)
end
if HasSkill(player, 1852383242) then -- Dual Wield
    RemoveSkill(player, 1852383242)
end

if HasSkill(player, 3421494576) then -- Crushing
    RemoveSkill(player, 3421494576)
end
if HasSkill(player, 1756482397) then -- Ranged
    RemoveSkill(player, 1756482397)
end
if HasSkill(player, 3048574950) then -- Piercing
    RemoveSkill(player, 3048574950)
end
if HasSkill(player, 418532101) then -- Slashing
    RemoveSkill(player, 418532101)
end


if HasSkill(player, 609880714) then -- Defense
    RemoveSkill(player, 609880714)
end
if HasSkill(player, 540022425) then -- Parry
    RemoveSkill(player, 540022425)
end
if HasSkill(player, 2897193374) then -- Light Armor
    RemoveSkill(player, 2897193374)
end
if HasSkill(player, 2246237129) then -- Medium Armor
    RemoveSkill(player, 2246237129)
end
if HasSkill(player, 241174330) then -- Heavy Armor
    RemoveSkill(player, 241174330)
end



if HasSkill(player, 3659699625) then -- Mining
    RemoveSkill(player, 3659699625)
end
if HasSkill(player, 688591146) then -- Foresting
    RemoveSkill(player, 688591146)
end
if HasSkill(player, 1048513601) then -- Gathering
    RemoveSkill(player, 1048513601)
end
if HasSkill(player, 4158365743) then -- Trapping
    RemoveSkill(player, 4158365743)
end
if HasSkill(player, 2319450178) then -- Fishing
    RemoveSkill(player, 2319450178)
end
if HasSkill(player, 1970131346) then -- Transmuting
    RemoveSkill(player, 1970131346)
end
if HasSkill(player, 3429135390) then -- Mystical Destruction
    RemoveSkill(player, 3429135390)
end


--COMMONER GAINED SKILLS
if not HasSkill(player, 2072844078) then -- Magic Affinity
    AddSkill(player, 2072844078,1,5)
end
if not HasSkill(player, 3539032716) then -- Very Light Armor
    AddSkill(player, 3539032716,1,5)
end
if not HasSkill(player, 2383540775) then -- Spell Avoidance
    AddSkill(player, 2383540775,30,30)
end
if not HasSkill(player, 609880714) then -- Defense
    AddSkill(player, 609880714,30,30)
end

end