name: 聖剣を抱く王妃ギネヴィア
card_text: 「聖剣を抱く王妃ギネヴィア」の1の効果は1ターンに1度しか使用できない。
  1:自分フィールドの「聖騎士」モンスター1体を対象として発動できる。
  手札・墓地のこのカードを攻撃力300アップの装備カード扱いとしてその自分のモンスターに装備する。
  2:装備モンスターの属性によって以下の効果を得る。
  ●光:装備モンスターが効果で破壊される場合、代わりにこのカードを破壊できる。
  ●闇:装備モンスターが相手モンスターと戦闘を行うダメージステップ開始時に発動できる。
  そのモンスターを破壊する。
  その後このカードを破壊する。
external_ids: local SETCARD_ID_0 = 0x107a --聖騎士
  
lua: local SETCARD_ID_0 = 0x107a --聖騎士
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--equip
  	local e1 = Effect.CreateEffect(c)
  	e1:SetDescription(aux.Stringid(id, 0))
  	e1:SetType(EFFECT_TYPE_IGNITION)
  	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
  	e1:SetCategory(CATEGORY_EQUIP)
  	e1:SetRange(LOCATION_HAND + LOCATION_GRAVE)
  	e1:SetCountLimit(1, id)
  	e1:SetTarget(s.eqtg)
  	e1:SetOperation(s.eqop)
  	c:RegisterEffect(e1)
  	--destroy sub
  	local e3 = Effect.CreateEffect(c)
  	e3:SetType(EFFECT_TYPE_EQUIP + EFFECT_TYPE_CONTINUOUS)
  	e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
  	e3:SetCode(EFFECT_DESTROY_REPLACE)
  	e3:SetTarget(s.reptg)
  	e3:SetOperation(s.repop)
  	c:RegisterEffect(e3)
  	--destroy
  	local e4 = Effect.CreateEffect(c)
  	e4:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_TRIGGER_O)
  	e4:SetCategory(CATEGORY_DESTROY)
  	e4:SetCode(EVENT_BATTLE_START)
  	e4:SetRange(LOCATION_SZONE)
  	e4:SetCondition(s.descon)
  	e4:SetTarget(s.destg)
  	e4:SetOperation(s.desop)
  	c:RegisterEffect(e4)
  end
  function s.filter(c)
  	return c:IsFaceup() and c:IsSetCard(SETCARD_ID_0)
  end
  function s.eqtg(e, tp, eg, ep, ev, re, r, rp, chk, chkc)
  	if chkc then
  		return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.filter(chkc)
  	end
  	if chk == 0 then
  		return Duel.GetLocationCount(tp, LOCATION_SZONE) > 0 and Duel.IsExistingTarget(s.filter, tp, LOCATION_MZONE, 0, 1, nil)
  	end
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_EQUIP)
  	Duel.SelectTarget(tp, s.filter, tp, LOCATION_MZONE, 0, 1, 1, nil)
  	if e:GetHandler():IsLocation(LOCATION_GRAVE) then
  		Duel.SetOperationInfo(0, CATEGORY_LEAVE_GRAVE, e:GetHandler(), 1, 0, 0)
  	end
  end
  function s.eqop(e, tp, eg, ep, ev, re, r, rp)
  	local c = e:GetHandler()
  	if not c:IsRelateToEffect(e) then
  		return
  	end
  	local tc = Duel.GetFirstTarget()
  	if Duel.GetLocationCount(tp, LOCATION_SZONE) <= 0 or tc:IsControler(1 - tp) or tc:IsFacedown() or not tc:IsRelateToEffect(e) then
  		Duel.SendtoGrave(c, REASON_EFFECT)
  		return
  	end
  	Duel.Equip(tp, c, tc)
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_SINGLE)
  	e1:SetCode(EFFECT_EQUIP_LIMIT)
  	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
  	e1:SetReset(RESET_EVENT + RESETS_STANDARD)
  	e1:SetValue(s.eqlimit)
  	c:RegisterEffect(e1)
  	local e2 = Effect.CreateEffect(c)
  	e2:SetType(EFFECT_TYPE_EQUIP)
  	e2:SetCode(EFFECT_UPDATE_ATTACK)
  	e2:SetValue(300)
  	e2:SetReset(RESET_EVENT + RESETS_STANDARD)
  	c:RegisterEffect(e2)
  end
  function s.eqlimit(e, c)
  	return c:IsSetCard(SETCARD_ID_0)
  end
  function s.reptg(e, tp, eg, ep, ev, re, r, rp, chk)
  	local c = e:GetHandler()
  	local tc = c:GetEquipTarget()
  	if chk == 0 then
  		return bit.band(r, REASON_EFFECT) ~= 0 and tc and tc:IsAttribute(ATTRIBUTE_LIGHT) and c:IsDestructable(e) and not c:IsStatus(STATUS_DESTROY_CONFIRMED) and not tc:IsReason(REASON_REPLACE)
  	end
  	return Duel.SelectEffectYesNo(e:GetOwnerPlayer(), c, 96)
  end
  function s.repop(e, tp, eg, ep, ev, re, r, rp)
  	Duel.Destroy(e:GetHandler(), REASON_EFFECT + REASON_REPLACE)
  end
  function s.descon(e, tp, eg, ep, ev, re, r, rp)
  	local tg = e:GetHandler():GetEquipTarget()
  	return tg and tg:IsAttribute(ATTRIBUTE_DARK) and (Duel.GetAttacker() == tg or Duel.GetAttackTarget() == tg)
  end
  function s.destg(e, tp, eg, ep, ev, re, r, rp, chk)
  	local c = e:GetHandler()
  	local tc = c:GetEquipTarget():GetBattleTarget()
  	if chk == 0 then
  		return tc and tc:IsControler(1 - tp)
  	end
  	local g = Group.FromCards(tc, c)
  	Duel.SetOperationInfo(0, CATEGORY_DESTROY, g, g:GetCount(), 0, 0)
  end
  function s.desop(e, tp, eg, ep, ev, re, r, rp)
  	local c = e:GetHandler()
  	if not c:IsRelateToEffect(e) then
  		return
  	end
  	local tc = c:GetEquipTarget():GetBattleTarget()
  	if tc:IsRelateToBattle() and Duel.Destroy(tc, REASON_EFFECT) ~= 0 then
  		Duel.BreakEffect()
  		Duel.Destroy(c, REASON_EFFECT)
  	end
  end
  
  
