Commit 33f386ba authored by POLYMER's avatar POLYMER

fix

parent 1029c59e
expansions/pics/53702500.jpg

16.1 KB | W: | H:

expansions/pics/53702500.jpg

168 KB | W: | H:

expansions/pics/53702500.jpg
expansions/pics/53702500.jpg
expansions/pics/53702500.jpg
expansions/pics/53702500.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/53721013.jpg

15.6 KB | W: | H:

expansions/pics/53721013.jpg

193 KB | W: | H:

expansions/pics/53721013.jpg
expansions/pics/53721013.jpg
expansions/pics/53721013.jpg
expansions/pics/53721013.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/53721016.jpg

14 KB | W: | H:

expansions/pics/53721016.jpg

178 KB | W: | H:

expansions/pics/53721016.jpg
expansions/pics/53721016.jpg
expansions/pics/53721016.jpg
expansions/pics/53721016.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/53722003.jpg

15.2 KB | W: | H:

expansions/pics/53722003.jpg

193 KB | W: | H:

expansions/pics/53722003.jpg
expansions/pics/53722003.jpg
expansions/pics/53722003.jpg
expansions/pics/53722003.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/53722008.jpg

19 KB | W: | H:

expansions/pics/53722008.jpg

227 KB | W: | H:

expansions/pics/53722008.jpg
expansions/pics/53722008.jpg
expansions/pics/53722008.jpg
expansions/pics/53722008.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/53722010.jpg

14.4 KB | W: | H:

expansions/pics/53722010.jpg

187 KB | W: | H:

expansions/pics/53722010.jpg
expansions/pics/53722010.jpg
expansions/pics/53722010.jpg
expansions/pics/53722010.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/53722011.jpg

17.3 KB | W: | H:

expansions/pics/53722011.jpg

233 KB | W: | H:

expansions/pics/53722011.jpg
expansions/pics/53722011.jpg
expansions/pics/53722011.jpg
expansions/pics/53722011.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/53731021.jpg

14.5 KB | W: | H:

expansions/pics/53731021.jpg

188 KB | W: | H:

expansions/pics/53731021.jpg
expansions/pics/53731021.jpg
expansions/pics/53731021.jpg
expansions/pics/53731021.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/53736017.jpg

15.1 KB | W: | H:

expansions/pics/53736017.jpg

195 KB | W: | H:

expansions/pics/53736017.jpg
expansions/pics/53736017.jpg
expansions/pics/53736017.jpg
expansions/pics/53736017.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/53755008.jpg

17.1 KB | W: | H:

expansions/pics/53755008.jpg

213 KB | W: | H:

expansions/pics/53755008.jpg
expansions/pics/53755008.jpg
expansions/pics/53755008.jpg
expansions/pics/53755008.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/53765008.jpg

15.4 KB | W: | H:

expansions/pics/53765008.jpg

181 KB | W: | H:

expansions/pics/53765008.jpg
expansions/pics/53765008.jpg
expansions/pics/53765008.jpg
expansions/pics/53765008.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140041.jpg

8.18 KB | W: | H:

expansions/pics/65140041.jpg

3.33 KB | W: | H:

expansions/pics/65140041.jpg
expansions/pics/65140041.jpg
expansions/pics/65140041.jpg
expansions/pics/65140041.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140042.jpg

13.3 KB | W: | H:

expansions/pics/65140042.jpg

3.33 KB | W: | H:

expansions/pics/65140042.jpg
expansions/pics/65140042.jpg
expansions/pics/65140042.jpg
expansions/pics/65140042.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140043.jpg

16.6 KB | W: | H:

expansions/pics/65140043.jpg

3.33 KB | W: | H:

expansions/pics/65140043.jpg
expansions/pics/65140043.jpg
expansions/pics/65140043.jpg
expansions/pics/65140043.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140044.jpg

20.8 KB | W: | H:

expansions/pics/65140044.jpg

3.33 KB | W: | H:

expansions/pics/65140044.jpg
expansions/pics/65140044.jpg
expansions/pics/65140044.jpg
expansions/pics/65140044.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140045.jpg

26.6 KB | W: | H:

expansions/pics/65140045.jpg

3.33 KB | W: | H:

expansions/pics/65140045.jpg
expansions/pics/65140045.jpg
expansions/pics/65140045.jpg
expansions/pics/65140045.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140046.jpg

30.8 KB | W: | H:

expansions/pics/65140046.jpg

3.33 KB | W: | H:

expansions/pics/65140046.jpg
expansions/pics/65140046.jpg
expansions/pics/65140046.jpg
expansions/pics/65140046.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140047.jpg

36.6 KB | W: | H:

expansions/pics/65140047.jpg

3.33 KB | W: | H:

