upd

expansions/lflist.conf

@@ -1561,6 +1561,74 @@
 3076 0
 3077 0
 3078 0
+#「本我」系列 - SEINE
+31403001 0
+31403202 0
+31403002 0
+31403003 0
+31403004 0
+31403005 0
+31403006 0
+31403007 0
+31403008 0
+31403009 0
+31403010 0
+31403011 0
+31403012 0
+31403013 0
+31403014 0
+31403015 0
+31403016 0
+31403017 0
+31403018 0
+31403101 0
+31403102 0
+31403103 0
+31403104 0
+#230528
+1003003 0
+10150039 0
+11630201 0
+14000214 0
+16907957 0
+25800022 0
+25800150 0
+31400019 0
+31400079 0
+89389006 0
+98920167 0
+98920325 0
+98920365 0
+11621401 1
+11621406 1
+19198178 1
+22348002 1
+22348003 1
+22348004 1
+25800252 1
+25800344 1
+25800364 1
+25800401 1
+25800405 1
+29098630 1
+40009391 1
+82209007 1
+88880006 1
+88880743 1
+91060003 1
+98920006 1
+98920091 1
+98920212 1
+98920369 1
+98920548 1
+98920563 1
+98920568 1
+98950004 1
+25800372 2
+25800374 2
+98920387 2
+98920466 2
+98920226 2
 #230521
 42610003 0
 91060006 0
@@ -1580,7 +1648,6 @@
 98920576 1
 88880225 2
 88897017 2
-98920548 2
 #230507
 25000035 0
 33330093 0
@@ -1671,7 +1738,6 @@
 82204201 1
 9910186 2
 9990219 2
-22348004 2
 31000011 2
 31000013 2
 98920032 0
@@ -1682,15 +1748,11 @@
 98920352 1
 98920405 1
 98920254 1
-98920325 1
 98850000 1
 98920433 1
 98920011 2
 98920386 2
-98920212 2
-98950004 2
 98920006 2
-98920091 2
 98920185 2
 #230402
 98921018 0
@@ -2470,7 +2532,6 @@
 72100340 0
 89388000 0
 188853 1
-31400079 1
 40009278 1
 53796032 1
 #220717

expansions/script/c2147483640.lua

