Skip to content

Y
ygopro-222DIY-cards
Commit 582493e1 authored by 聖園ミカ's avatar 聖園ミカ 🐟
Browse files
Options

54188

parent a1669e87
Show whitespace changes
Inline Side-by-side
Showing with 63 additions and 1968 deletions
.gitlab-ci.yml
View file @ 582493e1
......@@ -5,7 +5,7 @@ stages:
variables:
GIT_DEPTH: "1"
LAST_UPDATE_DATE: "2024.10.28"
CURRENT_UPDATE_DATE: "2024.11.10"
CURRENT_UPDATE_DATE: "2024.11.11"
redtext:
stage: prepare
......
deck/2024-11-10 1st.ydk
View file @ 582493e1
......@@ -55,7 +55,6 @@
16400261
16400292
#extra
4270024
11901550
12825624
12841231
......
expansions/FiNALE.cdb
View file @ 582493e1
No preview for this file type
expansions/lflist.conf
View file @ 582493e1
......@@ -1389,11 +1389,6 @@
40010896 0 --微小的和平
40011557 0 --云上骑士·天律
#440
44000006 1 --骰娘炼成 鱼仙
44000017 0 --骰娘之主 古
44000018 1 --骰娘之主 追仙
44000019 0 --骰娘之主 多多
44000030 0 --骰投死道 安颜色
44000101 1 --日冕：苍烟落
44000103 0 --游天知
44001001 0 --血祭魇的狩夹 埃文
......
expansions/script/c17090014.lua
View file @ 582493e1
......@@ -38,7 +38,7 @@ function cm.initial_effect(c)
c:RegisterEffect(e2)
end
function cm.thfilter(c)
return (c:IsCode(17090000) or (c:IsType(TYPE_PENDULUM) and c:IsRace(RACE_WINDBEAST) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsType(TYPE_RITUAL)) and c:IsAbleToHand()
return (c:IsCode(17090000) or (c:IsType(TYPE_PENDULUM) and c:IsRace(RACE_WINDBEAST) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsType(TYPE_RITUAL))) and c:IsAbleToHand()
and not c:IsCode(m)
end
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
......
expansions/script/c18700016.lua
View file @ 582493e1
......@@ -35,8 +35,8 @@ function cm.initial_effect(c)
e5:SetCategory(CATEGORY_TOHAND)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e6:SetCode(EVENT_REMOVE)
e6:SetRange(LOCATION_REMOVED)
e5:SetCode(EVENT_REMOVE)
e5:SetRange(LOCATION_REMOVED)
e5:SetCountLimit(1,18700017)
e5:SetTarget(cm.sptg3)
e5:SetOperation(cm.spop3)
......
expansions/script/c18700023.lua
View file @ 582493e1
......@@ -11,7 +11,7 @@ function cm.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_IGNITION)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_SZONE)
e1:SetCountLimit(1,18700023)
e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
......
expansions/script/c18700173.lua
View file @ 582493e1
--奇物-9 星之彩
local m=18700175
local m=18700173
local cm=_G["c"..m]
xpcall(function() require("expansions/script/1") end,function() require("script/1") end)
function cm.initial_effect(c)
......
expansions/script/c18700235.lua
View file @ 582493e1
......@@ -65,6 +65,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
Duel.Overlay(sc,g2)
end
end
end
end
function cm.discon(e,tp,eg,ep,ev,re,r,rp)
if not rp~=1-tp then return false end
......
expansions/script/c18700240.lua
View file @ 582493e1
......@@ -14,7 +14,7 @@ function cm.initial_effect(c)
c:RegisterEffect(e0)
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e:SetCategory(CATEGORY_EQUIP)
e1:SetCategory(CATEGORY_EQUIP)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE)
......
expansions/script/c31710034.lua
View file @ 582493e1
......@@ -53,7 +53,7 @@ function s.initial_effect(c)
c:RegisterEffect(e1)
local e3=e2:Clone()
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_BE_BATTLE_TARGET)
c:RegisterEffect(e3)
local e4=e2:Clone()
......
expansions/script/c44000000.lua deleted 100644 → 0
View file @ a1669e87
--雪鸮的外包
Duel.LoadScript("c10199990.lua")
--[[
2020.9.15 "Mrs_Dice" Complete
--]]
\ No newline at end of file
expansions/script/c44000001.lua deleted 100644 → 0
View file @ a1669e87
--骰娘炼成 此奈
Duel.LoadScript("c44000000.lua")
local m,cm=rscf.DefineCard(44000001,"MrsDice_Taught")
if rsmd then return end
rsmd = cm
rscf.DefineSet(rsmd,"MrsDice",1)
rscf.DefineSet(rsmd,"MrsDice_Taught",2)
rscf.DefineSet(rsmd,"MrsDice_Taught_Master",3)
rsmd.acteffect={}
function rsmd.SetActCount(e1,...)
local elist={e1,...}
for _,e in pairs(elist) do
e:SetCountLimit(99)
e:SetCondition(cm.ctcon(e:GetCondition()))
e:SetTarget(cm.cttg(e:GetTarget()))
end
end
function cm.ctcon(con)
return function(e,tp,...)
if con and not con(e,tp,...) then return false end
local c=e:GetHandler()
local flag=c:GetFlagEffect(m)
local ct=Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)
if c:IsHasEffect(44000013) then
return flag<ct
else
return flag==0
end
end
end
function cm.cttg(tg)
return function(e,tp,eg,ep,ev,re,r,rp,chk,chkc,...)
if chkc or chk==0 then return not tg or tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc,...) end
tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc,...)
local c=e:GetHandler()
c:RegisterFlagEffect(m,rsreset.est_pend,0,1)
end
end
function rsmd.ToGraveFun(c,code)
local e1=rsef.STO(c,EVENT_TO_GRAVE,"sp",{1,code+100},"sp","de",nil,nil,rsop.target(cm.tgspfilter,"sp",rsloc.hdg),cm.tgspop)
return e1
end
function cm.tgspop(e,tp)
rsop.SelectSpecialSummon(tp,aux.NecroValleyFilter(cm.tgspfilter),tp,rsloc.hdg,0,1,1,nil,{},e,tp)
end
function cm.tgspfilter(c,e,tp)
return rsmd.IsSet2(c) and not rsmd.IsSet3(c) and rscf.spfilter2()(c,e,tp)
end
-----------------------------------------------
function cm.initial_effect(c)
local e1=rsef.FTO(c,EVENT_SUMMON_SUCCESS,{m,0},1,"dice,ctrl,se,th",nil,LOCATION_MZONE,cm.con,nil,cm.tg,cm.op)
local e2=rsef.RegisterClone(c,e1,"code",EVENT_SPSUMMON_SUCCESS)
local e3=rsef.RegisterClone(c,e1,"code",EVENT_FLIP_SUMMON_SUCCESS)
rsmd.SetActCount(e1,e2,e3)
end
cm.toss_dice=true
function cm.cfilter(c,tp)
return c:GetSummonPlayer()==tp
end
function cm.con(e,tp,eg)
return eg:IsExists(cm.cfilter,1,nil,1-tp)
end
function cm.thfilter(c,tp)
return cm.cfilter(c,tp) and c:IsAbleToHand()
end
function cm.thfilter2(c)
return c:IsAbleToHand() and rsmd.IsSetM2(c)
end
function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
local b1=e:GetHandler():IsControlerCanBeChanged()
local b2=eg:IsExists(cm.thfilter,1,nil,1-tp)
local b3=Duel.IsExistingMatchingCard(cm.thfilter2,tp,rsloc.dg,0,1,nil)
if chk==0 then return b1 or b2 or b3 end
Duel.SetTargetCard(eg)
Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local dc=Duel.TossDice(tp,1)
if dc==1 or dc==2 then
local c=e:GetHandler()
if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
Duel.GetControl(c,1-tp)
elseif dc==3 or dc==4 then
local tg=rsgf.GetTargetGroup():Filter(cm.thfilter,nil,1-tp)
if #tg>0 then
Duel.SendtoHand(tg,nil,REASON_EFFECT)
end
elseif dc==5 or dc==6 then
rsop.SelectToHand(tp,aux.NecroValleyFilter(cm.thfilter2),tp,rsloc.dg,0,1,1,nil,{})
end
end
\ No newline at end of file
expansions/script/c44000002.lua deleted 100644 → 0
View file @ a1669e87
--骰娘炼成 丛雨
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000002,"MrsDice_Taught")
function cm.initial_effect(c)
local e1=rsef.QO(c,EVENT_CHAINING,{m,0},1,"dice,rec,neg,des","dcal,dsp",LOCATION_MZONE,cm.con,nil,cm.tg,cm.op)
rsmd.SetActCount(e1)
end
cm.toss_dice=true
function cm.con(e,tp,eg,ep,ev,re,r,rp)
return rp==1-tp
end
function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
end
function cm.op(e,tp,eg,ep,ev,re,r,rp,chk)
local dc=Duel.TossDice(tp,1)
if dc==1 or dc==3 or dc==5 then
Duel.Recover(1-tp,300,REASON_EFFECT)
elseif dc==2 or dc==4 or dc==6 then
if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
Duel.Destroy(eg,REASON_EFFECT)
end
end
end
\ No newline at end of file
expansions/script/c44000003.lua deleted 100644 → 0
View file @ a1669e87
--骰娘炼成 惠惠
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000003,"MrsDice_Taught")
function cm.initial_effect(c)
local e1=rsef.FTO(c,EVENT_ATTACK_ANNOUNCE,{m,0},1,"dice,atk,dam",nil,LOCATION_MZONE,rscon.turno,nil,cm.tg,cm.op)
rsmd.SetActCount(e1)
end
cm.toss_dice=true
function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
end
function cm.op(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
local tc=Duel.GetAttacker()
if not tc:IsRelateToBattle() then return end
local dc=Duel.TossDice(tp,1)
if dc==1 then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EXTRA_ATTACK)
e1:SetValue(1)
e1:SetReset(rsreset.est_pend)
tc:RegisterEffect(e1)
elseif dc>1 and dc<6 then
local e1=rscf.QuickBuff({c,tc},"atk+",dc>=3 and -600 or 600)
elseif dc==6 then
if Duel.NegateAttack() and tc:GetAttack()>0 then
Duel.Damage(1-tp,tc:GetAttack(),REASON_EFFECT)
end
end
end
\ No newline at end of file
expansions/script/c44000004.lua deleted 100644 → 0
View file @ a1669e87
--骰娘的孤注一掷！
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000004,"MrsDice")
function cm.initial_effect(c)
local e1=rsef.ACT(c,nil,nil,{1,m,1},"dr,td",nil,nil,cm.cost,rsop.target({ cm.tdfilter,"td",LOCATION_HAND },{1,"dr"}),cm.act)
Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,rsmd.IsSet1)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 end
local e1=rsef.FV_LIMIT_PLAYER({e:GetHandler(),tp},"sp",nil,cm.splimit,{1,0},nil,rsreset.pend)
end
function cm.splimit(e,c)
return not rsmd.IsSet1(c)
end
function cm.tdfilter(c)
return rsmd.IsSet2(c) and c:IsAbleToDeck() and not c:IsPublic()
end
function cm.act(e,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g=Duel.SelectMatchingCard(tp,cm.tdfilter,tp,LOCATION_HAND,0,1,99,nil)
if #g>0 then
Duel.ConfirmCards(1-tp,g)
local ct=Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
Duel.ShuffleDeck(tp)
Duel.BreakEffect()
Duel.Draw(tp,ct+1,REASON_EFFECT)
end
end
expansions/script/c44000005.lua deleted 100644 → 0
View file @ a1669e87
--无可避免的检定
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000005,"MrsDice_Taught")
function cm.initial_effect(c)
local e1=rsef.ACT(c)
--destroy replace
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_DESTROY_REPLACE)
e2:SetRange(LOCATION_SZONE)
e2:SetTarget(cm.destg)
e2:SetValue(cm.value)
e2:SetOperation(cm.desop)
c:RegisterEffect(e2)
local e3,e4=rsef.FV_CANNOT_DISABLE(c,"dise,neg",rsval.cdisneg(cm.filter))
end
function cm.dfilter(c,tp)
return c:IsControler(tp) and c:IsReason(REASON_BATTLE) and rsmd.IsSetM1(c)
end
function cm.repfilter(c)
return rsmd.IsSetM1(c) and c:IsAbleToRemove()
end
function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return eg:IsExists(cm.dfilter,1,nil,tp)
and Duel.IsExistingMatchingCard(cm.repfilter,tp,LOCATION_GRAVE,0,1,nil) end
return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
end
function cm.value(e,c)
return c:IsControler(e:GetHandlerPlayer()) and c:IsReason(REASON_BATTLE) and rsmd.IsSetM1(c)
end
function cm.desop(e,tp,eg,ep,ev,re,r,rp)
rshint.Card(m)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,cm.repfilter,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
end
function cm.filter(e,p,te,tp)
return rsmd.IsSet2(te:GetHandler()) and te:IsActiveType(TYPE_MONSTER)
end
\ No newline at end of file
expansions/script/c44000006.lua deleted 100644 → 0
View file @ a1669e87
--骰娘炼成 鱼仙
Duel.LoadScript("c44000001.lua")
local id,s = rscf.DefineCard(44000006,"MrsDice_Taught")
local m,cm = id,s
function cm.initial_effect(c)
c:EnableReviveLimit()
aux.AddLinkProcedure(c,rsmd.IsSet2,1)
--local e1=rsef.STO(c,EVENT_SPSUMMON_SUCCESS,{m,0},{1,m},"se,dice","de,dsp",rscon.sumtype("link"),nil,cm.tg,cm.op)
local e1 = rsef.STO(c,EVENT_SPSUMMON_SUCCESS,"th",{1,id},"se,th","de",
rscon.sumtyps("link"),nil,rsop.target(s.thfilter2,"th",LOCATION_DECK),s.thop)
--dice
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetRange(LOCATION_GRAVE)
e2:SetCode(EVENT_TOSS_DICE_NEGATE)
e2:SetCondition(cm.dicecon)
e2:SetOperation(cm.diceop)
c:RegisterEffect(e2)
rsmd.acteffect[m]={e1}
end
cm.toss_coin=true
function s.thfilter2(c)
return c:IsCode(44000011) and c:IsAbleToHand()
end
function s.thop(e,tp)
rsop.SelectOperate("th",tp,cm.thfilter2,tp,LOCATION_DECK,0,1,1,nil,{})
end
function cm.spfilter(c,e,tp)
return rsmd.IsSetM2(c) and rscf.spfilter2()(c,e,tp)
end
function cm.thfilter(c)
return rsmd.IsSetM2(c) and c:IsAbleToHand()
end
function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
local b1=Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp)
local b2=Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil)
if chk==0 then return b1 or b2 end
Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local dc=Duel.TossDice(tp,1)
if dc<4 then
rsop.SelectSpecialSummon(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,{},e,tp)
elseif dc<7 then
rsop.SelectToHand(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil,{})
end
end
function cm.dicecon(e,tp,eg,ep,ev,re,r,rp)
return ep==tp and e:GetHandler():IsAbleToRemove() and rsmd.IsSetM2(re:GetHandler()) and Duel.GetFlagEffect(tp,m)==0
end
function cm.diceop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetFlagEffect(tp,m)~=0 then return end
if Duel.SelectEffectYesNo(tp,c,aux.Stringid(m,1)) then
Duel.Hint(HINT_CARD,0,m)
Duel.Remove(c,POS_FACEUP,REASON_EFFECT)
local ct1=bit.band(ev,0xff)
local ct2=bit.rshift(ev,16)
Duel.TossDice(ep,ct1,ct2)
Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
end
end
\ No newline at end of file
expansions/script/c44000007.lua deleted 100644 → 0
View file @ a1669e87
--当骰娘焕发生机之时
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000007,"MrsDice_Taught")
function cm.initial_effect(c)
local e1=aux.AddRitualProcGreaterCode(c,44000008,LOCATION_HAND+LOCATION_GRAVE)
e1:SetTarget(cm.tg(e1:GetTarget()))
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_GRAVE)
e2:SetCondition(aux.exccon)
e2:SetCost(aux.bfgcost)
e2:SetTarget(cm.thtg)
e2:SetOperation(cm.thop)
c:RegisterEffect(e2)
end
function cm.tg(tg)
return function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return tg(e,tp,eg,ep,ev,re,r,rp,chk) end
if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
Duel.SetChainLimit(aux.FALSE)
end
end
end
function cm.thfilter(c)
return rsmd.IsSetST2(c) and c:IsAbleToHand()
end
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function cm.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
if #g>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
\ No newline at end of file
expansions/script/c44000008.lua deleted 100644 → 0
View file @ a1669e87
--众骰之始 溯洄
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000008,"MrsDice_Taught")
function cm.initial_effect(c)
rscf.SetSummonCondition(c,false,aux.ritlimit)
local e1=rsef.STO(c,EVENT_SPSUMMON_SUCCESS,{m,0},{1,m},"sp","de,dsp",rscon.sumtype("rit"),nil,rsop.target(cm.spfilter,"sp",rsloc.hg),cm.spop)
local e2=rsef.I(c,{m,1},{1,m+1},nil,"tg",LOCATION_MZONE,nil,nil,rstg.target(rscf.fufilter(rsmd.IsSet2),nil,LOCATION_MZONE),cm.indop)
local e3=rsef.QO(c,nil,{m,2},1,"rm","tg",LOCATION_MZONE,cm.ctcon(2),nil,rstg.target(Card.IsAbleToRemove,"rm",0,LOCATION_MZONE),cm.rmop)
local e4=rsef.QO_NEGATE(c,"neg",1,"rm",LOCATION_MZONE,aux.AND(rscon.negcon(0),cm.ctcon(4)))
rsmd.acteffect[m]={e1,e2,e3,e4}
end
function cm.spfilter(c,e,tp)
return rscf.spfilter2(rsmd.IsSet2)(c,e,tp)
end
function cm.spop(e,tp)
local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
local sg=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.spfilter),tp,rsloc.hg,0,nil,e,tp)
local sct=math.min(ft,#sg)
if sct<=0 then return end
sct = rscon.bsdcheck(tp) and 1 or sct
rsgf.SelectSpecialSummon(sg,tp,aux.TRUE,sct,sct,nil,{})
end
function cm.indop(e,tp)
local c=e:GetHandler()
local tc=rscf.GetTargetCard()
if not tc then return end
local resetct= (Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()<=PHASE_STANDBY) and 2 or 1
local e1=rsef.SV_INDESTRUCTABLE({c,tc},"effect",aux.indoval,nil,{rsreset.est+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,resetct},"cd")
end
function cm.ctcon(ct)
return function(e,tp)
local g=Duel.GetMatchingGroup(rsmd.IsSetM2,tp,LOCATION_GRAVE,0,nil)
return g:GetClassCount(Card.GetCode)>=ct
end
end
function cm.rmop(e,tp)
local c,tc=e:GetHandler(),rscf.GetTargetCard()
local fid=c:GetFieldID()
if not tc or Duel.Remove(tc,POS_FACEUP,REASON_EFFECT+REASON_TEMPORARY)<=0 then return end
tc:RegisterFlagEffect(m,rsreset.est_pend,0,1)
local e1=rsef.FC({c,tp},EVENT_PHASE+PHASE_END,nil,1,nil,nil,cm.retcon,cm.retop,rsreset.pend)
e1:SetLabelObject(tc)
end
function cm.retcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetLabelObject():GetFlagEffect(m)~=0
end
function cm.retop(e,tp,eg,ep,ev,re,r,rp)
Duel.ReturnToField(e:GetLabelObject())
end
\ No newline at end of file
expansions/script/c44000009.lua deleted 100644 → 0
View file @ a1669e87
--骰娘源码
Duel.LoadScript("c44000001.lua")
local id,s = rscf.DefineCard(44000009,"MrsDice_Taught")
local m,cm = id,s
function cm.initial_effect(c)
--local e1=rsef.ACT(c,nil,nil,nil,"se,th",nil,nil,rscost.cost(cm.tgfilter,"tg",LOCATION_HAND,0,1,1,c),rsop.target({cm.thfilter,cm.ritcheck},"th",rsloc.dg,0,2),cm.act)
local e1 = rsef.A(c,nil,nil,{1,id},"sp",nil,nil,nil,
rsop.target(s.spfilter,"sp",rsloc.hg),s.act2)
local e2 = rsef.I(c,"td",{1,id+100},"td,th","tg",LOCATION_GRAVE,nil,
aux.bfgcost,rstg.target({s.tdfilter,"td",LOCATION_GRAVE},
{s.thfilter,"th",LOCATION_GRAVE}),s.tdop)
end
function s.tdfilter(c)
return c:IsComplexType(TYPE_RITUAL+TYPE_MONSTER) and c:IsAbleToDeck() and rsmd.IsSet2(c)
end
function s.thfilter(c)
return c:IsComplexType(TYPE_RITUAL+TYPE_SPELL) and c:IsAbleToHand() and rsmd.IsSet2(c)
end
function s.tdop(e,tp)
local g = rsgf.GetTargetGroup()
if #g ~= 2 then return end
local tc = g:GetFirst()
local tc2 = g:GetNext()
if tc2:IsType(TYPE_MONSTER) then tc,tc2 = tc2, tc end
if Duel.SendtoDeck(tc,nil,2,REASON_EFFECT) > 0 and tc:IsLocation(LOCATION_DECK) then
Duel.SendtoHand(tc2,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc2)
end
end
function s.spfilter(c,e,tp)
return rscf.spfilter2()(c,e,tp) and rsmd.IsSet2(c)
end
function s.act2(e,tp)
rsop.SelectOperate("th",tp,aux.NecroValleyFilter(s.spfilter),tp,rsloc.hg,0,1,1,nil,{},e,tp)
end
function cm.tgfilter(c)
return c:IsAbleToGraveAsCost() and rsmd.IsSet1(c)
end
function cm.thfilter(c)
return c:IsType(TYPE_RITUAL) and rsmd.IsSet2(c) and c:IsAbleToHand()
end
function cm.ritcheck(g)
return g:IsExists(Card.IsType,1,nil,TYPE_MONSTER) and g:IsExists(Card.IsType,1,nil,TYPE_SPELL)
end
function cm.act(e,tp)
local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.thfilter),tp,rsloc.dg,0,nil)
rshint.Select(tp,"th")
local tg=g:SelectSubGroup(tp,cm.ritcheck,false,2,2)
if #tg==2 then
rsop.SendtoHand(tg,nil,REASON_EFFECT)
end
end
expansions/script/c44000010.lua deleted 100644 → 0
View file @ a1669e87
--广播骰娘 辉夜
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000010,"MrsDice")
function cm.initial_effect(c)
c:EnableReviveLimit()
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_CYBERSE),2,3,cm.gf)
local e1=rsef.SV_CANNOT_BE_TARGET(c,"effect")
--local e2,e3=rsef.FV_CANNOT_DISABLE(c,"dise,neg",rsval.cdisneg(cm.filter))
local e4=rsef.FTO(c,EVENT_SUMMON_SUCCESS,{m,0},1,"des","de",LOCATION_MZONE,rscon.sumtolz(true),nil,rsop.target(aux.TRUE,"des",0,LOCATION_ONFIELD),cm.desop)
local e5=rsef.RegisterClone(c,e4,"code",EVENT_SPSUMMON_SUCCESS)
end
function cm.gf(g)
return g:IsExists(rsmd.IsLinkSet2,1,nil)
end
function cm.filter(e,p,te,tp)
return rsmd.IsSet2(te:GetHandler()) and te:IsActiveType(TYPE_MONSTER)
end
function cm.desop(e,tp)
rsop.SelectDestroy(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil,{})
end
\ No newline at end of file
expansions/script/c44000011.lua deleted 100644 → 0
View file @ a1669e87
--骰娘齐聚 腐鱼云城
Duel.LoadScript("c44000001.lua")
local id,s = rscf.DefineCard(44000011,"MrsDice_Taught")
local m,cm = id,s
function cm.initial_effect(c)
local e1=rsef.ACT(c)
local e2,e3=rsef.FV_UPDATE(c,"atk,def",400,aux.TargetBoolFunction(rsmd.IsSet1),{ LOCATION_MZONE,LOCATION_MZONE })
--local e4=rsef.FTO(c,EVENT_SPSUMMON_SUCCESS,{m,0},1,nil,"tg,de",LOCATION_FZONE,cm.setcon,nil,rstg.target(cm.setfilter,nil,LOCATION_GRAVE),cm.setop)
local e4=rsef.FTO(c,EVENT_SPSUMMON_SUCCESS,"th",{1,id},"th","tg,de",LOCATION_FZONE,s.thcon,nil,rstg.target(s.thfilter,nil,LOCATION_GRAVE),s.thop)
--local e5=rsef.STO(c,EVENT_TO_GRAVE,{m,1},nil,"td","tg",cm.tdcon,nil,rstg.target(cm.tdfilter,"td",LOCATION_REMOVED,0,2),cm.tdop)
local e5=rsef.STO(c,EVENT_DESTROYED,"td",{1,id+100},"td","tg",s.tdcon,nil,rstg.target(cm.tdfilter,"td",rsloc.gr,0,2),s.tdop)
end
function s.thcon(e,tp,eg)
return eg:IsExists(cm.cfilter,1,nil,tp)
end
function s.thfilter(c)
return c:IsAbleToHand() and rsmd.IsSetST1(c)
end
function s.thop(e,tp)
local tc = rscf.GetTargetCard()
if not tc then return end
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
end
function cm.cfilter(c,tp)
return rsmd.IsSet1(c) and c:IsSummonType(SUMMON_TYPE_LINK) and c:GetSummonPlayer()==tp
end
function cm.setcon(e,tp,eg)
return eg:IsExists(cm.cfilter,1,nil,tp)
end
function cm.setfilter(c)
return c:IsSSetable() and rsmd.IsSetST1(c)
end
function cm.setop(e,tp)
local tc=rscf.GetTargetCard()
if tc and Duel.SSet(tp,tc)>0 then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_TRIGGER)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1)
end
end
function cm.tdcon(e,tp)
local c=e:GetHandler()
return c:IsComplexReason(REASON_DESTROY+REASON_EFFECT) and c:GetReasonPlayer()~=tp
end
function cm.tdfilter(c)
return rsmd.IsSetM1(c) and c:IsAbleToDeck() and rscf.RemovePosCheck(c)--c:IsFaceup()
end
function cm.tdop(e,tp)
local tg=rsgf.GetTargetGroup()
if #tg>0 then
Duel.SendtoDeck(tg,nil,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c44000012.lua deleted 100644 → 0
View file @ a1669e87
--骰娘的超负荷运作
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000012,"MrsDice_Taught")
function cm.initial_effect(c)
local e1=rsef.ACT(c,nil,nil,nil,"tg",nil,nil,cm.cost,rsop.target(Card.IsAbleToGrave,"tg",0,LOCATION_ONFIELD,true),cm.act)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,0,c)
if chk==0 then return #g>0 and g:FilterCount(Card.IsAbleToGraveAsCost,nil)==#g and g:IsExists(rsmd.IsSet1,3,nil) end
Duel.SendtoGrave(g,REASON_COST)
local og=Duel.GetOperatedGroup()
local ctype=0
for tc in aux.Next(og) do
for i,type in ipairs({TYPE_MONSTER,TYPE_SPELL,TYPE_TRAP}) do
if tc:GetOriginalType() & type ~= 0 then
ctype=ctype | type
end
end
end
if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
Duel.SetChainLimit(cm.chlimit(ctype))
end
end
function cm.chlimit(ctype)
return function(e,ep,tp)
return tp==ep or e:GetHandler():GetOriginalType() & ctype==0
end
end
function cm.act(e,tp)
local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
Duel.SendtoGrave(g,REASON_EFFECT)
end
\ No newline at end of file
expansions/script/c44000013.lua deleted 100644 → 0
View file @ a1669e87
--骰娘心选 神田
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000013,"MrsDice_Taught")
function cm.initial_effect(c)
c:EnableReviveLimit()
aux.AddLinkProcedure(c,rsmd.IsLinkSet2,2)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(m)
e2:SetRange(LOCATION_MZONE)
e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e2:SetTarget(cm.efftg)
e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
c:RegisterEffect(e2)
local e3=rsef.QO(c,EVENT_CHAINING,{m,0},1,"dice,dr,neg","dcal,dsp",LOCATION_MZONE,cm.con,nil,cm.tg,cm.op)
rsmd.SetActCount(e3)
end
cm.toss_dice=true
function cm.efftg(e,c)
return rsmd.IsOriSet2(c)
end
function cm.con(e,tp,eg,ep,ev,re,r,rp)
return rp==1-tp and re:IsHasCategory(CATEGORY_SEARCH)
end
function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
end
function cm.op(e,tp,eg,ep,ev,re,r,rp,chk)
local dc=Duel.TossDice(tp,1)
if dc==1 or dc==4 then
Duel.Draw(1-tp,1,REASON_EFFECT)
elseif dc==2 or dc==5 then
local e1=rsef.FV_LIMIT_PLAYER({e:GetHandler(),tp},"act",cm.aclimit,nil,{0,1},nil,rsreset.pend)
elseif dc==3 or dc==6 then
Duel.NegateActivation(ev)
end
end
function cm.aclimit(e,re,tp)
return re:GetHandler():IsLocation(LOCATION_HAND)
end
\ No newline at end of file
expansions/script/c44000015.lua deleted 100644 → 0
View file @ a1669e87
--骰娘的流派分化
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000015,"MrsDice")
function cm.initial_effect(c)
local e1=rsef.ACT(c,nil,nil,nil,"dr,rm,tg,td",nil,nil,nil,rsop.target(1,"dr",0,1),cm.act)
end
function cm.act(e,tp)
Duel.ShuffleDeck(1-tp)
if Duel.Draw(1-tp,1,REASON_EFFECT)<=0 then return end
local dc=Duel.GetOperatedGroup():GetFirst()
Duel.ConfirmCards(tp,dc)
if dc:IsType(TYPE_MONSTER) then
local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
if #g>0 and g:FilterCount(Card.IsAbleToRemove,nil)==#g and Duel.Remove(g,POS_FACEUP,REASON_EFFECT)>0 then
Duel.Draw(1-tp,Duel.GetOperatedGroup():GetCount(),REASON_EFFECT)
end
elseif dc:IsType(TYPE_SPELL) then
local g=Duel.GetFieldGroup(tp,0,LOCATION_REMOVED)
if #g>0 then
Duel.SendtoGrave(g,REASON_EFFECT+REASON_RETURN)
end
elseif dc:IsType(TYPE_TRAP) then
local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,nil)
if #g>0 then
Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
end
end
end
\ No newline at end of file
expansions/script/c44000016.lua deleted 100644 → 0
View file @ a1669e87
--异构同骰 铃心
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000016,"MrsDice")
function cm.initial_effect(c)
c:EnableReviveLimit()
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),3,6,cm.gf)
local e0=rsef.SC(c,EVENT_SPSUMMON_SUCCESS,nil,nil,"cd,uc",rscon.sumtype("link"),cm.speak)
local e1=rsef.STO(c,EVENT_SPSUMMON_SUCCESS,"tg",nil,"tg","de",rscon.sumtype("link"),nil,rsop.target2(rstg.chainlimit(0,0),cm.tgfilter,"tg",0,LOCATION_ONFIELD,true),cm.tgop)
local e2=rsef.SV_IMMUNE_EFFECT(c)
--cannot activate
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_CANNOT_ACTIVATE)
e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e3:SetRange(LOCATION_MZONE)
e3:SetTargetRange(0,1)
e3:SetCondition(cm.lcon)
e3:SetValue(aux.TRUE)
c:RegisterEffect(e3)
end
function cm.speak()
--Debug.Message("“无用者应予废弃，无能者施以规矩。方圆轮转，再分界限！连接召唤，「异构同骰 铃心」！”")
end
function cm.gf(g)
return g:IsExists(rsmd.IsLinkSet2,1,nil)
end
function cm.tgfilter(c)
return c:IsAbleToGrave() and c:IsType(TYPE_SPELL+TYPE_TRAP)
end
function cm.setfilter(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
end
function cm.tgop(e,tp)
local g=Duel.GetMatchingGroup(cm.tgfilter,tp,0,LOCATION_ONFIELD,nil)
if #g>0 and Duel.SendtoGrave(g,REASON_EFFECT)>0 and Duel.GetOperatedGroup():IsExists(Card.IsLocation,1,nil,LOCATION_GRAVE) then
rsop.SelectOC("set",true)
rsop.SelectSSet(tp,cm.setfilter,tp,0,LOCATION_GRAVE,1,1,nil,{})
end
end
function cm.lcon(e)
local ph=Duel.GetCurrentPhase()
return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE and e:GetHandler():GetMutualLinkedGroupCount()>0
end
\ No newline at end of file
expansions/script/c44000017.lua deleted 100644 → 0
View file @ a1669e87
--骰娘之主 古
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000017,"MrsDice_Taught_Master")
function cm.initial_effect(c)
--local e1=rsmd.ToGraveFun(c,m)
local e1 = rsef.STO(c,EVENT_SPSUMMON_SUCCESS,"sp",{1,m},"sp","de",nil,nil,
rsop.target(cm.spfilter,"sp",LOCATION_HAND),cm.spop)
local e3 = rsef.RegisterClone(c,e1,"code",EVENT_SPSUMMON_SUCCESS)
local e2=rsef.QO(c,nil,"td",{1,m},"td",nil,LOCATION_GRAVE,nil,aux.bfgcost,rsop.target(Card.IsAbleToDeck,"td",0,LOCATION_ONFIELD),cm.tdop)
end
function cm.tdop(e,tp)
rsop.SelectToDeck(tp,Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,1,nil,{})
end
function cm.spfilter(c,e,tp)
return rscf.spfilter2()(c,e,tp) and c:IsLevel(4) and rsmd.IsSet2(c) and not rsmd.IsSet3(c)
end
function cm.spop(e,tp)
rsop.SelectOperate("sp",tp,cm.spfilter,tp,LOCATION_HAND,0,1,1,nil,{},e,tp)
end
\ No newline at end of file
expansions/script/c44000018.lua deleted 100644 → 0
View file @ a1669e87
--骰娘之主 追仙
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000018,"MrsDice_Taught_Master")
function cm.initial_effect(c)
--local e1=rsmd.ToGraveFun(c,m)
local e1 = rsef.STO(c,EVENT_TO_GRAVE,"sp",{1,m},"sp","de",nil,nil,
rsop.target(cm.spfilter,"sp",LOCATION_GRAVE),cm.spop)
local e2=rsef.STO(c,EVENT_SPSUMMON_SUCCESS,"se",{1,m},"se,th","de",nil,nil,rsop.target(cm.thfilter,"th",LOCATION_DECK),cm.thop)
local e3=rsef.RegisterClone(c,e2,"code",EVENT_SUMMON_SUCCESS)
end
function cm.thfilter(c)
return c:IsAbleToHand() and rsmd.IsSet1(c)
end
function cm.thop(e,tp)
rsop.SelectToHand(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil,{})
end
function cm.spfilter(c,e,tp)
return rscf.spfilter2()(c,e,tp) and c:IsLevel(4) and rsmd.IsSet2(c) and not rsmd.IsSet3(c)
end
function cm.spop(e,tp)
rsop.SelectOperate("sp",tp,aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,{},e,tp)
end
\ No newline at end of file
expansions/script/c44000019.lua deleted 100644 → 0
View file @ a1669e87
--骰娘之主 多多
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000019,"MrsDice_Taught_Master")
function cm.initial_effect(c)
--local e1=rsmd.ToGraveFun(c,m)
local e1 = rsef.I(c,"sp",{1,m},"sp",nil,LOCATION_MZONE,
rscon.excard2(cm.cfilter,LOCATION_MZONE),nil,
rsop.target(cm.spfilter,"sp",LOCATION_DECK),cm.spop)
--end battle phase
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_ATTACK_ANNOUNCE)
e1:SetRange(LOCATION_GRAVE)
e1:SetCountLimit(1,m)
e1:SetCondition(cm.condition)
e1:SetCost(cm.cost)
e1:SetOperation(cm.operation)
c:RegisterEffect(e1)
end
function cm.cfilter(c)
return not c:IsCode(m) and rsmd.IsSet1(c)
end
function cm.condition(e,tp,eg,ep,ev,re,r,rp)
local at=Duel.GetAttacker()
return at:GetControler()~=tp
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_COST)
end
function cm.operation(e,tp,eg,ep,ev,re,r,rp)
if Duel.NegateAttack() then
Duel.BreakEffect()
Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE_STEP,1)
end
end
function cm.spfilter(c,e,tp)
return rscf.spfilter2()(c,e,tp) and c:IsLevel(4) and rsmd.IsSet2(c) and not rsmd.IsSet3(c)
end
function cm.spop(e,tp)
rsop.SelectOperate("sp",tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,{},e,tp)
end
expansions/script/c44000021.lua deleted 100644 → 0
View file @ a1669e87
--骰娘的自检重启
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000021,"MrsDice_Taught")
function cm.initial_effect(c)
local e1 = rsef.A(c,EVENT_DESTROYED,nil,{1,m},"te,td","de",cm.con,nil,rsop.target({cm.tefilter,"te",true,true,1},{Card.IsAbleToDeck,"td",LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,c}),cm.act)
local e2 = rsef.QO(c,nil,"td",{1,m+100},"td,sp","tg",LOCATION_GRAVE,aux.exccon,aux.bfgcost,rstg.target({cm.tdfilter,"td",LOCATION_REMOVED },{"opc",Card.IsAbleToDeck,"td",0,LOCATION_MZONE}),cm.tdop)
end
function cm.con(e,tp,eg)
return #eg == 1
end
function cm.tefilter(c,e,tp,eg)
return c:IsPreviousLocation(LOCATION_MZONE) and c:IsAbleToExtra() and c:IsPreviousControler(tp) and c:GetPreviousTypeOnField() & TYPE_LINK ~= 0 and rsmd.IsPreSet1(c) and c:IsLinkAbove(1)
end
function cm.act(e,tp,eg)
local tc = eg:GetFirst()
if not tc:IsRelateToEffect(e) or Duel.SendtoDeck(tc,nil,2,REASON_EFFECT) <= 0 then return end
if not rsop.CheckOperateSuccess(LOCATION_EXTRA) then return end
local link = tc:GetLink()
rsop.SelectOC(nil,true)
rsop.SelectOperate("td",tp,Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,link,aux.ExceptThisCard(e),{})
end
function cm.tdfilter(c)
return c:IsFaceup() and rsmd.IsSetM1(c) and c:IsAbleToDeck()
end
function cm.spfilter(c,e,tp)
return rsmd.IsSet1(c) and c:IsLinkBelow(2) and rscf.spfilter2()(c,e,tp)
end
function cm.tdop(e,tp)
local tc = rscf.GetTargetCard()
if not tc then return end
local og, tc2 = rsop.SelectCards("td",tp,Card.IsAbleToDeck,tp,0,LOCATION_MZONE,1,1,nil,{})
if not tc2 or Duel.SendtoDeck(Group.FromCards(tc,tc2) , nil, 2 , REASON_EFFECT ) <= 0 or not rsop.CheckOperateSuccess(rsloc.de) then return end
rsop.SelectOC("sp",true)
rsop.SelectOperate("sp",tp,cm.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,{},e,tp)
end
\ No newline at end of file
expansions/script/c44000022.lua deleted 100644 → 0
View file @ a1669e87
--骰娘的系统转换
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000022,"MrsDice_Taught")
function cm.initial_effect(c)
local e1 = rsef.A(c,EVENT_DESTROYED,nil,{1,m},"sp,dd,res","de",nil,nil,cm.target,cm.activate)
local e2 = rsef.FTO(c,EVENT_DESTROYED,"sset",{1,m + 100},nil,"de",LOCATION_GRAVE,cm.setcon,aux.bfgcost,rsop.target(cm.setfilter,"sset",LOCATION_DECK),cm.setop)
end
function cm.setcon(e,tp,eg)
return #eg == 1 and aux.exccon(e,tp) and eg:GetFirst():GetReasonPlayer() ~= tp and rsmd.IsSetST1(eg:GetFirst())
end
function cm.setfilter(c,e,tp,eg)
if not rsmd.IsSetST2(c) or c:IsCode(eg:GetFirst():GetCode()) then return false end
local b1 = c:IsSSetable()
local b2 = c:IsType(TYPE_CONTINUOUS) and c:GetActivateEffect() and c:GetActivateEffect():IsActivatable(tp,true,true)
return b1 or b2
end
function cm.setop(e,tp,eg)
local og,tc = rsop.SelectCards("sset",tp,cm.setfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,eg)
if not tc then return end
local b1 = tc:IsSSetable()
local b2 = tc:IsType(TYPE_CONTINUOUS) and tc:GetActivateEffect() and tc:GetActivateEffect():IsActivatable(tp,true,true)
local op = rshint.SelectOption(tp,b1,"sset",b2,"act")
if op == 1 then
Duel.SSet(tp,tc)
else
rsop.MoveToField_Activate(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
end
end
function cm.dfilter(c)
return rsmd.IsSet2(c) and c:IsLevelAbove(1) and c:IsAbleToGrave()
end
function cm.filter(ec)
return function(c,e,tp)
return rsmd.IsSet2(c) and not c:IsCode(ec:GetCode())
end
end
function cm.rcheck(tp,g,c)
local ct = Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD) - Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0)
if ct <= 0 then return false end
--return g:FilterCount(Card.IsLocation,nil,LOCATION_DECK) <= ct
return g:FilterCount(Card.IsLocation,nil,LOCATION_DECK) <= 1
end
function cm.rgcheck(g)
local tp = g:GetFirst():GetControler()
local ct = Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD) - Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0)
if ct <= 0 then return false end
--return g:FilterCount(Card.IsLocation,nil,LOCATION_DECK)<=ct
return g:FilterCount(Card.IsLocation,nil,LOCATION_DECK) <= 1
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
if #eg ~= 1 then return false end
local ec = eg:GetFirst()
if not rsmd.IsPreSet2(ec) and ec:IsPreviousControler(tp) and ec:IsPreviousLocation(LOCATION_MZONE) and ec:GetPreviousTypeOnField() & TYPE_RITUAL ~= 0 then return false end
local mg=Duel.GetRitualMaterial(tp)
local dg=Duel.GetMatchingGroup(cm.dfilter,tp,LOCATION_DECK,0,nil)
aux.RCheckAdditional=cm.rcheck
aux.RGCheckAdditional=cm.rgcheck
local res=Duel.IsExistingMatchingCard(aux.RitualUltimateFilter,tp,LOCATION_GRAVE,0,1,nil,cm.filter(ec),e,tp,mg,dg,Card.GetLevel,"Greater")
aux.RCheckAdditional=nil
aux.RGCheckAdditional=nil
return res
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local m=Duel.GetRitualMaterial(tp)
local dg=Duel.GetMatchingGroup(cm.dfilter,tp,LOCATION_DECK,0,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
aux.RCheckAdditional=cm.rcheck
aux.RGCheckAdditional=cm.rgcheck
local tg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(aux.RitualUltimateFilter),tp,LOCATION_GRAVE,0,1,1,nil,cm.filter(eg:GetFirst()),e,tp,m,dg,Card.GetLevel,"Greater")
local tc=tg:GetFirst()
if tc then
local mg=m:Filter(Card.IsCanBeRitualMaterial,tc,tc)
mg:Merge(dg)
if tc.mat_filter then
mg=mg:Filter(tc.mat_filter,tc,tp)
else
mg:RemoveCard(tc)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
aux.GCheckAdditional=aux.RitualCheckAdditional(tc,tc:GetLevel(),"Greater")
local mat=mg:SelectSubGroup(tp,aux.RitualCheck,false,1,tc:GetLevel(),tp,tc,tc:GetLevel(),"Greater")
aux.GCheckAdditional=nil
if not mat or mat:GetCount()==0 then
aux.RCheckAdditional=nil
aux.RGCheckAdditional=nil
return
end
tc:SetMaterial(mat)
local dmat=mat:Filter(Card.IsLocation,nil,LOCATION_DECK)
if dmat:GetCount()>0 then
mat:Sub(dmat)
Duel.SendtoGrave(dmat,REASON_EFFECT+REASON_MATERIAL+REASON_RITUAL)
end
Duel.ReleaseRitualMaterial(mat)
Duel.BreakEffect()
Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
local e1 = rsef.SV_Card({e:GetHandler(),tc},"im",cm.imval,nil,nil,nil,{rsrst.ep, 2})
tc:CompleteProcedure()
end
aux.RCheckAdditional=nil
aux.RGCheckAdditional=nil
end
function cm.imval(e,re)
return rsval.imoe(e,re) and re:IsActiveType(TYPE_MONSTER)
end
\ No newline at end of file
expansions/script/c44000023.lua deleted 100644 → 0
View file @ a1669e87
--各有所见的骰娘炼成
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000023,"MrsDice_Taught")
function cm.initial_effect(c)
--Activate
local e1 = aux.AddRitualProcGreater2(c,rsmd.IsSet2,nil,aux.FilterBoolFunction(Card.IsRace,RACE_CYBERSE))
e1:SetOperation(cm.act(e1:GetOperation()))
local e2 = rsef.I(c,"th",{1,m},"th",nil,LOCATION_GRAVE,
cm.thcon,nil,rsop.target(Card.IsAbleToHand,"th"),cm.thop)
end
function cm.act(op)
return function(e,tp,...)
op(e,tp,...)
local tc = Duel.GetOperatedGroup():GetFirst()
if tc and tc:IsLocation(LOCATION_MZONE) and tc:GetReasonEffect() == e then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e1:SetValue(cm.efilter)
e1:SetOwnerPlayer(tp)
tc:RegisterEffect(e1)
end
end
end
function cm.efilter(e,re)
return e:GetOwnerPlayer()~=re:GetOwnerPlayer() and re:IsActiveType(TYPE_SPELL+TYPE_TRAP)
end
function cm.cfilter(c)
return c:IsFaceup() and rsmd.IsSetM2(c) and c:IsType(TYPE_RITUAL)
end
function cm.thcon(e,tp)
local g = Duel.GetMatchingGroup(cm.cfilter,tp,rsloc.mg,0,nil)
return g:GetClassCount(Card.GetCode)>=2
end
function cm.thop(e,tp)
local c = rscf.GetSelf(e)
if c then
Duel.SendtoHand(c,nil,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c44000024.lua deleted 100644 → 0
View file @ a1669e87
--齐骰并进 仑质
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000024,"MrsDice_Taught")
function cm.initial_effect(c)
c:EnableReviveLimit()
--indes
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e1:SetRange(LOCATION_MZONE)
e1:SetTargetRange(LOCATION_MZONE,0)
e1:SetTarget(rsmd.IsSet2)
e1:SetValue(1)
c:RegisterEffect(e1)
--search
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(m,0))
e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e4:SetCode(EVENT_TO_GRAVE)
e4:SetCountLimit(1,m)
e4:SetTarget(cm.thtg)
e4:SetOperation(cm.thop)
c:RegisterEffect(e4)
end
function cm.thfilter(c)
return c:IsRace(RACE_SPELLCASTER) and rsmd.IsSet2(c) and not c:IsCode(m) and c:IsAbleToHand()
end
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function cm.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
expansions/script/c44000025.lua deleted 100644 → 0
View file @ a1669e87
--万面千骰 惠惠
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000025,"MrsDice_Taught")
function cm.initial_effect(c)
c:EnableReviveLimit()
local e1 = rsef.SV_Card(c,"race+",RACE_CYBERSE,"sr",rsloc.mg)
local e2 = rsef.QO(c,EVENT_CHAINING,"des",{1,m},nil,nil,LOCATION_MZONE,
cm.rcon,nil,cm.rtg,cm.rop)
local e3 = rsef.STO(c,EVENT_DESTROYED,"sp",{1,m+100},"sp","de",nil,
nil,rsop.target(cm.spfilter,"sp",rsloc.hdg),cm.spop)
end
function cm.spfilter(c,e,tp)
return c:IsCode(44000003) and rscf.spfilter2()(c,e,tp)
end
function cm.spop(e,tp)
local c = e:GetHandler()
local ct,og,tc = rsop.SelectOperate("sp",tp,aux.NecroValleyFilter(cm.spfilter),tp,rsloc.hdg,0,1,1,nil,{},e,tp)
if not tc then return end
local e1=Effect.CreateEffect(c)
local reset=RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET+RESET_PHASE+PHASE_END
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UNRELEASABLE_SUM)
e1:SetReset(reset)
e1:SetValue(1)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_UNRELEASABLE_NONSUM)
e2:SetReset(reset)
e2:SetValue(1)
tc:RegisterEffect(e2)
end
function cm.rcon(e,tp,eg,ep,ev,re,r,rp)
return ep~=tp and re:IsActiveType(TYPE_MONSTER)
end
function cm.rtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,rp,0,LOCATION_ONFIELD,1,nil) end
end
function cm.rop(e,tp,eg,ep,ev,re,r,rp)
local g=Group.CreateGroup()
Duel.ChangeTargetCard(ev,g)
Duel.ChangeChainOperation(ev,cm.repop)
end
function cm.repop(e,tp,eg,ep,ev,re,r,rp)
rsop.SelectOperate("des",tp,aux.TRUE,tp,LOCATION_ONFIELD,0,1,1,nil,{})
end
\ No newline at end of file
expansions/script/c44000026.lua deleted 100644 → 0
View file @ a1669e87
--骰极 斯塔尼亚
Duel.LoadScript("c44000001.lua")
local m,cm=rscf.DefineCard(44000026,"MrsDice_Taught")
function cm.initial_effect(c)
c:EnableReviveLimit()
local e1 = rsef.SV_Card(c,"mat",cm.val,"cd")
local e2 = rsef.STO(c,EVENT_SPSUMMON_SUCCESS,"th",nil,"th","de",
rscon.sumtyps("rit"),nil,
rsop.target2(cm.fun,cm.thfilter,"th",0,LOCATION_ONFIELD),cm.thop)
e2:SetLabelObject(e1)
local e3 = rsef.STO(c,EVENT_LEAVE_FIELD,"sp",nil,"th,sp","de,tg",
cm.spcon,rscost.cost(cm.tgfilter,"tg",LOCATION_HAND),
rstg.target(cm.spfilter,"sp,th",LOCATION_REMOVED),cm.spop)
end
function cm.spfilter(c,e,tp)
return c:IsFaceup() and rsmd.IsSetM2(c) and (rscf.spfilter2()(c,e,tp) or c:IsAbleToHand())
end
function cm.spop(e,tp)
local tc = rscf.GetTargetCard()
if not tc then return end
local b1 = rscf.spfilter2()(tc,e,tp)
local b2 = tc:IsAbleToHand()
local op = rshint.SelectOption(tp,b1,"sp",b2,"th")
if op == 1 then
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
else
Duel.SendtoHand(tc,nil,REASON_EFFECT)
end
end
function cm.tgfilter(c)
return c:IsRace(RACE_CYBERSE) and c:IsLevel(4) and c:IsAbleToGraveAsCost()
end
function cm.fun(g,e,tp)
if e:GetLabelObject():GetLabel() == 100 then
e:SetCategory(CATEGORY_TOHAND+CATEGORY_REMOVE)
else
e:SetCategory(CATEGORY_TOHAND)
end
end
function cm.thfilter(c)
return c:IsFacedown()
end
function cm.gcheck(g,e,tp)
return g:FilterCount(Card.IsAbleToHand,nil) == #g or (g:FilterCount(Card.IsAbleToRemove,nil,tp,POS_FACEDOWN) == #g and e:GetLabelObject():GetLabel() == 100)
end
function cm.thop(e,tp)
local g = rsop.SelectCards("th",tp,{cm.thfilter,cm.gcheck},tp,0,LOCATION_ONFIELD,1,2,nil,{},e,tp)
if #g <= 0 then return end
local b1 = g:FilterCount(Card.IsAbleToHand,nil) == #g
local b2 = g:FilterCount(Card.IsAbleToRemove,nil,tp,POS_FACEDOWN) == #g and e:GetLabelObject():GetLabel() == 100
local op = rshint.SelectOption(tp,b1,"th",b2,"rm")
if op == 1 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
else
Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
end
end
function cm.cfilter(c)
return rsmd.IsSetM2(c) and c:IsType(TYPE_RITUAL) and not c:IsCode(m)
end
function cm.val(e,c)
e:SetLabel(0)
local mat = c:GetMaterial()
if mat:IsExists(cm.cfilter,1,nil) then
e:SetLabel(100)
end
end
expansions/script/c44000027.lua deleted 100644 → 0
View file @ a1669e87
--骰娘炼成 扫晴娘
Duel.LoadScript("c44000001.lua")
local id,s = rscf.DefineCard(44000027,"MrsDice_Taught")
function s.initial_effect(c)
--special summon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(id,0))
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
e1:SetCondition(s.spcon)
e1:SetValue(s.spval)
c:RegisterEffect(e1)
local e2 = rsef.STO(c,EVENT_SPSUMMON_SUCCESS,"dice",{1,id+100},"dice,se,th,sp","de",
s.thcon,nil,
rsop.target(s.thfilter,"dum",LOCATION_DECK),s.thop)
local e3 = rsef.RegisterClone(c,e2,"code",EVENT_SUMMON_SUCCESS)
rsmd.SetActCount(e2,e3)
end
function s.thcon(e,tp)
local c = e:GetHandler()
local zone = s.checkzone(tp)
return c:IsLocation(LOCATION_MZONE) and (2^c:GetSequence()) & zone > 0
end
function s.cfilter(c)
return c:IsFaceup() and rsmd.IsSetM2(c) and c:IsType(TYPE_LINK)
end
function s.checkzone(tp)
local zone=0
local g=Duel.GetMatchingGroup(s.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
for tc in aux.Next(g) do
zone=bit.bor(zone,tc:GetLinkedZone(tp))
end
return bit.band(zone,0x1f)
end
function s.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local zone=s.checkzone(tp)
return Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_TOFIELD,zone)>0
end
function s.spval(e,c)
local tp=c:GetControler()
local zone=s.checkzone(tp)
return 0,zone
end
function s.thfilter(c,e,tp)
local dice = e:GetLabel()
local b1 = rsmd.IsSetM2(c) and rscf.spfilter2()(c,e,tp) and c:IsRace(RACE_SPELLCASTER)
local b2 = rsmd.IsSetST2(c) and c:IsAbleToHand()
if dice == 0 then return b1 or b2
elseif dice == 1 or dice == 2 or dice == 6 then return b1
elseif dice == 3 or dice == 4 or dice == 5 then return b2
end
return false
end
function s.thop(e,tp)
local dice = Duel.TossDice(tp,1)
e:SetLabel(dice)
if dice == 1 or dice == 2 or dice == 6 then
rsop.SelectOperate("sp",tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil,{0,tp,tp,false,false,POS_FACEUP,nil,{"dis,dise",1}},e,tp)
elseif dice == 3 or dice == 4 or dice == 5 then
rsop.SelectOperate("th",tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil,{})
else
end
e:SetLabel(0)
end
\ No newline at end of file
expansions/script/c44000028.lua deleted 100644 → 0
View file @ a1669e87
--骰娘之主 小黑
Duel.LoadScript("c44000001.lua")
local id,s = rscf.DefineCard(44000028,"MrsDice_Taught")
function s.initial_effect(c)
local e1 = rsef.I(c,"th",{1,id},"se,th,tg",nil,LOCATION_HAND,nil,
rscost.cost(0,"dh"),rsop.target({s.tgfilter,"tg",LOCATION_DECK},
{aux.TRUE,"th",LOCATION_DECK}),s.thop)
local e2 = rsef.I(c,"sp",{1,id},"sp",nil,LOCATION_GRAVE,nil,
rscost.cost(s.rmfilter,"rm",LOCATION_GRAVE,0,1,1,c),
rsop.target(rscf.spfilter2(),"sp"),s.spop)
end
function s.tgfilter(c,e,tp)
return c:IsComplexType(TYPE_MONSTER+TYPE_RITUAL) and rsmd.IsSetM2(c) and c:IsAbleToGrave() and Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,c,c:GetCode())
end
function s.thfilter(c,code)
return rsmd.IsSetM2(c) and c:IsAbleToHand() and c:IsComplexType(TYPE_MONSTER+TYPE_RITUAL) and not c:IsCode(code)
end
function s.thop(e,tp)
if rsop.SelectOperate("tg",tp,s.tgfilter,tp,LOCATION_DECK,0,1,1,nil,{},e,tp) > 0 and
rsop.CheckOperateCorrectly(LOCATION_GRAVE) then
rsop.SelectOperate("th",tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil,{},Duel.GetOperatedGroup():GetFirst():GetCode())
end
end
function s.rmfilter(c)
return rsmd.IsSet2(c) and c:IsAbleToRemoveAsCost()
end
function s.spop(e,tp)
local c = rscf.GetSelf(e)
if c then
rssf.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP,nil,{"rlf",LOCATION_REMOVED})
end
end
\ No newline at end of file
expansions/script/c44000029.lua deleted 100644 → 0
View file @ a1669e87
--取巧骰机 青木莲
Duel.LoadScript("c44000001.lua")
local id,s = rscf.DefineCard(44000029,"MrsDice_Taught")
function s.initial_effect(c)
c:EnableReviveLimit()
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_SPELLCASTER+RACE_CYBERSE),2)
local e1 = rsef.QO(c,nil,"dis",{1,id},"dis","tg",LOCATION_MZONE,nil,nil,
rstg.target(aux.NegateAnyFilter,"dis",0,LOCATION_ONFIELD,s.ct1,s.ct2),s.disop)
local e2 = rsef.STO(c,EVENT_RELEASE,"th",{1,id+1},"se,th","de",nil,nil,
rsop.target(s.thfilter,"th",rsloc.dg),s.thop)
end
function s.ct1(e,tp)
local g = Duel.GetMatchingGroup(rscf.IsComplexType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER,true,TYPE_RITUAL,TYPE_LINK)
return math.min(#g,1)
end
function s.ct2(e,tp)
local g = Duel.GetMatchingGroup(rscf.IsComplexType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER,true,TYPE_RITUAL,TYPE_LINK)
local ct = 0
if g:IsExists(Card.IsType,1,nil,TYPE_RITUAL) then ct = ct + 1 end
if g:IsExists(Card.IsType,1,nil,TYPE_LINK) then ct = ct + 1 end
return math.max(ct,1)
end
function s.disop(e,tp)
local g = rsgf.GetTargetGroup(Card.IsFaceup)
for tc in aux.Next(g) do
local e1,e2 = rscf.QuickBuff({e:GetHandler(),tc},"dis,dise",1,"rst",rsrst.std_ep)
end
end
function s.thfilter(c)
return rsmd.IsSet2(c) and c:IsAbleToHand()
end
function s.thop(e,tp)
rsop.SelectOperate("th",tp,aux.NecroValleyFilter(s.thfilter),tp,rsloc.dg,0,1,1,nil,{})
end
\ No newline at end of file
expansions/script/c44000030.lua deleted 100644 → 0
View file @ a1669e87
--骰投死道 安颜色
Duel.LoadScript("c44000001.lua")
local id,s = rscf.DefineCard(44000030,"MrsDice_Taught")
function s.initial_effect(c)
local e1 = rscf.SetSummonCondition(c,false,aux.ritlimit)
local e2 = rsef.FV_Player(c,"sp~",1,s.lmtg,{0,1},nil,LOCATION_MZONE)
local e3 = rsef.FTO(c,EVENT_CHAINING,"tg",{1,id},"tg","de",LOCATION_MZONE,
s.tgcon,nil,rsop.target({s.tgfilter,"tg",LOCATION_EXTRA},
{Card.IsAbleToGrave,"tg",0,LOCATION_EXTRA}),s.tgop)
local e4 = rsef.STO(c,EVENT_TO_GRAVE,"sp",{1,id+100},"sp","de",
rscon.sumtyps("rit"),nil,rsop.target({s.spfilter,s.gchk},
"sp",LOCATION_EXTRA,0,1,5),s.spop)
end
function s.lmtg(e,c)
return not c:IsLocation(LOCATION_EXTRA) or c:IsType(TYPE_LINK)
end
function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
return rp ~= tp
end
function s.tgfilter(c)
return c:IsType(TYPE_LINK)
end
function s.tgfilter(c,lnk)
return c:IsType(TYPE_LINK) and c:IsAbleToGrave() and c:IsLink(lnk)
end
function s.tgop(e,tp)
local ct,og,tc = rsop.SelectOperate("cfm",tp,s.tgfilter,tp,LOCATION_EXTRA,0,1,1,nil,{})
if not tc then return end
local g = Duel.GetFieldGroup(tp,0,LOCATION_EXTRA)
if #g <= 0 then return end
Duel.BreakEffect()
Duel.ConfirmCards(tp,g)
rsop.SelectOperate("tg",tp,s.tgfilter,tp,0,LOCATION_EXTRA,1,1,nil,{},tc:GetLink())
end
function s.spfilter(c,e,tp)
return c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_LINK,tp,false,false) and rsmd.IsSet2(c) and c:IsType(TYPE_LINK) and c:IsLinkAbove(1) and aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_LMATERIAL)
end
function s.gchk(g,e,tp)
local lnk = g:GetSum(Card.GetLink)
local lv = math.floor(e:GetHandler():GetLevel()/2)
if #g >= 2 and rssf.CheckBlueEyesSpiritDragon(tp) then return false end
return Duel.GetLocationCountFromEx(tp,tp,nil,TYPE_LINK) >= #g and lnk == lv
end
function s.spop(e,tp)
local e1 = rsef.FV_Player(c,"sp~",1,s.lmtg2,{1,0},nil,LOCATION_MZONE,nil,rsrst.ep)
rsop.SelectOperate("sp",tp,{s.spfilter,s.gchk},tp,LOCATION_EXTRA,0,1,5,nil,{SUMMON_TYPE_LINK,tp,tp,false,false,POS_FACEUP,nil,{"cp",true,"mat",Group.CreateGroup()}},e,tp)
end
function s.lmtg2(e,c)
return not c:IsLocation(LOCATION_EXTRA) or (c:IsType(TYPE_LINK) and rsmd.IsSet2(c))
end
\ No newline at end of file
expansions/script/c44000031.lua deleted 100644 → 0
View file @ a1669e87
--骰娘炼成编年史
Duel.LoadScript("c44000001.lua")
local id,s = rscf.DefineCard(44000031,"MrsDice_Taught")
function s.initial_effect(c)
local e1 = rsef.A(c)
local e2 = rsef.FV_Card(c,"inde",aux.indoval,aux.TargetBoolFunction(
rsmd.IsSet1),{LOCATION_MZONE,0},nil,LOCATION_SZONE)
local e3 = rsef.FV_Player(c,id,1,nil,{1,0},nil,LOCATION_SZONE)
rsef.effet_no_register = true
local e4 = rsef.I(c,"sp",1,"sp",nil,LOCATION_MZONE,s.spcon,nil,
rsop.target(s.spfilter,"sp",rsloc.gr),s.spop)
rsef.effet_no_register = false
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
e5:SetRange(LOCATION_SZONE)
e5:SetTargetRange(LOCATION_MZONE,0)
e5:SetTarget(s.eftg)
e5:SetLabelObject(e4)
c:RegisterEffect(e5)
local ge1 = rsef.FC_Global(0,EVENT_SPSUMMON_SUCCESS,id,s.regcon,s.regop)
local ge2 = rsef.FC_Global(0,EVENT_ADJUST,id,nil,s.efop)
end
if not rsmd.cplist then
rsmd.cplist = { }
end
function s.rfilter(c)
return rsmd.IsSet2(c) and c:IsType(TYPE_RITUAL) and c:IsSummonType(SUMMON_TYPE_RITUAL) and c:GetMaterialCount() > 0
end
function s.regcon(e,tp,eg)
return eg:IsExists(s.rfilter,nil,1)
end
function s.mfilter(c)
return c:IsReason(REASON_RELEASE+REASON_EFFECT+REASON_MATERIAL) and rsmd.IsSetM1(c)
end
function s.regop(e,tp,eg)
local rg = eg:Filter(s.rfilter,nil)
for tc in aux.Next(rg) do
tc:RegisterFlagEffect(id,rsrst.std,0,1)
end
end
function s.effilter(c)
return c:GetFlagEffect(id) > 0 and c:GetFlagEffect(id + 1) == 0 and Duel.IsPlayerAffectedByEffect(c:GetControler(),id)
end
function s.rstfilter(c)
return c:GetFlagEffect(id) > 0 and c:GetFlagEffect(id + 1) > 0
end
function s.efop(e,tp,eg)
local g = Duel.GetMatchingGroup(s.effilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
for tc in aux.Next(g) do
local clist = { }
local mat = tc:GetMaterial():Filter(s.mfilter,nil)
for mc in aux.Next(mat) do
local cid = tc:CopyEffect(mc:GetOriginalCodeRule(),rsrst.std)
table.insert(clist,cid)
end
rsmd.cplist[tc] = clist
tc:RegisterFlagEffect(id + 1,rsrst.std,0,1)
end
for p = 0, 1 do
if not Duel.IsPlayerAffectedByEffect(p,id) then
local rg = Duel.GetMatchingGroup(s.rstfilter,p,LOCATION_MZONE,0,nil)
for tc in aux.Next(rg) do
local clist = rsmd.cplist[tc] or { }
if clist and #clist > 0 then
for _,cid in pairs(clist) do
tc:ResetEffect(cid,RESET_COPY)
tc:ResetEffect(RESET_DISABLE,RESET_EVENT)
tc:ResetFlagEffect(id + 1)
end
end
end
end
end
end
function s.eftg(e,c)
return rsmd.IsSet1(c) and c:IsType(TYPE_LINK)
end
function s.spcon(e,tp)
local c = e:GetHandler()
return c:IsLinkAbove(3)
end
function s.spfilter(c,e,tp)
local lc = e:GetHandler()
local zone = lc:GetLinkedZone()
return rsmd.IsSet2(c) and not c:IsCode(e:GetHandler():GetCode()) and rscf.RemovePosCheck(c) and zone > 0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp,zone) and not c:IsType(TYPE_LINK)
end
function s.spop(e,tp)
local c = rscf.GetFaceUpSelf(e)
if not c then return end
local zone = c:GetLinkedZone()
rsop.SelectOperate("sp",tp,aux.NecroValleyFilter(s.spfilter),tp,rsloc.gr,0,1,1,nil,{0,tp,tp,false,false,POS_FACEUP,zone},e,tp)
end
\ No newline at end of file
expansions/script/c44000032.lua deleted 100644 → 0
View file @ a1669e87
--骰娘炼成·补完式
Duel.LoadScript("c44000001.lua")
local id,s = rscf.DefineCard(44000032,"MrsDice_Taught")
function s.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetTarget(s.target)
e1:SetOperation(s.operation)
c:RegisterEffect(e1)
local e2 = rsef.I(c,"td",{1,id},"td,ga","tg",LOCATION_GRAVE,nil,nil,
rstg.target({s.tdfilter,"td",LOCATION_GRAVE},{"opc",Card.IsAbleToDeck,"td"}),s.tdop)
end
function s.tdfilter(c)
return c:IsType(TYPE_LINK) and c:IsAbleToDeck() and rsmd.IsSet2(c)
end
function s.tdop(e,tp)
local tc = rscf.GetTargetCard()
local c = rscf.GetSelf(e)
local mg = rsgf.Mix2(c,tc)
if #mg < 2 then return end
if Duel.IsExistingMatchingCard(s.exfilter,tp,LOCATION_MZONE,0,1,nil) then
local b1 = c:IsAbleToHand()
local b2 = c:IsAbleToDeck()
local op = rshint.SelectOption(tp,b1,"th",b2,"td")
if op == 1 then
Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
Duel.SendtoHand(c,nil,REASON_EFFECT)
else
Duel.SendtoDeck(mg,nil,2,REASON_EFFECT)
end
else
Duel.SendtoDeck(mg,nil,2,REASON_EFFECT)
end
end
function s.exfilter(c)
return c:IsFaceup() and c:IsType(TYPE_RITUAL) and rsmd.IsSet2(c)
end
function s.NBLV(c)
local x = c:GetLevel()
if c:IsType(TYPE_LINK) and c:IsRace(RACE_CYBERSE) then
x = c:GetLink() *2
end
if x>MAX_PARAMETER then
return MAX_PARAMETER
else
return x
end
end
function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then
local mg=Duel.GetRitualMaterialEx(tp):Filter(Card.IsOnField,nil)
return Duel.IsExistingMatchingCard(s.RitualUltimateFilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,nil,e,tp,mg,nil,s.NBLV,"Greater")
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
end
function s.operation(e,tp,eg,ep,ev,re,r,rp)
local mg=Duel.GetRitualMaterialEx(tp):Filter(Card.IsOnField,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local tg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.RitualUltimateFilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,nil,e,tp,mg,nil,s.NBLV,"Greater")
local tc=tg:GetFirst()
if tc then
mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc)
if sg then
mg:Merge(sg)
end
if tc.mat_filter then
mg=mg:Filter(tc.mat_filter,tc,tp)
else
mg:RemoveCard(tc)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
aux.GCheckAdditional=s.RitualCheckAdditional(tc,s.NBLV(tc),"Greater")
local mat=mg:SelectSubGroup(tp,s.RitualCheck,false,1,#mg,tp,tc,s.NBLV(tc),"Greater")
aux.GCheckAdditional=nil
if not mat or mat:GetCount()==0 then return end
tc:SetMaterial(mat)
Duel.ReleaseRitualMaterial(mat)
Duel.BreakEffect()
Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
tc:CompleteProcedure()
end
end
function s.RitualCheckGreater(g,c,lv)
if lv==0 then return false end
Duel.SetSelectedCard(g)
return g:CheckWithSumGreater(s.NBLV,lv)
end
function s.RitualCheckEqual(g,c,lv)
if lv==0 then return false end
return g:CheckWithSumEqual(s.NBLV,lv,#g,#g)
end
function s.RitualCheck(g,tp,c,lv,greater_or_equal)
return s["RitualCheck"..greater_or_equal](g,c,lv) and Duel.GetMZoneCount(tp,g,tp)>0 and (not c.mat_group_check or c.mat_group_check(g,tp))
and (not aux.RCheckAdditional or aux.RCheckAdditional(tp,g,c))
end
function s.RitualCheckAdditional(c,lv,greater_or_equal)
if greater_or_equal=="Equal" then
return function(g)
return (not aux.RGCheckAdditional or aux.RGCheckAdditional(g)) and g:GetSum(s.NBLV)<=lv
end
else
return function(g,ec)
if lv==0 then return #g<=1 end
if ec then
return (not aux.RGCheckAdditional or aux.RGCheckAdditional(g,ec)) and g:GetSum(s.NBLV)-s.NBLV(ec)<=lv
else
return not aux.RGCheckAdditional or aux.RGCheckAdditional(g)
end
end
end
end
function s.RitualUltimateFilter(c,filter,e,tp,m1,m2,lv_function,greater_or_equal,chk)
if bit.band(c:GetType(),0x81)~=0x81 or (filter and not filter(c,e,tp,chk)) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end
local mg=m1:Filter(Card.IsCanBeRitualMaterial,c,c)
if m2 then
mg:Merge(m2)
end
if c.mat_filter then
mg=mg:Filter(c.mat_filter,c,tp)
else
mg:RemoveCard(c)
end
local lv=lv_function(c)
aux.GCheckAdditional=s.RitualCheckAdditional(c,lv,greater_or_equal)
local res=mg:CheckSubGroup(s.RitualCheck,1,#mg,tp,c,lv,greater_or_equal)
aux.GCheckAdditional=nil
return res
end
expansions/script/c60007163.lua
View file @ 582493e1
......@@ -8,7 +8,7 @@ function cm.initial_effect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetRange(LOCATION_PZONE)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e2:SetTargetRange(1,0)
e2:SetTarget(cm.splimit)
c:RegisterEffect(e2)
......
expansions/script/c60007164.lua
View file @ 582493e1
......@@ -8,7 +8,7 @@ function cm.initial_effect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetRange(LOCATION_PZONE)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e2:SetTargetRange(1,0)
e2:SetTarget(cm.splimit)
c:RegisterEffect(e2)
......
expansions/script/c60007169.lua
View file @ 582493e1
......@@ -8,7 +8,7 @@ function cm.initial_effect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetRange(LOCATION_PZONE)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e2:SetTargetRange(1,0)
e2:SetTarget(cm.splimit)
c:RegisterEffect(e2)
......
expansions/script/c60007184.lua
View file @ 582493e1
......@@ -20,7 +20,7 @@ function cm.initial_effect(c)
e2:SetCode(EVENT_TO_GRAVE)
e2:SetRange(LOCATION_GRAVE)
e2:SetCountLimit(1,m)
e2:SetCondition(m.setcon)
e2:SetCondition(cm.setcon)
e2:SetTarget(cm.settg)
e2:SetOperation(cm.setop)
c:RegisterEffect(e2)
......
expansions/script/c60007186.lua
View file @ 582493e1
--罗德岛·术士干员-远山
local cm,m,o=GetID()
function cm.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
......
expansions/script/c60007199.lua
View file @ 582493e1
......@@ -17,7 +17,7 @@ function cm.initial_effect(c)
e2:SetRange(LOCATION_GRAVE)
e2:SetCost(cm.lvcost)
e2:SetTarget(cm.lvtg)
e2:SetOperation(m.lvop)
e2:SetOperation(cm.lvop)
c:RegisterEffect(e2)
end
function cm.condition(e,tp,eg,ep,ev,re,r,rp)
......
expansions/script/c60007202.lua
View file @ 582493e1
......@@ -28,7 +28,7 @@ function cm.initial_effect(c)
e2:SetOperation(cm.desop2)
c:RegisterEffect(e2)
end
function m.matfilter(c)
function cm.matfilter(c)
return c:IsLinkSetCard(0x362a)
end
function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
......
expansions/script/c60007203.lua
View file @ 582493e1
......@@ -20,7 +20,7 @@ function cm.initial_effect(c)
e2:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
e2:SetCountLimit(1)
e2:SetRange(LOCATION_MZONE)
e2:SetValue(m.valcon)
e2:SetValue(cm.valcon)
c:RegisterEffect(e2)
--spsummon
local e3=Effect.CreateEffect(c)
......
expansions/script/c60007205.lua
View file @ 582493e1
--喀兰贸易·辅助干员-初雪
function c79029070.initial_effect(c)
function c60007205.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,c79029070.matfilter,2,3)
aux.AddLinkProcedure(c,c60007205.matfilter,2,3)
c:EnableReviveLimit()
--atk/def
local e1=Effect.CreateEffect(c)
......@@ -9,7 +9,7 @@ function c79029070.initial_effect(c)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetRange(LOCATION_MZONE)
e1:SetTargetRange(0,LOCATION_MZONE)
e1:SetTarget(c79029070.atktg)
e1:SetTarget(c60007205.atktg)
e1:SetValue(-700)
c:RegisterEffect(e1)
local e2=e1:Clone()
......@@ -22,9 +22,9 @@ function c79029070.initial_effect(c)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,79029070)
e3:SetTarget(c79029070.dstg)
e3:SetOperation(c79029070.dsop)
e3:SetCountLimit(1,60007205)
e3:SetTarget(c60007205.dstg)
e3:SetOperation(c60007205.dsop)
c:RegisterEffect(e3)
--destory
local e4=Effect.CreateEffect(c)
......@@ -32,26 +32,26 @@ function c79029070.initial_effect(c)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetProperty(EFFECT_FLAG_DELAY)
e4:SetCode(EVENT_TO_GRAVE)
e4:SetCountLimit(1,09029070)
e4:SetCondition(c79029070.thcon2)
e4:SetTarget(c79029070.thtg2)
e4:SetOperation(c79029070.thop2)
e4:SetCountLimit(1,60097205)
e4:SetCondition(c60007205.thcon2)
e4:SetTarget(c60007205.thtg2)
e4:SetOperation(c60007205.thop2)
c:RegisterEffect(e4)
end
function c79029070.matfilter(c)
return c:IsLinkSetCard(0xa900)
function c60007205.matfilter(c)
return c:IsLinkSetCard(0x362a)
end
function c79029070.atktg(e,c)
function c60007205.atktg(e,c)
return c:GetMutualLinkedGroupCount()==0
end
function c79029070.dstg(e,tp,eg,ep,ev,re,r,rp,chk)
function c60007205.dstg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
local tc=Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DISABLE,tc,1,0,LOCATION_MZONE)
end
function c79029070.dsop(e,tp,eg,ep,ev,re,r,rp)
function c60007205.dsop(e,tp,eg,ep,ev,re,r,rp)
Debug.Message("铃声已至，风雪缠足。")
Duel.Hint(HINT_SOUND,0,aux.Stringid(79029070,0))
Duel.Hint(HINT_SOUND,0,aux.Stringid(60007205,0))
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc and tc:IsRelateToEffect(e) then
......@@ -78,22 +78,22 @@ function c79029070.dsop(e,tp,eg,ep,ev,re,r,rp)
tc:RegisterFlagEffect(e4)
end
end
function c79029070.thcon2(e,tp,eg,ep,ev,re,r,rp)
function c60007205.thcon2(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
end
function c79029070.filter(c)
function c60007205.filter(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP)
end
function c79029070.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
function c60007205.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return Duel.IsExistingMatchingCard(c79029070.filter,tp,0,LOCATION_ONFIELD,1,c) end
local sg=Duel.GetMatchingGroup(c79029070.filter,tp,0,LOCATION_ONFIELD,c)
if chk==0 then return Duel.IsExistingMatchingCard(c60007205.filter,tp,0,LOCATION_ONFIELD,1,c) end
local sg=Duel.GetMatchingGroup(c60007205.filter,tp,0,LOCATION_ONFIELD,c)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
end
function c79029070.thop2(e,tp,eg,ep,ev,re,r,rp)
function c60007205.thop2(e,tp,eg,ep,ev,re,r,rp)
Debug.Message("如有神助，正是此般。")
Duel.Hint(HINT_SOUND,0,aux.Stringid(79029070,1))
local sg=Duel.GetMatchingGroup(c79029070.filter,tp,0,LOCATION_ONFIELD,aux.ExceptThisCard(e))
Duel.Hint(HINT_SOUND,0,aux.Stringid(60007205,1))
local sg=Duel.GetMatchingGroup(c60007205.filter,tp,0,LOCATION_ONFIELD,aux.ExceptThisCard(e))
Duel.Destroy(sg,REASON_EFFECT)
end
expansions/script/c60007207.lua
View file @ 582493e1
......@@ -20,7 +20,7 @@ function cm.initial_effect(c)
e2:SetCategory(CATEGORY_NEGATE)
e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_CHAINING)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE)
e2:SetRange(LOCATION_MZONE)
e2:SetCondition(cm.imcon)
e2:SetCost(cm.imcost)
......
expansions/script/c60007209.lua
View file @ 582493e1
......@@ -8,7 +8,7 @@ function cm.initial_effect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetRange(LOCATION_PZONE)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e2:SetTargetRange(1,0)
e2:SetTarget(cm.splimit)
c:RegisterEffect(e2)
......
expansions/script/c60007213.lua
View file @ 582493e1
......@@ -13,7 +13,7 @@ function cm.initial_effect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetRange(LOCATION_PZONE)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e2:SetTargetRange(1,0)
e2:SetTarget(cm.splimit)
c:RegisterEffect(e2)
......
expansions/script/c60007237.lua
View file @ 582493e1
......@@ -44,7 +44,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local val=Duel.Recover(tp,math.ceil(ev),REASON_EFFECT)
if val<800 then return end
Duel.BreakEffect()
for val>=800 do
for val>799 do
Duel.Draw(tp,1,REASON_EFFECT)
val=val-800
end
......
expansions/script/c60010250.lua
View file @ 582493e1
......@@ -65,3 +65,4 @@ function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
if Duel.Release(g,REASON_EFFECT)~=0 then
Duel.Draw(tp,1,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c60159907.lua
View file @ 582493e1
......@@ -11,7 +11,7 @@ function c60159907.initial_effect(c)
e12:SetType(EFFECT_TYPE_SINGLE)
e12:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e12:SetCode(EFFECT_ADD_ATTRIBUTE)
e12:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e12:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e12:SetRange(LOCATION_MZONE)
e12:SetValue(ATTRIBUTE_DARK)
c:RegisterEffect(e12)
......
expansions/script/c61000041.lua
View file @ 582493e1
......@@ -58,8 +58,7 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
local tc=g:GetFirst()
if tc and Duel.SendtoHand(g,nil,REASON_EFFECT)~=0 then
Duel.ConfirmCards(1-tp,g)
if Duel.IsPlayerCanDraw(tp,1) then
and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
if Duel.IsPlayerCanDraw(tp,1) and Duel.SelectYesNo(tp,aux.Stringid(id,1)) then
Duel.BreakEffect()
Duel.Draw(tp,1,REASON_EFFECT)
end
......
expansions/script/c65820050.lua
View file @ 582493e1
......@@ -28,7 +28,6 @@ end
function c65820050.spfilter(c,e,tp)
return c:IsCode(65820000,65820005) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
aux.NecroValleyFilter()
end
function c65820050.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
......@@ -38,7 +37,7 @@ end
function c65820050.activate(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c65820050.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND+LOCATION_REMOVED,0,1,1,nil,e,tp)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c65820050.spfilter),tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND+LOCATION_REMOVED,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
......
expansions/script/c71403014.lua
View file @ 582493e1
......@@ -87,9 +87,9 @@ function c71403014.op1(e,tp,eg,ep,ev,re,r,rp)
yume.OptionalPendulum(e,c,tp)
end
end
function s.retcon(e,tp,eg,ep,ev,re,r,rp)
function c71403014.retcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetLabelObject():GetFlagEffect(71403014)~=0
end
function s.retop(e,tp,eg,ep,ev,re,r,rp)
function c71403014.retop(e,tp,eg,ep,ev,re,r,rp)
Duel.ReturnToField(e:GetLabelObject())
end
\ No newline at end of file
expansions/script/c81030022.lua
View file @ 582493e1
......@@ -22,7 +22,7 @@ function cm.initial_effect(c)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e2:SetCountLimit(1,m+)
e2:SetCountLimit(1,m)
e2:SetCost(cm.cost)
e2:SetTarget(cm.sptg)
e2:SetOperation(cm.spop)
......
expansions/script/c81901037.lua
View file @ 582493e1
......@@ -77,7 +77,6 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local e4=e3:Clone()
e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
Duel.RegisterEffect(e4,tp)
end
end
function cm.etarget(e,c)
return c:IsFaceup() and c:GetBaseAttack()==0
......
expansions/script/c81902005.lua
View file @ 582493e1
......@@ -31,7 +31,7 @@ function cm.initial_effect(c)
end
--XyzSummon
function cm.ovfilter(c)
return c:IsFaceup() and c:IsRank(9) and c:IsRace(RACE_AQUA) and c:IsAttribute(ATTRIBUTE_WATER))
return c:IsFaceup() and c:IsRank(9) and c:IsRace(RACE_AQUA) and c:IsAttribute(ATTRIBUTE_WATER)
end
function cm.xyzop(e,tp,chk)
if chk==0 then return Duel.GetFlagEffect(tp,m)==0 end
......
expansions/script/c81902065.lua
View file @ 582493e1
......@@ -32,14 +32,14 @@ function cm.initial_effect(c)
e3:SetTarget(cm.tgtg)
e3:SetOperation(cm.tgop)
c:RegisterEffect(e3)
--remove
--
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
e4:SetType(EFFECT_TYPE_IGNITION)
e4:SetRange(LOCATION_EXTRA)
e4:SetCost(cm.rmcost)
e4:SetTarget(cm.rmtg)
e4:SetOperation(cm.rmop)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_DESTROYED)
e4:SetProperty(EFFECT_FLAG_DELAY)
e4:SetCondition(cm.pencon)
e4:SetTarget(cm.pentg)
e4:SetOperation(cm.penop)
c:RegisterEffect(e4)
end
--p lv
......@@ -98,7 +98,7 @@ end
--pendulum
function cm.pencon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
end
function cm.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
......
expansions/script/c88946420.lua deleted 100644 → 0
View file @ a1669e87
--折幸 源舞
Duel.LoadScript("c10199990.lua")
local m=88946420
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=rsef.QO(c,nil,{m,0},{1,m},"sp","tg",LOCATION_HAND+LOCATION_GRAVE,nil,nil,rstg.target3(cm.fun,{rscf.FilterFaceUp(Card.IsSetCard,0x960),nil,LOCATION_ONFIELD}),cm.spop)
local e3=rsef.STO(c,EVENT_TO_GRAVE,{m,0},{1,m+100},"atk,def","de,dsp",nil,nil,nil,cm.atkop)
--[[local e2=rsef.QO(c,nil,{m,1},{1,m+100},nil,nil,LOCATION_MZONE,nil,rscost.cost(Card.IsReleasable,"res"),rstg.target(rsop.list(cm.setfilter,nil,LOCATION_DECK)),cm.setop)
if not rsef.actlimiteffect then
rsef.actlimiteffect={}
end
rsef.actlimiteffect[e2]=true--]]
end
function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetTargetRange(LOCATION_MZONE,0)
e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x960))
e1:SetValue(500)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local e2=e1:Clone()
e2:SetCode(EFFECT_UPDATE_DEFENSE)
Duel.RegisterEffect(e2,tp)
end
function cm.fun(e,tp)
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.spop(e,tp)
local c=aux.ExceptThisCard(e)
if c then rssf.SpecialSummon(c) end
end
function cm.spfilter(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.setfilter(c)
return c:IsSetCard(0x960) and c:IsType(TYPE_TRAP) and c:IsSSetable()
end
function cm.setop(e,tp)
local c=e:GetHandler()
if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
rsof.SelectHint(tp,HINTMSG_SET)
local tc=Duel.SelectMatchingCard(tp,cm.setfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
if not tc then return end
Duel.SSet(tp,tc)
Duel.ConfirmCards(1-tp,tc)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
local e2=rsef.FV_LIMIT_PLAYER({c,tp},"act",cm.val,nil,{1,1},nil,{rsreset.pend,2})
end
function cm.val(e,re,tp)
return rsef.actlimiteffect[re]
end
\ No newline at end of file
expansions/script/c88946421.lua deleted 100644 → 0
View file @ a1669e87
--折幸 暗歌
Duel.LoadScript("c10199990.lua")
local m=88946421
local cm=_G["c"..m]
function cm.initial_effect(c)
c:SetSPSummonOnce(m)
rscf.SetSummonCondition(c,false,cm.sumval)
aux.AddXyzProcedure(c,nil,4,2,cm.ovfilter,aux.Stringid(m,0))
local e1=rsef.I(c,{m,1},{1,m},"se,th",nil,LOCATION_MZONE,nil,rscost.cost(Card.IsReleasable,"res"),rsop.target(cm.thfilter,"th",LOCATION_DECK),cm.thop)
local e2=rsef.I(c,{m,2},{1,m+100},"atk,def","tg",LOCATION_GRAVE,nil,rscost.cost(Card.IsAbleToExtraAsCost,"te"),rstg.target(cm.ovfilter,nil,LOCATION_MZONE),cm.atkop)
end
function cm.sumval(e,se,sp,st)
return not e:GetHandler():IsLocation(LOCATION_EXTRA) or st&SUMMON_TYPE_FUSION ==SUMMON_TYPE_FUSION or se:GetHandler():IsSetCard(0x960)
end
function cm.ovfilter(c)
return c:IsFaceup() and c:IsSetCard(0x960)
end
function cm.thfilter(c)
return c:IsSetCard(0x960) and c:IsAbleToHand()
end
function cm.thop(e,tp)
rsof.SelectHint(tp,"th")
local tg=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
if #tg>0 then
Duel.SendtoHand(tg,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tg)
end
end
function cm.atkop(e,tp)
local tc=rscf.GetTargetCard(Card.IsFaceup)
if not tc then return end
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
local maxg,maxatk=g:GetMaxGroup(Card.GetAttack)
local atk=tc:GetBaseAttack()+maxatk
local e1,e2=rsef.SV_SET({e:GetHandler(),tc},"atkf,deff",atk,nil,rsreset.est_pend)
end
expansions/script/c88946422.lua deleted 100644 → 0
View file @ a1669e87
--折幸 紫华
Duel.LoadScript("c10199990.lua")
local m=88946422
local cm=_G["c"..m]
function cm.initial_effect(c)
c:SetSPSummonOnce(m)
rscf.SetSummonCondition(c,false,cm.sumval)
aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x960),2,true)
--local e1=rsef.STO(c,EVENT_SPSUMMON_SUCCESS,{m,0},nil,"th","tg",nil,nil,rstg.target(cm.thfilter,"th",LOCATION_GRAVE),cm.thop)
local e1=rsef.STO(c,EVENT_SPSUMMON_SUCCESS,{m,0},nil,"th",EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY,nil,nil,rstg.target(cm.setfilter,nil,LOCATION_GRAVE),cm.setop)
local e2=rsef.QO(c,nil,{m,1},nil,nil,nil,LOCATION_MZONE,nil,rscost.cost(Card.IsReleasable,"res"),nil,cm.imop)
local e3=rscf.SetSpecialSummonProduce(c,LOCATION_EXTRA,cm.spcon,cm.spop)
end
function cm.sumval(e,se,sp,st)
return not e:GetHandler():IsLocation(LOCATION_EXTRA) or st&SUMMON_TYPE_FUSION ==SUMMON_TYPE_FUSION or se:GetHandler():IsSetCard(0x960)
end
function cm.thfilter(c)
return c:IsAbleToHand() and c:IsSetCard(0x960) and c:IsType(TYPE_TRAP)
end
function cm.thop(e,tp)
local tc=rscf.GetTargetCard()
if tc then Duel.SendtoHand(tc,nil,REASON_EFFECT) end
end
function cm.setfilter(c)
return c:IsSSetable() and c:IsSetCard(0x960) and c:IsType(TYPE_TRAP)
end
function cm.setop(e,tp)
local tc=rscf.GetTargetCard()
if tc and tc:IsSSetable() then
Duel.SSet(tp,tc)
Duel.ConfirmCards(1-tp,tc)
end
end
function cm.imop(e,tp)
local e1=rsef.FV_IMMUNE_EFFECT({e:GetHandler(),tp},cm.val,aux.TargetBoolFunction(Card.IsSetCard,0x960),{LOCATION_MZONE,0},nil,rsreset.pend)
e1:SetOwnerPlayer(tp)
end
function cm.val(e,re)
return re:GetHandlerPlayer()~=e:GetOwnerPlayer() and re:IsHasType(TYPE_MONSTER)
end
function cm.spfilter(c,tp)
return c:IsSetCard(0x960) and Duel.GetLocationCountFromEx(tp,tp,c)>0
end
function cm.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
return Duel.CheckReleaseGroup(REASON_COST,tp,cm.spfilter,1,nil,tp)
end
function cm.spop(e,tp)
local g=Duel.SelectReleaseGroup(REASON_COST,tp,cm.spfilter,1,1,nil,tp)
Duel.Release(g,REASON_EFFECT)
end
\ No newline at end of file
expansions/script/c88946423.lua deleted 100644 → 0
View file @ a1669e87
--折幸 纯苍
Duel.LoadScript("c10199990.lua")
local m=88946423
local cm=_G["c"..m]
function cm.initial_effect(c)
c:SetSPSummonOnce(m)
rscf.SetSummonCondition(c,false,cm.sumval)
aux.AddSynchroProcedure2(c,aux.FilterBoolFunction(Card.IsSetCard,0x960),aux.NonTuner(nil))
local e1,e2=rsef.FV_UPDATE(c,"atk,def",cm.val,nil,{0,LOCATION_MZONE })
local e3=rsef.I(c,{m,0},nil,"tg","tg",LOCATION_MZONE,nil,rscost.cost(Card.IsReleasable,"res"),rstg.target(cm.tgfilter,"tg",LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,c),cm.tgop)
local e4=rsef.RegisterClone(c,e3,"type",EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O,"code",EVENT_PRE_DAMAGE_CALCULATE)
end
function cm.sumval(e,se,sp,st)
return not e:GetHandler():IsLocation(LOCATION_EXTRA) or st&SUMMON_TYPE_SYNCHRO ==SUMMON_TYPE_SYNCHRO or se:GetHandler():IsSetCard(0x960)
end
function cm.val(e,c)
return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),0,LOCATION_ONFIELD)*-200
end
function cm.tgfilter(c,e,tp)
return c:IsAbleToGrave() and not e:GetHandler():GetEquipGroup():IsContains(c)
end
function cm.tgop(e,tp)
local tc=rscf.GetTargetCard()
if tc then Duel.SendtoGrave(tc,REASON_EFFECT) end
end
\ No newline at end of file
expansions/script/c88946425.lua deleted 100644 → 0
View file @ a1669e87
--折幸 压制
Duel.LoadScript("c10199990.lua")
local m=88946425
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=rsef.ACT(c,nil,nil,{1,m,1},"dis,sp","tg",cm.discon,cm.cost,rstg.target(cm.disfilter,"dis",LOCATION_ONFIELD,LOCATION_ONFIELD),cm.disop)
--act in hand
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
e2:SetCondition(cm.handcon)
c:RegisterEffect(e2)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) and Duel.GetTurnPlayer()~=tp then
Duel.RegisterFlagEffect(tp,88946420,RESET_PHASE+PHASE_END,0,1)
end
end
function cm.handcon(e)
return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_MZONE,0)==0 and Duel.GetFlagEffect(e:GetHandlerPlayer(),88946420)==0
end
function cm.cfilter(c)
return c:IsFacedown() or not c:IsSetCard(0x960)
end
function cm.discon(e,tp)
return not Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function cm.disfilter(c,e)
return aux.disfilter1(c) and c~=e:GetHandler()
end
function cm.spfilter(c,e,tp)
return c:IsSetCard(0x960) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and ((c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp)>0) or (c:IsLocation(LOCATION_GRAVE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0))
end
function cm.disop(e,tp)
local c=e:GetHandler()
local tc=rscf.GetTargetCard(aux.disfilter1)
local el1=Effect.CreateEffect(c)
el1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
el1:SetType(EFFECT_TYPE_FIELD)
el1:SetCode(EFFECT_CANNOT_SUMMON)
el1:SetTarget(cm.sumlimit)
el1:SetTargetRange(1,0)
el1:SetReset(RESET_PHASE+PHASE_END,2)
c:RegisterEffect(el1,tp)
local el2=el1:Clone()
el2:SetCode(EFFECT_CANNOT_MSET)
c:RegisterEffect(el2)
local el3=el1:Clone()
el3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
c:RegisterEffect(el3)
if not tc then return end
Duel.NegateRelatedChain(tc,RESET_TURN_SET)
local e1,e2=rsef.SV_LIMIT({c,tc},"dis,dise",nil,nil,rsreset.est_pend)
if tc:IsImmuneToEffect(e) then return end
local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_EXTRA+LOCATION_GRAVE,0,nil,e,tp)
if #g<=0 or not Duel.SelectYesNo(tp,aux.Stringid(m,0)) then return end
Duel.BreakEffect()
rsof.SelectHint(tp,"sp")
local sg=g:Select(tp,1,1,nil)
rssf.SpecialSummon(sg)
end
function cm.sumlimit(e,c)
return not c:IsSetCard(0x960)
end
\ No newline at end of file
expansions/script/c88946426.lua deleted 100644 → 0
View file @ a1669e87
--折幸 智语
Duel.LoadScript("c10199990.lua")
local m=88946426
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=rsef.ACT(c,nil,nil,{1,m,1},"se,th",nil,cm.actcon,cm.cost,rsop.target(cm.thfilter,"th",LOCATION_DECK),cm.thop)
--act in hand
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_TRAP_ACT_IN_HAND)
e3:SetCondition(cm.handcon)
c:RegisterEffect(e3)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) and Duel.GetTurnPlayer()~=tp then
Duel.RegisterFlagEffect(tp,88946420,RESET_PHASE+PHASE_END,0,1)
end
end
function cm.cfilter(c)
return c:IsFacedown() or not c:IsSetCard(0x960)
end
function cm.handcon(e)
local tp=e:GetHandlerPlayer()
return not Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) and Duel.GetFlagEffect(e:GetHandler():GetControler(),88946420)==0
end
function cm.actcon(e)
local tp=e:GetHandlerPlayer()
return not Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function cm.b1(c)
return c:IsAbleToHand()
end
function cm.b2(c)
return c:IsSSetable() and c:IsType(TYPE_TRAP)
end
function cm.thfilter(c,e,tp)
if not c:IsSetCard(0x960) then return false end
return cm.b1(c) or cm.b2(c)
end
function cm.thop(e,tp)
local c=e:GetHandler()
rsof.SelectHint(tp,HINTMSG_SELF)
local tc=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp):GetFirst()
if not tc then return end
local b1=cm.b1(tc)
local b2=cm.b2(tc)
local op=rshint.SelectOption(tp,b1,{m,0},b2,{m,1},true)
if op==1 then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
else
Duel.SSet(tp,tc)
end
local el1=Effect.CreateEffect(c)
el1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
el1:SetType(EFFECT_TYPE_FIELD)
el1:SetCode(EFFECT_CANNOT_SUMMON)
el1:SetTarget(cm.sumlimit)
el1:SetTargetRange(1,0)
el1:SetReset(RESET_PHASE+PHASE_END,2)
c:RegisterEffect(el1,tp)
local el2=el1:Clone()
el2:SetCode(EFFECT_CANNOT_MSET)
c:RegisterEffect(el2)
local el3=el1:Clone()
el3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
c:RegisterEffect(el3)
end
function cm.sumlimit(e,c)
return not c:IsSetCard(0x960)
end
\ No newline at end of file
expansions/script/c88946427.lua deleted 100644 → 0
View file @ a1669e87
--折幸 斩截
Duel.LoadScript("c10199990.lua")
local m=88946427
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=rsef.ACT(c,nil,nil,{1,m,1},"des,sp","tg",cm.descon,cm.cost,rstg.target(aux.TRUE,"des",LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,c),cm.desop)
--act in hand
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
e2:SetCondition(cm.handcon)
c:RegisterEffect(e2)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) and Duel.GetTurnPlayer()~=tp then
Duel.RegisterFlagEffect(tp,88946420,RESET_PHASE+PHASE_END,0,1)
end
end
function cm.handcon(e)
return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_MZONE,0)==0 and Duel.GetFlagEffect(e:GetHandler():GetControler(),88946420)==0
end
function cm.cfilter(c)
return c:IsFacedown() or not c:IsSetCard(0x960)
end
function cm.descon(e,tp)
return not Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function cm.spfilter(c,e,tp)
return c:IsSetCard(0x960) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and ((c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp)>0) or (c:IsLocation(LOCATION_GRAVE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0))
end
function cm.desop(e,tp)
local c=e:GetHandler()
local tc=rscf.GetTargetCard()
local el1=Effect.CreateEffect(c)
el1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
el1:SetType(EFFECT_TYPE_FIELD)
el1:SetCode(EFFECT_CANNOT_SUMMON)
el1:SetTarget(cm.spval)
el1:SetTargetRange(1,0)
el1:SetReset(RESET_PHASE+PHASE_END,2)
c:RegisterEffect(el1,tp)
local el2=el1:Clone()
el2:SetCode(EFFECT_CANNOT_MSET)
c:RegisterEffect(el2)
local el3=el1:Clone()
el3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
c:RegisterEffect(el3)
if not tc or Duel.Destroy(tc,REASON_EFFECT)<=0 then return end
local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_EXTRA+LOCATION_GRAVE,0,nil,e,tp)
if #g<=0 or not Duel.SelectYesNo(tp,aux.Stringid(m,0)) then return end
Duel.BreakEffect()
rsof.SelectHint(tp,"sp")
local sg=g:Select(tp,1,1,nil)
rssf.SpecialSummon(sg)
end
function cm.spval(e,c)
return not c:IsSetCard(0x960)
end
\ No newline at end of file
expansions/script/c88946428.lua deleted 100644 → 0
View file @ a1669e87
--折幸 拟具
Duel.LoadScript("c10199990.lua")
local m=88946428
local cm=_G["c"..m]
function cm.initial_effect(c)
local e1=rsef.ACT(c,nil,nil,{1,m,1},"tg,sp",nil,cm.tgcon,cm.cost,rsop.target(cm.tgfilter,"tg",LOCATION_DECK),cm.tgop)
--act in hand
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_TRAP_ACT_IN_HAND)
e2:SetCondition(cm.handcon)
c:RegisterEffect(e2)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) and Duel.GetTurnPlayer()~=tp then
Duel.RegisterFlagEffect(tp,88946420,RESET_PHASE+PHASE_END,0,1)
end
end
function cm.handcon(e)
return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_MZONE,0)==0 and Duel.GetFlagEffect(e:GetHandler():GetControler(),88946420)==0
end
function cm.cfilter(c)
return c:IsFacedown() or not c:IsSetCard(0x960)
end
function cm.tgcon(e,tp)
return not Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function cm.tgfilter(c)
return c:IsSetCard(0x960) and c:IsAbleToGrave()
end
function cm.spfilter(c,e,tp)
return c:IsSetCard(0x960) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and ((c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp)>0) or (c:IsLocation(LOCATION_DECK) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0))
end
function cm.tgop(e,tp)
local c=e:GetHandler()
local e1,e2,e3=rsef.FV_LIMIT_PLAYER({c,tp},"sum,sp,mset",nil,cm.spval,{1,0},nil,{rsreset.pend,2})
rsof.SelectHint(tp,"tg")
local tg=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
if #tg<=0 or Duel.SendtoGrave(tg,REASON_EFFECT)<=0 then return end
local g=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_EXTRA+LOCATION_DECK,0,nil,e,tp)
if #g<=0 or not Duel.SelectYesNo(tp,aux.Stringid(m,0)) then return end
Duel.BreakEffect()
rsof.SelectHint(tp,"sp")
local sg=g:Select(tp,1,1,nil)
rssf.SpecialSummon(sg)
end
function cm.spval(e,c)
return not c:IsSetCard(0x960)
end
\ No newline at end of file
expansions/strings.conf
View file @ 582493e1
......@@ -895,9 +895,6 @@
#▽雪鸮 3234454893 440 0x470-0x47f
!setname 0x470 血祭魇
!counter 0x1470 心慌指示物
#setname="MrsDice" 骰娘
#setname="MrsDice_Taught" 骰娘炼成
#setname="MrsDice_Taught_Master" 骰娘之主
#▽小青 475054511 457 0x880-0x88f
!setname 0x880 H×H
......@@ -1482,9 +1479,6 @@
!counter 0x1596 幻想指示物
!counter 0x3597 旧地狱
#▽小島痕 1614895649 889 0x960-0x96f
!setname 0x960 折幸
#王道游老子 995602632 894 0x700-0x70f
!setname 0xa701 XTale
!setname 0x70a S.W.（Studio Wasabi）
......
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