expansions/pics/65140047.jpg
expansions/pics/65140047.jpg
expansions/pics/65140047.jpg
expansions/pics/65140047.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140048.jpg

46.2 KB | W: | H:

expansions/pics/65140048.jpg

3.33 KB | W: | H:

expansions/pics/65140048.jpg
expansions/pics/65140048.jpg
expansions/pics/65140048.jpg
expansions/pics/65140048.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140049.jpg

44.2 KB | W: | H:

expansions/pics/65140049.jpg

3.33 KB | W: | H:

expansions/pics/65140049.jpg
expansions/pics/65140049.jpg
expansions/pics/65140049.jpg
expansions/pics/65140049.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140050.jpg

43.1 KB | W: | H:

expansions/pics/65140050.jpg

3.33 KB | W: | H:

expansions/pics/65140050.jpg
expansions/pics/65140050.jpg
expansions/pics/65140050.jpg
expansions/pics/65140050.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140051.jpg

38.4 KB | W: | H:

expansions/pics/65140051.jpg

3.33 KB | W: | H:

expansions/pics/65140051.jpg
expansions/pics/65140051.jpg
expansions/pics/65140051.jpg
expansions/pics/65140051.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140052.jpg

38.2 KB | W: | H:

expansions/pics/65140052.jpg

3.33 KB | W: | H:

expansions/pics/65140052.jpg
expansions/pics/65140052.jpg
expansions/pics/65140052.jpg
expansions/pics/65140052.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140053.jpg

36.6 KB | W: | H:

expansions/pics/65140053.jpg

3.33 KB | W: | H:

expansions/pics/65140053.jpg
expansions/pics/65140053.jpg
expansions/pics/65140053.jpg
expansions/pics/65140053.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140054.jpg

40.1 KB | W: | H:

expansions/pics/65140054.jpg

3.33 KB | W: | H:

expansions/pics/65140054.jpg
expansions/pics/65140054.jpg
expansions/pics/65140054.jpg
expansions/pics/65140054.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140055.jpg

36.3 KB | W: | H:

expansions/pics/65140055.jpg

3.33 KB | W: | H:

expansions/pics/65140055.jpg
expansions/pics/65140055.jpg
expansions/pics/65140055.jpg
expansions/pics/65140055.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140056.jpg

29.3 KB | W: | H:

expansions/pics/65140056.jpg

3.33 KB | W: | H:

expansions/pics/65140056.jpg
expansions/pics/65140056.jpg
expansions/pics/65140056.jpg
expansions/pics/65140056.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140057.jpg

29.3 KB | W: | H:

expansions/pics/65140057.jpg

3.33 KB | W: | H:

expansions/pics/65140057.jpg
expansions/pics/65140057.jpg
expansions/pics/65140057.jpg
expansions/pics/65140057.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140058.jpg

23.3 KB | W: | H:

expansions/pics/65140058.jpg

3.33 KB | W: | H:

expansions/pics/65140058.jpg
expansions/pics/65140058.jpg
expansions/pics/65140058.jpg
expansions/pics/65140058.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140059.jpg

15.9 KB | W: | H:

expansions/pics/65140059.jpg

3.33 KB | W: | H:

expansions/pics/65140059.jpg
expansions/pics/65140059.jpg
expansions/pics/65140059.jpg
expansions/pics/65140059.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140060.jpg

12.2 KB | W: | H:

expansions/pics/65140060.jpg

3.33 KB | W: | H:

expansions/pics/65140060.jpg
expansions/pics/65140060.jpg
expansions/pics/65140060.jpg
expansions/pics/65140060.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140061.jpg

12.4 KB | W: | H:

expansions/pics/65140061.jpg

3.33 KB | W: | H:

expansions/pics/65140061.jpg
expansions/pics/65140061.jpg
expansions/pics/65140061.jpg
expansions/pics/65140061.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140062.jpg

13.6 KB | W: | H:

expansions/pics/65140062.jpg

3.33 KB | W: | H:

expansions/pics/65140062.jpg
expansions/pics/65140062.jpg
expansions/pics/65140062.jpg
expansions/pics/65140062.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140063.jpg

15.5 KB | W: | H:

expansions/pics/65140063.jpg

3.33 KB | W: | H:

expansions/pics/65140063.jpg
expansions/pics/65140063.jpg
expansions/pics/65140063.jpg
expansions/pics/65140063.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140064.jpg

16.3 KB | W: | H:

expansions/pics/65140064.jpg

3.33 KB | W: | H:

expansions/pics/65140064.jpg
expansions/pics/65140064.jpg
expansions/pics/65140064.jpg
expansions/pics/65140064.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140065.jpg

16.6 KB | W: | H:

