【筱游戏王】超辛苦终于做出的影之诗露娜游戏王卡片脚本分享

这张卡简直不是人做的！！！原效果我做着做着改了七八遍才终于妥协的做好了。我的语言已经无法形容这张卡有多难做了。

做了张日文版，效果太多写不上去，可以扫码也可以看下面。

顺带一提，「这张卡不用这张卡的①方法不能超量召唤」这个东西我现在还不知道怎么搞，或者说我懒的搞了。

这张卡不用这张卡的①方法不能超量召唤。这个卡名的③④效果1回合只能使用1次。墓地的这张卡也当做不死族使用。

①：对方怪兽的攻击宣言时，支付一半基本分才能发动。这张卡超量召唤，把战斗的对方怪兽重叠在这张卡下面作为超量素材。对方不能对应这个效果的发动把卡发动。

②：这张卡的攻击力上升自己墓地的「影之诗」怪兽数量×300。

③：以对方场上1只怪兽特殊召唤的怪兽为对象才能发动。那只怪兽重叠在这张卡下面作为这张卡的超量素材。

④：把这张卡1个超量素材取除才能发动。从卡组选1张卡送去墓地。这个效果在对方回合也能发动。

⑤：要让场上的卡破坏的魔法·陷阱·效果怪兽的效果发动时，把这张卡解放才能发动。那个发动无效并破坏。

⑥：这张卡被战斗·效果破坏时，以自己·对方墓地1只「唤灵」怪兽为对象才能发动。那只怪兽特殊召唤。

⑦：这张卡在墓地存在，以这张卡以外自己墓地1张「唤灵」卡为对象才能发动。这张卡回到额外卡组，作为对象的怪兽加入手卡。

如果有人想先玩一下这张卡，你可以把这张卡先录入你的YGO里，lua脚本数据在下面。

不知道怎么录？你没看过我发的写卡视频当然不知道啊。

function c77135641.initial_effect(c)

--Attribute Dark

local e0=Effect.CreateEffect(c)

e0:SetType(EFFECT_TYPE_SINGLE)

e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)

e0:SetCode(EFFECT_CHANGE_RACE)

e0:SetValue(RACE_ZOMBIE)

e0:SetRange(LOCATION_GRAVE)

c:RegisterEffect(e0)

--sp

local e1=Effect.CreateEffect(c)

e1:SetCategory(CATEGORY_SPECIAL_SUMMON)

e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD)

e1:SetRange(LOCATION_EXTRA)

e1:SetCode(EVENT_ATTACK_ANNOUNCE)

e1:SetCost(c77135641.cost)

e1:SetCondition(c77135641.condition)

e1:SetTarget(c77135641.target)

e1:SetOperation(c77135641.operation)

c:RegisterEffect(e1)

--atkup

local e2=Effect.CreateEffect(c)

e2:SetType(EFFECT_TYPE_SINGLE)

e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)

e2:SetCode(EFFECT_UPDATE_ATTACK)

e2:SetRange(LOCATION_MZONE)

e2:SetValue(c77135641.atkval)

c:RegisterEffect(e2)

--material

local e3=Effect.CreateEffect(c)

e3:SetDescription(aux.Stringid(77135641,0))

e3:SetType(EFFECT_TYPE_IGNITION)

e3:SetProperty(EFFECT_FLAG_CARD_TARGET)

e3:SetRange(LOCATION_MZONE)

e3:SetCountLimit(1,77135641)

e3:SetTarget(c77135641.target1)

e3:SetOperation(c77135641.operation1)

c:RegisterEffect(e3)

--Negate

local e4=Effect.CreateEffect(c)

e4:SetDescription(aux.Stringid(77135641,1))

e4:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)

e4:SetType(EFFECT_TYPE_QUICK_O)

e4:SetCode(EVENT_CHAINING)

e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)

e4:SetRange(LOCATION_MZONE)

e4:SetCondition(c77135641.condition2)

e4:SetCost(c77135641.cost2)

