Commit 9fc561a9 authored by Nemo Ma's avatar Nemo Ma

wild

parent 79f6c58f
......@@ -2182,6 +2182,24 @@
60362066 0
74920585 0
77103950 1
#240922
11561066 0
13000770 0
13000773 0
13000776 0
31400049 0
60010044 0
65130314 0
70002134 0
79029520 0
211000003 0
211000004 0
211000005 0
10174059 1
12825613 1
60010170 1
7458127 2
65130358 2
#240908
11451704 0
11799501 0
......@@ -4415,7 +4433,6 @@
90700001 0 --霜火要塞,系列剑指west环境,ban此卡即可
31401001 0 --化生雷鸟石,系列剑指wd环境,按此表ban即可
31401002 0 --化生腮鱼石,系列剑指wd环境,按此表ban即可
31400049 1 --岩热炎龙机,不建议在std让炎龙机无限互相拉
31400045 1 --命莲托生,定位是类似死苏的泛用卡
#wild
130005101 0
......@@ -7383,6 +7400,8 @@
14010146 0
91000005 0
130006007 0
65123333 0
70002120 0
!THE WILDEST LIST
#forbidden
44910027 0
......
No preview for this file type
expansions/pics/90351999.jpg

51.4 KB | W: | H:

expansions/pics/90351999.jpg

14.3 KB | W: | H:

expansions/pics/90351999.jpg
expansions/pics/90351999.jpg
expansions/pics/90351999.jpg
expansions/pics/90351999.jpg
  • 2-up
  • Swipe
  • Onion skin
