Skip to content

Y
ygopro-scripts
Commit 19a1fed0 authored by salix5's avatar salix5
Browse files
Options

continuous change control 

require df431 in ocgcore
fix:
https://www.db.yugioh-card.com/yugiohdb/faq_search.action?ope=5&fid=22384&keyword=&tag=-1
parent 3aada296
Show whitespace changes
Inline Side-by-side
Showing with 61 additions and 78 deletions
c19327348.lua
View file @ 19a1fed0
......@@ -25,13 +25,12 @@ end
function c19327348.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if c:IsRelateToEffect(e) and c:IsFaceup() and tc and tc:IsRelateToEffect(e) and c19327348.filter(tc) then
if c:IsRelateToEffect(e) and c:IsFaceup() and tc and tc:IsRelateToEffect(e) and tc:IsControlerCanBeChanged() then
c:SetCardTarget(tc)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(tp)
e1:SetLabel(0)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
......@@ -42,5 +41,5 @@ end
function c19327348.ctcon(e)
local c=e:GetOwner()
local h=e:GetHandler()
return h:IsAttribute(ATTRIBUTE_DARK) and c:IsHasCardTarget(h)
return c:IsHasCardTarget(h)
end
c21768554.lua
View file @ 19a1fed0
......@@ -5,7 +5,7 @@ function c21768554.initial_effect(c)
e1:SetCategory(CATEGORY_CONTROL)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetCondition(c21768554.condition)
e1:SetTarget(c21768554.target)
e1:SetOperation(c21768554.operation)
......@@ -13,12 +13,11 @@ function c21768554.initial_effect(c)
--destroy
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(21768554,0))
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_PHASE+PHASE_END)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1)
e2:SetCondition(c21768554.descon)
e2:SetTarget(c21768554.destg)
e2:SetOperation(c21768554.desop)
c:RegisterEffect(e2)
end
......@@ -50,13 +49,13 @@ function c21768554.operation(e,tp,eg,ep,ev,re,r,rp)
if tc:IsFaceup() and tc:GetCounter(0x100e)>0 and tc:IsRelateToEffect(e) then
c:SetCardTarget(tc)
local e1=Effect.CreateEffect(c)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetValue(tp)
e1:SetValue(c21768554.ctval)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
e1:SetCondition(c21768554.con)
tc:RegisterEffect(e1)
tc:RegisterEffect(e1,true)
end
tc=g:GetNext()
end
......@@ -65,17 +64,14 @@ end
function c21768554.con(e)
local c=e:GetOwner()
local h=e:GetHandler()
return c:IsHasCardTarget(h) and not c:IsDisabled() and h:GetCounter(0x100e)>0
return c:IsHasCardTarget(h) and h:GetCounter(0x100e)>0
end
function c21768554.ctval(e,c)
return e:GetOwnerPlayer()
end
function c21768554.descon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetFlagEffect(21768554)~=0
end
function c21768554.destg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
end
function c21768554.desop(e,tp,eg,ep,ev,re,r,rp)
if e:GetHandler():IsRelateToEffect(e) then
Duel.Destroy(e:GetHandler(),REASON_EFFECT)
end
end
c25542642.lua
View file @ 19a1fed0
......@@ -3,21 +3,13 @@ function c25542642.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_DISABLE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e1:SetTarget(c25542642.target)
e1:SetOperation(c25542642.tgop)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e2:SetRange(LOCATION_SZONE)
e2:SetCode(EVENT_CHAIN_SOLVED)
e2:SetLabelObject(e1)
e2:SetCondition(c25542642.tgcon)
e2:SetOperation(c25542642.tgop)
c:RegisterEffect(e2)
--cannot attack/disable
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
......@@ -69,13 +61,10 @@ function c25542642.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local g=Duel.SelectTarget(tp,c25542642.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
end
function c25542642.tgcon(e,tp,eg,ep,ev,re,r,rp)
return re==e:GetLabelObject()
end
function c25542642.tgop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS):GetFirst()
if c:IsRelateToEffect(re) and tc:IsFaceup() and tc:IsRelateToEffect(re) then
local tc=Duel.GetFirstTarget()
if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then
c:SetCardTarget(tc)
end
end
......
c36975314.lua
View file @ 19a1fed0
......@@ -5,7 +5,7 @@ function c36975314.initial_effect(c)
e1:SetCategory(CATEGORY_CONTROL)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetTarget(c36975314.target)
e1:SetOperation(c36975314.operation)
c:RegisterEffect(e1)
......@@ -36,26 +36,21 @@ function c36975314.operation(e,tp,eg,ep,ev,re,r,rp)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(tp)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_SET_AVAILABLE)
e1:SetValue(c36975314.ctval)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
e1:SetCondition(c36975314.con)
tc:RegisterEffect(e1)
local e4=e1:Clone()
e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE)
e4:SetRange(LOCATION_MZONE)
tc:RegisterEffect(e4)
tc:RegisterEffect(e1,true)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_SET_AVAILABLE)
e2:SetCode(EFFECT_CANNOT_ATTACK)
e2:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
e2:SetCondition(c36975314.rcon)
tc:RegisterEffect(e2)
tc:RegisterEffect(e2,true)
local e3=e2:Clone()
e3:SetCode(EFFECT_CANNOT_TRIGGER)
tc:RegisterEffect(e3)
tc:RegisterEffect(e3,true)
end
end
function c36975314.con(e)
......@@ -63,6 +58,9 @@ function c36975314.con(e)
local h=e:GetHandler()
return c:IsHasCardTarget(h) and not c:IsDisabled()
end
function c36975314.ctval(e,c)
return e:GetOwnerPlayer()
end
function c36975314.rcon(e)
local c=e:GetOwner()
local h=e:GetHandler()
......
c37744402.lua
View file @ 19a1fed0
......@@ -25,13 +25,12 @@ end
function c37744402.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if c:IsRelateToEffect(e) and c:IsFaceup() and tc and tc:IsRelateToEffect(e) and c37744402.filter(tc) then
if c:IsRelateToEffect(e) and c:IsFaceup() and tc and tc:IsRelateToEffect(e) and tc:IsControlerCanBeChanged() then
c:SetCardTarget(tc)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(tp)
e1:SetLabel(0)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
......@@ -42,5 +41,5 @@ end
function c37744402.ctcon(e)
local c=e:GetOwner()
local h=e:GetHandler()
return h:IsAttribute(ATTRIBUTE_WIND) and c:IsHasCardTarget(h)
return c:IsHasCardTarget(h)
end
c37970940.lua
View file @ 19a1fed0
......@@ -25,13 +25,12 @@ end
function c37970940.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if c:IsRelateToEffect(e) and c:IsFaceup() and tc and tc:IsRelateToEffect(e) and c37970940.filter(tc) then
if c:IsRelateToEffect(e) and c:IsFaceup() and tc and tc:IsRelateToEffect(e) and tc:IsControlerCanBeChanged() then
c:SetCardTarget(tc)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(tp)
e1:SetLabel(0)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
......@@ -42,5 +41,5 @@ end
function c37970940.ctcon(e)
local c=e:GetOwner()
local h=e:GetHandler()
return h:IsAttribute(ATTRIBUTE_EARTH) and c:IsHasCardTarget(h)
return c:IsHasCardTarget(h)
end
c38468214.lua
View file @ 19a1fed0
......@@ -30,7 +30,7 @@ function c38468214.operation(e,tp,eg,ep,ev,re,r,rp)
if tc:GetCounter(0x100e)>0 and tc:IsRelateToEffect(e) then
c:SetCardTarget(tc)
local e1=Effect.CreateEffect(c)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetValue(tp)
......@@ -57,7 +57,7 @@ function c38468214.operation(e,tp,eg,ep,ev,re,r,rp)
end
function c38468214.ctcon(e)
local c=e:GetOwner()
return c:IsHasCardTarget(e:GetHandler()) and not c:IsDisabled()
return c:IsHasCardTarget(e:GetHandler())
end
function c38468214.rmctcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()==e:GetLabel()
......
c59258334.lua
View file @ 19a1fed0
......@@ -5,7 +5,7 @@ function c59258334.initial_effect(c)
e1:SetCategory(CATEGORY_CONTROL)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetTarget(c59258334.target)
e1:SetOperation(c59258334.operation)
c:RegisterEffect(e1)
......@@ -52,18 +52,22 @@ function c59258334.operation(e,tp,eg,ep,ev,re,r,rp)
if tc:IsFaceup() and tc:GetCounter(0x100e)>0 and tc:IsRelateToEffect(e) then
c:SetCardTarget(tc)
local e1=Effect.CreateEffect(c)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE)
e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetValue(tp)
e1:SetValue(c59258334.ctval)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
e1:SetCondition(c59258334.con)
tc:RegisterEffect(e1)
tc:RegisterEffect(e1,true)
end
end
function c59258334.con(e)
return e:GetOwner():IsHasCardTarget(e:GetHandler())
local c=e:GetOwner()
local h=e:GetHandler()
return c:IsHasCardTarget(h) and h:GetCounter(0x100e)>0
end
function c59258334.ctval(e,c)
return e:GetOwnerPlayer()
end
function c59258334.descon(e)
local c=e:GetHandler()
......
c70284332.lua
View file @ 19a1fed0
......@@ -5,7 +5,7 @@ function c70284332.initial_effect(c)
e1:SetCategory(CATEGORY_CONTROL)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetTarget(c70284332.target)
e1:SetOperation(c70284332.operation)
c:RegisterEffect(e1)
......@@ -37,12 +37,11 @@ function c70284332.operation(e,tp,eg,ep,ev,re,r,rp)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(tp)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE)
e1:SetValue(c70284332.ctval)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
e1:SetCondition(c70284332.con)
tc:RegisterEffect(e1)
tc:RegisterEffect(e1,true)
--redirect
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
......@@ -58,6 +57,9 @@ function c70284332.con(e)
local h=e:GetHandler()
return c:IsHasCardTarget(h)
end
function c70284332.ctval(e,c)
return e:GetOwnerPlayer()
end
function c70284332.dircon(e)
return e:GetHandler():IsReason(REASON_DESTROY)
end
......
c73318863.lua
View file @ 19a1fed0
......@@ -25,13 +25,12 @@ end
function c73318863.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if c:IsRelateToEffect(e) and c:IsFaceup() and tc and tc:IsRelateToEffect(e) and c73318863.filter(tc) then
if c:IsRelateToEffect(e) and c:IsFaceup() and tc and tc:IsRelateToEffect(e) and tc:IsControlerCanBeChanged() then
c:SetCardTarget(tc)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(tp)
e1:SetLabel(0)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
......@@ -42,5 +41,5 @@ end
function c73318863.ctcon(e)
local c=e:GetOwner()
local h=e:GetHandler()
return h:IsAttribute(ATTRIBUTE_LIGHT) and c:IsHasCardTarget(h)
return c:IsHasCardTarget(h)
end
c74364659.lua
View file @ 19a1fed0
......@@ -25,13 +25,12 @@ end
function c74364659.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if c:IsRelateToEffect(e) and c:IsFaceup() and tc and tc:IsRelateToEffect(e) and c74364659.filter(tc) then
if c:IsRelateToEffect(e) and c:IsFaceup() and tc and tc:IsRelateToEffect(e) and tc:IsControlerCanBeChanged() then
c:SetCardTarget(tc)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(tp)
e1:SetLabel(0)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
......@@ -42,5 +41,5 @@ end
function c74364659.ctcon(e)
local c=e:GetOwner()
local h=e:GetHandler()
return h:IsAttribute(ATTRIBUTE_WATER) and c:IsHasCardTarget(h)
return c:IsHasCardTarget(h)
end
c759393.lua
View file @ 19a1fed0
......@@ -25,13 +25,12 @@ end
function c759393.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if c:IsRelateToEffect(e) and c:IsFaceup() and tc and tc:IsRelateToEffect(e) and c759393.filter(tc) then
if c:IsRelateToEffect(e) and c:IsFaceup() and tc and tc:IsRelateToEffect(e) and tc:IsControlerCanBeChanged() then
c:SetCardTarget(tc)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(LOCATION_MZONE)
e1:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(tp)
e1:SetLabel(0)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
......@@ -42,5 +41,5 @@ end
function c759393.ctcon(e)
local c=e:GetOwner()
local h=e:GetHandler()
return h:IsAttribute(ATTRIBUTE_FIRE) and c:IsHasCardTarget(h)
return c:IsHasCardTarget(h)
end
constant.lua
View file @ 19a1fed0
......@@ -286,7 +286,7 @@ EFFECT_FLAG_CHAIN_UNIQUE =0x8000000 --N/A
EFFECT_FLAG_LIMIT_ZONE =0x10000000 --限制魔法·陷阱卡可以发动的区域
EFFECT_FLAG_COF =0x20000000 --N/A
EFFECT_FLAG_CVAL_CHECK =0x40000000 --N/A
EFFECT_FLAG_IMMEDIATELY_APPLY =0x80000000 --卡在发动时效果就立即适用（卡通王國）
EFFECT_FLAG_IMMEDIATELY_APPLY =0x80000000 --卡在发动时效果就立即适用
EFFECT_FLAG2_NAGA =0x0001 --N/A
EFFECT_FLAG2_COF =0x0002 --通常魔法卡在MP1以外发动（邪恶的仪式的特殊处理）
......
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