e4:SetTarget(c77135641.target2)

c:RegisterEffect(e4)

--spsummon

local e5=Effect.CreateEffect(c)

e5:SetDescription(aux.Stringid(77135641,2))

e5:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)

e5:SetProperty(EFFECT_FLAG_CARD_TARGET)

e5:SetCategory(CATEGORY_SPECIAL_SUMMON)

e5:SetCode(EVENT_BATTLE_DESTROYED)

e5:SetCondition(c77135641.sumcon1)

e5:SetTarget(c77135641.sumtg1)

e5:SetOperation(c77135641.sumop1)

c:RegisterEffect(e5)

--to grave

local e6=Effect.CreateEffect(c)

e6:SetCategory(CATEGORY_TOGRAVE)

e6:SetType(EFFECT_TYPE_QUICK_O)

e6:SetRange(LOCATION_MZONE)

e6:SetCode(EVENT_FREE_CHAIN)

e6:SetHintTiming(0,TIMINGS_CHECK_MONSTER_E)

e6:SetCountLimit(1)

e6:SetCost(c77135641.tgcost)

e6:SetTarget(c77135641.tgtg)

e6:SetOperation(c77135641.tgop)

c:RegisterEffect(e6)

--to hand

local e7=Effect.CreateEffect(c)

e7:SetDescription(aux.Stringid(77135641,3))

e7:SetCategory(CATEGORY_TOEXTRA+CATEGORY_TOHAND)

e7:SetType(EFFECT_TYPE_IGNITION)

e7:SetRange(LOCATION_GRAVE)

e7:SetProperty(EFFECT_FLAG_CARD_TARGET)

e7:SetTarget(c77135641.thtg)

e7:SetOperation(c77135641.thop)

c:RegisterEffect(e7)

end

function c77135641.thfilter(c)

return c:IsSetCard(0x1513) and c:IsAbleToHand()

end

function c77135641.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)

if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c77135641.thfilter(chkc) and chkc~=e:GetHandler() end

if chk==0 then return e:GetHandler():IsAbleToExtra()

and Duel.IsExistingTarget(c77135641.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end

Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)

local g=Duel.SelectTarget(tp,c77135641.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())

Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)

Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,e:GetHandler(),1,0,0)

end

function c77135641.thop(e,tp,eg,ep,ev,re,r,rp)

local tc=Duel.GetFirstTarget()

local c=e:GetHandler()

if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)~=0

and c:IsLocation(LOCATION_EXTRA) and tc:IsRelateToEffect(e) then

Duel.SendtoHand(tc,nil,REASON_EFFECT)

end

end

function c77135641.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)

if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end

e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)

end

function c77135641.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)

if chk==0 then return e:GetHandler():GetFlagEffect(77135641)==0

and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_DECK,0,1,nil) end

Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)

end

function c77135641.tgop(e,tp,eg,ep,ev,re,r,rp)

Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)

local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_DECK,0,1,1,nil)

if g:GetCount()>0 then

Duel.SendtoGrave(g,REASON_EFFECT)

end

end

function c77135641.sumcon1(e,tp,eg,ep,ev,re,r,rp)

return e:GetHandler():GetLocation()==LOCATION_GRAVE

and bit.band(e:GetHandler():GetReason(),REASON_BATTLE+REASON_EFFECT)~=0

end

function c77135641.sumfilter(c,e,tp)

return c:IsSetCard(0x1513) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)

end

function c77135641.sumtg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)

if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c77135641.sumfilter(chkc,e,tp) end

if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0

and Duel.IsExistingTarget(c77135641.sumfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end

Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)

local g=Duel.SelectTarget(tp,c77135641.sumfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)

Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)

end

function c77135641.sumop1(e,tp,eg,ep,ev,re,r,rp)

local tc=Duel.GetFirstTarget()

if tc:IsRelateToEffect(e) then

Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)

end

end

function c77135641.filter(c)

return not c:IsType(TYPE_TOKEN) and c:IsAbleToChangeControler()

