update srv5555

dc-srv5555/extra/special-12.6-HundredHomes/c10000.lua

+--万物創世龍
+function c10000.initial_effect(c)
+	c:EnableReviveLimit()
+	--special summon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(c10000.spcon)
+	e2:SetTarget(c10000.sptg)
+	e2:SetOperation(c10000.spop)
+	c:RegisterEffect(e2)
+	--atk
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetCode(EFFECT_SET_ATTACK_FINAL)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_REPEAT+EFFECT_FLAG_DELAY)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetValue(10000)
+	c:RegisterEffect(e4)
+end
+function c10000.rfilter(c,tp)
+	return c:IsControler(tp) or c:IsFaceup()
+end
+function c10000.sumfilter(c)
+	return c:GetAttack()+c:GetDefense()
+end
+function c10000.fselect(g,tp)
+	Duel.SetSelectedCard(g)
+	return g:CheckWithSumGreater(c10000.sumfilter,10000) and aux.mzctcheckrel(g,tp)
+end
+function c10000.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local rg=Duel.GetReleaseGroup(tp):Filter(c10000.rfilter,nil,tp)
+	return rg:CheckSubGroup(c10000.fselect,1,rg:GetCount(),tp)
+end
+function c10000.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
+	local rg=Duel.GetReleaseGroup(tp):Filter(c10000.rfilter,nil,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local sg=rg:SelectSubGroup(tp,c10000.fselect,true,1,rg:GetCount(),tp)
+	if sg then
+		sg:KeepAlive()
+		e:SetLabelObject(sg)
+		return true
+	else return false end
+end
+function c10000.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=e:GetLabelObject()
+	Duel.Release(g,REASON_COST)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SET_ATTACK)
+	e1:SetValue(10000)
+	e1:SetReset(RESET_EVENT+0xff0000)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_SET_DEFENSE)
+	c:RegisterEffect(e2)
+	g:DeleteGroup()
+end

dc-srv5555/extra/special-12.6-HundredHomes/c13171876.lua

+--ドラゴンメイド・ラドリー
+function c13171876.initial_effect(c)
+	--deckdes
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(13171876,0))
+	e1:SetCategory(CATEGORY_DECKDES)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCountLimit(1,13171876)
+	e1:SetTarget(c13171876.ddtg)
+	e1:SetOperation(c13171876.ddop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	--special summon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(13171876,1))
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1,13171877)
+	e3:SetTarget(c13171876.sptg)
+	e3:SetOperation(c13171876.spop)
+	c:RegisterEffect(e3)
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetRange(LOCATION_MZONE)
+	e0:SetCode(EFFECT_CANNOT_LOSE_KOISHI)
+	e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e0:SetTargetRange(1,0)
+	e0:SetValue(1)
+	--immune
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetCode(EFFECT_IMMUNE_EFFECT)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetValue(c13171876.efilter)
+	c:RegisterEffect(e4)
+end
+function c13171876.efilter(e,te)
+	return te:GetOwner()~=e:GetOwner()
+end
+function c13171876.ddtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) end
+	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,3)
+end
+function c13171876.ddop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.DiscardDeck(tp,3,REASON_EFFECT)
+end
+function c13171876.spfilter(c,e,tp)
+	return c:IsSetCard(0x133) and c:IsLevel(7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c13171876.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToHand()
+		and Duel.GetMZoneCount(tp,c)>0
+		and Duel.IsExistingMatchingCard(c13171876.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,c,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
+end
+function c13171876.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.SendtoHand(c,nil,REASON_EFFECT)~=0
+		and c:IsLocation(LOCATION_HAND) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c13171876.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
+		if g:GetCount()>0 then
+			Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+		end
+	end
+end

dc-srv5555/extra/special-12.6-HundredHomes/c3113836.lua

+--ジェムナイト・セラフィ
+function c3113836.initial_effect(c)
+	--fusion material
+	c:EnableReviveLimit()
+	aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x1047),aux.FilterBoolFunction(Card.IsFusionAttribute,ATTRIBUTE_LIGHT),false)
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(c3113836.splimit)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(3113836,0))
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EFFECT_SET_SUMMON_COUNT_LIMIT)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(1,0)
+	e2:SetValue(100)
+	c:RegisterEffect(e2)
+end
+function c3113836.splimit(e,se,sp,st)
+	return not e:GetHandler():IsLocation(LOCATION_EXTRA) or bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
+end

