Skip to content

no81cards
no81cards
Commit 4f13f675 authored by POLYMER's avatar POLYMER
Browse files
Options

fix

parent ee9a16d3
Hide whitespace changes
Inline Side-by-side
Showing with 181 additions and 435 deletions
expansions/lflist.conf
View file @ 4f13f675
......@@ -1676,7 +1676,6 @@
98941048 0
98941049 0
98941050 0
98942050 0
99550610 0
99700125 0
99700135 0
......@@ -5953,18 +5952,6 @@
70007756 0
70007757 0
98920615 0
65830000 0
65830005 0
65830010 0
65830015 0
65830020 0
65830025 0
65830030 0
65830035 0
65830040 0
65830045 0
65830050 0
65830055 0
40009673 0
40009675 0
40009677 0
......
expansions/no42.cdb
View file @ 4f13f675
No preview for this file type
expansions/no81.cdb
View file @ 4f13f675
No preview for this file type
expansions/script/c40011619.lua
View file @ 4f13f675
......@@ -33,6 +33,7 @@ function cm.spcfilter(c)
end
function cm.spccon(e,c)
if c==nil then return true end
local tp=c:GetControler()
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and (Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 or not Duel.IsExistingMatchingCard(cm.spcfilter,tp,LOCATION_MZONE,0,1,nil))
end
......
expansions/script/c40011623.lua
View file @ 4f13f675
......@@ -59,7 +59,7 @@ function cm.destg1(e,tp,eg,ep,ev,re,r,rp,chk)
local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
end
function cm.deop1(e,tp,eg,ep,ev,re,r,rp)
function cm.desop1(e,tp,eg,ep,ev,re,r,rp)
local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
Duel.Destroy(sg,REASON_EFFECT)
end
......@@ -74,7 +74,7 @@ function cm.destg2(e,tp,eg,ep,ev,re,r,rp,chk)
local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_SZONE,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
end
function cm.deop2(e,tp,eg,ep,ev,re,r,rp)
function cm.desop2(e,tp,eg,ep,ev,re,r,rp)
local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_SZONE,nil)
Duel.Destroy(sg,REASON_EFFECT)
end
......@@ -89,7 +89,7 @@ function cm.destg3(e,tp,eg,ep,ev,re,r,rp,chk)
local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
end
function cm.deop3(e,tp,eg,ep,ev,re,r,rp)
function cm.desop3(e,tp,eg,ep,ev,re,r,rp)
local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
Duel.Destroy(sg,REASON_EFFECT)
end
......
expansions/script/c65123333.lua
View file @ 4f13f675
......@@ -3,6 +3,16 @@ local KOISHI_CHECK=false
if Card.SetCardData then KOISHI_CHECK=true end
local IO_CHECK=false
if io then IO_CHECK=true end
local tableclone=function(tab,mytab)
local res=mytab or {}
for i,v in pairs(tab) do res[i]=v end
return res
end
local _Card=tableclone(Card)
local _Duel=tableclone(Duel)
local _Effect=tableclone(Effect)
local _Group=tableclone(Group)
local _Debug=tableclone(Debug)
function s.initial_effect(c)
if not s.globle_check then
s.autodata={
......@@ -101,88 +111,51 @@ function s.initial_effect(c)
Duel.RegisterEffect(sge5,0)
local sge6=sge4:Clone()
sge6:SetCode(EVENT_SPSUMMON_SUCCESS)
Duel.RegisterEffect(sge6,0)
s.RandomSelect=Group.RandomSelect
s.TossCoin=Duel.TossCoin
s.TossDice=Duel.TossDice
s.Select=Group.Select
s.FilterSelect=Group.FilterSelect
s.SelectUnselect=Group.SelectUnselect
s.CRemoveOverlayCard=Card.RemoveOverlayCard
s.SelectMatchingCard=Duel.SelectMatchingCard
s.SelectReleaseGroup=Duel.SelectReleaseGroup
s.SelectReleaseGroupEx=Duel.SelectReleaseGroupEx
s.SelectTarget=Duel.SelectTarget
s.SelectTribute=Duel.SelectTribute
s.DiscardHand=Duel.DiscardHand
s.DRemoveOverlayCard=Duel.RemoveOverlayCard
s.SelectFusionMaterial=Duel.SelectFusionMaterial
s.SpecialSummon=Duel.SpecialSummon
s.SpecialSummonStep=Duel.SpecialSummonStep
s.MoveToField=Duel.MoveToField
s.SSet=Duel.SSet
s.GetControl=Duel.GetControl
s.SelectDisableField=Duel.SelectDisableField
s.SelectField=Duel.SelectField
s.SelectEffectYesNo=Duel.SelectEffectYesNo
s.SelectYesNo=Duel.SelectYesNo
s.SelectOption=Duel.SelectOption
s.SelectPosition=Duel.SelectPosition
s.AnnounceCoin=Duel.AnnounceCoin
s.AnnounceCard=Duel.AnnounceCard
s.AnnounceNumber=Duel.AnnounceNumber
s.ConfirmCards=Duel.ConfirmCards
s.Hint=Duel.Hint
Duel.RegisterEffect(sge6,0)
end
local control_player=0
if Duel.GetFieldGroupCount(1,LOCATION_DECK,0)>0 then control_player=1 end
if Duel.GetMatchingGroupCount(s.cfilter,control_player,LOCATION_EXTRA,0,nil,id)==1 then
if _Duel.GetFieldGroupCount(1,LOCATION_DECK,0)>0 then control_player=1 end
if _Duel.GetMatchingGroupCount(s.cfilter,control_player,LOCATION_EXTRA,0,nil,id)==1 then
s.Wild_Mode=true
local _cRegisterEffect=Card.RegisterEffect
function Card.RegisterEffect(ec,e,bool)
if s.cfilter(ec) then
return _cRegisterEffect(ec,e,bool)
else
local ge0=Effect.CreateEffect(ec)
ge0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
ge0:SetCode(EVENT_DRAW)
ge0:SetOperation(s.changecardcode)
return _cRegisterEffect(ec,ge0,true)
if KOISHI_CHECK then
function Card.RegisterEffect(ec,e,bool)
if s.cfilter(ec) then
return _cRegisterEffect(ec,e,bool)
else
local ge0=Effect.CreateEffect(ec)
ge0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
ge0:SetCode(EVENT_DRAW)
ge0:SetOperation(s.changecardcode)
return _Card.RegisterEffect(ec,ge0,true)
end
end
local dg=_Duel.GetFieldGroup(control_player,0,LOCATION_DECK)
for tc in aux.Next(dg) do
_Card.RegisterEffect(tc)
end
local ge0=Effect.GlobalEffect()
ge0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
ge0:SetCode(EVENT_DRAW)
ge0:SetOperation(s.changecardcode)
local ge1=Effect.GlobalEffect()
ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
ge1:SetTargetRange(0,LOCATION_DECK+LOCATION_HAND)
ge1:SetLabelObject(ge0)
_Duel.RegisterEffect(ge1,control_player)
end
local dg=Duel.GetFieldGroup(control_player,0,LOCATION_DECK)
for tc in aux.Next(dg) do
Card.RegisterEffect(tc)
end
local ge0=Effect.GlobalEffect()
ge0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
ge0:SetCode(EVENT_DRAW)
ge0:SetOperation(s.changecardcode)
local ge1=Effect.GlobalEffect()
ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
ge1:SetTargetRange(0,LOCATION_DECK+LOCATION_HAND)
ge1:SetLabelObject(ge0)
Duel.RegisterEffect(ge1,control_player)
end
if Duel.GetMatchingGroupCount(s.cfilter,control_player,0x7f,0,nil,id)==2 and KOISHI_CHECK then
Duel.DisableActionCheck(true)
Debug.SetPlayerInfo(control_player,8000,0,1)
Debug.SetPlayerInfo(1-control_player,0,0,1)
if _Duel.GetMatchingGroupCount(s.cfilter,control_player,0x7f,0,nil,id)==2 and KOISHI_CHECK then
_Duel.DisableActionCheck(true)
_Debug.SetPlayerInfo(control_player,8000,0,1)
_Debug.SetPlayerInfo(1-control_player,0,0,1)
if Duel.GetLP(1-control_player)>0 then
--local sl = coroutine.create(Duel.SetLP)
--coroutine.resume(sl,1-control_player,0)
pcall(Duel.SetLP,1-control_player,0)
end
local _dRegisterEffect=Duel.RegisterEffect
function Duel.RegisterEffect(re,rp)
if re:GetCode()==37564153 then return end
_dRegisterEffect(re,rp)
_Duel.RegisterEffect(re,rp)
end
--local movet = coroutine.create(Duel.MoveTurnCount)
--coroutine.resume(movet)
......@@ -194,19 +167,19 @@ function s.initial_effect(c)
--coroutine.resume(pl,1-control_player,2147483647,true)
--local dam = coroutine.create(Duel.Damage)
--coroutine.resume(dam,1-control_player,2147483647,REASON_RULE)
pcall(Duel.MoveTurnCount)
pcall(Duel.MoveToField,c,control_player,control_player,LOCATION_MZONE,POS_FACEUP_ATTACK,true,0x20)
pcall(_Duel.MoveTurnCount)
pcall(_Duel.MoveToField,c,control_player,control_player,LOCATION_MZONE,POS_FACEUP_ATTACK,true,0x20)
local atke=Effect.CreateEffect(c)
atke:SetType(EFFECT_TYPE_SINGLE)
atke:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
atke:SetCode(EFFECT_SET_BATTLE_ATTACK)
atke:SetValue(2147483647)
c:RegisterEffect(atke,true)
_Card.RegisterEffect(c,atke,true)
local atke2=Effect.CreateEffect(c)
atke2:SetType(EFFECT_TYPE_SINGLE)
atke2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
atke2:SetCode(EFFECT_MATCH_KILL)
c:RegisterEffect(atke2,true)
_Card.RegisterEffect(c,atke2,true)
--local cd = coroutine.create(Duel.CalculateDamage)
--coroutine.resume(cd,c,nil)
--local dr1 = coroutine.create(Duel.Draw)
......@@ -220,11 +193,11 @@ function s.initial_effect(c)
else
end
pcall(Duel.CalculateDamage,c,nil)
pcall(_Duel.CalculateDamage,c,nil)
pcall(dr1,control_player,5,REASON_RULE)
pcall(dr1,1-control_player,2147483647,REASON_RULE)
--Debug.AddCard(id+2,1-control_player,1-control_player,LOCATION_DECK,1,POS_FACEDOWN)
Duel.DisableActionCheck(false)
_Duel.DisableActionCheck(false)
end
end
function s.Administrator(number)
......@@ -232,8 +205,8 @@ function s.Administrator(number)
for i=1,number do
result=result..tostring(i%10)
end
Debug.Message("Messages:"..number)
Debug.ShowHint(result)
_Debug.Message("Messages:"..number)
_Debug.ShowHint(result)
end
function s.changecardcode(e,tp)
local cardtable={27520594,95511642,22916281,58400390,4392470,62514770,46986414,89631139}
......@@ -438,7 +411,7 @@ function s.menuop(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
while page~=0 do
if page==1 then
local desc=s.Cheating_Mode and 4 or 3
ot=s.SelectOption(tp,aux.Stringid(id,0),aux.Stringid(id,1),aux.Stringid(id,2),aux.Stringid(id,desc),1345)
ot=_Duel.SelectOption(tp,aux.Stringid(id,0),aux.Stringid(id,1),aux.Stringid(id,2),aux.Stringid(id,desc),1345)
if ot==0 then
s.movecard(e,tp)
page=0
......@@ -457,7 +430,7 @@ function s.menuop(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
elseif page==2 then
local desc1=s.Hint_Mode and 6 or 5
local desc2=s.Control_Mode and 9 or 8
ot=s.SelectOption(tp,1360,aux.Stringid(id,desc1),aux.Stringid(id,7),aux.Stringid(id,desc2),1345)
ot=_Duel.SelectOption(tp,1360,aux.Stringid(id,desc1),aux.Stringid(id,7),aux.Stringid(id,desc2),1345)
if ot==0 then
page=page-1
elseif ot==1 then
......@@ -476,7 +449,7 @@ function s.menuop(e,tp,eg,ep,ev,re,r,rp,c,sg,og)
local desc1=s.Wild_Mode and 11 or 10
local desc2=s.Random_Mode and 13 or 12
local desc3=s.Theworld_Mode and 10 or 9
ot=s.SelectOption(tp,1360,aux.Stringid(id,desc1),aux.Stringid(id,desc2),aux.Stringid(id,14),1212)
ot=_Duel.SelectOption(tp,1360,aux.Stringid(id,desc1),aux.Stringid(id,desc2),aux.Stringid(id,14),1212)
if ot==0 then
page=page-1
elseif ot==1 then
......@@ -527,7 +500,7 @@ function s.mvop(e,tp,eg,ep,ev,re,r,rp)
end
function s.movecard(e,tp)
local c=e:GetHandler()
local ot=s.SelectOption(tp,1152,1190,1191,1192,1105)
local ot=_Duel.SelectOption(tp,1152,1190,1191,1192,1105)
if ot==0 then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
......@@ -559,9 +532,9 @@ function s.movespop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(Card.IsType,tp,0x73,0,c,TYPE_MONSTER)
local sg=g:Select(tp,0,99,nil)
if #sg==0 then
sg=s.RandomSelect(g,tp,math.min(3,#g))
end
--if #sg==0 then
-- sg=_Group.RandomSelect(g,tp,math.min(3,#g))
--end
for tc in aux.Next(sg) do
local cardtype=tc:GetType()
local sumtype=0
......@@ -751,7 +724,7 @@ function s.setcard(e,tp)
local p=tp
if flag&0x600060~=0 then
flag=flag>>16
if s.SelectOption(tp,aux.Stringid(id+1,1),aux.Stringid(id+1,2))==0 then
if _Duel.SelectOption(tp,aux.Stringid(id+1,1),aux.Stringid(id+1,2))==0 then
flag=flag==2^5 and flag<<1 or flag>>1
else
p=1-tp
......@@ -766,7 +739,7 @@ function s.setcard(e,tp)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetValue(p)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
mc:RegisterEffect(e1,true)
end
else
......@@ -785,7 +758,7 @@ function s.setcard(e,tp)
end
local mc=mg:Select(tp,1,1,nil):GetFirst()
if flag>0x7f then
if mc:IsType(TYPE_PENDULUM) and (flag==0x100 or flag==0x1000) and s.SelectOption(tp,1003,1009)==1 then
if mc:IsType(TYPE_PENDULUM) and (flag==0x100 or flag==0x1000) and _Duel.SelectOption(tp,1003,1009)==1 then
Duel.MoveToField(mc,tp,p,LOCATION_PZONE,POS_FACEUP,true)
else
local pos=Duel.SelectPosition(tp,mc,0x3)
......@@ -808,7 +781,7 @@ function s.setcard(e,tp)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetValue(p)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
mc:RegisterEffect(e1,true)
end
end
......@@ -1028,7 +1001,7 @@ function s.hintcon(e,tp,eg,ep,ev,re,r,rp)
return s.Hint_Mode
end
function s.hintop(e,tp,eg,ep,ev,re,r,rp)
local str="这个效果可以被 "
local str=""
if Duel.IsChainDisablable(ev) then
local ex2,g2,gc2,dp2,dv2=Duel.GetOperationInfo(ev,CATEGORY_SPECIAL_SUMMON)
local ex3,g3,gc3,dp3,dv3=Duel.GetOperationInfo(ev,CATEGORY_TOGRAVE)
......@@ -1063,7 +1036,11 @@ function s.hintop(e,tp,eg,ep,ev,re,r,rp)
str=str.."伤害杂耍人 "
end
end
Debug.Message(str.."对应")
if str=="" then
--Debug.Message("")
else
Debug.Message("这个效果可以被 "..str.."对应")
end
end
function s.saveop(e,tp,eg,ep,ev,re,r,rp)
s.autodata=s.save()
......@@ -1073,7 +1050,7 @@ end
function s.loadmenu(e,tp)
local c=e:GetHandler()
local decs=s.manualdata.turn==0 and 7 or 6
local ot=s.SelectOption(tp,aux.Stringid(id+1,8),aux.Stringid(id+1,5),aux.Stringid(id+1,decs),1212)
local ot=_Duel.SelectOption(tp,aux.Stringid(id+1,8),aux.Stringid(id+1,5),aux.Stringid(id+1,decs),1212)
if ot==0 then
s.loadcard(c,s.autodata)
elseif ot==1 then
......@@ -1172,7 +1149,7 @@ function s.loadcard(c,data)
e1:SetCode(EFFECT_SET_CONTROL)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetValue(p)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
tc:RegisterEffect(e1,true)
end
for _,counter in ipairs(cdata.counter) do
......@@ -1194,34 +1171,34 @@ function s.mindcontrol(e,tp)
s.Control_Mode=not s.Control_Mode
if s.Control_Mode then
Debug.Message("骇入开始")
function Group.Select(g,sp,min,max,nc) Duel.ConfirmCards(tp,g:Filter(s.confirmfilter,nil,tp)) return s.Select(g,tp,min,max,nc) end
function Group.FilterSelect(g,sp,...) Duel.ConfirmCards(tp,g:Filter(s.confirmfilter,nil,tp)) return s.FilterSelect(g,tp,...) end
function Group.SelectUnselect(cg,sg,sp,...) Duel.ConfirmCards(tp,cg:Filter(s.confirmfilter,nil,tp)) return s.SelectUnselect(cg,sg,tp,...) end
function Card.RemoveOverlayCard(oc,sp,...) return s.CRemoveOverlayCard(oc,tp,...) end
function Duel.SelectFusionMaterial(sp,c,g,...) Duel.ConfirmCards(tp,g:Filter(s.confirmfilter,nil,tp)) return s.SelectFusionMaterial(tp,c,g,...) end
function Group.Select(g,sp,min,max,nc) Duel.ConfirmCards(tp,g:Filter(s.confirmfilter,nil,tp)) return _Group.Select(g,tp,min,max,nc) end
function Group.FilterSelect(g,sp,...) Duel.ConfirmCards(tp,g:Filter(s.confirmfilter,nil,tp)) return _Group.FilterSelect(g,tp,...) end
function Group.SelectUnselect(cg,sg,sp,...) Duel.ConfirmCards(tp,cg:Filter(s.confirmfilter,nil,tp)) return _Group.SelectUnselect(cg,sg,tp,...) end
function Card.RemoveOverlayCard(oc,sp,...) return _Card.RemoveOverlayCard(oc,tp,...) end
function Duel.SelectFusionMaterial(sp,c,g,...) Duel.ConfirmCards(tp,g:Filter(s.confirmfilter,nil,tp)) return _Duel.SelectFusionMaterial(tp,c,g,...) end
function Duel.SelectTarget(sp,f,p,sl,ol,max,min,ex,...)
local sg=Duel.GetMatchingGroup(f,p,sl,ol,ex,...)
Duel.ConfirmCards(tp,sg:Filter(s.confirmfilter,nil,tp))
return s.SelectTarget(tp,f,p,sl,ol,max,min,ex,...)
return _Duel.SelectTarget(tp,f,p,sl,ol,max,min,ex,...)
end
function Duel.SelectTribute(sp,...) return s.SelectTribute(tp,...)end
function Duel.SelectTribute(sp,...) return _Duel.SelectTribute(tp,...)end
function Duel.DiscardHand(sp,f,min,max,r,nc,...)
local dg=Duel.SelectMatchingCard(tp,f,sp,LOCATION_HAND,0,min,max,nc,...)
return Duel.SendtoGrave(dg,r)
end
function Duel.RemoveOverlayCard(sp,...) return s.DRemoveOverlayCard(tp,...) end
function Duel.RemoveOverlayCard(sp,...) return _Duel.DRemoveOverlayCard(tp,...) end
function Duel.SelectMatchingCard(sp,f,p,sl,ol,max,min,ex,...)
local sg=Duel.GetMatchingGroup(f,p,sl,ol,ex,...)
Duel.ConfirmCards(tp,sg:Filter(s.confirmfilter,nil,tp))
return s.SelectMatchingCard(tp,f,p,sl,ol,max,min,ex,...)
return _Duel.SelectMatchingCard(tp,f,p,sl,ol,max,min,ex,...)
end
function Duel.SelectReleaseGroup(sp,...) return s.SelectReleaseGroup(tp,...) end
function Duel.SelectReleaseGroupEx(sp,...) return s.SelectReleaseGroupEx(tp,...) end
function Duel.SelectReleaseGroup(sp,...) return _Duel.SelectReleaseGroup(tp,...) end
function Duel.SelectReleaseGroupEx(sp,...) return _Duel.SelectReleaseGroupEx(tp,...) end
function Duel.SpecialSummon(tg,stype,sp,...) return s.SpecialSummon(tg,stype,tp,...) end
function Duel.SpecialSummonStep(tg,stype,sp,...) return s.SpecialSummonStep(tg,stype,tp,...) end
function Duel.MoveToField(c,mp,...) return s.MoveToField(c,tp,...) end
function Duel.SSet(p,tg,sp,...) if not sp then sp=p end return s.SSet(tp,tg,sp,...) end
function Duel.SpecialSummon(tg,stype,sp,...) return _Duel.SpecialSummon(tg,stype,tp,...) end
function Duel.SpecialSummonStep(tg,stype,sp,...) return _Duel.SpecialSummonStep(tg,stype,tp,...) end
function Duel.MoveToField(c,mp,...) return _Duel.MoveToField(c,tp,...) end
function Duel.SSet(p,tg,sp,...) if not sp then sp=p end return _Duel.SSet(tp,tg,sp,...) end
function Duel.GetControl(tg,p,rphase,rcount,zone,...)
if zone==nil then zone=0x1f end
local flag=0x1f-zone
......@@ -1232,38 +1209,38 @@ function s.mindcontrol(e,tp)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
if tp==p then
flag=s.SelectField(tp,1,LOCATION_MZONE,0,flag+0x60)
flag=_Duel.SelectField(tp,1,LOCATION_MZONE,0,flag+0x60)
else
flag=s.SelectField(tp,1,0,LOCATION_MZONE,(flag+0x60)<<16)>>16
flag=_Duel.SelectField(tp,1,0,LOCATION_MZONE,(flag+0x60)<<16)>>16
end
return s.GetControl(tg,p,rphase,rcount,flag,...)
return _Duel.GetControl(tg,p,rphase,rcount,flag,...)
end
function Duel.SelectDisableField(p,count,sl,ol,filter)
if tp==p then
return s.SelectDisableField(tp,count,sl,ol,filter)
return _Duel.SelectDisableField(tp,count,sl,ol,filter)
else
return s.SelectDisableField(tp,count,ol,sl,filter)
return _Duel.SelectDisableField(tp,count,ol,sl,filter)
end
end
function Duel.SelectField(p,count,sl,ol,filter)
if tp==p then
return s.SelectField(tp,count,sl,ol,filter)
return _Duel.SelectField(tp,count,sl,ol,filter)
else
return s.SelectField(tp,count,ol,sl,filter)
return _Duel.SelectField(tp,count,ol,sl,filter)
end
end
function Duel.SelectEffectYesNo(sp,...) return s.SelectEffectYesNo(tp,...) end
function Duel.SelectYesNo(sp,desc) return s.SelectYesNo(tp,desc) end
function Duel.SelectOption(sp,...) return s.SelectOption(tp,...) end
function Duel.SelectPosition(sp,c,pos) return s.SelectPosition(tp,c,pos) end
function Duel.SelectEffectYesNo(sp,...) return _Duel.SelectEffectYesNo(tp,...) end
function Duel.SelectYesNo(sp,desc) return _Duel.SelectYesNo(tp,desc) end
function Duel.SelectOption(sp,...) return _Duel.SelectOption(tp,...) end
function Duel.SelectPosition(sp,c,pos) return _Duel.SelectPosition(tp,c,pos) end
function Duel.AnnounceCoin(p,...) return s.AnnounceCoin(tp,...) end
function Duel.AnnounceCard(p,...) return s.AnnounceCard(tp,...) end
function Duel.AnnounceNumber(p,...) return s.AnnounceNumber(tp,...) end
function Duel.AnnounceCoin(p,...) return _Duel.AnnounceCoin(tp,...) end
function Duel.AnnounceCard(p,...) return _Duel.AnnounceCard(tp,...) end
function Duel.AnnounceNumber(p,...) return _Duel.AnnounceNumber(tp,...) end
function Duel.Hint(htype,sp,desc) return s.Hint(htype,tp,desc) end
function Duel.ConfirmCards(sp,tg) return s.ConfirmCards(tp,tg)end
function Duel.Hint(htype,sp,desc) return _Duel.Hint(htype,tp,desc) end
function Duel.ConfirmCards(sp,tg) return _Duel.ConfirmCards(tp,tg)end
local ge0=Effect.GlobalEffect()
ge0:SetType(EFFECT_TYPE_FIELD)
......@@ -1379,44 +1356,48 @@ function s.mindcontrol(e,tp)
end
local ini=s.initial_effect
s.initial_effect=function() end
tc:ReplaceEffect(id,0)
for tc in aux.Next(g) do
if tc.initial_effect then
tc:ReplaceEffect(id,0)
tc.initial_effect(tc)
end
end
s.initial_effect=ini
tc.initial_effect(tc)
end
else
Debug.Message("骇入结束")
Group.Select=s.Select
Group.FilterSelect=s.FilterSelect
Group.SelectUnselect=s.SelectUnselect
Card.RemoveOverlayCard=s.CRemoveOverlayCard
Duel.SelectMatchingCard=s.SelectMatchingCard
Duel.SelectReleaseGroup=s.SelectReleaseGroup
Duel.SelectReleaseGroupEx=s.SelectReleaseGroupEx
Duel.SelectTarget=s.SelectTarget
Duel.SelectTribute=s.SelectTribute
Duel.DiscardHand=s.DiscardHand
Duel.RemoveOverlayCard=s.DRemoveOverlayCard
Duel.SelectFusionMaterial=s.SelectFusionMaterial
Group.Select=_Group.Select
Group.FilterSelect=_Group.FilterSelect
Group.SelectUnselect=_Group.SelectUnselect
Card.RemoveOverlayCard=_Card.RemoveOverlayCard
Duel.SelectMatchingCard=_Duel.SelectMatchingCard
Duel.SelectReleaseGroup=_Duel.SelectReleaseGroup
Duel.SelectReleaseGroupEx=_Duel.SelectReleaseGroupEx
Duel.SelectTarget=_Duel.SelectTarget
Duel.SelectTribute=_Duel.SelectTribute
Duel.DiscardHand=_Duel.DiscardHand
Duel.RemoveOverlayCard=_Duel.DRemoveOverlayCard
Duel.SelectFusionMaterial=_Duel.SelectFusionMaterial
Duel.SpecialSummon=s.SpecialSummon
Duel.SpecialSummonStep=s.SpecialSummonStep
Duel.MoveToField=s.MoveToField
Duel.SSet=s.SSet
Duel.GetControl=s.GetControl
Duel.SelectDisableField=s.SelectDisableField
Duel.SelectField=s.SelectField
Duel.SpecialSummon=_Duel.SpecialSummon
Duel.SpecialSummonStep=_Duel.SpecialSummonStep
Duel.MoveToField=_Duel.MoveToField
Duel.SSet=_Duel.SSet
Duel.GetControl=_Duel.GetControl
Duel.SelectDisableField=_Duel.SelectDisableField
Duel.SelectField=_Duel.SelectField
Duel.SelectEffectYesNo=s.SelectEffectYesNo
Duel.SelectYesNo=s.SelectYesNo
Duel.SelectOption=s.SelectOption
Duel.SelectPosition=s.SelectPosition
Duel.SelectEffectYesNo=_Duel.SelectEffectYesNo
Duel.SelectYesNo=_Duel.SelectYesNo
Duel.SelectOption=_Duel.SelectOption
Duel.SelectPosition=_Duel.SelectPosition
Duel.AnnounceCoin=s.AnnounceCoin
Duel.AnnounceCard=s.AnnounceCard
Duel.AnnounceNumber=s.AnnounceNumber
Duel.AnnounceCoin=_Duel.AnnounceCoin
Duel.AnnounceCard=_Duel.AnnounceCard
Duel.AnnounceNumber=_Duel.AnnounceNumber
Duel.ConfirmCards=s.ConfirmCards
Duel.Hint=s.Hint
Duel.ConfirmCards=_Duel.ConfirmCards
Duel.Hint=_Duel.Hint
for _,eff in ipairs(s.controltable) do
eff:Reset()
......@@ -1751,14 +1732,19 @@ function s.change_effect(effect,c,mp)
eff:SetCondition(s.mindcon2)
eff:SetRange(LOCATION_HAND+LOCATION_SZONE)
if cardtype&(TYPE_QUICKPLAY+TYPE_TRAP)~=0 then
eff:SetCode(EVENT_FREE_CHAIN)
eff:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_QUICK_O)
eff:SetTarget(s.mindtg2)
if effect:GetCode()==EVENT_FREE_CHAIN then
eff:SetCode(EVENT_FREE_CHAIN)
eff:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_QUICK_O)
eff:SetTarget(s.mindtg2)
return eff
else
return 0
end
else
eff:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_IGNITION)
eff:SetTarget(s.mindtg)
return eff
end
return eff
else
return 0
end
......@@ -1980,15 +1966,15 @@ function s.randomop(tp)
end
else
Debug.Message("灌铅骰子 关")
Group.RandomSelect=s.RandomSelect
Duel.TossCoin=s.TossCoin
Duel.TossDice=s.TossDice
Group.RandomSelect=_Group.RandomSelect
Duel.TossCoin=_Duel.TossCoin
Duel.TossDice=_Duel.TossDice
end
end
function s.toolop(tp)
local op=s.SelectOption(tp,aux.Stringid(id+1,11),aux.Stringid(id+1,12),aux.Stringid(id+1,13),aux.Stringid(id+1,14),aux.Stringid(id+1,15))
local op=_Duel.SelectOption(tp,aux.Stringid(id+1,11),aux.Stringid(id+1,12),aux.Stringid(id+1,13),aux.Stringid(id+1,14),aux.Stringid(id+1,15))
if op==0 then
local p=s.SelectOption(tp,aux.Stringid(id+1,1),aux.Stringid(id+1,2))==0 and tp or 1-tp
local p=_Duel.SelectOption(tp,aux.Stringid(id+1,1),aux.Stringid(id+1,2))==0 and tp or 1-tp
local lp=s.AnnounceNumber(tp,80000,16000,8000,4000,2000,1000,500,100,1)
Duel.SetLP(p,lp)
elseif op==1 then
......@@ -2034,9 +2020,9 @@ function s.toolop(tp)
end
end
elseif op==2 then
local p=s.SelectOption(tp,aux.Stringid(id+1,1),aux.Stringid(id+1,2))==0 and tp or 1-tp
local p=_Duel.SelectOption(tp,aux.Stringid(id+1,1),aux.Stringid(id+1,2))==0 and tp or 1-tp
if p==1-tp then Duel.ConfirmCards(tp,Duel.GetFieldGroup(p,LOCATION_DECK,0)) end
local sg=s.SelectMatchingCard(tp,aux.TRUE,p,LOCATION_DECK,0,1,16,nil)
local sg=_Duel.SelectMatchingCard(tp,aux.TRUE,p,LOCATION_DECK,0,1,16,nil)
for tc in aux.Next(sg) do
Duel.MoveSequence(tc,SEQ_DECKTOP)
end
......
expansions/script/c65131114.lua
View file @ 4f13f675
......@@ -81,7 +81,7 @@ function s.setop(e,tp,eg,ep,ev,re,r,rp)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
dc:RegisterEffect(e1)
tc:RegisterEffect(e1)
end
if tc:IsType(TYPE_TRAP) then
local e1=Effect.CreateEffect(c)
......@@ -89,7 +89,7 @@ function s.setop(e,tp,eg,ep,ev,re,r,rp)
e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
dc:RegisterEffect(e1)
tc:RegisterEffect(e1)
end
end
end
\ No newline at end of file
expansions/script/c65131118.lua
View file @ 4f13f675
......@@ -38,11 +38,11 @@ function s.checkop(e,tp,eg,ep,ev,re,r,rp)
while tc do
Duel.RegisterFlagEffect(tc:GetControler(),id,nil,0,1)
tc=eg:GetNext()
end
Duel.GetFieldGroup(0,0xff,0xff):Filter(s.checkfilter,nil):ForEach(s.hintop)
end
function s.hintop(c)
c:SetHint(CHINT_NUMBER,Duel.GetFlagEffect(c:GetControler(),id))
end
local g=Duel.GetFieldGroup(0,0xff,0xff):Filter(s.checkfilter,nil)
for tc in aux.Next(g) do
tc:SetHint(CHINT_NUMBER,Duel.GetFlagEffect(c:GetControler(),id))
end
end
function s.filter(c,dam)
return c:IsFaceup() and c:IsAttackBelow(dam)
......
expansions/script/c65131132.lua
View file @ 4f13f675
......@@ -129,8 +129,7 @@ function s.eqop(e,tp,eg,ep,ev,re,r,rp)
tc:RegisterEffect(e2)
eqg2:AddCard(tc)
tc=eqg:GetNext()
end
Duel.RaiseEvent(eqg2,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
end
end
local e0=Effect.CreateEffect(c)
e0:SetDescription(aux.Stringid(id,0))
......@@ -169,8 +168,10 @@ function s.efcon(e,tp,eg,ep,ev,re,r,rp)
return dg:GetCount()>0
end
function s.efop(e,tp,eg,ep,ev,re,r,rp)
local dg=eg:Filter(s.effilter,nil,e:GetHandler())
dg:ForEach(s.addeffect)
local dg=eg:Filter(s.effilter,nil,e:GetHandler())
for tc in aux.Next(dg) do
s.addeffect(tc)
end
end
function s.addeffect(c)
local efft={c:GetActivateEffect()}
......@@ -188,7 +189,6 @@ function s.addeffect(c)
e1:SetCondition(s.condition(v))
e1:SetTarget(s.target(v))
e1:SetOperation(s.operation(v))
Debug.Message(v:GetHandler():GetCode())
c:RegisterEffect(e1,true)
end
end
......@@ -207,10 +207,8 @@ function s.cost(ae)
end
function s.condition(ae)
return function (e,tp,eg,ep,ev,re,r,rp)
Debug.Message(1)
local c=e:GetHandler()
local fcon=ae:GetCondition()
Debug.Message(c:IsFacedown() and (not fcon or fcon(e,tp,eg,ep,ev,re,r,rp)))
return c:IsFacedown() and (not fcon or fcon(e,tp,eg,ep,ev,re,r,rp))
end
end
......
expansions/script/c65830045.lua deleted 100644 → 0
View file @ ee9a16d3
--种子雨
function c65830045.initial_effect(c)
--检索
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(65830045,0))
e1:SetCategory(CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCountLimit(1,65830045+EFFECT_COUNT_CODE_OATH)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetOperation(c65830045.activate)
c:RegisterEffect(e1)
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_HANDES+CATEGORY_SEARCH)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_SZONE)
e3:SetCountLimit(1)
e3:SetTarget(c65830045.drawtg)
e3:SetOperation(c65830045.drawop)
c:RegisterEffect(e3)
end
function c65830045.thfilter(c)
return c:IsSetCard(0xa33) and c:IsAbleToHand()
end
function c65830045.activate(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c65830045.thfilter,tp,LOCATION_DECK,0,nil)
if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(65830045,0)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local sg=g:Select(tp,1,1,nil)
Duel.SendtoHand(sg,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,sg)
end
end
function c65830045.filter2(e,c)
return c:IsSetCard(0xa33) and c:IsAbleToHand()
end
function c65830045.filter1(c)
return c:IsDiscardable(REASON_EFFECT)
end
function c65830045.drawtg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return Duel.IsExistingMatchingCard(c65830045.filter2,tp,LOCATION_DECK,0,1,nil,c) and Duel.IsExistingMatchingCard(c65830045.filter1,tp,LOCATION_HAND,0,1,nil,c) end
Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,1,tp,LOCATION_HAND)
Duel.SetOperationInfo(0,CATEGORY_SEARCH,nil,1,tp,LOCATION_DECK)
end
function c65830045.drawop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c65830045.thfilter,tp,LOCATION_DECK,0,1,1,nil,c)
if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_HAND) then
Duel.ConfirmCards(1-tp,g)
Duel.ShuffleHand(tp)
Duel.BreakEffect()
Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD,nil,c)
end
end
\ No newline at end of file
expansions/script/c65830055.lua deleted 100644 → 0
View file @ ee9a16d3
--超乎寻常的压力
function c65830055.initial_effect(c)
c:SetUniqueOnField(1,0,65830055)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e1)
--negate
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1)
e2:SetCondition(c65830055.negcon)
e2:SetOperation(c65830055.negop)
c:RegisterEffect(e2)
end
function c65830055.cfilter(c)
return c:IsFaceup() and c:IsSetCard(0xa33) and c:IsType(TYPE_MONSTER)
end
function c65830055.negcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c65830055.cfilter,tp,LOCATION_MZONE,0,1,nil)
and rp==1-tp and (re:IsActiveType(TYPE_TRAP) or re:IsActiveType(TYPE_SPELL))
end
function c65830055.negop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,65830055)
local rc=re:GetHandler()
if Duel.NegateEffect(ev,true) and rc:IsRelateToEffect(re) then
Duel.Destroy(rc,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c67200901.lua
View file @ 4f13f675
......@@ -85,7 +85,7 @@ function c67200901.setop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local tg=g:Filter(Card.IsRelateToEffect,nil,e)
if tg:GetCount()>0 then
if Duel.MoveToField(tg:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)~=0 and Duel.IsExistingMatchingCard(c67200901.thfilter,tp,LOCATION_DECK,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(67200901,3)) then
if Duel.MoveToField(tg:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)~=0 and tg:GetFirst():IsLocation(LOCATION_PZONE) and Duel.IsExistingMatchingCard(c67200901.thfilter,tp,LOCATION_DECK,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(67200901,3)) then
Duel.BreakEffect()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local gg=Duel.SelectMatchingCard(tp,c67200901.thfilter,tp,LOCATION_DECK,0,1,1,nil)
......
expansions/script/c98942050.lua deleted 100644 → 0
View file @ ee9a16d3
--决斗怪兽试验场3
function c98942050.initial_effect(c)
--show
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_NO_TURN_RESET+EFFECT_FLAG_INITIAL)
e1:SetCode(EVENT_PREDRAW)
e1:SetRange(0xff)
e1:SetCountLimit(1,98942050+EFFECT_COUNT_CODE_DUEL)
e1:SetOperation(c98942050.op)
c:RegisterEffect(e1)
--adjust
local e01=Effect.CreateEffect(c)
e01:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e01:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e01:SetCode(EVENT_ADJUST)
e01:SetRange(0xff)
e01:SetOperation(c98942050.adjustop)
c:RegisterEffect(e01)
if not c98942050.global_activate_check then
c98942050.global_activate_check=true
local ge1=Effect.CreateEffect(c)
ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
ge1:SetCode(EVENT_CHAIN_SOLVED)
ge1:SetOperation(c98942050.checkop)
Duel.RegisterEffect(ge1,0)
end
end
function c98942050.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Hint(HINT_CARD,0,98942050)
end
function c98942050.checkop(e,tp,eg,ep,ev,re,r,rp)
local rc=re:GetHandler()
if re:GetValue()~=98942051 then return end
if rc:IsLocation(LOCATION_MZONE) and rc:GetFlagEffect(98942050)==0 then
rc:RegisterFlagEffect(98942050,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
end
end
function c98942050.actarget(e,te,tp)
--prevent activating
local tc=te:GetHandler()
return ((te:GetValue()==98942050 or te:GetValue()==98942051) and (not Duel.IsPlayerAffectedByEffect(te:GetHandlerPlayer(),98942050) or tc:GetFlagEffect(98942050)~=0))
--prevent normal activating beside S&T on field
or (te:GetValue()==53587968 and Duel.IsPlayerAffectedByEffect(te:GetHandlerPlayer(),98942050) and not (te:IsHasType(EFFECT_TYPE_ACTIVATE) and tc:IsLocation(LOCATION_SZONE)) and not tc:IsLocation(LOCATION_DECK))
--prevent quick activating on field
or (te:GetValue()==53587969 and te:IsHasType(EFFECT_TYPE_QUICK_O) and tc:IsLocation(LOCATION_SZONE))
--unique check
or (te:GetValue()==53587969 and tc:IsCode(32692693) and tc:CheckUniqueOnField(tc:GetControler())==false)
end
function c98942050.adjustop(e,tp,eg,ep,ev,re,r,rp)
--
if not c98942050.globle_check then
local c=e:GetHandler()
--Debug.Message(c:CheckUniqueOnField(tp))
--change effect type
local e01=Effect.CreateEffect(c)
e01:SetType(EFFECT_TYPE_FIELD)
e01:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_PLAYER_TARGET)
e01:SetCode(98942050)
e01:SetTargetRange(1,1)
Duel.RegisterEffect(e01,0)
--
c98942050.globle_check=true
local ge0=Effect.CreateEffect(e:GetHandler())
ge0:SetType(EFFECT_TYPE_FIELD)
ge0:SetCode(EFFECT_ACTIVATE_COST)
ge0:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
ge0:SetCost(aux.FALSE)
ge0:SetTargetRange(1,1)
ge0:SetTarget(c98942050.actarget)
Duel.RegisterEffect(ge0,0)
local g=Duel.GetMatchingGroup(c98942050.filter,0,0xff,0xff,nil)
cregister=Card.RegisterEffect
ecreateeffect=Effect.CreateEffect
esetcountLimit=Effect.SetCountLimit
table_effect={}
table_countlimit_flag=0
table_countlimit_count=0
Ursarctic_unit=nil
Ursarctic_Creating=false
Effect.CreateEffect=function(card)
Ursarctic_Creating=true
return ecreateeffect(card)
end
Effect.SetCountLimit=function(effect,count,flag)
if not Ursarctic_Creating and count==1 and flag~=0 then
local eff=table_effect[#table_effect-1]
return esetcountLimit(eff,1,0)
end
table_countlimit_flag=flag
table_countlimit_count=count
return esetcountLimit(effect,count,flag)
end
Card.RegisterEffect=function(card,effect,flag)
if effect then
local eff=effect:Clone()
local con=eff:GetCondition()
if con and effect:IsHasType(EFFECT_TYPE_QUICK_O) and effect:GetCode()==EVENT_FREE_CHAIN then
eff:SetValue(98942051)
--effect edit
local eff2=effect:Clone()
--spell speed 2
if con and eff2:IsHasType(EFFECT_TYPE_QUICK_O) and eff2:GetCode()==EVENT_FREE_CHAIN then
eff2:SetCondition(
function(e,tp,eg,ep,ev,re,r,rp)
Ursarctic_GetCurrentPhase=Duel.GetCurrentPhase
Duel.GetCurrentPhase=function() return PHASE_MAIN1 end
local Ursarctic_boolean=con(e,tp,eg,ep,ev,re,r,rp)
Duel.GetCurrentPhase=Ursarctic_GetCurrentPhase
return Ursarctic_boolean
end)
eff2:SetHintTiming(TIMING_DRAW_PHASE+TIMING_END_PHASE+TIMINGS_CHECK_MONSTER,TIMING_DRAW_PHASE+TIMING_END_PHASE+TIMINGS_CHECK_MONSTER)
end
table.insert(table_effect,eff2)
end
table.insert(table_effect,eff)
end
table_countlimit_flag=0
table_countlimit_count=0
Ursarctic_Creating=false
return
end
for tc in aux.Next(g) do
table_effect={}
Ursarctic_Counter=0
Ursarctic_Unique=false
tc:ReplaceEffect(98942050,0)
Duel.CreateToken(0,tc:GetOriginalCode())
for key,eff in ipairs(table_effect) do
cregister(tc,eff)
end
end
Card.RegisterEffect=cregister
Effect.CreateEffect=ecreateeffect
Effect.SetCountLimit=esetcountLimit
end
e:Reset()
end
function c98942050.filter(c)
return not c:IsCode(98942050)
end
\ No newline at end of file
expansions/strings.conf
View file @ 4f13f675
......@@ -78,6 +78,7 @@
!setname 0xe714 幻异梦像
!setname 0x7714 构异梦境
!setname 0xd714 构异梦像
!setname 0x715 气泡方块
#Viola 011 0xe10-0xe1f
......@@ -683,7 +684,7 @@
!setname 0x680 UESTC
!setname 0x3680 UESTCer
#阳羽（耻辱柱）
#阳羽（表彰柱）
!setname 0x823 混沌病毒
#Mio 345
......@@ -849,6 +850,8 @@
!setname 0x3a7b 璇姬
!setname 0x6a7b 天之杯
!setname 0x9a7b 狩猎游戏
!setname 0x3a7c 25时
!setname 0x6a7c Miku
!counter 0xa7f 好感指示物
#真正的光 164
......@@ -987,6 +990,7 @@
!setname 0x7ccd 熊猫头
!setname 0x7cdd 魅魔娘
!setname 0x8cdd 虫融姬战国
!setname 0xf008 魔心英雄
#逸轩
!setname 0xe51 颜彩
......@@ -1060,6 +1064,9 @@
!setname 0x48d 微元
!setname 0x48f 净化
#会变的不幸rua 519
!setname 0x510 《遥远·传说》
#sch 258 0x210-0x21f
!setname 0x211 舰娘
!setname 0x3211 御三家(舰娘)
......@@ -1163,6 +1170,8 @@
#July 211 0x910-0x90f
!setname 0x910 阿巴阿巴
!counter 0x1910 阿巴阿巴指示物
!setname 0x3917 幻想时间
!setname 0x91b 幻想时间
#玄羽
!setname 0xdc1 花信
......@@ -1226,6 +1235,7 @@
!setname 0x375c 罪秽装束
!setname 0x75e 忍法帖｜非「忍法」
!setname 0x75f 纹章呼唤
!counter 0x1750 寒冷指示物
!counter 0x757 梦指示物
#Tierra 117
......@@ -1357,13 +1367,11 @@
!setname 0x389 神隐
!counter 0x389 神隐指示物
#???
#澪 519
!setname 0x3256 暗月
!setname 0x5256 /已腐蚀
!counter 0x1750 寒冷指示物
!setname 0x3a7c 25时
!setname 0x6a7c Miku
!setname 0x715 气泡方块
#王道遊老子 894
!setname 0x6708 灵形代
#TYGOC Submissions
......
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