--下落恶魔
local s,id,o=GetID()
function s.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),0)
c:EnableReviveLimit()
--special summon rule
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD)
e0:SetCode(EFFECT_SPSUMMON_PROC)
e0:SetDescription(aux.Stringid(id,0))
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e0:SetRange(LOCATION_EXTRA)
e0:SetValue(SUMMON_TYPE_SYNCHRO)
e0:SetCondition(s.spcon)
e0:SetOperation(s.spop)
c:RegisterEffect(e0)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
c:RegisterEffect(e1)
--cannot special summon
local e2=Effect.CreateEffect(c)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_SPSUMMON_CONDITION)
e2:SetValue(aux.synlimit)
c:RegisterEffect(e2)
--to grave
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetProperty(EFFECT_FLAG_DELAY)
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
e3:SetCondition(s.tdcon)
e3:SetOperation(s.tdop)
c:RegisterEffect(e3)
--cannot act
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e4:SetCode(EFFECT_CANNOT_ACTIVATE)
e4:SetRange(LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED)
e4:SetTargetRange(1,1)
e4:SetCondition(s.accon)
e4:SetValue(s.aclimit)
c:RegisterEffect(e4)
--move
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e5:SetProperty(EFFECT_FLAG_DELAY)
e5:SetCode(EVENT_MOVE)
e5:SetCondition(s.mvcon)
e5:SetOperation(s.mvop)
c:RegisterEffect(e5)
--summon success
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e6:SetCode(EVENT_SPSUMMON_SUCCESS)
e6:SetOperation(s.sumsuc)
c:RegisterEffect(e6)
end
function s.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
return Duel.IsPlayerCanDiscardDeck(tp,13)
end
function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
Duel.DiscardDeck(tp,13,REASON_EFFECT)
end
function s.tdcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO)
end
function s.tdop(e,tp,eg,ep,ev,re,r,rp)
local ge1=Effect.GlobalEffect()
ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
ge1:SetCode(EVENT_CHAIN_SOLVING)
--ge1:SetCondition(s.chcon)
ge1:SetOperation(s.chop)
Duel.RegisterEffect(ge1,0)
end
function s.chop(e,tp,eg,ep,ev,re,r,rp)
local g=Group.CreateGroup()
Duel.Hint(HINT_CARD,0,id)
Duel.DiscardDeck(ep,1,REASON_EFFECT)
if Duel.GetOperatedGroup():FilterCount(Card.IsLocation,nil,LOCATION_GRAVE)==0 then
Duel.ChangeTargetCard(ev,g)
return Duel.ChangeChainOperation(ev,s.repop)
end
end
function s.repop(e,tp,eg,ep,ev,re,r,rp)
Duel.Draw(tp,1,REASON_EFFECT)
end
function s.accon(e)
local c=e:GetHandler()
return c:IsFaceupEx() and c:IsStatus(STATUS_PROC_COMPLETE)
end
function s.aclimit(e,re,tp)
local rc=re:GetHandler()
return Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,rc:GetCode())
end
function s.mvcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return not c:IsPreviousLocation(LOCATION_EXTRA) and c:IsLocation(LOCATION_EXTRA)
end
function s.mvop(e,tp,eg,ep,ev,re,r,rp)
Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT)
end
function s.sumsuc(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(24,0,aux.Stringid(id,1))
end
\ No newline at end of file
......@@ -41,9 +41,22 @@ function c28399984.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c28399984.tgfilter,tp,LOCATION_DECK,0,4,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,4,tp,LOCATION_DECK)
if e:GetLabelObject():IsSetCard(0x284) then
e:SetProperty(EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CAN_FORBIDDEN)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_CHAINING)
e1:SetOperation(c28399984.actop)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
end
function c28399984.actop(e,tp,eg,ep,ev,re,r,rp)
if re:GetHandler():IsCode(28399984) and ep==tp then
Duel.SetChainLimit(c28399984.chainlm)
end
end
function c28399984.chainlm(e,rp,tp)
return tp==rp
end
function c28399984.activate(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c28399984.tgfilter,tp,LOCATION_DECK,0,nil)
if g:GetCount()>=4 then
......@@ -82,14 +95,21 @@ function c28399984.spop(e,tp,eg,ep,ev,re,r,rp)
end
end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EFFECT_CANNOT_ACTIVATE)
e1:SetTargetRange(1,1)
e1:SetValue(c28399984.aclimit)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_CHAIN_SOLVING)
e1:SetCountLimit(1)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetCondition(c28399984.discon)
e1:SetOperation(c28399984.disop)
Duel.RegisterEffect(e1,tp)
end
function c28399984.aclimit(e,re,tp)
return re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsRace(RACE_FAIRY)
function c28399984.discon(e,tp,eg,ep,ev,re,r,rp)
local race=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_RACE)
return re:IsActiveType(TYPE_MONSTER) and race&RACE_FAIRY==0
end
function c28399984.disop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,28399984)
if Duel.NegateEffect(ev,true) and re:GetHandler():IsRelateToEffect(re) then
Duel.SendtoDeck(re:GetHandler(),nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
end
end
--巴别塔
function c90351999.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetHintTiming(TIMING_DRAW_PHASE+TIMING_END_PHASE,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetRange(LOCATION_DECK)
e2:SetCountLimit(1,90351999+EFFECT_COUNT_CODE_DUEL)
c:RegisterEffect(e2)
local s,id,o=GetID()
function s.initial_effect(c)
--add setcode
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
......@@ -19,20 +9,10 @@ function c90351999.initial_effect(c)
e3:SetCode(EFFECT_ADD_SETCODE)
e3:SetValue(0x1)
c:RegisterEffect(e3)
--activate cost
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetCode(EFFECT_ACTIVATE_COST)
e4:SetRange(LOCATION_DECK+LOCATION_HAND)
e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e4:SetTargetRange(1,0)
e4:SetTarget(c90351999.costtg)
e4:SetOperation(c90351999.costop)
c:RegisterEffect(e4)
--change effect
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD)
e5:SetCode(90351999)
e5:SetCode(id)
e5:SetRange(LOCATION_FZONE)
e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e5:SetTargetRange(1,1)
......@@ -42,33 +22,83 @@ function c90351999.initial_effect(c)
aux.setcard_hack_check=true
_IsSetCard=Card.IsSetCard
function Card.IsSetCard(c,setname)
if Duel.IsPlayerAffectedByEffect(c:GetControler(),90351999) then
if Duel.IsPlayerAffectedByEffect(c:GetControler(),id) then
return _IsSetCard(c,setname) or _IsSetCard(c,0x1)
end
return _IsSetCard(c,setname)
end
_IsFusionSetCard=Card.IsFusionSetCard
function Card.IsFusionSetCard(c,setname)
if Duel.IsPlayerAffectedByEffect(c:GetControler(),90351999) then
if Duel.IsPlayerAffectedByEffect(c:GetControler(),id) then
return _IsFusionSetCard(c,setname) or _IsFusionSetCard(c,0x1)
end
return _IsFusionSetCard(c,setname)
end
_IsLinkSetCard=Card.IsLinkSetCard
function Card.IsLinkSetCard(c,setname)
if Duel.IsPlayerAffectedByEffect(c:GetControler(),90351999) then
if Duel.IsPlayerAffectedByEffect(c:GetControler(),id) then
return _IsLinkSetCard(c,setname) or _IsLinkSetCard(c,0x1)
end
return _IsLinkSetCard(c,setname)
end
end
--move to field
if Duel.DisableActionCheck then
--Activate
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_ACTIVATE)
e0:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e0)
if s.global_check then return end
s.global_check=true
--to field
local move=(function()
local ct=Duel.GetFieldGroupCount(0,0,LOCATION_DECK)
local ct2=Duel.GetFieldGroupCount(0,LOCATION_EXTRA,0)
local tp=0
if ct>0 or ct2>0
then tp=1 end
local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
if fc then
Duel.SendtoGrave(fc,REASON_RULE)
Duel.BreakEffect()
end
Duel.DisableShuffleCheck()
Duel.MoveToField(c,tp,tp,LOCATION_FZONE,POS_FACEUP,false)
end)
Duel.DisableActionCheck(true)
pcall(move)
Duel.DisableActionCheck(false)
else
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetHintTiming(TIMING_DRAW_PHASE+TIMING_END_PHASE,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetRange(LOCATION_DECK)
e2:SetCountLimit(1,id+EFFECT_COUNT_CODE_DUEL)
c:RegisterEffect(e2)
--activate cost
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetCode(EFFECT_ACTIVATE_COST)
e4:SetRange(LOCATION_DECK+LOCATION_HAND)
e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e4:SetTargetRange(1,0)
e4:SetTarget(s.costtg)
e4:SetOperation(s.costop)
c:RegisterEffect(e4)
end
end
function c90351999.costtg(e,te,tp)
function s.costtg(e,te,tp)
local tc=te:GetHandler()
e:SetLabelObject(te)
return tc==e:GetHandler() and te:IsHasType(EFFECT_TYPE_QUICK_O) and (tc:IsLocation(LOCATION_HAND) or tc:IsLocation(LOCATION_DECK))
end
function c90351999.costop(e,tp,eg,ep,ev,re,r,rp)
function s.costop(e,tp,eg,ep,ev,re,r,rp)
local te=e:GetLabelObject()
local tc=te:GetHandler()
local tp=te:GetHandlerPlayer()
......@@ -89,13 +119,13 @@ function c90351999.costop(e,tp,eg,ep,ev,re,r,rp)
ge3:SetCode(EVENT_CHAIN_SOLVED)
ge3:SetLabelObject(te)
ge3:SetReset(RESET_PHASE+PHASE_END)
ge3:SetOperation(c90351999.resetop)
ge3:SetOperation(s.resetop)
Duel.RegisterEffect(ge3,tp)
local ge4=ge3:Clone()
ge4:SetCode(EVENT_CHAIN_NEGATED)
Duel.RegisterEffect(ge4,tp)
end
function c90351999.resetop(e,tp,eg,ep,ev,re,r,rp)
function s.resetop(e,tp,eg,ep,ev,re,r,rp)
if re==e:GetLabelObject() and re:IsHasType(EFFECT_TYPE_ACTIVATE) then
re:SetType(EFFECT_TYPE_QUICK_O)
e:Reset()
......
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