expansions/pics/65140065.jpg

3.33 KB | W: | H:

expansions/pics/65140065.jpg
expansions/pics/65140065.jpg
expansions/pics/65140065.jpg
expansions/pics/65140065.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140066.jpg

16.7 KB | W: | H:

expansions/pics/65140066.jpg

3.33 KB | W: | H:

expansions/pics/65140066.jpg
expansions/pics/65140066.jpg
expansions/pics/65140066.jpg
expansions/pics/65140066.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140067.jpg

17 KB | W: | H:

expansions/pics/65140067.jpg

3.33 KB | W: | H:

expansions/pics/65140067.jpg
expansions/pics/65140067.jpg
expansions/pics/65140067.jpg
expansions/pics/65140067.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140068.jpg

17.6 KB | W: | H:

expansions/pics/65140068.jpg

3.33 KB | W: | H:

expansions/pics/65140068.jpg
expansions/pics/65140068.jpg
expansions/pics/65140068.jpg
expansions/pics/65140068.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140069.jpg

17.9 KB | W: | H:

expansions/pics/65140069.jpg

3.33 KB | W: | H:

expansions/pics/65140069.jpg
expansions/pics/65140069.jpg
expansions/pics/65140069.jpg
expansions/pics/65140069.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140070.jpg

16.1 KB | W: | H:

expansions/pics/65140070.jpg

3.33 KB | W: | H:

expansions/pics/65140070.jpg
expansions/pics/65140070.jpg
expansions/pics/65140070.jpg
expansions/pics/65140070.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140071.jpg

8.82 KB | W: | H:

expansions/pics/65140071.jpg

3.33 KB | W: | H:

expansions/pics/65140071.jpg
expansions/pics/65140071.jpg
expansions/pics/65140071.jpg
expansions/pics/65140071.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140072.jpg

35.3 KB | W: | H:

expansions/pics/65140072.jpg

3.33 KB | W: | H:

expansions/pics/65140072.jpg
expansions/pics/65140072.jpg
expansions/pics/65140072.jpg
expansions/pics/65140072.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140073.jpg

12.5 KB | W: | H:

expansions/pics/65140073.jpg

3.33 KB | W: | H:

expansions/pics/65140073.jpg
expansions/pics/65140073.jpg
expansions/pics/65140073.jpg
expansions/pics/65140073.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140074.jpg

12.4 KB | W: | H:

expansions/pics/65140074.jpg

3.33 KB | W: | H:

expansions/pics/65140074.jpg
expansions/pics/65140074.jpg
expansions/pics/65140074.jpg
expansions/pics/65140074.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140075.jpg

12.4 KB | W: | H:

expansions/pics/65140075.jpg

3.33 KB | W: | H:

expansions/pics/65140075.jpg
expansions/pics/65140075.jpg
expansions/pics/65140075.jpg
expansions/pics/65140075.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140076.jpg

12.4 KB | W: | H:

expansions/pics/65140076.jpg

3.33 KB | W: | H:

expansions/pics/65140076.jpg
expansions/pics/65140076.jpg
expansions/pics/65140076.jpg
expansions/pics/65140076.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140077.jpg

7.85 KB | W: | H:

expansions/pics/65140077.jpg

3.33 KB | W: | H:

expansions/pics/65140077.jpg
expansions/pics/65140077.jpg
expansions/pics/65140077.jpg
expansions/pics/65140077.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/65140078.jpg

7.61 KB | W: | H:

expansions/pics/65140078.jpg

3.33 KB | W: | H:

expansions/pics/65140078.jpg
expansions/pics/65140078.jpg
expansions/pics/65140078.jpg
expansions/pics/65140078.jpg
  • 2-up
  • Swipe
  • Onion skin