dc-srv5555/extra/special-12.6-HundredHomes/c5043010.lua

+--ファイアウォール・ドラゴン
+function c5043010.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,nil,2)
+	c:EnableReviveLimit()
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(5043010,0))
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_NO_TURN_RESET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,5043010)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetTarget(c5043010.thtg)
+	e1:SetOperation(c5043010.thop)
+	c:RegisterEffect(e1)
+	--special summon
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_BATTLE_DESTROYED)
+	e2:SetCondition(c5043010.regcon)
+	e2:SetOperation(c5043010.regop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetCondition(c5043010.regcon2)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(5043010,1))
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e4:SetCode(EVENT_CUSTOM+5043010)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCountLimit(1,5043011)
+	e4:SetTarget(c5043010.sptg)
+	e4:SetOperation(c5043010.spop)
+	c:RegisterEffect(e4)
+end
+function c5043010.thfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c5043010.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local c=e:GetHandler()
+	local ct=c:GetMutualLinkedGroupCount()
+	if chkc then return chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c5043010.thfilter(chkc) end
+	if chk==0 then return ct>0 and Duel.IsExistingTarget(c5043010.thfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectTarget(tp,c5043010.thfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,ct,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0)
+	c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(5043010,2))
+end
+function c5043010.thop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+	Duel.SendtoHand(g,nil,REASON_EFFECT)
+end
+function c5043010.cfilter(c,tp,zone)
+	local seq=c:GetPreviousSequence()
+	if c:IsPreviousControler(1-tp) then seq=seq+16 end
+	return c:IsPreviousLocation(LOCATION_MZONE) and bit.extract(zone,seq)~=0
+end
+function c5043010.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c5043010.cfilter,1,nil,tp,e:GetHandler():GetLinkedZone())
+end
+function c5043010.cfilter2(c,tp,zone)
+	return not c:IsReason(REASON_BATTLE) and c5043010.cfilter(c,tp,zone)
+end
+function c5043010.regcon2(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(c5043010.cfilter2,1,nil,tp,e:GetHandler():GetLinkedZone())
+end
+function c5043010.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+5043010,e,0,tp,0,0)
+end
+function c5043010.spfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c5043010.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c5043010.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE+LOCATION_EXTRA+LOCATION_REMOVED,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE+LOCATION_EXTRA+LOCATION_REMOVED)
+end
+function c5043010.spop(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,c5043010.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE+LOCATION_EXTRA+LOCATION_REMOVED,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

dc-srv5555/extra/special-12.6-HundredHomes/c6602300.lua

+--重爆撃禽 ボム・フェネクス
+function c6602300.initial_effect(c)
+	--fusion material
+	c:EnableReviveLimit()
+	aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),aux.FilterBoolFunction(Card.IsRace,RACE_PYRO),true)
+	--damage
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(6602300,0))
+	e2:SetCategory(CATEGORY_DAMAGE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetCost(c6602300.damcost)
+	e2:SetTarget(c6602300.damtg)
+	e2:SetOperation(c6602300.damop)
+	c:RegisterEffect(e2)
+end
+function c6602300.damcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_CANNOT_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	e:GetHandler():RegisterEffect(e1,true)
+end
+function c6602300.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local ct=Duel.GetFieldGroupCount(tp,0xc,0xc)
+	Duel.SetTargetPlayer(1-tp)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,ct*500)
+end
+function c6602300.damop(e,tp,eg,ep,ev,re,r,rp)
+	local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
+	local ct=Duel.GetFieldGroupCount(tp,0xc,0xc)
+	Duel.Damage(p,ct*500,REASON_EFFECT)
+end

dc-srv5555/extra/special-12.6-HundredHomes/c8491308.lua