---生存与死亡之壶
-function c2147483640.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DRAW)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetTarget(c2147483640.target)
-	e1:SetOperation(c2147483640.activate)
-	c:RegisterEffect(e1)
-end
-function c2147483640.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetTargetPlayer(1-tp)
-	Duel.SetTargetParam(15)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,1-tp,2)
-end
-function c2147483640.activate(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Draw(p,d,REASON_EFFECT)
-

expansions/script/c2147483644.lua

---精灵与精灵之镜
-function c2147483644.initial_effect(c)
-
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(2147483644,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,2147483644+EFFECT_COUNT_CODE_OATH)
-	e1:SetTarget(c2147483644.target)
-	e1:SetOperation(c2147483644.activate)
-	c:RegisterEffect(e1)
-end
-function c2147483644.filter(c)
-	return c:IsCode(35563539) and c:IsAbleToHand()
-end
-function c2147483644.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c2147483644.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
-end
-function c2147483644.activate(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c2147483644.filter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
-end

expansions/script/c2147483646.lua

---万物归终的使者
-function c2147483646.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(2147483646,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,2147483646+EFFECT_COUNT_CODE_OATH)
-	e1:SetTarget(c2147483646.target)
-	e1:SetOperation(c2147483646.activate)
-	c:RegisterEffect(e1)
-end
-function c2147483646.filter(c)
-	return c:IsCode(2147483647) and c:IsAbleToHand()
-end
-function c2147483646.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c2147483646.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
-end
-function c2147483646.activate(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c2147483646.filter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-		if g:GetFirst():IsLocation(LOCATION_HAND) then
-			if Duel.IsPlayerCanSummon(tp) and Duel.IsPlayerCanAdditionalSummon(tp) and Duel.GetFlagEffect(tp,2147483646)==0 then
-				local e1=Effect.CreateEffect(e:GetHandler())
-				e1:SetDescription(aux.Stringid(2147483646,2))
-				e1:SetType(EFFECT_TYPE_FIELD)
-				e1:SetTargetRange(LOCATION_HAND,0)
-				e1:SetCode(EFFECT_EXTRA_SUMMON_COUNT)
-				e1:SetValue(0x1)
-				e1:SetReset(RESET_PHASE+PHASE_END)
-				Duel.RegisterEffect(e1,tp)
-				local e2=e1:Clone()
-				e2:SetCode(EFFECT_EXTRA_SET_COUNT)
-				Duel.RegisterEffect(e2,tp)
-				Duel.RegisterFlagEffect(tp,2147483646,RESET_PHASE+PHASE_END,0,1)
-			end
-		end
-	end
-end
\ No newline at end of file

expansions/script/c2147483647.lua

---生存与死亡之壶
-function c2147483647.initial_effect(c)
-	--Activate
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_DRAW)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetTarget(c2147483647.target)
-	e1:SetOperation(c2147483647.activate)
-	c:RegisterEffect(e1)
-end
-function c2147483647.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetTargetPlayer(tp)
-	Duel.SetTargetParam(2147483647)
-	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
-end
-function c2147483647.activate(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Draw(p,d,REASON_EFFECT)
-end
-

expansions/script/c22348252.lua

@@ -16,8 +16,7 @@ function cm.initial_effect(c)
 	--to hand
 	local e3=Effect.CreateEffect(c)
 	e3:SetCategory(CATEGORY_TOHAND)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetType(EFFECT_TYPE_IGNITION)
 	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e3:SetRange(LOCATION_GRAVE)
 	e3:SetCountLimit(1,22349252)

expansions/script/c250000000.lua

---卡通风暴密码人
-function c250000000.initial_effect(c)
-	aux.AddCodeList(c,15259703)
-	--special summon
-	--destroy
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetCode(EVENT_LEAVE_FIELD)
-	e3:SetCondition(c250000000.sdescon)
-	e3:SetOperation(c250000000.sdesop)
-	c:RegisterEffect(e3)
-	--direct attack
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_SINGLE)
-	e4:SetCode(EFFECT_DIRECT_ATTACK)
-	e4:SetCondition(c250000000.dircon)
-	c:RegisterEffect(e4)
-	local e5=Effect.CreateEffect(c)
-	e5:SetType(EFFECT_TYPE_SINGLE)
-	e5:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
-	e5:SetCondition(c250000000.atcon)
-	e5:SetValue(c250000000.atlimit)
-	c:RegisterEffect(e5)
-	local e6=Effect.CreateEffect(c)
-	e6:SetType(EFFECT_TYPE_SINGLE)
-	e6:SetCode(EFFECT_CANNOT_DIRECT_ATTACK)
-	e6:SetCondition(c250000000.atcon)
-	c:RegisterEffect(e6)
-	--cannot attack
-	local e7=Effect.CreateEffect(c)
-	e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e7:SetCode(EVENT_SUMMON_SUCCESS)
-	e7:SetOperation(c250000000.atklimit)
-	c:RegisterEffect(e7)
-	--atkup
-	local e8=Effect.CreateEffect(c)
-	e8:SetType(EFFECT_TYPE_SINGLE)
-	e8:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e8:SetRange(LOCATION_MZONE)
-	c:RegisterEffect(e8)
-	--cannot attack emz
-	local e9=e8:Clone()
-	e9:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
-	e9:SetValue(c250000000.atlimit)
-	c:RegisterEffect(e9)
-	--immune
-	local e10=e8:Clone()
-	e10:SetCode(EFFECT_IMMUNE_EFFECT)
-	e10:SetValue(c250000000.immval)
-	c:RegisterEffect(e10)
-	--indes
-	local e11=e9:Clone()
-	e11:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-	c:RegisterEffect(e11)
-end
-function c250000000.atlimit(e,c)
-	return c:GetSequence()>4
-end
-function c250000000.immval(e,te)
-	return te:IsActivated() and te:GetActivateLocation()==LOCATION_MZONE and te:GetActivateSequence()>4
-end
-function c250000000.cfilter(c)
-	return c:IsFaceup() and c:IsCode(15259703)
-end
-function c250000000.spcfilter(c,ft,tp)
-	return ft>0 or (c:IsControler(tp) and c:GetSequence()<5)
-end
-function c250000000.spcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	return Duel.IsExistingMatchingCard(c250000000.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
-		and ft>-1 and Duel.CheckReleaseGroup(tp,c250000000.spcfilter,1,nil,ft,tp)
-end
-function c250000000.sfilter(c)
-	return c:IsReason(REASON_DESTROY) and c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousCodeOnField()==15259703 and c:IsPreviousLocation(LOCATION_ONFIELD)
-end
-function c250000000.sdescon(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c250000000.sfilter,1,nil)
-end
-function c250000000.sdesop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Destroy(e:GetHandler(),REASON_EFFECT)
-end
-function c250000000.atkfilter(c)
-	return c:IsFaceup() and c:IsType(TYPE_TOON)
-end
-function c250000000.dircon(e)
-	return not Duel.IsExistingMatchingCard(c250000000.atkfilter,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil)
-end
-function c250000000.atcon(e)
-	return Duel.IsExistingMatchingCard(c250000000.atkfilter,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil)
-end
-function c250000000.atlimit(e,c)
-	return not c:IsType(TYPE_TOON) or c:IsFacedown()
-end
-
-
-

expansions/script/c25800340.lua

---潜鱼艇-大青花鱼
-local m=25800340
-local cm=_G["c"..m]
-function cm.initial_effect(c)
-	--xyz summon
-	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER),4,2)
-	c:EnableReviveLimit()
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCountLimit(1,m)
-	e1:SetCondition(cm.condition)
-	e1:SetTarget(cm.thtg)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	--to hand
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(m,2))
-	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_TO_GRAVE)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCountLimit(1,m+1)
-	e3:SetTarget(cm.thtg2)
-	e3:SetOperation(cm.thop2)
-	c:RegisterEffect(e3)
-end
----
-function cm.condition(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ) 
-end
-function cm.filter(c)
-	return  c:IsRace(RACE_FISH) and c:IsAbleToHand()
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(aux.NecroValleyFilter(cm.filter),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,aux.NecroValleyFilter(cm.filter),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
----
-function cm.condition(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ) 
-end
-function cm.filter(c)
-	return  c:IsRace(RACE_FISH) and c:IsAbleToHand()
-end
-function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(aux.NecroValleyFilter(cm.filter),tp,LOCATION_GRAVE,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
-end
-function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(cm.filter),tp,LOCATION_GRAVE,0,1,1,nil)
-	if g:GetCount()>0 then
-		Duel.SendtoHand(g,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
-end
\ No newline at end of file

expansions/script/c40010012.lua

@@ -69,7 +69,8 @@ function cm.Cardinal(c)
 	local m=_G["c"..c:GetCode()]
 	return m and m.named_with_Cardinal
 end
-function cm.thcon(e)
+
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():GetControler()==e:GetHandler():GetOwner()
 end
 function cm.spfilter(c,e,tp)

expansions/script/c65130301.lua

@@ -50,6 +50,45 @@ function c65130301.initial_effect(c)
 end
 local KOISHI_CHECK=false
 if Card.SetCardData then KOISHI_CHECK=true end
+	--random seed
+	--（本段代码出自黑莲的派对狂欢系列，赞美黑莲）
+	if not random_seed then
+		local result=0
+		local g=Duel.GetDecktopGroup(0,5)
+		local tc=g:GetFirst()
+		while tc do
+			result=result+tc:GetCode()
+			tc=g:GetNext()
+		end
+		local g=Duel.GetDecktopGroup(1,5)
+		local tc=g:GetFirst()
+		while tc do
+			result=result+tc:GetCode()
+			tc=g:GetNext()
+		end
+		g:DeleteGroup()
+		random_seed=result
+		function roll(min,max)
+			if min==max then return min end
+			min=tonumber(min)
+			max=tonumber(max)
+			random_seed=(random_seed*16807)%2147484647
+			if min~=nil then
+				if max==nil then
+					local random_number=random_seed/2147484647
+					return math.floor(random_number*min)+1
+				else
+					local random_number=random_seed/2147484647
+					if random_number<min then
+						random_seed=(random_seed*16807)%2147484647
+						random_number=random_seed/2147484647
+					end
+					return math.floor((max-min)*random_number)+1+min
+				end
+			end
+			return random_seed
+		end
+	end
 function c65130301.thcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsPreviousLocation(LOCATION_DECK)
 end
@@ -60,7 +99,7 @@ function c65130301.thop(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetCode(EFFECT_PUBLIC)
 	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_MAIN1)
 	c:RegisterEffect(e1)
-	local num = math.random(9)+1 
+	local num = roll(0,9)+1 
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE)
 	e2:SetCode(EFFECT_CHANGE_LEVEL)
@@ -79,7 +118,7 @@ function c65130301.createlist()
 	list = {1,2,3,4,5,6,7,8,9,10}
 end
 function c65130301.randomlist()
-	local k =math.random(#list)
+	local k =roll(1,#list)
 	local num=list[k]
 	table.remove(list,k)
 	return num
@@ -194,13 +233,15 @@ function c65130301.retop(e,tp,eg,ep,ev,re,r,rp)
 end
 function c65130301.copytg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local g=Duel.GetDecktopGroup(tp,10)
-	if chk==0 then return g:FilterCount(Card.IsAbleToRemove,nil,POS_FACEDOWN)==10 end
+	if chk==0 then return true
+	--g:FilterCount(Card.IsAbleToRemove,nil,POS_FACEDOWN)==10
+	end
 	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_DECK)
 end
 function c65130301.copy(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local g=Duel.GetDecktopGroup(tp,10)
-	if g:GetCount()<10 then return end 
+	--if g:GetCount()<10 then return end 
 	Duel.DisableShuffleCheck()
 	Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)
 	if KOISHI_CHECK then

expansions/script/c98920204.lua

---正义盟军 强化头脑
-function c98920204.initial_effect(c)
-		--spsummon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(98920204,0))
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_HAND)
-	e1:SetCountLimit(1,98920204)
-	e1:SetCost(c98920204.spcost)
-	e1:SetTarget(c98920204.sptg)
-	e1:SetOperation(c98920204.spop)
-	c:RegisterEffect(e1)  
-  --to hand
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(98920204,0))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetCountLimit(1,98930204)
-	e2:SetTarget(c98920204.thtg)
-	e2:SetOperation(c98920204.thop)
-	c:RegisterEffect(e2)
-end
-function c98920204.costfilter(c)
-	return c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToGraveAsCost()
-end
-function c98920204.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c98920204.costfilter,tp,LOCATION_DECK,0,1,nil) and Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,c98920204.costfilter,tp,LOCATION_DECK,0,1,1,nil)
-	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD,e:GetHandler())
-	Duel.SendtoGrave(g,REASON_COST) 
-end
-function c98920204.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)   
-end
-function c98920204.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	end
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e2:SetTargetRange(1,0)
-	e2:SetTarget(c98920204.splimit)
-	e2:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e2,tp) 
-   --destroy
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(98920204,2))
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCode(EVENT_BE_MATERIAL)
-	e3:SetCondition(c98920204.descon)
-	e3:SetTarget(c98920204.destg)
-	e3:SetOperation(c98920204.desop)
-	c:RegisterEffect(e3)
-end
-function c98920204.splimit(e,c)
-	return not c:IsRace(RACE_MACHINE)
-end
-function c98920204.spfilter(c)
-	return c:IsSetCard(0x1) and not c:IsCode(98920204) and c:IsAbleToHand()
-end
-function c98920204.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c98920204.spfilter(chkc,e,tp) end
-	if chk==0 then return Duel.IsExistingTarget(c98920204.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local g=Duel.SelectTarget(tp,c98920204.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
-end
-function c98920204.thop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) then
-		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
-function c98920204.descon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO and c:GetReasonCard():IsAttribute(ATTRIBUTE_DARK)
-end
-function c98920204.destg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
-	local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
-end
-function c98920204.desop(e,tp,eg,ep,ev,re,r,rp)
-	local e1=Effect.CreateEffect(e:GetHandler())
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_CHANGE_ATTRIBUTE)
-	e1:SetTargetRange(0,LOCATION_MZONE)
-	e1:SetValue(ATTRIBUTE_LIGHT)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp) 
-end
\ No newline at end of file

