Update "Jinzo - Lord (Anime)"

- Is a full Nomi monster
- Script modernization update

Author: TheRazgriz

unofficial/c513000120.lua

@@ -1,108 +1,120 @@
---人造人間－サイコ・ロード
+--人造人間－サイコ・ロード (Anime)
+--Jinzo - Lord (Anime)
 local s,id=GetID()
 function s.initial_effect(c)
 	c:EnableReviveLimit()
-	--special summon
+	c:AddMustBeSpecialSummoned()
+	--Special Summon this card by sending 1 face-up "Jinzo" you control to the Graveyard
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_FIELD)
 	e2:SetCode(EFFECT_SPSUMMON_PROC)
 	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
 	e2:SetRange(LOCATION_HAND)
-	e2:SetCondition(s.spcon)
-	e2:SetTarget(s.sptg)
-	e2:SetOperation(s.spop)
+	e2:SetCondition(s.hspcon)
+	e2:SetTarget(s.hsptg)
+	e2:SetOperation(s.hspop)
 	c:RegisterEffect(e2)
-	--cannot trigger
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetCode(EFFECT_CANNOT_TRIGGER)
-	e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetTargetRange(0xa,0xa)
-	e3:SetTarget(aux.TargetBoolFunction(Card.IsTrap))
-	c:RegisterEffect(e3)
-	--disable
+	--Trap Cards cannot be activated and the effects of all Trap Cards on the field are negated.
+	local e3a=Effect.CreateEffect(c)
+	e3a:SetType(EFFECT_TYPE_FIELD)
+	e3a:SetCode(EFFECT_CANNOT_TRIGGER)
+	e3a:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e3a:SetRange(LOCATION_MZONE)
+	e3a:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
+	e3a:SetTarget(aux.TargetBoolFunction(Card.IsTrap))
+	c:RegisterEffect(e3a)
+	--Negate Trap Effects on the field
+	local e3b=Effect.CreateEffect(c)
+	e3b:SetType(EFFECT_TYPE_FIELD)
+	e3b:SetCode(EFFECT_DISABLE)
+	e3b:SetRange(LOCATION_MZONE)
+	e3b:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE)
+	e3b:SetTarget(aux.TargetBoolFunction(Card.IsTrap))
+	c:RegisterEffect(e3b)
+	local e3c=Effect.CreateEffect(c)
+	e3c:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3c:SetCode(EVENT_CHAIN_SOLVING)
+	e3c:SetRange(LOCATION_MZONE)
+	e3c:SetOperation(s.disop)
+	c:RegisterEffect(e3c)
+	--Negate Trap Monsters and their effects
+	local e3d=Effect.CreateEffect(c)
+	e3d:SetType(EFFECT_TYPE_FIELD)
+	e3d:SetCode(EFFECT_DISABLE_TRAPMONSTER)
+	e3d:SetRange(LOCATION_MZONE)
+	e3d:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e3d:SetTarget(aux.TargetBoolFunction(Card.IsTrap))
+	c:RegisterEffect(e3d)
+	--Once per turn: You can destroy as many face-up Traps on the field as possible, and if you do, inflict 300 damage to your opponent for each card destroyed.
 	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_FIELD)
-	e4:SetCode(EFFECT_DISABLE)
+	e4:SetDescription(aux.Stringid(id,0))
+	e4:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
+	e4:SetType(EFFECT_TYPE_IGNITION)
 	e4:SetRange(LOCATION_MZONE)
-	e4:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE)
-	e4:SetTarget(aux.TargetBoolFunction(Card.IsTrap))
+	e4:SetCountLimit(1)
+	e4:SetTarget(s.destg)
+	e4:SetOperation(s.desop)
 	c:RegisterEffect(e4)
-	--disable effect
-	local e5=Effect.CreateEffect(c)
-	e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e5:SetCode(EVENT_CHAIN_SOLVING)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetOperation(s.disop)
-	c:RegisterEffect(e5)
-	--disable trap monster
-	local e6=Effect.CreateEffect(c)
-	e6:SetType(EFFECT_TYPE_FIELD)
-	e6:SetCode(EFFECT_DISABLE_TRAPMONSTER)
-	e6:SetRange(LOCATION_MZONE)
-	e6:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
-	e6:SetTarget(aux.TargetBoolFunction(Card.IsTrap))
-	c:RegisterEffect(e6)
-	--destroy
-	local e7=Effect.CreateEffect(c)
-	e7:SetDescription(aux.Stringid(35803249,0))
-	e7:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
-	e7:SetType(EFFECT_TYPE_IGNITION)
-	e7:SetRange(LOCATION_MZONE)
-	e7:SetCountLimit(1)
-	e7:SetTarget(s.destg)
-	e7:SetOperation(s.desop)
-	c:RegisterEffect(e7)
-end
-s.listed_names={77585513}
-function s.disop(e,tp,eg,ep,ev,re,r,rp)
-	local tl=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
-	if tl==LOCATION_SZONE and re:IsActiveType(TYPE_TRAP) then
-		Duel.NegateEffect(ev)
-	end
+	-- Once per turn: You can look at all cards in your opponent's hand and Spell & Trap Card Zones, and if there are any Trap Cards among them, you can destroy those Trap Cards. Inflict 300 damage to your opponent for each card destroyed by this effect.
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(35803249,0))
+	e4:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
+	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCountLimit(1)
+	e4:SetTarget(s.destg)
+	e4:SetOperation(s.desop)
+	c:RegisterEffect(e4)
+	--Double Snare validity check
+	aux.DoubleSnareValidity(c,LOCATION_MZONE)
 end
-function s.spfilter(c,tp)
-	return c:IsFaceup() and c:IsCode(77585513) and c:IsAbleToGraveAsCost()
+s.listed_names={CARD_JINZO}
+function s.hspfilter(c)
+	return c:IsFaceup() and c:IsCode(CARD_JINZO) and c:IsAbleToGraveAsCost()
 end
-function s.spcon(e,c)
+function s.hspcon(e,c)
 	if c==nil then return true end
 	local tp=c:GetControler()
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	local rg=Duel.GetMatchingGroup(s.spfilter,tp,LOCATION_MZONE,0,nil)
-	return ft>-1 and #rg>0 and aux.SelectUnselectGroup(rg,e,tp,1,1,nil,0)
+	local rg=Duel.GetMatchingGroup(s.hspfilter,tp,LOCATION_MZONE,0,nil)
+	return #rg>0 and aux.SelectUnselectGroup(rg,e,tp,1,1,aux.ChkfMMZ(1),0)
 end
-function s.sptg(e,tp,eg,ep,ev,re,r,rp,c)
+function s.hsptg(e,tp,eg,ep,ev,re,r,rp,c)
 	local c=e:GetHandler()
 	local g=nil
-	local rg=Duel.GetMatchingGroup(s.spfilter,tp,LOCATION_MZONE,0,nil)
-	local g=aux.SelectUnselectGroup(rg,e,tp,1,1,nil,1,tp,HINTMSG_TOGRAVE,nil,nil,true)
+	local rg=Duel.GetMatchingGroup(s.hspfilter,tp,LOCATION_MZONE,0,nil)
+	local g=aux.SelectUnselectGroup(rg,e,tp,1,1,aux.ChkfMMZ(1),1,tp,HINTMSG_TOGRAVE,nil,nil,true)
 	if #g>0 then
 		g:KeepAlive()
 		e:SetLabelObject(g)
 		return true
 	end
 	return false
 end
-function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
+function s.hspop(e,tp,eg,ep,ev,re,r,rp,c)
 	local g=e:GetLabelObject()
 	if not g then return end
 	Duel.SendtoGrave(g,REASON_COST)
 	g:DeleteGroup()
 end
+function s.disop(e,tp,eg,ep,ev,re,r,rp)
+	local tl=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
+	if tl==LOCATION_SZONE and re:IsTrapEffect() then
+		Duel.NegateEffect(ev)
+	end
+end
 function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_SZONE|LOCATION_HAND,1,nil) end
 	local sg=Duel.GetMatchingGroup(Card.IsTrap,tp,0,LOCATION_SZONE|LOCATION_HAND,nil)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,#sg,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,#sg*300)
 end
 function s.desop(e,tp,eg,ep,ev,re,r,rp)
-	local g1=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
-	local g2=Duel.GetMatchingGroup(Card.IsFacedown,tp,0,LOCATION_SZONE,nil)
-	g1:Merge(g2)
-	Duel.ConfirmCards(tp,g1)
+	local hg=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
+	local sg=Duel.GetMatchingGroup(Card.IsFacedown,tp,0,LOCATION_SZONE,nil)
+	hg:Merge(sg)
+	Duel.ConfirmCards(tp,hg)
 	Duel.ShuffleHand(1-tp)
-	local sg=Duel.GetMatchingGroup(Card.IsTrap,tp,0,LOCATION_SZONE|LOCATION_HAND,nil)
-	local ct=Duel.Destroy(sg,REASON_EFFECT)
+	local dg=hg:Filter(Card.IsTrap,nil)
+	local ct=Duel.Destroy(dg,REASON_EFFECT)
 	Duel.Damage(1-tp,ct*300,REASON_EFFECT)
-end
+end