source_text: 聖剣を抱く王妃ギネヴィア
  「聖剣を抱く王妃ギネヴィア」の1の効果は1ターンに1度しか使用できない。
  1:自分フィールドの「聖騎士」モンスター1体を対象として発動できる。
  手札・墓地のこのカードを攻撃力300アップの装備カード扱いとしてその自分のモンスターに装備する。
  2:装備モンスターの属性によって以下の効果を得る。
  ●光:装備モンスターが効果で破壊される場合、代わりにこのカードを破壊できる。
  ●闇:装備モンスターが相手モンスターと戦闘を行うダメージステップ開始時に発動できる。
  そのモンスターを破壊する。
  その後このカードを破壊する。
target_text: -- 聖剣を抱く王妃ギネヴィア
  local SETCARD_ID_0 = 0x107a --聖騎士
  local s, id, o = GetID()
  function s.initial_effect(c)
  	--equip
  	local e1 = Effect.CreateEffect(c)
  	e1:SetDescription(aux.Stringid(id, 0))
  	e1:SetType(EFFECT_TYPE_IGNITION)
  	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
  	e1:SetCategory(CATEGORY_EQUIP)
  	e1:SetRange(LOCATION_HAND + LOCATION_GRAVE)
  	e1:SetCountLimit(1, id)
  	e1:SetTarget(s.eqtg)
  	e1:SetOperation(s.eqop)
  	c:RegisterEffect(e1)
  	--destroy sub
  	local e3 = Effect.CreateEffect(c)
  	e3:SetType(EFFECT_TYPE_EQUIP + EFFECT_TYPE_CONTINUOUS)
  	e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
  	e3:SetCode(EFFECT_DESTROY_REPLACE)
  	e3:SetTarget(s.reptg)
  	e3:SetOperation(s.repop)
  	c:RegisterEffect(e3)
  	--destroy
  	local e4 = Effect.CreateEffect(c)
  	e4:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_TRIGGER_O)
  	e4:SetCategory(CATEGORY_DESTROY)
  	e4:SetCode(EVENT_BATTLE_START)
  	e4:SetRange(LOCATION_SZONE)
  	e4:SetCondition(s.descon)
  	e4:SetTarget(s.destg)
  	e4:SetOperation(s.desop)
  	c:RegisterEffect(e4)
  end
  function s.filter(c)
  	return c:IsFaceup() and c:IsSetCard(SETCARD_ID_0)
  end
  function s.eqtg(e, tp, eg, ep, ev, re, r, rp, chk, chkc)
  	if chkc then
  		return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and s.filter(chkc)
  	end
  	if chk == 0 then
  		return Duel.GetLocationCount(tp, LOCATION_SZONE) > 0 and Duel.IsExistingTarget(s.filter, tp, LOCATION_MZONE, 0, 1, nil)
  	end
  	Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_EQUIP)
  	Duel.SelectTarget(tp, s.filter, tp, LOCATION_MZONE, 0, 1, 1, nil)
  	if e:GetHandler():IsLocation(LOCATION_GRAVE) then
  		Duel.SetOperationInfo(0, CATEGORY_LEAVE_GRAVE, e:GetHandler(), 1, 0, 0)
  	end
  end
  function s.eqop(e, tp, eg, ep, ev, re, r, rp)
  	local c = e:GetHandler()
  	if not c:IsRelateToEffect(e) then
  		return
  	end
  	local tc = Duel.GetFirstTarget()
  	if Duel.GetLocationCount(tp, LOCATION_SZONE) <= 0 or tc:IsControler(1 - tp) or tc:IsFacedown() or not tc:IsRelateToEffect(e) then
  		Duel.SendtoGrave(c, REASON_EFFECT)
  		return
  	end
  	Duel.Equip(tp, c, tc)
  	local e1 = Effect.CreateEffect(c)
  	e1:SetType(EFFECT_TYPE_SINGLE)
  	e1:SetCode(EFFECT_EQUIP_LIMIT)
  	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
  	e1:SetReset(RESET_EVENT + RESETS_STANDARD)
  	e1:SetValue(s.eqlimit)
  	c:RegisterEffect(e1)
  	local e2 = Effect.CreateEffect(c)
  	e2:SetType(EFFECT_TYPE_EQUIP)
  	e2:SetCode(EFFECT_UPDATE_ATTACK)
  	e2:SetValue(300)
  	e2:SetReset(RESET_EVENT + RESETS_STANDARD)
  	c:RegisterEffect(e2)
  end
  function s.eqlimit(e, c)
  	return c:IsSetCard(SETCARD_ID_0)
  end
  function s.reptg(e, tp, eg, ep, ev, re, r, rp, chk)
  	local c = e:GetHandler()
  	local tc = c:GetEquipTarget()
  	if chk == 0 then
  		return bit.band(r, REASON_EFFECT) ~= 0 and tc and tc:IsAttribute(ATTRIBUTE_LIGHT) and c:IsDestructable(e) and not c:IsStatus(STATUS_DESTROY_CONFIRMED) and not tc:IsReason(REASON_REPLACE)
  	end
  	return Duel.SelectEffectYesNo(e:GetOwnerPlayer(), c, 96)
  end
  function s.repop(e, tp, eg, ep, ev, re, r, rp)
  	Duel.Destroy(e:GetHandler(), REASON_EFFECT + REASON_REPLACE)
  end
  function s.descon(e, tp, eg, ep, ev, re, r, rp)
  	local tg = e:GetHandler():GetEquipTarget()
  	return tg and tg:IsAttribute(ATTRIBUTE_DARK) and (Duel.GetAttacker() == tg or Duel.GetAttackTarget() == tg)
  end
  function s.destg(e, tp, eg, ep, ev, re, r, rp, chk)
  	local c = e:GetHandler()
  	local tc = c:GetEquipTarget():GetBattleTarget()
  	if chk == 0 then
  		return tc and tc:IsControler(1 - tp)
  	end
  	local g = Group.FromCards(tc, c)
  	Duel.SetOperationInfo(0, CATEGORY_DESTROY, g, g:GetCount(), 0, 0)
  end
  function s.desop(e, tp, eg, ep, ev, re, r, rp)
  	local c = e:GetHandler()
  	if not c:IsRelateToEffect(e) then
  		return
  	end
  	local tc = c:GetEquipTarget():GetBattleTarget()
  	if tc:IsRelateToBattle() and Duel.Destroy(tc, REASON_EFFECT) ~= 0 then
  		Duel.BreakEffect()
  		Duel.Destroy(c, REASON_EFFECT)
  	end
  end
  
  