Skip to content

Y
ygopro
Commit 7e973e46 authored by VanillaSalt's avatar VanillaSalt
Browse files
Options

fix

parent 65368297
Hide whitespace changes
Inline Side-by-side
Showing with 146 additions and 99 deletions
script/c12744567.lua
View file @ 7e973e46
......@@ -47,11 +47,11 @@ function c12744567.operation(e,tp,eg,ep,ev,re,r,rp)
end
function c12744567.spcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsReason(REASON_DESTROY) and e:GetHandler():GetOverlayCount()>0
and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,48739166)
end
function c12744567.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,48739166) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
local rec=e:GetHandler():GetBaseAttack()
Duel.SetTargetPlayer(tp)
......@@ -59,6 +59,7 @@ function c12744567.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,rec)
end
function c12744567.spop(e,tp,eg,ep,ev,re,r,rp)
if not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,48739166) then return end
local c=e:GetHandler()
if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
local e1=Effect.CreateEffect(c)
......
script/c15552258.lua
View file @ 7e973e46
......@@ -22,6 +22,7 @@ function c15552258.activate(e,tp,eg,ep,ev,re,r,rp)
end
if opt==1 then
Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1)
return
end
local tc=g:GetFirst()
while tc do
......
script/c24701235.lua
View file @ 7e973e46
......@@ -89,15 +89,15 @@ function c24701235.cfilter(c)
end
function c24701235.condition(e,tp,eg,ep,ev,re,r,rp)
return not e:GetHandler():IsReason(REASON_RETURN)
and Duel.IsExistingMatchingCard(c24701235.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c24701235.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if chk==0 then return Duel.IsExistingMatchingCard(c24701235.cfilter,tp,LOCATION_MZONE,0,1,nil) end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(1)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c24701235.operation(e,tp,eg,ep,ev,re,r,rp)
if not Duel.IsExistingMatchingCard(c24701235.cfilter,tp,LOCATION_MZONE,0,1,nil) then return end
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Draw(p,d,REASON_EFFECT)
end
script/c24861088.lua
View file @ 7e973e46
......@@ -6,6 +6,7 @@ function c24861088.initial_effect(c)
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCost(c24861088.cost)
e1:SetTarget(c24861088.target)
e1:SetOperation(c24861088.operation)
c:RegisterEffect(e1)
......@@ -34,6 +35,10 @@ function c24861088.checkop(e,tp,eg,ep,ev,re,r,rp)
Duel.RegisterFlagEffect(rp,24861088,RESET_PHASE+PHASE_END,0,1)
end
end
function c24861088.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFlagEffect(tp,24861088)==0 end
Duel.RegisterFlagEffect(tp,24861088,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1)
end
function c24861088.filter(c)
return c:IsSetCard(0x70) and not c:IsCode(24861088) and c:IsAbleToHand()
end
......
script/c25700114.lua
View file @ 7e973e46
......@@ -13,7 +13,7 @@ function c25700114.initial_effect(c)
e2:SetDescription(aux.Stringid(25700114,0))
e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_PLAYER_TARGET)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_TO_GRAVE)
e2:SetCondition(c25700114.thcon)
e2:SetTarget(c25700114.thtg)
......
script/c26822796.lua
View file @ 7e973e46
......@@ -31,14 +31,14 @@ function c26822796.activate(e,tp,eg,ep,ev,re,r,rp)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END)
e1:SetReset(RESET_EVENT+0x1fe0000)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetValue(RESET_TURN_SET)
e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END)
e2:SetReset(RESET_EVENT+0x1fe0000)
tc:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
......@@ -46,7 +46,7 @@ function c26822796.activate(e,tp,eg,ep,ev,re,r,rp)
e3:SetRange(LOCATION_MZONE)
e3:SetCode(EFFECT_IMMUNE_EFFECT)
e3:SetValue(1)
e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
e3:SetReset(RESET_EVENT+0x1fe0000)
tc:RegisterEffect(e3)
end
end
script/c2830693.lua
View file @ 7e973e46
......@@ -37,9 +37,9 @@ function c2830693.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
Duel.SetTargetCard(at)
end
function c2830693.eqop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
local tc=c:GetBattleTarget()
local c=e:GetHandler()
local tc=Duel.GetAttacker()
if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToBattle() then
Duel.Equip(tp,c,tc,true)
--Add Equip limit
......
script/c31467372.lua
View file @ 7e973e46
......@@ -26,7 +26,7 @@ function c31467372.damcon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c31467372.filter,1,nil,tp)
end
function c31467372.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) end
Duel.SetTargetPlayer(1-tp)
Duel.SetTargetParam(800)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
......
script/c37055344.lua
View file @ 7e973e46
......@@ -4,17 +4,19 @@ function c37055344.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(c37055344.target1)
e1:SetOperation(c37055344.operation)
c:RegisterEffect(e1)
--pos
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(37055344,0))
e2:SetCategory(CATEGORY_POSITION)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetCondition(c37055344.condition)
e2:SetTarget(c37055344.target)
e2:SetTarget(c37055344.target2)
e2:SetOperation(c37055344.operation)
c:RegisterEffect(e2)
end
......@@ -33,15 +35,50 @@ end
function c37055344.filter4(c)
return c:IsFaceup() and c:IsCanTurnSet()
end
function c37055344.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
function c37055344.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then
if e:GetLabel()==0 then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c37055344.filter1(chkc)
else return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c37055344.filter3(chkc) end
end
if chk==0 then return true end
local b1=Duel.IsExistingTarget(c37055344.filter1,tp,LOCATION_MZONE,0,1,nil)
and Duel.IsExistingMatchingCard(c37055344.filter2,tp,0,LOCATION_MZONE,1,nil)
local b2=Duel.IsExistingTarget(c37055344.filter3,tp,LOCATION_MZONE,0,1,nil)
if chk==0 then return b1 or b2 end
if Duel.GetCurrentPhase()==PHASE_BATTLE
and (b1 or b2) and Duel.SelectYesNo(tp,aux.Stringid(37055344,3)) then
local op=0
if b1 and b2 then
op=Duel.SelectOption(tp,aux.Stringid(37055344,1),aux.Stringid(37055344,2))
elseif b1 then
op=Duel.SelectOption(tp,aux.Stringid(37055344,1))
else
op=Duel.SelectOption(tp,aux.Stringid(37055344,2))+1
end
e:SetLabel(op)
if op==0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local g=Duel.SelectTarget(tp,c37055344.filter1,tp,LOCATION_MZONE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
else
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWNDEFENCE)
local g=Duel.SelectTarget(tp,c37055344.filter3,tp,LOCATION_MZONE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
end
e:GetHandler():RegisterFlagEffect(37055344,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
e:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
else
e:SetProperty(0)
end
end
function c37055344.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then
if e:GetLabel()==0 then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c37055344.filter1(chkc)
else return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c37055344.filter3(chkc) end
end
local b1=Duel.IsExistingTarget(c37055344.filter1,tp,LOCATION_MZONE,0,1,nil)
and Duel.IsExistingMatchingCard(c37055344.filter2,tp,0,LOCATION_MZONE,1,nil)
local b2=Duel.IsExistingTarget(c37055344.filter3,tp,LOCATION_MZONE,0,1,nil)
if chk==0 then return (b1 or b2) and e:GetHandler():GetFlagEffect(37055344)==0 end
local op=0
if b1 and b2 then
op=Duel.SelectOption(tp,aux.Stringid(37055344,1),aux.Stringid(37055344,2))
......@@ -60,9 +97,10 @@ function c37055344.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local g=Duel.SelectTarget(tp,c37055344.filter3,tp,LOCATION_MZONE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
end
e:GetHandler():RegisterFlagEffect(37055344,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
end
function c37055344.operation(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
if e:GetHandler():GetFlagEffect(37055344)==0 or not e:GetHandler():IsRelateToEffect(e) then return end
local tc=Duel.GetFirstTarget()
if e:GetLabel()==0 then
if not tc:IsRelateToEffect(e) or tc:IsFacedown() then return end
......
script/c37829468.lua
View file @ 7e973e46
......@@ -10,14 +10,16 @@ function c37829468.initial_effect(c)
e1:SetTarget(c37829468.atktg)
e1:SetValue(c37829468.atkval)
c:RegisterEffect(e1)
--lv change
--destroy
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(37829468,0))
e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e2:SetCode(EVENT_PHASE+PHASE_END)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_REPEAT)
e2:SetCondition(c37829468.descon)
e2:SetTarget(c37829468.destg)
e2:SetOperation(c37829468.desop)
c:RegisterEffect(e2)
......@@ -28,6 +30,9 @@ end
function c37829468.atkval(e,c)
return Duel.GetMatchingGroupCount(Card.IsAttribute,e:GetHandlerPlayer(),LOCATION_GRAVE,0,nil,ATTRIBUTE_LIGHT)*100
end
function c37829468.descon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()==tp
end
function c37829468.filter(c)
return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsDestructable()
end
......@@ -40,7 +45,7 @@ function c37829468.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
end
function c37829468.desop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsFaceup() and tc:IsRelateToEffect(e) then
if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then
Duel.Destroy(tc,REASON_EFFECT)
end
end
script/c43366227.lua
View file @ 7e973e46
......@@ -39,7 +39,7 @@ function c43366227.initial_effect(c)
c:RegisterEffect(e3)
end
function c43366227.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) end
Duel.SetTargetPlayer(1-tp)
Duel.SetTargetParam(800)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
......
script/c43748308.lua
View file @ 7e973e46
......@@ -5,7 +5,7 @@ function c43748308.initial_effect(c)
e1:SetDescription(aux.Stringid(43748308,0))
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_CHAIN_SOLVING)
e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CHAIN_UNIQUE)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1)
e1:SetCondition(c43748308.setcon)
......@@ -34,7 +34,7 @@ function c43748308.filter(c)
end
function c43748308.settg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsRelateToEffect(e) and e:GetHandler():IsFaceup()
and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
and not e:GetHandler():IsStatus(STATUS_CHAINING) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
and Duel.IsExistingMatchingCard(c43748308.filter,tp,LOCATION_DECK,0,1,nil) end
end
function c43748308.setop(e,tp,eg,ep,ev,re,r,rp)
......
script/c46772449.lua
View file @ 7e973e46
......@@ -40,7 +40,8 @@ function c46772449.cost(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.RegisterEffect(e1,tp)
end
function c46772449.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING)
and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler())
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
end
......
script/c48115277.lua
View file @ 7e973e46
......@@ -14,7 +14,6 @@ function c48115277.initial_effect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetCost(c48115277.spcost)
e2:SetTarget(c48115277.sptg)
e2:SetOperation(c48115277.spop)
......
script/c5037726.lua
View file @ 7e973e46
......@@ -16,23 +16,23 @@ function c5037726.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsAttribute,1,nil,ATTRIBUTE_LIGHT) end
local g=Duel.SelectReleaseGroup(tp,Card.IsAttribute,1,1,nil,ATTRIBUTE_LIGHT)
Duel.Release(g,REASON_COST)
e:SetLabelObject(g:GetFirst())
end
function c5037726.filter(c,e,tp)
return c:IsFaceup() and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c5037726.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_REMOVED) and c5037726.filter(chkc,e,tp) end
if chk==0 then
if chk==0 then
if e:GetLabel()==1 then
e:SetLabel(0)
return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
and Duel.IsExistingTarget(c5037726.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil,e,tp)
else
and Duel.IsExistingTarget(c5037726.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil,e,tp)
else
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingTarget(c5037726.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil,e,tp)
and Duel.IsExistingTarget(c5037726.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil,e,tp)
end
end
e:SetLabel(0)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c5037726.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
......
script/c50474354.lua
View file @ 7e973e46
......@@ -46,7 +46,7 @@ function c50474354.aclimit(e,re,tp)
return not re:GetHandler():IsSetCard(0x88)
end
function c50474354.filter(c)
return c:IsSetCard(0x88) and c:IsAbleToHand()
return c:IsSetCard(0x88) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end
function c50474354.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c50474354.filter,tp,LOCATION_DECK,0,1,nil) end
......
script/c59048135.lua
View file @ 7e973e46
......@@ -43,8 +43,8 @@ function c59048135.checkop(e,tp,eg,ep,ev,re,r,rp)
end
tc=eg:GetNext()
end
if p1 then Duel.RegisterFlagEffect(0,64319467,RESET_PHASE+PHASE_END,0,1) end
if p2 then Duel.RegisterFlagEffect(1,64319467,RESET_PHASE+PHASE_END,0,1) end
if p1 then Duel.RegisterFlagEffect(0,59048135,RESET_PHASE+PHASE_END,0,1) end
if p2 then Duel.RegisterFlagEffect(1,59048135,RESET_PHASE+PHASE_END,0,1) end
end
function c59048135.etarget(e,c)
return c:IsRace(RACE_PSYCHO) and c:IsType(TYPE_XYZ)
......
script/c59951714.lua
View file @ 7e973e46
......@@ -8,9 +8,8 @@ function c59951714.initial_effect(c)
c:RegisterEffect(e1)
--spsummon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetRange(LOCATION_GRAVE)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_BE_MATERIAL)
e2:SetOperation(c59951714.spr)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
......@@ -48,7 +47,7 @@ function c59951714.checkop(e,tp,eg,ep,ev,re,r,rp)
end
function c59951714.spr(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsReason(REASON_SUMMON) and c:GetReasonCard()==eg:GetFirst() then
if r==REASON_SUMMON then
c:RegisterFlagEffect(59951714,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,0,1)
end
end
......
script/c62188962.lua
View file @ 7e973e46
......@@ -45,7 +45,7 @@ function c62188962.filter(c)
end
function c62188962.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and c62188962.filter(chkc) end
if chk==0 then return e:GetHandler():IsRelateToEffect(e) end
if chk==0 then return e:GetHandler():IsRelateToEffect(e) and not e:GetHandler():IsStatus(STATUS_CHAINING) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,c62188962.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
......
script/c63049052.lua
View file @ 7e973e46
......@@ -42,7 +42,8 @@ function c63049052.operation(e,tp,eg,ep,ev,re,r,rp)
--material
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(63049052,0))
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1)
e2:SetTarget(c63049052.mattg)
......
script/c63257623.lua
View file @ 7e973e46
......@@ -69,7 +69,8 @@ function c63257623.filter(c,e,tp)
end
function c63257623.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c63257623.filter(chkc,e,tp) end
if chk==0 then return Duel.IsExistingTarget(c63257623.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingTarget(c63257623.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c63257623.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
......
script/c64161630.lua
View file @ 7e973e46
......@@ -20,44 +20,41 @@ function c64161630.filter(c,rk,rc,e,tp)
and c:GetRank()==rk and c:IsRace(rc) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c64161630.cost(e,tp,eg,ep,ev,re,r,rp,chk)
e:SetLabel(1)
e:SetLabel(100)
if chk==0 then return Duel.CheckReleaseGroup(tp,c64161630.cfilter,1,nil,e,tp) end
local g=Duel.SelectReleaseGroup(tp,c64161630.cfilter,1,1,nil,e,tp)
e:SetLabel(g:GetFirst():GetRank())
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetLabel(g:GetFirst():GetRace())
Duel.RegisterEffect(e1,tp)
e:SetLabelObject(e1)
Duel.Release(g,REASON_COST)
e:SetLabelObject(g:GetFirst())
end
function c64161630.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
if e:GetLabel()~=1 then return false end
if e:GetLabel()~=100 then return false end
e:SetLabel(0)
return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
end
e:SetLabel(0)
end
function c64161630.activate(e,tp,eg,ep,ev,re,r,rp)
local tc=e:GetLabelObject()
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetDescription(aux.Stringid(64161630,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_PHASE+PHASE_END)
e1:SetCountLimit(1)
e1:SetTarget(c64161630.sptg)
e1:SetOperation(c64161630.spop)
e1:SetLabelObject(tc)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetLabel(e:GetLabel())
e1:SetLabelObject(e:GetLabelObject())
Duel.RegisterEffect(e1,tp)
tc:CreateEffectRelation(e1)
end
function c64161630.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end
function c64161630.spop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,64161630)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
local tc=e:GetLabelObject()
if not tc:IsRelateToEffect(e) then return end
local rk=e:GetLabel()
local rc=e:GetLabelObject():GetLabel()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c64161630.filter,tp,LOCATION_EXTRA,0,1,1,nil,tc:GetRace()-1,tc:GetRace(),e,tp)
local g=Duel.SelectMatchingCard(tp,c64161630.filter,tp,LOCATION_EXTRA,0,1,1,nil,rk-1,rc,e,tp)
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
script/c65384188.lua
View file @ 7e973e46
......@@ -24,7 +24,23 @@ end
function c65384188.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc1,tc2=Duel.GetFirstTarget()
if tc1:IsRelateToEffect(e) and tc2:IsRelateToEffect(e) then
if tc1:IsRelateToEffect(e) and tc1:IsFaceup() and tc2:IsRelateToEffect(e) and tc2:IsFaceup() then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetReset(RESET_EVENT+0x1fe0000)
tc1:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetReset(RESET_EVENT+0x1fe0000)
tc1:RegisterEffect(e2)
local e3=e1:Clone()
tc2:RegisterEffect(e3)
local e4=e2:Clone()
tc2:RegisterEffect(e4)
if tc1:IsDefencePos() or tc2:IsDefencePos() then return end
Duel.BreakEffect()
c65384188.reg(c,tc1,tc2)
c65384188.reg(c,tc2,tc1)
end
......
script/c73289035.lua
View file @ 7e973e46
......@@ -44,8 +44,10 @@ function c73289035.target(e,tp,eg,ep,ev,re,r,rp,chk)
end
function c73289035.operation(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
Duel.SendtoGrave(g,REASON_EFFECT)
Duel.Draw(tp,2,REASON_EFFECT)
if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT)
Duel.Draw(tp,2,REASON_EFFECT)
end
end
function c73289035.checkop(e,tp,eg,ep,ev,re,r,rp)
local ct=e:GetHandler():GetOverlayCount()
......
script/c7617062.lua
View file @ 7e973e46
......@@ -41,25 +41,13 @@ function c7617062.operation(e,tp,eg,ep,ev,re,r,rp)
local tc=eg:GetFirst()
if tc:IsRelateToBattle() and tc:IsFaceup() and tc:IsCanTurnSet() then
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(7617062,0))
e1:SetCategory(CATEGORY_POSITION)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_DAMAGE_STEP_END)
e1:SetRange(LOCATION_SZONE)
e1:SetTarget(c7617062.postg)
e1:SetOperation(c7617062.posop)
e1:SetLabelObject(tc)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE)
c:RegisterEffect(e1)
tc:RegisterEffect(e1)
end
end
function c7617062.postg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetLabelObject():IsRelateToBattle() end
end
function c7617062.posop(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local tc=e:GetLabelObject()
if tc:IsRelateToBattle() and tc:IsFaceup() then
Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE)
end
Duel.ChangePosition(e:GetHandler(),POS_FACEDOWN_DEFENCE)
end
script/c83715234.lua
View file @ 7e973e46
......@@ -11,7 +11,7 @@ function c83715234.initial_effect(c)
e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_CHANGE_POS)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CHAIN_UNIQUE)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1)
e2:SetCondition(c83715234.descon)
......@@ -32,7 +32,7 @@ function c83715234.desfilter(c)
end
function c83715234.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and c83715234.desfilter(chkc) end
if chk==0 then return e:GetHandler():IsRelateToEffect(e)
if chk==0 then return e:GetHandler():IsRelateToEffect(e) and not e:GetHandler():IsStatus(STATUS_CHAINING)
and Duel.IsExistingTarget(c83715234.desfilter,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,c83715234.desfilter,tp,0,LOCATION_ONFIELD,1,1,nil)
......
script/c84401683.lua
View file @ 7e973e46
......@@ -9,10 +9,12 @@ function c84401683.initial_effect(c)
e1:SetCategory(CATEGORY_DISABLE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
e1:SetHintTiming(0,0x1c0)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1)
e1:SetHintTiming(TIMING_DAMAGE_STEP)
e1:SetCondition(c84401683.negcon)
e1:SetCost(c84401683.negcost)
e1:SetTarget(c84401683.negtg)
e1:SetOperation(c84401683.negop)
......@@ -29,6 +31,9 @@ function c84401683.initial_effect(c)
e2:SetOperation(c84401683.desop)
c:RegisterEffect(e2)
end
function c84401683.negcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated()
end
function c84401683.negcost(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)
......
script/c86062400.lua
View file @ 7e973e46
......@@ -25,7 +25,7 @@ end
function c86062400.tgcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local bc=c:GetBattleTarget()
return c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_BATTLE) and rp~=tp
return c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_BATTLE)
and bc:IsFaceup() and bc:IsRelateToBattle() and bc:IsType(TYPE_XYZ)
end
function c86062400.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
......
script/c8632967.lua
View file @ 7e973e46
......@@ -11,14 +11,12 @@ function c8632967.initial_effect(c)
e2:SetRange(LOCATION_SZONE)
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetOperation(c8632967.sucop)
e2:SetReset(RESET_PHASE+PHASE_END)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetRange(LOCATION_SZONE)
e3:SetCode(EVENT_CHAIN_END)
e3:SetOperation(c8632967.cedop)
e3:SetReset(RESET_PHASE+PHASE_END)
e3:SetLabelObject(e2)
c:RegisterEffect(e3)
end
......@@ -27,7 +25,7 @@ function c8632967.chainlm(e,rp,tp)
end
function c8632967.sucfilter(c)
local st=c:GetSummonType()
return c:IsSetCard(0x604e) and st>=(SUMMON_TYPE_SPECIAL+150) and st<(SUMMON_TYPE_SPECIAL+180)
return c:IsSetCard(0x304e) and st>=(SUMMON_TYPE_SPECIAL+150) and st<(SUMMON_TYPE_SPECIAL+180)
end
function c8632967.sucop(e,tp,eg,ep,ev,re,r,rp)
if eg:IsExists(c8632967.sucfilter,1,nil) then
......
script/c91650245.lua
View file @ 7e973e46
......@@ -35,14 +35,10 @@ function c91650245.activate(e,tp,eg,ep,ev,re,r,rp)
if sc then
Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetDescription(aux.Stringid(91650245,2))
e1:SetCategory(CATEGORY_TOGRAVE)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_REPEAT)
e1:SetCountLimit(1)
e1:SetCode(EVENT_PHASE+PHASE_END)
e1:SetTarget(c91650245.tdtg)
e1:SetOperation(c91650245.tdop)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END)
sc:RegisterEffect(e1)
......@@ -57,18 +53,12 @@ function c91650245.activate(e,tp,eg,ep,ev,re,r,rp)
end
end
end
function c91650245.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
end
function c91650245.tdop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
if c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ)
or Duel.SelectOption(tp,aux.Stringid(91650245,0),aux.Stringid(91650245,1))==0 then
Duel.SendtoDeck(c,nil,0,REASON_EFFECT)
else
Duel.SendtoDeck(c,nil,1,REASON_EFFECT)
end
if c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ)
or Duel.SelectOption(tp,aux.Stringid(91650245,0),aux.Stringid(91650245,1))==0 then
Duel.SendtoDeck(c,nil,0,REASON_EFFECT)
else
Duel.SendtoDeck(c,nil,1,REASON_EFFECT)
end
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