Skip to content

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

fix

parent 4c4d1f6b
Show whitespace changes
Inline Side-by-side
Showing with 197 additions and 103 deletions
expansions/script/c11451855.lua
View file @ 4efd33e5
......@@ -36,10 +36,11 @@ function cm.initial_effect(c)
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_FIELD)
e6:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
e6:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE)
e6:SetProperty(EFFECT_FLAG_SET_AVAILABLE) --+EFFECT_FLAG_IGNORE_IMMUNE)
e6:SetRange(LOCATION_FZONE)
e6:SetTargetRange(LOCATION_SZONE,0)
e6:SetDescription(aux.Stringid(m,0))
e6:SetCondition(cm.con)
e6:SetCost(cm.costt)
c:RegisterEffect(e6)
local e7=e6:Clone()
......
expansions/script/c11451860.lua
View file @ 4efd33e5
......@@ -122,7 +122,7 @@ function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
if not re:IsHasCategory(CATEGORY_COIN) then return end
local se=Effect.CreateEffect(e:GetHandler())
se:SetType(EFFECT_TYPE_SINGLE)
se:SetCode(0x20000000+m)
se:SetCode(EFFECT_FLAG_EFFECT+m)
se:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_SET_AVAILABLE)
se:SetReset(RESET_PHASE+PHASE_END,2)
rc:RegisterEffect(se,true)
......@@ -307,7 +307,7 @@ function cm.shfilter(c)
return c:GetFlagEffect(m)>0
end
function cm.chkval(e,te)
if e:GetHandler():GetFlagEffect(m-10)>0 and te and te:GetHandler() and not te:IsHasProperty(EFFECT_FLAG_UNCOPYABLE) and (te:GetCode()<0x10000 or te:IsHasType(EFFECT_TYPE_ACTIONS)) then
if e:GetHandler():GetFlagEffect(m-10)>0 and te and te:GetHandler() and not te:IsHasProperty(EFFECT_FLAG_UNCOPYABLE) and te:IsHasType(EFFECT_TYPE_ACTIONS) then
local tp=e:GetOwnerPlayer()
local g=e:GetLabelObject()
g:ForEach(Card.ResetFlagEffect,m-10)
......@@ -334,7 +334,7 @@ function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,5))
local tc=sg:Select(tp,1,1,nil):GetFirst()
Duel.Hint(HINT_CARD,0,tc:GetOriginalCode())
local eset={tc:IsHasEffect(0x20000000+m)}
local eset={tc:IsHasEffect(EFFECT_FLAG_EFFECT+m)}
local te=eset[1]:GetLabelObject()
if #eset>1 then
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,6))
......
expansions/script/c11451861.lua
View file @ 4efd33e5
......@@ -196,7 +196,7 @@ function cm.shfilter(c)
return c:GetFlagEffect(m)>0
end
function cm.chkval(e,te)
if te and te:GetHandler() and not te:IsHasProperty(EFFECT_FLAG_UNCOPYABLE) and (te:GetCode()<0x10000 or te:IsHasType(EFFECT_TYPE_ACTIONS)) then
if te and te:GetHandler() and not te:IsHasProperty(EFFECT_FLAG_UNCOPYABLE) and te:IsHasType(EFFECT_TYPE_ACTIONS) then
local tp=te:GetOwnerPlayer()
local e3=Effect.CreateEffect(e:GetOwner())
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
......@@ -206,6 +206,7 @@ function cm.chkval(e,te)
Duel.RegisterEffect(e3,tp)
e:SetValue(aux.FALSE)
e:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e:SetDescription(0)
if tp==e:GetOwnerPlayer() then
if SetCardData then
Duel.Hint(24,0,aux.Stringid(m,3))
......
expansions/script/c11451863.lua
View file @ 4efd33e5
......@@ -257,7 +257,7 @@ function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
g=g:Filter(Card.IsRelateToEffect,nil,e)
if #g==0 then return end
g:KeepAlive()
g:ForEach(Card.RegisterFlagEffect,m-10,RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET,EFFECT_FLAG_CLIENT_HINT,1,aux.Stringid(m,10))
g:ForEach(Card.RegisterFlagEffect,m-10,RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,10))
for tc in aux.Next(g) do
local ge2=Effect.CreateEffect(c)
ge2:SetType(EFFECT_TYPE_SINGLE)
......@@ -271,7 +271,7 @@ function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
end
end
function cm.chkval(e,te)
if e:GetHandler():GetFlagEffect(m-10)>0 and te and te:GetHandler() and not te:IsHasProperty(EFFECT_FLAG_UNCOPYABLE) and (te:GetCode()<0x10000 or te:IsHasType(EFFECT_TYPE_ACTIONS)) then
if e:GetHandler():GetFlagEffect(m-10)>0 and te and te:GetHandler() and not te:IsHasProperty(EFFECT_FLAG_UNCOPYABLE) and te:IsHasType(EFFECT_TYPE_ACTIONS) then
local g=e:GetLabelObject()
g:ForEach(Card.ResetFlagEffect,m-10)
if Duel.GetFlagEffect(tp,0xffff+m)==0 then
......
expansions/script/c11451962.lua
View file @ 4efd33e5
......@@ -120,7 +120,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
de:SetDescription(aux.Stringid(11451961+#eset,6))
de:SetLabel(eid)
de:SetType(EFFECT_TYPE_FIELD)
de:SetCode(0x20000000+11451961)
de:SetCode(EFFECT_FLAG_EFFECT+11451961)
de:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
de:SetTargetRange(1,0)
Duel.RegisterEffect(de,tp)
......@@ -157,7 +157,7 @@ function cm.reop(e,tp,eg,ep,ev,re,r,rp)
end
end
function cm.efilter(e,te)
if e:GetHandler():GetFlagEffect(m+0xffffff)>0 and te and te:GetHandler() and not te:IsHasProperty(EFFECT_FLAG_UNCOPYABLE) and (te:GetCode()<0x10000 or te:IsHasType(EFFECT_TYPE_ACTIONS)) and te:GetCode()~=16 and te:GetCode()~=359 then
if e:GetHandler():GetFlagEffect(m+0xffffff)>0 and te and te:GetHandler() and not te:IsHasProperty(EFFECT_FLAG_UNCOPYABLE) and te:IsHasType(EFFECT_TYPE_ACTIONS) then
if KOISHI_CHECK then
Duel.DisableActionCheck(true)
pcall(Duel.HintSelection,Group.FromCards(e:GetHandler()))
......
expansions/script/c65123336.lua
View file @ 4efd33e5
......@@ -141,7 +141,7 @@ function s.startop2(e,tp,eg,ep,ev,re,r,rp)
else
Debug.Message("2号位玩家被识别为人机！")
end
s.skip()
s.skip(2)
local ge0=Effect.GlobalEffect()
ge0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
ge0:SetCode(EVENT_PREDRAW)
......@@ -149,62 +149,12 @@ function s.startop2(e,tp,eg,ep,ev,re,r,rp)
Duel.RegisterEffect(ge0,0)
end
end
local races = {
{value = 0x1, name = "战士"},
{value = 0x2, name = "魔法师"},
{value = 0x4, name = "天使"},
{value = 0x8, name = "恶魔"},
{value = 0x10, name = "不死"},
{value = 0x20, name = "机械"},
{value = 0x40, name = "水"},
{value = 0x80, name = "炎"},
{value = 0x100, name = "岩石"},
{value = 0x200, name = "鸟兽"},
{value = 0x400, name = "植物"},
{value = 0x800, name = "昆虫"},
{value = 0x1000, name = "雷"},
{value = 0x2000, name = "龙"},
{value = 0x4000, name = "兽"},
{value = 0x8000, name = "兽战士"},
{value = 0x10000, name = "恐龙"},
{value = 0x20000, name = "鱼"},
{value = 0x40000, name = "海龙"},
{value = 0x80000, name = "爬虫类"},
{value = 0x100000, name = "念动力"},
{value = 0x200000, name = "幻神兽"},
{value = 0x400000, name = "创造神"},
{value = 0x800000, name = "幻龙"},
{value = 0x1000000, name = "电子界"},
{value = 0x2000000, name = "幻想魔"}
}
function s.humancheck(tp)
if Duel.SelectYesNo(tp,1214) then
return false
else
return true
end
local count=s.rollrandom(1,3)
Debug.Message("我们怀疑您是人机，请按照以下内容点击正确的选项")
local selected = {}
local total_value=0
local available_indices = {}
for i = 1,#races do
table.insert(available_indices,i)
end
for i=1,3 do
local index=s.rollrandom(1,#available_indices)
local selected_race=races[available_indices[index]]
table.insert(selected,selected_race)
total_value=total_value+selected_race.value
table.remove(available_indices,index)
end
local names=""
for _, race in ipairs(selected) do
names=names..race.name.." "
end
Debug.Message(names)
return Duel.AnnounceRace(tp,3,RACE_ALL)==total_value
end
function s.skip(count)
if not count then count=1 end
......@@ -232,6 +182,7 @@ function s.skiptoplayer(pid)
s.skip(turn)
end
function s.startop3(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetFlagEffect(Duel.GetTurnPlayer(),id)>0 then return end
e:Reset()
if s.humancheck(0) then
s.IsHuman[3]=true
......@@ -333,11 +284,17 @@ function s.dealcard(count,tp)
Duel.MoveToField(mc,tp,tp,loc,POS_FACEUP_ATTACK,false,2^seq)
s.changecardcode(mc)
if i%10==0 then
Duel.SendtoHand(Duel.GetFieldGroup(tp,LOCATION_ONFIELD,0),tp,REASON_RULE)
local mg=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,0)
Duel.ConfirmCards(0,mg)
Duel.ConfirmCards(1,mg)
Duel.SendtoHand(mg,tp,REASON_RULE)
end
end
Duel.SendtoHand(Duel.GetFieldGroup(tp,LOCATION_ONFIELD,0),tp,REASON_RULE)
s.sortop(e,tp)
local mg=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,0)
Duel.ConfirmCards(0,mg)
Duel.ConfirmCards(1,mg)
Duel.SendtoHand(mg,tp,REASON_RULE)
s.sortop(nil,tp)
end
function s.dealcard2(count,tp)
if not tp then tp=Duel.GetTurnPlayer() end
......@@ -360,17 +317,18 @@ function s.dealcard2(count,tp)
g:AddCard(mc)
end
Duel.DisableShuffleCheck()
Duel.Overlay(oc,g)
local tc=g:GetFirst()
for i=count,1,-1 do
Duel.Overlay(oc,tc)
local code=codetable[i]
tc:SetEntityCode(id,true)
tc:SetCardData(CARDDATA_CODE,code)
tc:ReplaceEffect(code,0)
Duel.DisableShuffleCheck()
Duel.SendtoDeck(tc,tp,0,REASON_RULE)
tc=g:GetNext()
end
Duel.DisableShuffleCheck()
Duel.SendtoHand(g,tp,REASON_RULE)
Duel.Draw(tp,count,REASON_RULE)
--Duel.ShuffleHand(tp)
else
s.dealcard(tp)
......@@ -503,7 +461,6 @@ function s.fpair2(g,hg)
end
function s.fflight(g,hg)
local eg=hg:Filter(aux.TRUE,g)
return g:GetClassCount(s.getpoint)==1 and eg:CheckSubGroup(s.fpair,3,3)
end
function s.handcon(e,tp,eg,ep,ev,re,r,rp)
......@@ -525,13 +482,19 @@ function s.handop(e,tp,eg,ep,ev,re,r,rp)
if isstraight then
cg:Merge(g:Filter(s.straightfilter,c,min,max,c:GetCode()%20))
end
if point==16 or point==17 then
cg:Merge(g:Filter(s.pointsame,c,33-point))
end
while true do
local sc=cg:SelectUnselect(sg,p,true,true,0,1)
if sc then
if sg:IsContains(sc) then return end
sg:AddCard(sc)
cg:RemoveCard(sc)
if s.getpoint(sc)==point then
if s.getpoint(sc)==16 or s.getpoint(sc)==17 then
cardtype=KingBomb
cg:Clear()
elseif s.getpoint(sc)==point then
cardtype=sg:GetCount()
cg=cg:Filter(s.pairfilter,c,s.getpoint(sc))
else
......@@ -692,6 +655,13 @@ function s.movecard(cardtype,mg)
Duel.MoveToField(tc,p,p,LOCATION_SZONE,POS_FACEUP,false,2^i)
tc=mg2:GetNext()
end
elseif cardtype==KingBomb then
local tc=mg:GetFirst()
Duel.MoveToField(tc,p,p,LOCATION_MZONE,POS_FACEUP_ATTACK,false,2^1)
Duel.MoveSequence(tc,5)
tc=mg:GetNext()
Duel.MoveToField(tc,p,p,LOCATION_MZONE,POS_FACEUP_ATTACK,false,2^3)
Duel.MoveSequence(tc,6)
elseif cardtype==Straight then
for i=0,4 do
local tc=mg:GetMinGroup(s.getpoint):GetFirst()
......@@ -856,26 +826,35 @@ function s.movecard(cardtype,mg)
if Duel.GetFieldGroupCount(p,LOCATION_HAND,0)==0 then Duel.Win(p,0xffff,Duel.CreateToken(p,id)) end
end
function s.sortop(e,tp)
local p=Duel.GetTurnPlayer()
local oc=Duel.GetFieldGroup(p,LOCATION_EXTRA,0):GetFirst()
local g=Duel.GetFieldGroup(p,LOCATION_HAND,0)
Duel.Overlay(oc,g)
if e then tp=Duel.GetTurnPlayer() end
local oc=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0):GetFirst()
local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
local count=g:GetCount()
--Duel.Overlay(oc,g)
local cg=Group.CreateGroup()
while g:GetCount()>0 do
local mg=g:GetMaxGroup(s.getpoint)
local mg=g:GetMinGroup(s.getpoint)
while mg:GetCount()>0 do
local mc=mg:GetMaxGroup(Card.GetCode):GetFirst()
g:RemoveCard(mc)
mg:RemoveCard(mc)
cg:AddCard(mc)
Duel.DisableShuffleCheck()
Duel.SendtoHand(mc,p,REASON_RULE)
Duel.SendtoDeck(mc,nil,0,REASON_RULE)
Duel.AdjustAll()
end
end
Duel.Draw(tp,count,REASON_RULE)
end
function s.fbomb(g)
return g:GetClassCount(s.getpoint)==1 and g:GetCount()==4 or g:IsExists(s.pointsame,1,nil,16) and g:IsExists(s.pointsame,1,nil,17) and g:GetCount()==2
end
function s.fpairs(g,count)
return g:GetClassCount(s.getpoint)==count
end
function s.chainop(e,tp,eg,ep,ev,re,r,rp)
local cardtype,point,lastp=e:GetLabel()
local p=Duel.GetTurnPlayer()
local pid=(Duel.GetTurnCount()-1)%playercount+1
local g=Duel.GetFieldGroup(p,LOCATION_HAND,0)
local upg=g:Filter(s.pointup,nil,point)
......@@ -883,12 +862,16 @@ function s.chainop(e,tp,eg,ep,ev,re,r,rp)
local ischainable=false
local ischain=false
local mg=Group.CreateGroup()
if g:CheckSubGroup(s.fpair,4,4) and Duel.SelectYesNo(p,aux.Stringid(id,5)) then
mg=g:SelectSubGroup(p,s.fpair,true,4,4)
if cardtype~=KingBomb and cardtype~=Bomb and g:CheckSubGroup(s.fbomb,2,4) and Duel.SelectYesNo(p,aux.Stringid(id,5)) then
mg=g:SelectSubGroup(p,s.fbomb,true,4,4)
if mg and mg:GetCount()==4 then
cardtype=Bomb
point=s.getpoint(mg:GetFirst())
ischain=true
else
cardtype=KingBomb
point=17
ischain=true
end
end
if cardtype==Single and upg:GetCount()>0 then
......@@ -962,16 +945,18 @@ function s.chainop(e,tp,eg,ep,ev,re,r,rp)
if #abletable>0 then
ischainable=true
local sg=Group.CreateGroup()
while sg:GetCount()<s.lastcard:GetCount() do
while sg:GetCount()<count*3 do
local mg=upg:Filter(s.flightable,nil,abletable,count)
local sc=mg:SelectUnselect(sg,p,true,true,0,1)
if sc then
if sg:IsContains(sc) then return end
if sc and not sg:IsContains(sc) then
local cpoint=s.getpoint(sc)
for i=13,1,-1 do
if i>=cpoint then abletable[i]=false else break end
end
local tg=mg:Filter(s.pointsame,nil,cpoint)
mg=mg:Filter(s.flightable,tg,abletable,count)
if tg:GetCount()==4 then tg=tg:Select(p,3,3,nil) end
sg:Merge(tg)
else
break
end
......@@ -981,6 +966,111 @@ function s.chainop(e,tp,eg,ep,ev,re,r,rp)
ischain=true
end
end
elseif cardtype==Flight1 then
local count=s.lastcard:GetCount()/4
local gtable={}
local codetable={}
local abletable={}
for i=1,14 do
codetable[i]=false
end
local min
local cg=upg:GetMaxGroup(s.getpoint)
while upg:GetCount()>0 do
if cg:GetCount()>=3 then
local cpoint=cg:GetFirst():GetCode()%20
if cpoint==1 then codetable[14]=true end
codetable[cpoint]=true
local bool=true
for i=cpoint,cpoint+count-1 do
eg:Merge()
if codetable[i]~=true then bool=false end
end
local eg=Group.__add(g:Filter(s.pointup,nil,cpoint+count-1),g:Filter(s.pointdown,nil,cpoint))
if bool and eg:GetCount()>=count then table.insert(abletable,i) end
end
upg=upg:Filter(aux.TRUE,cg)
end
if #abletable>0 then
ischainable=true
local sg=Group.CreateGroup()
while sg:GetCount()<count*3 do
local mg=upg:Filter(s.flightable,nil,abletable,count)
local sc=mg:SelectUnselect(sg,p,true,true,0,1)
if sc and not sg:IsContains(sc) then
local cpoint=s.getpoint(sc)
for i=13,1,-1 do
if i>=cpoint then abletable[i]=false else break end
end
local tg=mg:Filter(s.pointsame,nil,cpoint)
mg=mg:Filter(s.flightable,tg,abletable,count)
if tg:GetCount()==4 then tg=tg:Select(p,3,3,nil) end
sg:Merge(tg)
else
break
end
end
local cp=s.getpoint(mg:GetMinGroup():GetFirst())
sg:Merge(g:Select(p,count,count,sg))
if sg:GetCount()==s.lastcard:GetCount() then
point=cp
ischain=true
end
end
elseif cardtype==Flight2 then
local count=s.lastcard:GetCount()/4
local gtable={}
local codetable={}
local abletable={}
for i=1,14 do
codetable[i]=false
end
local min
local cg=upg:GetMaxGroup(s.getpoint)
while upg:GetCount()>0 do
if cg:GetCount()>=3 then
local cpoint=cg:GetFirst():GetCode()%20
if cpoint==1 then codetable[14]=true end
codetable[cpoint]=true
local bool=true
for i=cpoint,cpoint+count-1 do
eg:Merge()
if codetable[i]~=true then bool=false end
end
local eg=Group.__add(g:Filter(s.pointup,nil,cpoint+count-1),g:Filter(s.pointdown,nil,cpoint))
if bool and eg:CheckSubGroup(s.fpairs,2*count,2*count,count) then
table.insert(abletable,i)
end
end
upg=upg:Filter(aux.TRUE,cg)
end
if #abletable>0 then
ischainable=true
local sg=Group.CreateGroup()
while sg:GetCount()<count*3 do
local mg=upg:Filter(s.flightable,nil,abletable,count)
local sc=mg:SelectUnselect(sg,p,true,true,0,1)
if sc and not sg:IsContains(sc) then
local cpoint=s.getpoint(sc)
for i=13,1,-1 do
if i>=cpoint then abletable[i]=false else break end
end
local tg=mg:Filter(s.pointsame,nil,cpoint)
mg=mg:Filter(s.flightable,tg,abletable,count)
if tg:GetCount()==4 then tg=tg:Select(p,3,3,nil) end
sg:Merge(tg)
else
break
end
end
local cp=s.getpoint(mg:GetMinGroup():GetFirst())
local eg=g:Filter(aux.TRUE,sg)
sg:Merge(eg:SelectSubGroup(p,s.fpairs,true,2*count,2*count,count))
if sg:GetCount()==s.lastcard:GetCount() then
point=cp
ischain=true
end
end
elseif cardtype==Straight then
local cardtable=s.checkStraight2(point,upg)
if #cardtable>0 then
......@@ -991,8 +1081,7 @@ function s.chainop(e,tp,eg,ep,ev,re,r,rp)
end
while mg:GetCount()<5 do
local sc=cg:SelectUnselect(mg,p,true,true,0,1)
if sc then
if sg:IsContains(sc) then return end
if sc and not cg:IsContains(sc) then
for i,v in ipairs(cardtable) do
if sc:GetCode()%20>=v.min and sc:GetCode()%20<=v.max then
cg=cg:Filter(s.straightfilter,nil,v.min,v.max,sc:GetCode()%20)
......@@ -1012,13 +1101,14 @@ function s.chainop(e,tp,eg,ep,ev,re,r,rp)
end
if ischain then
s.movecard(cardtype,mg)
lastp=p
lastp=pid
else
if not ischainable then
Duel.SelectYesNo(p,aux.Stringid(id,1))
end
local pid=(Duel.GetTurnCount()-1)%playercount+1
Debug.Message(pid.."号位玩家：不要！")
local identity=pid==landlord and "地主" or "农民"
if s.IsHuman[pid]==true or playercount==2 then Debug.Message(pid.."号位玩家("..identity..")：不要！") end
end
local p=Duel.GetTurnPlayer()
s.skip()
......@@ -1029,7 +1119,9 @@ function s.chainop(e,tp,eg,ep,ev,re,r,rp)
ge0:SetOperation(s.chainop)
Duel.RegisterEffect(ge0,0)
else
Debug.Message(pid.."号位玩家的回合")
local pid=(Duel.GetTurnCount()-1)%playercount+1
local identity=pid==landlord and "地主" or "农民"
Debug.Message(pid.."号位玩家("..identity..")的回合")
local g=Duel.GetFieldGroup(0,LOCATION_ONFIELD,LOCATION_ONFIELD)
if g:GetCount()>0 then Duel.SendtoGrave(g,REASON_RULE) end
end
......
expansions/script/c91300032.lua
View file @ 4efd33e5
......@@ -331,7 +331,7 @@ function c91300032.discon5(e,tp,eg,ep,ev,re,r,rp)
and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_HAND,0,1,c)
end
function c91300032.disop5(e,tp,eg,ep,ev,re,r,rp)
if Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil,REASON_EFFECT) and Duel.SelectYesNo(tp,aux.Stringid(id,0)) then
if Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil,REASON_EFFECT) and Duel.SelectYesNo(tp,aux.Stringid(91301025,0)) then
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_EFFECT+REASON_DISCARD)
local p=Duel.GetChainInfo(ev,CHAININFO_TARGET_PLAYER)
Duel.ChangeTargetPlayer(ev,1-p)
......
expansions/script/c91300033.lua
View file @ 4efd33e5
......@@ -334,7 +334,7 @@ function c91300033.discon5(e,tp,eg,ep,ev,re,r,rp)
and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_HAND,0,1,c)
end
function c91300033.disop5(e,tp,eg,ep,ev,re,r,rp)
if Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil,REASON_EFFECT) and Duel.SelectYesNo(tp,aux.Stringid(id,0)) then
if Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil,REASON_EFFECT) and Duel.SelectYesNo(tp,aux.Stringid(91301025,0)) then
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_EFFECT+REASON_DISCARD)
local p=Duel.GetChainInfo(ev,CHAININFO_TARGET_PLAYER)
Duel.ChangeTargetPlayer(ev,1-p)
......
expansions/script/c91300034.lua
View file @ 4efd33e5
......@@ -347,7 +347,7 @@ function c91300034.discon5(e,tp,eg,ep,ev,re,r,rp)
and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_HAND,0,1,c)
end
function c91300034.disop5(e,tp,eg,ep,ev,re,r,rp)
if Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil,REASON_EFFECT) and Duel.SelectYesNo(tp,aux.Stringid(id,0)) then
if Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil,REASON_EFFECT) and Duel.SelectYesNo(tp,aux.Stringid(91301025,0)) then
Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_EFFECT+REASON_DISCARD)
local p=Duel.GetChainInfo(ev,CHAININFO_TARGET_PLAYER)
Duel.ChangeTargetPlayer(ev,1-p)
......
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