47 lines
1.8 KiB
Lua
47 lines
1.8 KiB
Lua
|
--Universe Protection
|
||
|
|
local s,id=GetID()
|
||
|
|
function s.initial_effect(c)
|
||
|
|
local e1=Effect.CreateEffect(c)
|
||
|
|
e1:SetType(EFFECT_TYPE_ACTIVATE)
|
||
|
|
e1:SetCode(EVENT_FREE_CHAIN)
|
||
|
|
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
|
||
|
|
e1:SetCountLimit(1,id,EFFECT_COUNT_CODE_OATH)
|
||
|
|
e1:SetTarget(s.target)
|
||
|
|
e1:SetOperation(s.operation)
|
||
|
|
e1:SetHintTiming(0,TIMING_END_PHASE)
|
||
|
|
c:RegisterEffect(e1)
|
||
|
|
end
|
||
|
|
|
||
|
|
function s.filter(c,e,tp) --filter for target
|
||
|
|
return c:IsFaceup() and c:IsSetCard(0x25e)
|
||
|
|
end
|
||
|
|
|
||
|
|
function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
|
||
|
|
if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and s.filter(chkc,e,tp) end
|
||
|
|
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
|
||
|
|
and Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end
|
||
|
|
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
|
||
|
|
local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
|
||
|
|
end
|
||
|
|
|
||
|
|
function s.operation(e,tp,eg,ep,ev,re,r,rp)
|
||
|
|
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
|
||
|
|
local tc=Duel.GetFirstTarget()
|
||
|
|
local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp,tc:GetCode())
|
||
|
|
--Cannot be destroyed by battle or card effect
|
||
|
|
local e1=Effect.CreateEffect(e:GetHandler())
|
||
|
|
e1:SetDescription(3008)
|
||
|
|
e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
|
||
|
|
e1:SetType(EFFECT_TYPE_SINGLE)
|
||
|
|
e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
|
||
|
|
e1:SetValue(1)
|
||
|
|
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
|
||
|
|
g:GetFirst():RegisterEffect(e1)
|
||
|
|
local e2=Effect.CreateEffect(e:GetHandler())
|
||
|
|
e2:SetType(EFFECT_TYPE_SINGLE)
|
||
|
|
e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
|
||
|
|
e2:SetValue(1)
|
||
|
|
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
|
||
|
|
g:GetFirst():RegisterEffect(e2)
|
||
|
|
g:GetFirst():RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,2,0,aux.Stringid(id,0))
|
||
|
|
end
|