......@@ -188,18 +188,51 @@ function cm.initial_effect(c)
if ad_ht_zc then ct=ct+ad_ht_zc end
return ct
end
cm[10]=Effect.IsActivatable
Effect.IsActivatable=function(re,tp,...)
local res=cm[10](re,tp,...)
if cm[9](tp,LOCATION_SZONE)<1 and ad_ht_ac_ignz then
local b=true
local pe={Duel.IsPlayerAffectedByEffect(tp,EFFECT_CANNOT_ACTIVATE)}
for _,v in pairs(pe) do
local val=v:GetValue()
if aux.GetValueType(val)=="number" or val(v,re,tp) then b=false end
cm[10]=Effect.GetActivateLocation
Effect.GetActivateLocation=function(re)
local rc=re:GetHandler()
local xe={rc:IsHasEffect(53765099)}
local b=false
for _,v in pairs(xe) do if re==v:GetLabelObject() then b=true end end
if b then return LOCATION_SZONE else return cm[10](re) end
end
cm[11]=Effect.GetActivateSequence
Effect.GetActivateSequence=function(re)
local rc=re:GetHandler()
local xe={rc:IsHasEffect(53765099)}
local ls=0
local seq=cm[11](re)
for _,v in pairs(xe) do
if re==v:GetLabelObject() then
ls=v:GetLabel()
break
end
return b
else return res end
end
if ls>0 then return ls-1 else return seq end
end
cm[12]=Duel.GetChainInfo
Duel.GetChainInfo=function(chainc,...)
local re=cm[12](chainc,CHAININFO_TRIGGERING_EFFECT)
local rc=re:GetHandler()
local xe={rc:IsHasEffect(53765099)}
local b=false
local ls=0
for _,v in pairs(xe) do
if re==v:GetLabelObject() then
b=true
ls=v:GetLabel()
break
end
end
local t={cm[12](chainc,...)}
if b then
for k,info in ipairs({...}) do
if info==CHAININFO_TRIGGERING_LOCATION then t[k]=LOCATION_SZONE end
if info==CHAININFO_TRIGGERING_SEQUENCE and ls>0 then t[k]=ls-1 end
if info==CHAININFO_TRIGGERING_POSITION then t[k]=POS_FACEUP end
end
end
return table.unpack(t)
end
end
end
......@@ -355,6 +388,7 @@ function cm.costop(e,tp,eg,ep,ev,re,r,rp)
e0:SetValue(0x20004)
c:RegisterEffect(e0,true)
Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,false)
xe1:SetLabel(c:GetSequence()+1)
e0:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
c:CreateEffectRelation(te)
local ev0=Duel.GetCurrentChain()+1
......@@ -382,7 +416,7 @@ function cm.rsop(e,tp,eg,ep,ev,re,r,rp)
if e:GetCode()==EVENT_CHAIN_SOLVING and rc:IsRelateToEffect(re) then
rc:SetStatus(STATUS_EFFECT_ENABLED,true)
end
if e:GetCode()==EVENT_CHAIN_NEGATED and rc:IsRelateToEffect(re) then
if e:GetCode()==EVENT_CHAIN_NEGATED and rc:IsRelateToEffect(re) and not (rc:IsOnField() and rc:IsFacedown()) then
rc:SetStatus(STATUS_ACTIVATE_DISABLED,true)
rc:CancelToGrave(false)
end
......@@ -404,12 +438,12 @@ function cm.mvop(e,tp,eg,ep,ev,re,r,rp)
for c in aux.Next(g) do
local le={c:GetActivateEffect()}
for _,te in pairs(le) do
if te:GetRange()==0x10a or te:GetRange()==0xa or te:GetRange()==0x2 then
if te:GetRange()==0x10a or te:GetRange()==0x2 then
local e1=te:Clone()
e1:SetDescription(aux.Stringid(m,1))
if te:GetCode()==EVENT_FREE_CHAIN then
if te:IsActiveType(TYPE_TRAP+TYPE_QUICKPLAY) then e1:SetType(EFFECT_TYPE_QUICK_O) else e1:SetType(EFFECT_TYPE_IGNITION) end
elseif te:GetCode()==EVENT_CHAINING then e1:SetType(EFFECT_TYPE_QUICK_O) elseif te:GetCode() then e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) end
elseif te:GetCode()==EVENT_CHAINING then e1:SetType(EFFECT_TYPE_QUICK_O) elseif te:GetCode()~=0 then e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) else e1:SetType(EFFECT_TYPE_IGNITION) end
e1:SetRange(LOCATION_HAND)
local pro,pro2=te:GetProperty()
e1:SetProperty(pro|EFFECT_FLAG_UNCOPYABLE,pro2)
......@@ -475,13 +509,25 @@ end
function cm.faccost(_cost,fe,zone)
return function(e,te,tp)
ad_ht_zc=1
ad_ht_ac_ignz=true
if not fe:IsActivatable(tp) then
local fcost=fe:GetCost()
local ftg=fe:GetTarget()
local check=false
local code=fe:GetCode()
if code==0 or code==EVENT_FREE_CHAIN then
if (not fcost or fcost(fe,tp,nil,0,0,nil,0,0,0)) and (not ftg or ftg(fe,tp,nil,0,0,nil,0,0,0)) then check=true end
else
local cres,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(code,true)
if cres and (not fcost or fcost(fe,tp,teg,tep,tev,tre,tr,trp,0)) and (not ftg or ftg(fe,tp,teg,tep,tev,tre,tr,trp,0)) then check=true end
end
local pe={Duel.IsPlayerAffectedByEffect(tp,EFFECT_CANNOT_ACTIVATE)}
for _,v in pairs(pe) do
local val=v:GetValue()
if aux.GetValueType(val)=="number" or val(v,fe,tp) then check=false end
end
if not fe:IsActivatable(tp) and not check then
ad_ht_zc=nil
ad_ht_ac_ignz=nil
return false
end
ad_ht_ac_ignz=nil
local c=e:GetHandler()
local xe={c:IsHasEffect(53765099)}
for _,v in pairs(xe) do v:Reset() end
......@@ -518,6 +564,7 @@ function cm.mvcostop(e,tp,eg,ep,ev,re,r,rp)
local c=te:GetHandler()
local xe1=cm.regi(c,te)
Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,false)
xe1:SetLabel(c:GetSequence()+1)
c:CreateEffectRelation(te)
local ev0=Duel.GetCurrentChain()+1
local e1=Effect.CreateEffect(c)
......@@ -542,7 +589,7 @@ function cm.mvrsop(e,tp,eg,ep,ev,re,r,rp)
rc:SetStatus(STATUS_EFFECT_ENABLED,true)
if not rc:IsType(TYPE_CONTINUOUS+TYPE_EQUIP+TYPE_PENDULUM) and not rc:IsHasEffect(EFFECT_REMAIN_FIELD) then rc:CancelToGrave(false) end
end
if e:GetCode()==EVENT_CHAIN_NEGATED and rc:IsRelateToEffect(re) then
if e:GetCode()==EVENT_CHAIN_NEGATED and rc:IsRelateToEffect(re) and not (rc:IsOnField() and rc:IsFacedown()) then
rc:SetStatus(STATUS_ACTIVATE_DISABLED,true)
rc:CancelToGrave(false)
end
......
......@@ -70,6 +70,12 @@ function cm.initial_effect(c)
e7:SetTarget(cm.uptg)
e7:SetOperation(cm.upop)
c:RegisterEffect(e7)
local e8=Effect.CreateEffect(c)
e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e8:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e8:SetCode(EVENT_MOVE)
e8:SetOperation(cm.mvhint)
c:RegisterEffect(e8)
if not cm.global_check then
cm.global_check=true
local ge3=Effect.CreateEffect(c)
......@@ -158,18 +164,51 @@ function cm.initial_effect(c)
if ad_ht_zc then ct=ct+ad_ht_zc end
return ct
end
cm[10]=Effect.IsActivatable
Effect.IsActivatable=function(re,tp,...)
local res=cm[10](re,tp,...)
if cm[9](tp,LOCATION_SZONE)<1 and ad_ht_ac_ignz then
local b=true
local pe={Duel.IsPlayerAffectedByEffect(tp,EFFECT_CANNOT_ACTIVATE)}
for _,v in pairs(pe) do
local val=v:GetValue()
if aux.GetValueType(val)=="number" or val(v,re,tp) then b=false end
cm[10]=Effect.GetActivateLocation
Effect.GetActivateLocation=function(re)
local rc=re:GetHandler()
local xe={rc:IsHasEffect(53765099)}
local b=false
for _,v in pairs(xe) do if re==v:GetLabelObject() then b=true end end
if b then return LOCATION_SZONE else return cm[10](re) end
end
cm[11]=Effect.GetActivateSequence
Effect.GetActivateSequence=function(re)
local rc=re:GetHandler()
local xe={rc:IsHasEffect(53765099)}
local ls=0
local seq=cm[11](re)
for _,v in pairs(xe) do
if re==v:GetLabelObject() then
ls=v:GetLabel()
break
end
return b
else return res end
end
if ls>0 then return ls-1 else return seq end
end
cm[12]=Duel.GetChainInfo
Duel.GetChainInfo=function(chainc,...)
local re=cm[12](chainc,CHAININFO_TRIGGERING_EFFECT)
local rc=re:GetHandler()
local xe={rc:IsHasEffect(53765099)}
local b=false
local ls=0
for _,v in pairs(xe) do
if re==v:GetLabelObject() then
b=true
ls=v:GetLabel()
break
end
end
local t={cm[12](chainc,...)}
if b then
for k,info in ipairs({...}) do
if info==CHAININFO_TRIGGERING_LOCATION then t[k]=LOCATION_SZONE end
if info==CHAININFO_TRIGGERING_SEQUENCE and ls>0 then t[k]=ls-1 end
if info==CHAININFO_TRIGGERING_POSITION then t[k]=POS_FACEUP end
end
end
return table.unpack(t)
end
end
end
......@@ -325,6 +364,7 @@ function cm.costop(e,tp,eg,ep,ev,re,r,rp)
e0:SetValue(0x20004)
c:RegisterEffect(e0,true)
Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,false)
xe1:SetLabel(c:GetSequence()+1)
e0:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
c:CreateEffectRelation(te)
local ev0=Duel.GetCurrentChain()+1
......@@ -352,7 +392,7 @@ function cm.rsop(e,tp,eg,ep,ev,re,r,rp)
if e:GetCode()==EVENT_CHAIN_SOLVING and rc:IsRelateToEffect(re) then
rc:SetStatus(STATUS_EFFECT_ENABLED,true)
end
if e:GetCode()==EVENT_CHAIN_NEGATED and rc:IsRelateToEffect(re) then
if e:GetCode()==EVENT_CHAIN_NEGATED and rc:IsRelateToEffect(re) and not (rc:IsOnField() and rc:IsFacedown()) then
rc:SetStatus(STATUS_ACTIVATE_DISABLED,true)
rc:CancelToGrave(false)
end
......@@ -380,7 +420,7 @@ function cm.mvop(e,tp,eg,ep,ev,re,r,rp)
e1:SetDescription(aux.Stringid(m,1))
if te:GetCode()==EVENT_FREE_CHAIN then
if te:IsActiveType(TYPE_TRAP+TYPE_QUICKPLAY) then e1:SetType(EFFECT_TYPE_QUICK_O) else e1:SetType(EFFECT_TYPE_IGNITION) end
elseif te:GetCode()==EVENT_CHAINING then e1:SetType(EFFECT_TYPE_QUICK_O) elseif te:GetCode() then e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) end
elseif te:GetCode()==EVENT_CHAINING then e1:SetType(EFFECT_TYPE_QUICK_O) elseif te:GetCode()~=0 then e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) else e1:SetType(EFFECT_TYPE_IGNITION) end
e1:SetRange(LOCATION_HAND)
local pro,pro2=te:GetProperty()
e1:SetProperty(pro|EFFECT_FLAG_UNCOPYABLE,pro2)
......@@ -464,13 +504,25 @@ end
function cm.faccost(_cost,fe,zone)
return function(e,te,tp)
ad_ht_zc=1
ad_ht_ac_ignz=true
if not fe:IsActivatable(tp) then
local fcost=fe:GetCost()
local ftg=fe:GetTarget()
local check=false
local code=fe:GetCode()
if code==0 or code==EVENT_FREE_CHAIN then
if (not fcost or fcost(fe,tp,nil,0,0,nil,0,0,0)) and (not ftg or ftg(fe,tp,nil,0,0,nil,0,0,0)) then check=true end
else
local cres,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(code,true)
if cres and (not fcost or fcost(fe,tp,teg,tep,tev,tre,tr,trp,0)) and (not ftg or ftg(fe,tp,teg,tep,tev,tre,tr,trp,0)) then check=true end
end
local pe={Duel.IsPlayerAffectedByEffect(tp,EFFECT_CANNOT_ACTIVATE)}
for _,v in pairs(pe) do
local val=v:GetValue()
if aux.GetValueType(val)=="number" or val(v,fe,tp) then check=false end
end
if not fe:IsActivatable(tp) and not check then
ad_ht_zc=nil
ad_ht_ac_ignz=nil
return false
end
ad_ht_ac_ignz=nil
local c=e:GetHandler()
local xe={c:IsHasEffect(53765099)}
for _,v in pairs(xe) do v:Reset() end
......@@ -524,6 +576,7 @@ function cm.mvcostop(e,tp,eg,ep,ev,re,r,rp)
local c=te:GetHandler()
local xe1=cm.regi(c,te)
Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,false)
xe1:SetLabel(c:GetSequence()+1)
c:CreateEffectRelation(te)
local ev0=Duel.GetCurrentChain()+1
local e1=Effect.CreateEffect(c)
......@@ -548,7 +601,7 @@ function cm.mvrsop(e,tp,eg,ep,ev,re,r,rp)
rc:SetStatus(STATUS_EFFECT_ENABLED,true)
if not rc:IsType(TYPE_CONTINUOUS+TYPE_EQUIP+TYPE_PENDULUM) and not rc:IsHasEffect(EFFECT_REMAIN_FIELD) then rc:CancelToGrave(false) end
end
if e:GetCode()==EVENT_CHAIN_NEGATED and rc:IsRelateToEffect(re) then
if e:GetCode()==EVENT_CHAIN_NEGATED and rc:IsRelateToEffect(re) and not (rc:IsOnField() and rc:IsFacedown()) then
rc:SetStatus(STATUS_ACTIVATE_DISABLED,true)
rc:CancelToGrave(false)
end
......@@ -568,12 +621,22 @@ function cm.mvctfilter(c)
end
function cm.mvcount(e,tp,eg,ep,ev,re,r,rp)
local g=eg:Filter(cm.mvctfilter,nil)
g:ForEach(Card.RegisterFlagEffect,m,RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD-RESET_LEAVE,0,1)
g:ForEach(Card.RegisterFlagEffect,m,RESET_EVENT+0x7e0000,0,1)
end
function cm.mvhint(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not (c:IsLocation(LOCATION_SZONE) and c:IsPreviousLocation(LOCATION_SZONE) and (c:GetPreviousSequence()~=c:GetSequence() or c:GetPreviousControler()~=c:GetControler())) then return end
local flag=c:GetFlagEffectLabel(m+50)
if flag then
flag=flag+1
c:ResetFlagEffect(m+50)
c:RegisterFlagEffect(m+50,RESET_EVENT+0x7e0000,EFFECT_FLAG_CLIENT_HINT,1,flag,aux.Stringid(53765000,flag-1))
else c:RegisterFlagEffect(m+50,RESET_EVENT+0x7e0000,EFFECT_FLAG_CLIENT_HINT,1,1,aux.Stringid(53765000,0)) end
end
function cm.disop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local ct=c:GetFlagEffect(m)
if ct==0 then return end
if ct==0 or ct>10 then return end
local eset={c:IsHasEffect(m)}
local res=true
for _,v in pairs(eset) do if v:GetLabel()==tp then res=false end end
......
--向全体机凯种致以最崇高的敬意
local m=60000101
local cm=_G["c"..m]
cm.name="向全体机凯种致以最崇高的敬意"
--cm.name="向全体机凯种致以最崇高的敬意"
jkz = {}
jkz.count = {}
function cm.initial_effect(c)
......@@ -23,7 +23,7 @@ function cm.initial_effect(c)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_GRAVE)
e2:SetCountLimit(1,m)
e2:SetConditiom(jkz.xcon)
e2:SetCondition(jkz.xcon)
e2:SetTarget(cm.xxtg)
e2:SetOperation(cm.desop)
c:RegisterEffect(e2)
......@@ -76,38 +76,38 @@ function cm.desop(e,tp,eg,ep,ev,re,r,rp)
end
------------------------------------------------------------------
function jkz.GetCountEffect(c)
if jkz.CheckCount then return false end
jkz.CheckCount = true
local ge1 = Effect.GlobalEffect(c)
ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
ge1:SetCode(EVENT_CHAINING)
ge1:SetCondition(jkz.con)
ge1:SetOperation(jkz.op)
Duel.RegisterEffect(ge1,tp)
return ge1
if jkz.CheckCount then return false end
jkz.CheckCount = true
local ge1 = Effect.GlobalEffect(c)
ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
ge1:SetCode(EVENT_CHAINING)
ge1:SetCondition(jkz.con)
ge1:SetOperation(jkz.op)
Duel.RegisterEffect(ge1,tp)
return ge1
end
function jkz.con(e,tp,eg,ep,ev,re,r,rp)
return re:GetHandler().named_with_ExMachina and re:GetHandler():IsType(TYPE_MONSTER) and rp==tp
return re:GetHandler().named_with_ExMachina and re:GetHandler():IsType(TYPE_MONSTER) and rp==tp
end
function jkz.op(e,tp,eg,ep,ev,re,r,rp)
local turn = Duel.GetTurnCount()
if not jkz.count[turn] then jkz.count[turn] = 0 end
jkz.count[turn] = jkz.count[turn] + 1
local turn = Duel.GetTurnCount()
if not jkz.count[turn] then jkz.count[turn] = 0 end
jkz.count[turn] = jkz.count[turn] + 1
end
function jkz.GetActCount(ct,c)
local a , b = jkz.count(ct-1) or 0 and jkz.count(ct) or 0
ct = a + b
if c and type(c) == "number" then
if ct>=c then return true
else return false end
end
return ct
local a , b = jkz.count(ct-1) or 0 and jkz.count(ct) or 0
ct = a + b
if c and type(c) == "number" then
if ct>=c then return true
else return false end
end
return ct
end
function jkz.acon(e,tp,eg,ep,ev,re,r,rp)
local ct = Duel.GetTurnCount()
return Duel.GetTurnPlayer() == tp or jkz.GetCount(ct,3)
local ct = Duel.GetTurnCount()
return Duel.GetTurnPlayer() == tp or jkz.GetCount(ct,3)
end
function jkz.xcon(e,tp,eg,ep,ev,re,r,rp)
local ct = Duel.GetTurnCount()
return jkz.GetActCount(ct,3)
local ct = Duel.GetTurnCount()
return jkz.GetActCount(ct,3)
end
\ No newline at end of file
......@@ -5,17 +5,13 @@ cm.name = "妖精骑士 高文"
function cm.initial_effect(c)
c:EnableReviveLimit()
local e0 = Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetCode(EFFECT_CANNOT_SUMMON)
e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e0:SetRange(LOCATION_HAND)
e0:SetTargetRange(1, 0)
e0:SetTarget(cm.splimit)
c:RegisterEffect(e0)
local e00 = e0:Clone()
e0:SetCode(EFFECT_CANNOT_MSET)
c:RegisterEffect(e00)
--cannot special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(aux.FALSE)
c:RegisterEffect(e1)
--Special summon
local e1 = Effect.CreateEffect(c)
......
......@@ -5,17 +5,13 @@ cm.name = "妖精骑士 兰斯洛特"
function cm.initial_effect(c)
c:EnableReviveLimit()
local e0 = Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetCode(EFFECT_CANNOT_SUMMON)
e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e0:SetRange(LOCATION_HAND)
e0:SetTargetRange(1, 0)
e0:SetTarget(cm.splimit)
c:RegisterEffect(e0)
local e00 = e0:Clone()
e0:SetCode(EFFECT_CANNOT_MSET)
c:RegisterEffect(e00)
--cannot special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(aux.FALSE)
c:RegisterEffect(e1)
--Special summon
local e1 = Effect.CreateEffect(c)
......
......@@ -5,17 +5,13 @@ cm.name = "妖精骑士 崔斯坦"
function cm.initial_effect(c)
c:EnableReviveLimit()
local e0 = Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetCode(EFFECT_CANNOT_SUMMON)
e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e0:SetRange(LOCATION_HAND)
e0:SetTargetRange(1, 0)
e0:SetTarget(cm.splimit)
c:RegisterEffect(e0)
local e00 = e0:Clone()
e0:SetCode(EFFECT_CANNOT_MSET)
c:RegisterEffect(e00)
--cannot special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(aux.FALSE)
c:RegisterEffect(e1)
--Special summon
local e1 = Effect.CreateEffect(c)
......
......@@ -11,7 +11,7 @@ function cm.initial_effect(c)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetCondition(cm.spcon)
e1:SetCondition(cm.spcon2)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
......@@ -28,14 +28,14 @@ function cm.initial_effect(c)
e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e4:SetCode(EFFECT_CANNOT_ACTIVATE)
e4:SetRange(LOCATION_MZONE)
e4:SetTargetRange(1,0)
e4:SetTargetRange(1,1)
e4:SetValue(cm.aclimit)
c:RegisterEffect(e4)
end
function cm.filter(c)
return (c:IsLevel(2) or c:IsLink(2)) and c:IsFaceup()
end
function cm.spcon(e,c)
function cm.spcon2(e,c)
if c==nil then return true end
return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(cm.filter,c:GetControler(),LOCATION_MZONE,0,1,nil)
......
......@@ -6,17 +6,13 @@ cm.name = "妖精骑士 高文"
function cm.initial_effect(c)
c:EnableReviveLimit()
local e0 = Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetCode(EFFECT_CANNOT_SUMMON)
e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e0:SetRange(LOCATION_HAND)
e0:SetTargetRange(1, 0)
e0:SetTarget(cm.splimit)
c:RegisterEffect(e0)
local e00 = e0:Clone()
e0:SetCode(EFFECT_CANNOT_MSET)
c:RegisterEffect(e00)
--cannot special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(aux.FALSE)
c:RegisterEffect(e1)
--Special summon
local e1 = Effect.CreateEffect(c)
......
......@@ -6,17 +6,13 @@ cm.name = "妖精骑士 兰斯洛特"
function cm.initial_effect(c)
c:EnableReviveLimit()
local e0 = Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetCode(EFFECT_CANNOT_SUMMON)
e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e0:SetRange(LOCATION_HAND)
e0:SetTargetRange(1, 0)
e0:SetTarget(cm.splimit)
c:RegisterEffect(e0)
local e00 = e0:Clone()
e0:SetCode(EFFECT_CANNOT_MSET)
c:RegisterEffect(e00)
--cannot special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(aux.FALSE)
c:RegisterEffect(e1)
--Special summon
local e1 = Effect.CreateEffect(c)
......
......@@ -6,17 +6,13 @@ cm.name = "妖精骑士 崔斯坦"
function cm.initial_effect(c)
c:EnableReviveLimit()
local e0 = Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetCode(EFFECT_CANNOT_SUMMON)
e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e0:SetRange(LOCATION_HAND)
e0:SetTargetRange(1, 0)
e0:SetTarget(cm.splimit)
c:RegisterEffect(e0)
local e00 = e0:Clone()
e0:SetCode(EFFECT_CANNOT_MSET)
c:RegisterEffect(e00)
--cannot special summon
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(aux.FALSE)
c:RegisterEffect(e1)
--Special summon
local e1 = Effect.CreateEffect(c)
......
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