Commit 509ac958 authored by HidarimeYume's avatar HidarimeYume

fetch

parents 18c60991 5814fa2c
......@@ -19,7 +19,7 @@ function cm.tgf1(c)
return c:IsAbleToRemove() and not c:IsPublic()
end
function cm.tgf2(c)
return (c:IsSetCard(0x3fd5) or c:IsSetCard(0xfd6)) and c:IsType(TYPE_SPELL+TYPE_TRAP) and not c:IsCode(m) and c:IsAbleToHand()
return (c:IsSetCard(0x3fd5) or c:IsSetCard(0xfd6)) and not c:IsCode(m) and c:IsAbleToHand()
end
function cm.tgf3(g)
return aux.dncheck(g) and g:IsExists(Card.IsSetCard,1,nil,0xfd6) and g:IsExists(Card.IsSetCard,1,nil,0x3fd5)
......
......@@ -18,8 +18,8 @@ function cm.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetTarget(cm.dmtg)
e2:SetOperation(cm.dmop)
e2:SetTarget(cm.damtg)
e2:SetOperation(cm.damop)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(m,1))
......@@ -53,12 +53,12 @@ function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
c:RegisterEffect(e1)
end
end
function cm.dmtg(e,tp,eg,ep,ev,re,r,rp,chk)
function cm.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(tp)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,0)
end
function cm.dmop(e,tp,eg,ep,ev,re,r,rp)
function cm.damop(e,tp,eg,ep,ev,re,r,rp)
local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Damage(p,math.floor(Duel.GetLP(p)/2),REASON_EFFECT)
end
......
......@@ -10,7 +10,7 @@ function c71400034.initial_effect(c)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_FZONE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e:SetDescription(aux.Stringid(71400034,0))
e1:SetDescription(aux.Stringid(71400034,0))
e1:SetCountLimit(1)
e1:SetTarget(c71400034.tg1)
e1:SetOperation(c71400034.op1)
......
......@@ -55,8 +55,8 @@ function c71400066.limit(c)
end
end
function c71400066.op1(e,tp,eg,ep,ev,re,r,rp)
if Duel.CheckLPCost(tc:GetControler(),1000) then
Duel.PayLPCost(tc:GetControler(),1000)
if Duel.CheckLPCost(tp,1000) then
Duel.PayLPCost(tp,1000)
else
return
end
......@@ -88,8 +88,8 @@ function c71400066.tg1a(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
end
end
function c71400066.op1a(e,tp,eg,ep,ev,re,r,rp)
if Duel.CheckLPCost(tc:GetControler(),1000) then
Duel.PayLPCost(tc:GetControler(),1000)
if Duel.CheckLPCost(tp,1000) then
Duel.PayLPCost(tp,1000)
else
return
end
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment