Add files via upload

f494a1b3 · gg123gg · GitHub · bfd4bf6d · f494a1b3 · f494a1b3
Commit f494a1b3 authored Feb 17, 2020 by gg123gg Committed by GitHub Feb 17, 2020
Hide whitespace changes
Inline Side-by-side

Showing with 168 additions and 150 deletions

expansions/script/c12026024.lua expansions/script/c12026024.lua +87 -87

expansions/script/c12026032.lua expansions/script/c12026032.lua +81 -63

No files found.
--- a/expansions/script/c12026024.lua
+++ b/expansions/script/c12026024.lua
 --化作机械的暗影 拉结尔
 function c12026024.initial_effect(c)
 	--Change effect to nothing
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(12026024,0))
 	e1:SetType(EFFECT_TYPE_QUICK_O)
 	e1:SetCode(EVENT_CHAINING)
 	e1:SetCountLimit(1,12026024+100)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetTarget(c12026024.target)
 	e1:SetOperation(c12026024.activate)
 	c:RegisterEffect(e1)
 	--special summon
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(12026024,2))
 	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetCode(EVENT_TO_HAND)
 	e2:SetCountLimit(1,12026024)
 	e2:SetCondition(c12026024.spcon)
 	e2:SetTarget(c12026024.sptg)
 	e2:SetOperation(c12026024.spop)
 	c:RegisterEffect(e2)
 end
 function c12026024.spcon(e,tp,eg,ep,ev,re,r,rp)
 	return not e:GetHandler():IsReason(REASON_DRAW)
 end
 function c12026024.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 c12026024.filter1(c,e,tp)
 	return ( c:IsSetCard(0x1fbd) or c:IsSetCard(0x1fb3) ) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
 function c12026024.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not c:IsRelateToEffect(e) then return end
 	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
 	Duel.BreakEffect()
 	if Duel.IsExistingMatchingCard(c12026024.filter1,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
 	   if Duel.SelectYesNo(tp,aux.Stringid(12026024,3)) then
 		   local g=Duel.SelectMatchingCard(tp,c12026024.filter1,tp,LOCATION_HAND,0,1,1,nil,e,tp)
 			   if g:GetCount()>0 then
 					  Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 			   end
 	   end
 	end
 end
 function c12026024.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
 	if chk==0 then
 		local tg=re:GetTarget()
 		local event=re:GetCode()
 		if event==EVENT_CHAINING then return
 		   not tg or tg(e,tp,eg,ep,ev,re,r,rp,0)
 		else		 
 		   local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(event,true)
 		   return not tg or tg(e,tp,teg,tep,tev,tre,tr,trp,0)
 		end
-		return re:GetHandler():IsRelateToEffect(re) and c:IsAbleToGrave() and eg:GetHandler():IsAbleToGrave() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		return re:GetHandler():IsRelateToEffect(re) and c:IsAbleToGrave() and not re:IsHasType(EFFECT_TYPE_ACTIVATE) and eg:GetHandler():IsAbleToGrave() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 	end
 	local event=re:GetCode()
 	e:SetLabelObject(re)
 	e:SetCategory(re:GetCategory())
 	e:SetProperty(re:GetProperty())
 	local tg=re:GetTarget()
 	if event==EVENT_CHAINING then
 	   if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end
 	else
 	   local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(event,true)
 	   if tg then tg(e,tp,teg,tep,tev,tre,tr,trp,1) end
 	end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
 end
 function c12026024.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not c:GetOriginalCode()==12026024 then return end
 	if not c:IsRelateToEffect(e) then return end
 	Duel.BreakEffect()
 	local c=e:GetHandler()
 	local te=e:GetLabelObject()
 	if not te then return end
 	local op=te:GetOperation()
 	if op then op(e,tp,eg,ep,ev,re,r,rp) end
-	Duel.SendtoGrave(c+eg:GetHandler(),REASON_EFFECT)
+	Duel.SendtoGrave(c+eg,REASON_EFFECT)
 end
\ No newline at end of file
--- a/expansions/script/c12026032.lua
+++ b/expansions/script/c12026032.lua
--三位一体的女神 拉结尔
+local m=12026032
-xpcall(function() require("expansions/script/c37564765") end,function() require("script/c37564765") end)
+local cm=_G["c"..m]
-function c12026032.initial_effect(c)
+--三位一体的女神 拉结尔
-	--synchro summon
+xpcall(function() require("expansions/script/c37564765") end,function() require("script/c37564765") end)
-	aux.AddSynchroProcedure2(c,nil,aux.NonTuner(nil))
+function cm.initial_effect(c)
-	c:EnableReviveLimit()
+	--synchro summon
-	--special summon rule
+	aux.AddSynchroProcedure2(c,nil,aux.NonTuner(nil))
-	local e1=Effect.CreateEffect(c)
+	c:EnableReviveLimit()
-	e1:SetType(EFFECT_TYPE_FIELD)
+	--special summon rule
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	local e1=Effect.CreateEffect(c)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetRange(LOCATION_EXTRA)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetCountLimit(1,12026032)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetCondition(c12026032.spcon)
+	e1:SetRange(LOCATION_EXTRA)
-	e1:SetOperation(c12026032.spop)
+	e1:SetCountLimit(1,m)
-	c:RegisterEffect(e1)
+	e1:SetCondition(cm.spcon)
-	--atk up
+	e1:SetOperation(cm.spop)
-	local e2=Effect.CreateEffect(c)
+	c:RegisterEffect(e1)
-	e2:SetDescription(aux.Stringid(12026020,1))
+	--atk up
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	local e2=Effect.CreateEffect(c)
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetDescription(aux.Stringid(12026020,1))
-	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetCountLimit(1,12026032+100)
+	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
-	e2:SetTarget(c12026020.rmtg)
+	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetOperation(c12026020.rmop)
+	e2:SetCountLimit(1,m+100)
-	c:RegisterEffect(e2)
+	e2:SetTarget(cm.thtg)
-	--leave field
+	e2:SetOperation(cm.thop)
-	local e2=Effect.CreateEffect(c)
+	c:RegisterEffect(e2)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	--leave field
-	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	local e2=Effect.CreateEffect(c)
-	e2:SetCode(EVENT_LEAVE_FIELD)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e2:SetOperation(c12026032.regop)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	c:RegisterEffect(e2)
+	e2:SetCode(EVENT_LEAVE_FIELD)
-end
+	e2:SetOperation(cm.regop)
-function c12026032.confilter(c,ec)
+	c:RegisterEffect(e2)
-	return c:IsCanBeSynchroMaterial(ec) and c:IsSetCard(0x1fbd) and c:IsFaceup() and c:IsAbleToGraveAsCost() and c:GetLevel()>0 and c:IsSummonableCard()
+end
-end
+function cm.confilter(c,ec)
-function c12026032.gcheck(g,tp,fc)
+	return c:IsCanBeSynchroMaterial(ec) and c:IsSetCard(0x1fbd) and c:IsFaceup() and c:IsAbleToGraveAsCost() and c:GetLevel()>0 and c:IsSummonableCard()
-	return Duel.GetLocationCountFromEx(tp,tp,g,fc)>0 and g:GetSum(Card.GetLevel)==3
+end
-end
+function cm.gcheck(g,tp,fc)
-function c12026032.spcon(e,c)
+	return Duel.GetLocationCountFromEx(tp,tp,g,fc)>0 and g:GetSum(Card.GetLevel)==3
-	if c==nil then return true end
+end
-	local tp=c:GetControler()
+function cm.spcon(e,c)
-	local mg=Duel.GetMatchingGroup(c12026032.confilter,tp,LOCATION_MZONE,0,nil,c)
+	if c==nil then return true end
-	return Senya.CheckGroup(mg,c12026032.gcheck,nil,1,4,tp,c)
+	local tp=c:GetControler()
-end
+	local mg=Duel.GetMatchingGroup(cm.confilter,tp,LOCATION_MZONE,0,nil,c)
-function c12026032.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	return Senya.CheckGroup(mg,cm.gcheck,nil,1,4,tp,c)
-	local mg=Duel.GetMatchingGroup(c12026032.confilter,tp,LOCATION_MZONE,0,nil,c)
+end
-	local g=Senya.SelectGroup(tp,HINTMSG_TOGRAVE,mg,c12026032.gcheck,nil,1,3,tp,c)
+function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
-	Duel.SendtoGrave(g,REASON_COST)
+	local mg=Duel.GetMatchingGroup(cm.confilter,tp,LOCATION_MZONE,0,nil,c)
-end
+	local g=Senya.SelectGroup(tp,HINTMSG_TOGRAVE,mg,cm.gcheck,nil,1,3,tp,c)
-function c12026032.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.SendtoGrave(g,REASON_COST)
-	local c=e:GetHandler()
+end
-	--
+function cm.thfilter(c,tp)
-	local e2=Effect.CreateEffect(c)
+	return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
-	e2:SetType(EFFECT_TYPE_FIELD)
+end
-	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	e2:SetCode(EFFECT_HAND_LIMIT)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.thfilter(chkc) end
-	e2:SetReset(RESET_PHASE+PHASE_END)
+	if chk==0 then return Duel.IsExistingTarget(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
-	e2:SetValue(99)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	e2:SetTargetRange(1,0)
+	local sg=Duel.SelectTarget(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
-	Duel.RegisterEffect(e2,tp)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,1,0,0)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+	end
+end
+function cm.regop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCode(EFFECT_HAND_LIMIT)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	e2:SetValue(99)
+	e2:SetTargetRange(1,0)
+	Duel.RegisterEffect(e2,tp)
 end
\ No newline at end of file