and c:IsSummonType(SUMMON_TYPE_SPECIAL)

end

function c77135641.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)

if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c77135641.filter(chkc) end

if chk==0 then return e:GetHandler():IsType(TYPE_XYZ) and Duel.IsExistingTarget(c77135641.filter,tp,0,LOCATION_MZONE,1,nil) end

Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)

Duel.SelectTarget(tp,c77135641.filter,tp,0,LOCATION_MZONE,1,1,nil)

end

function c77135641.operation1(e,tp,eg,ep,ev,re,r,rp)

local c=e:GetHandler()

local tc=Duel.GetFirstTarget()

if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then

local og=tc:GetOverlayGroup()

if og:GetCount()>0 then

Duel.SendtoGrave(og,REASON_RULE)

end

Duel.Overlay(c,Group.FromCards(tc))

end

end

function c77135641.atkfilter(c)

return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x512)

end

function c77135641.atkval(e,c)

return Duel.GetMatchingGroupCount(c77135641.atkfilter,c:GetControler(),LOCATION_GRAVE,0,nil)*300

end

function c77135641.cost(e,tp,eg,ep,ev,re,r,rp,chk)

if chk==0 then return true end

Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2))

end

function c77135641.condition(e,tp,eg,ep,ev,re,r,rp)

return tp~=Duel.GetTurnPlayer() --and Duel.GetAttackTarget()

end

function c77135641.target(e,tp,eg,ep,ev,re,r,rp,chk)

if chk==0 then return Duel.GetLocationCountFromEx(tp)>0

and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,true) end

Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)

Duel.SetChainLimit(c77135641.chlimit)

end

function c77135641.chlimit(e,ep,tp)

return tp==ep

end

function c77135641.operation(e,tp,eg,ep,ev,re,r,rp)

local c=e:GetHandler()

if not c:IsRelateToEffect(e) or Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)<=0 then return end

local a=Duel.GetAttacker()

local b=Duel.GetAttackTarget()

local g=Group.CreateGroup()

if a:IsRelateToBattle() then g:AddCard(a) end

if b and b:IsRelateToBattle() then g:AddCard(a) end

if g:GetCount()<=0 then return end

for tc in aux.Next(g) do

local og=tc:GetOverlayGroup()

if og:GetCount()>0 then

Duel.SendtoGrave(og,REASON_RULE)

end

end

Duel.Overlay(c,g)

end

function c77135641.condition2(e,tp,eg,ep,ev,re,r,rp)

if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) or not Duel.IsChainNegatable(ev) then return false end

if re:IsHasCategory(CATEGORY_NEGATE)

and Duel.GetChainInfo(ev-1,CHAININFO_TRIGGERING_EFFECT):IsHasType(EFFECT_TYPE_ACTIVATE) then return false end

local ex,tg,tc=Duel.GetOperationInfo(ev,CATEGORY_DESTROY)

return ex and tg~=nil and tc+tg:FilterCount(Card.IsOnField,nil)-tg:GetCount()>0

end

function c77135641.cfcost(c)

return c:IsCode(84012625) and c:IsAbleToRemoveAsCost()

end

function c77135641.cost2(e,tp,eg,ep,ev,re,r,rp,chk)

local b1=e:GetHandler():IsReleasable()

local b2=Duel.IsExistingMatchingCard(c77135641.cfcost,tp,LOCATION_GRAVE,0,1,nil)

if chk==0 then return b1 or b2 end

if b2 and (not b1 or Duel.SelectYesNo(tp,aux.Stringid(84012625,0))) then

local tg=Duel.GetFirstMatchingCard(c77135641.cfcost,tp,LOCATION_GRAVE,0,nil)

Duel.Remove(tg,POS_FACEUP,REASON_COST)

else

Duel.Release(e:GetHandler(),REASON_COST)

end

end

function c77135641.target2(e,tp,eg,ep,ev,re,r,rp,chk)

if chk==0 then return true end

Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)

if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then

Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)

end

end