+--閃刀姫－ハヤテ
+function c8491308.initial_effect(c)
+	c:SetSPSummonOnce(8491308)
+	c:EnableReviveLimit()
+	aux.AddLinkProcedure(c,c8491308.matfilter,1,1)
+	--direct attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_DIRECT_ATTACK)
+	c:RegisterEffect(e1)
+	--to grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(8491308,0))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_BATTLED)
+	e2:SetTarget(c8491308.tgtg)
+	e2:SetOperation(c8491308.tgop)
+	c:RegisterEffect(e2)
+end
+function c8491308.matfilter(c)
+	return c:IsLinkSetCard(0x1115) and not c:IsLinkAttribute(ATTRIBUTE_WIND)
+end
+function c8491308.tgfilter(c)
+	return c:IsAbleToGrave()
+end
+function c8491308.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c8491308.tgfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c8491308.tgop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c8491308.tgfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,2,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end

dc-srv5555/special-12.5-FireHappy.lua

+--村规决斗：火之高兴
+--所有怪兽得到以下效果：
+--这张卡召唤·特殊召唤成功的场合，
+--从卡组外将1张【火星】（76103675）加入对方墓地。
+--这个效果置于墓地的【火星】增加效果：
+--此类效果1回合只能使用1次。
+--这张卡在墓地的场合，自己结束阶段发动。给予对方自己墓地【火星】数量*200的伤害。
+
+CUNGUI = {}
+
+function Auxiliary.PreloadUds()
+	--adjust
+	local e1=Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetCode(EVENT_ADJUST)
+	e1:SetCountLimit(1)
+	e1:SetOperation(CUNGUI.AdjustOperation)
+	Duel.RegisterEffect(e1,0)
+end
+
+CUNGUI.RegisteredMonsters = Group.CreateGroup()
+
+function CUNGUI.AdjustOperation(e,tp,eg,ep,ev,re,r,rp)
+	local g = Duel.GetMatchingGroup(Card.IsType,0,LOCATION_DECK+LOCATION_HAND+LOCATION_EXTRA+LOCATION_MZONE,LOCATION_DECK+LOCATION_HAND+LOCATION_EXTRA+LOCATION_MZONE,nil,TYPE_MONSTER)
+	g:ForEach(CUNGUI.RegisterMonsterSpecialEffects)
+end
+
+function CUNGUI.RegisterMonsterSpecialEffects(c)
+	if CUNGUI.RegisteredMonsters:IsContains(c) then return end
+	CUNGUI.RegisteredMonsters:AddCard(c)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1)
+	e2:SetOperation(CUNGUI.thop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+end
+
+function CUNGUI.thop(e,tp,eg,ep,ev,re,r,rp)
+	local token=Duel.CreateToken(1-tp,76103675)
+	Duel.SendtoGrave(token,REASON_RULE)
+	local e1=Effect.CreateEffect(token)
+	e1:SetCategory(CATEGORY_DAMAGE)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetRange(LOCATION_GRAVE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCountLimit(1,76103675)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	e1:SetCondition(CUNGUI.dmgcon)
+	e1:SetTarget(CUNGUI.dmgtg)
+	e1:SetOperation(CUNGUI.dmgop)
+	token:RegisterEffect(e1)
+end
+function CUNGUI.dmgcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function CUNGUI.dmgfilter(c)
+	return c:IsFaceup() and c:IsCode(76103675)
+end
+function CUNGUI.dmgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local dmg=200*Duel.GetMatchingGroupCount(CUNGUI.dmgfilter,tp,LOCATION_GRAVE,0,nil)
+	Duel.SetTargetPlayer(1-tp)
+	Duel.SetTargetParam(dmg)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dmg)
+end
+function CUNGUI.dmgop(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	d=200*Duel.GetMatchingGroupCount(CUNGUI.dmgfilter,tp,LOCATION_GRAVE,0,nil)
+	Duel.Damage(p,d,REASON_EFFECT)
+end

dc-srv5555/special-12.6-HundredHomes.lua

+--村规决斗：百家争鸣
+--每个回合，回合玩家把手卡抽到6。
+--所有怪兽（因下列效果特殊召唤的怪兽除外）得到以下效果。
+--1回合1次，可以发动。这张卡里侧表示除外，从卡组外选以下1只随机怪兽，
+--攻击力/守备力变为和这张卡攻击力相同（离场再返场也不会失效），在自己场上特殊召唤。
+--这个效果特殊召唤的怪兽当作正规召唤使用，不受其他这个效果特殊召唤的怪兽的效果的影响。
+--万物创世龙（暗）；闪刀姬-飒天（风）；防火龙（光）；重爆击禽 炸弹不死魔鸟（火）；宝石骑士·斜绿（地）；半龙女仆·洗衣龙女（水）
+
+--半龙女仆·洗衣龙女追加效果：
+--这张卡不受其他卡的效果影响。只要这张卡在自己的怪兽区域表侧表示存在，自己即使基本分降为0也不会决斗败北。
+--（特殊胜利仍然还是会导致失败的）
+
+--闪刀姬-飒天修改效果：
+--②：这张卡进行战斗的伤害计算后才能发动。从卡组·额外卡组把1~2张卡送去墓地。
+
+--防火龙修改效果：
+--②：这张卡所连接区的怪兽被战斗破坏的场合或者被送去墓地的场合才能发动。从手卡·卡组·墓地·除外·额外卡组把1只怪兽特殊召唤。
+
+--重爆击禽 炸弹不死魔鸟修改效果：
+--每1张700分伤害。
+
+--宝石骑士·斜绿修改效果：
+--最多通常召唤100次。
+
+--万物创世龙修改效果：
+--攻击力固定为10000（大黑球优先级）（防御力不变）。
+
+CUNGUI = {}
+CUNGUI.SPList = {}
+CUNGUI.RegisteredMonsters = Group.CreateGroup()
+CUNGUI.CardList={10000,8491308,5043010,6602300,3113836,13171876}
+
+function Auxiliary.PreloadUds()
+	--adjust
+	local e1=Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetCode(EVENT_ADJUST)
+	e1:SetCountLimit(1)
+	e1:SetOperation(CUNGUI.AdjustOperation)
+	Duel.RegisterEffect(e1,0)
+end
+
+function CUNGUI.AdjustOperation()
+	local g = Duel.GetMatchingGroup(Card.IsType,0,LOCATION_DECK+LOCATION_HAND+LOCATION_EXTRA,LOCATION_DECK+LOCATION_HAND+LOCATION_EXTRA,nil,TYPE_MONSTER)
+	g:ForEach(CUNGUI.RegisterMonsterRuleEffects)
+end
+
+function CUNGUI.RegisterMonsterRuleEffects(c)
+	if CUNGUI.RegisteredMonsters:IsContains(c) then return end
+	CUNGUI.RegisteredMonsters:AddCard(c)
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetDescription(aux.Stringid(6625096,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTarget(CUNGUI.target1)
+	e1:SetOperation(CUNGUI.operation1)
+	c:RegisterEffect(e1)
+end
+function CUNGUI.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToRemove() and Duel.GetMZoneCount(tp,c)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,c,1,0,0)
+end
+function CUNGUI.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local atk=c:GetAttack()
+	local def=c:GetDefense()
+	if c:IsRelateToEffect(e) and Duel.Remove(c,POS_FACEDOWN,REASON_EFFECT) and Duel.GetMZoneCount(tp)>0 then
+		local dice=Duel.TossDice(tp,1)
+		local token = Duel.CreateToken(tp,CUNGUI.CardList[dice])
+		Duel.SpecialSummonStep(token,0,tp,tp,true,true,POS_FACEUP)
+		if dice > 1 then
+			local e1=Effect.CreateEffect(token)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_SET_ATTACK)
+			e1:SetValue(atk)
+			token:RegisterEffect(e1)
+			local e2=e1:Clone()
+			e2:SetCode(EFFECT_SET_DEFENSE)
+			e2:SetValue(def)
+			token:RegisterEffect(e2)
+		else
+			local e1=Effect.CreateEffect(token)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_SET_ATTACK)
+			e1:SetValue(10000)
+			token:RegisterEffect(e1)
+		end
+		token:CompleteProcedure()
+		local e3=Effect.CreateEffect(token)
+		e3:SetType(EFFECT_TYPE_SINGLE)
+		e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+		e3:SetCode(EFFECT_IMMUNE_EFFECT)
+		e3:SetRange(LOCATION_MZONE)
+		e3:SetValue(CUNGUI.efilter)
+		token:RegisterEffect(e3)
+		CUNGUI.RegisteredMonsters:AddCard(token)
+		CUNGUI.SPList[token]=true
+		Duel.SpecialSummonComplete()
+		token:CompleteProcedure()
+	end
+end
+function CUNGUI.efilter(e,te)
+	return CUNGUI.SPList[te:GetHandler()]
+end
\ No newline at end of file