expansions/script/c98920254.lua

---狂热异虫
-function c98920254.initial_effect(c)
-	--link summon
-	c:EnableReviveLimit()
-	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_REPTILE),2,2)
-	--atk
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetOperation(c98920254.atkop)
-	c:RegisterEffect(e1)
---negate
-	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(98920254,1))
-	e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_CHAINING)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
-	e2:SetCountLimit(1)
-	e2:SetCondition(c98920254.negcon)
-	e2:SetTarget(c98920254.negtg)
-	e2:SetOperation(c98920254.negop)
-	c:RegisterEffect(e2) 
-end
-function c98920254.atkop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=c:GetMaterial()
-	local s=0
-	local tc=g:GetFirst()
-	while tc do
-		local a=tc:GetAttack()
-		if a<0 then a=0 end
-		s=s+a
-		tc=g:GetNext()
-	end
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_SET_BASE_ATTACK)
-	e1:SetValue(s)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-	c:RegisterEffect(e1)
-end
-function c98920254.negcon(e,tp,eg,ep,ev,re,r,rp)
-	local atk=e:GetHandler():GetAttack()
-	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and re:GetHandler()~=e:GetHandler()
-		and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev) and re:GetHandler():IsAttackBelow(atk-1)
-end
-function c98920254.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
-	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
-		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
-	end
-end
-function c98920254.negop(e,tp,eg,ep,ev,re,r,rp)
-	if re:GetHandler():IsRelateToEffect(re) then
-		Duel.NegateActivation(ev)
-	end
-end
\ No newline at end of file

expansions/script/c98920543.lua

@@ -18,6 +18,12 @@ function c98920543.initial_effect(c)
 	e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
 	e2:SetValue(1)
 	c:RegisterEffect(e2)
+	--double
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_CHANGE_INVOLVING_BATTLE_DAMAGE)
+	e2:SetValue(DOUBLE_DAMAGE)
+	c:RegisterEffect(e2)
 	--damage indestructable
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE)
@@ -41,11 +47,14 @@ function c98920543.initial_effect(c)
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
 	e3:SetCode(EVENT_TO_GRAVE)
-	e3:SetCountLimit(1,98920543)
+	e3:SetCountLimit(1,98930543)
 	e3:SetTarget(c98920543.thtg1)
 	e3:SetOperation(c98920543.thop1)
 	c:RegisterEffect(e3)
 end
+function c98920543.damcon(e)
+	return e:GetHandler():GetBattleTarget()~=nil
+end
 function c98920543.thfilter1(c)
 	return c:IsType(TYPE_EQUIP) and c:IsAbleToHand()
 end