Various script fixes/updates

- Blackfeather Darkrage Dragon: Sending the cards to the GY and increasing this card's ATK shouldn't happen at the same time.
- Crystron Entry: Shouldn't send a monster to GY if the target isn't face-up on the field anymore on resolution.
- EMERGENCY!: Should also check that you can Tribute in general.
- Dogmatika Punishment: Missing effect categories + general polishing.
- Flock Together: Wasn't checking for empty zones on resolution.
- Key Man the Key Warrior: Also check that the card using this effect has a Level + the Level change should go away if the card's effects are later negated.
- Konohanasakuya: Fixed an issue with target redirecting effects.
- Lockout Gardna: The battle protection should remain applied even if the card's effects are later negated + the 2nd effect should be OPC.
- Materiactor Meltdown: Shuffle the hand of the player that had a card added to their hand rather than always the one that activated this card's effect.
- Meklord Factory: Shouldn't be able to target a Spell/Trap + adding the card to the hand and destroying the other card shouldn't happen at the same time.
- Mementotlan Akihiron: Can use its effect during the Battle Phase as well.
- Mokey Mokey Smackdown: Should check the destroyed monster's Type on the field.
- Photon Lead: Wasn't checking that the monster can be Special Summoned in Attack Position.
- Prometheus, King of the Shadows: Should be negatable by "Ghost Belle & Haunted Mansion" + missing effect categories.
- Psi-Beast: Should banish even if this card isn't face-up on the field on resolution + the Level change should go away completely if its effects are later negated.
- Raging Cloudian: Shouldn't place a counter if you don't successfully Special Summon.
- Rank-Up-Magic Magical Force: Special Summoning the 1st monster and Special Summoning the 2nd monster shouldn't happen at the same time.
- Reboot: Should show the card to the opponent before shuffling it back into the Deck.
- Self-Mummification: Should also check that the monster can be sent to the GY.
- Other various small fixes and updates.

Author: pyrQ

official/c15103313.lua

@@ -2,8 +2,9 @@
 --Self-Mummification
 local s,id=GetID()
 function s.initial_effect(c)
-	--Activate
+	--Send 1 monster you control to the GY
 	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetCategory(CATEGORY_TOGRAVE)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
@@ -13,11 +14,11 @@ function s.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end
-	if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,0,1,nil) end
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsAbleToGrave() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToGrave,tp,LOCATION_MZONE,0,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0)
+	local g=Duel.SelectTarget(tp,Card.IsAbleToGrave,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,tp,0)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()

official/c18176525.lua

@@ -3,7 +3,7 @@
 --scripted by Naim
 local s,id=GetID()
 function s.initial_effect(c)
-	--Add to your hand 1 "Mitsurugi" card from your GY or that is banished
+	--Add to your hand 1 "Mitsurugi" Spell/Trap from your Deck to your hand
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)

official/c1965724.lua

@@ -3,44 +3,35 @@
 local s,id=GetID()
 function s.initial_effect(c)
 	--Activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e0)
+	--Register if a face-up Fairy monster you control is destroyed while you control "Mokey Mokey"
 	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_DESTROYED)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCondition(s.regcon)
+	e1:SetOperation(function(e) return e:GetHandler():RegisterFlagEffect(id,RESETS_STANDARD_PHASE_END,0,1) end)
 	c:RegisterEffect(e1)
-	--reg
+	--The ATK of each "Mokey Mokey" you control will become 3000
 	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SET_ATTACK)
 	e2:SetRange(LOCATION_SZONE)
-	e2:SetCode(EVENT_DESTROYED)
-	e2:SetCondition(s.regcon)
-	e2:SetOperation(s.regop)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetCondition(function(e) return e:GetHandler():HasFlagEffect(id) end)
+	e2:SetTarget(function(e,c) return c:IsCode(27288416) and c:IsFaceup() end)
+	e2:SetValue(3000)
 	c:RegisterEffect(e2)
-	--atk
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetCode(EFFECT_SET_ATTACK)
-	e3:SetRange(LOCATION_SZONE)
-	e3:SetTargetRange(LOCATION_MZONE,0)
-	e3:SetTarget(s.atktg)
-	e3:SetCondition(s.atkcon)
-	e3:SetValue(3000)
-	c:RegisterEffect(e3)
 end
-s.listed_names={27288416}
-function s.cfilter(c,tp)
-	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousPosition(POS_FACEUP)
-		and c:IsPreviousControler(tp) and c:IsRace(RACE_FAIRY)
+s.listed_names={27288416} --"Mokey Mokey"
+function s.regconfilter(c,tp)
+	return c:IsPreviousRaceOnField(RACE_FAIRY) and c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousPosition(POS_FACEUP)
+		and c:IsPreviousControler(tp)
 end
 function s.regcon(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():GetFlagEffect(id)==0 and eg:IsExists(s.cfilter,1,nil,tp)
+	return not e:GetHandler():HasFlagEffect(id) and eg:IsExists(s.regconfilter,1,nil,tp)
 		and Duel.IsExistingMatchingCard(aux.FaceupFilter(Card.IsCode,27288416),tp,LOCATION_MZONE,0,1,nil)
-end
-function s.regop(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():RegisterFlagEffect(id,RESETS_STANDARD_PHASE_END,0,1)
-end
-function s.atkcon(e)
-	return e:GetHandler():GetFlagEffect(id)~=0
-end
-function s.atktg(e,c)
-	return c:IsFaceup() and c:IsCode(27288416)
 end

official/c23168060.lua

@@ -2,24 +2,26 @@
 --Key Man the Key Warrior
 local s,id=GetID()
 function s.initial_effect(c)
-	--lv change
+	--Make this card Level 3 until the End Phase
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(id,0))
+	e1:SetCategory(CATEGORY_LVCHANGE)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCountLimit(1)
-	e1:SetCondition(s.condition)
-	e1:SetOperation(s.operation)
+	e1:SetCondition(s.lvcon)
+	e1:SetOperation(s.lvop)
 	c:RegisterEffect(e1)
 end
-function s.condition(e,tp,eg,ep,ev,re,r,rp)
-	return e:GetHandler():GetLevel()~=3
+function s.lvcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:HasLevel() and not c:IsLevel(3)
 end
-function s.operation(e,tp,eg,ep,ev,re,r,rp)
+function s.lvop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if c:IsRelateToEffect(e) and c:IsFaceup() then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		--This card becomes Level 3 until the End Phase
+		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_CHANGE_LEVEL)
 		e1:SetValue(3)

official/c23639291.lua

@@ -66,14 +66,15 @@ end
 function s.operation(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
 	if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) then
+		tc:AddCounter(COUNTER_FOG,1)
+		--It cannot be changed to Defense Position by card effects
 		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetDescription(aux.Stringid(id,0))
+		e1:SetDescription(aux.Stringid(id,1))
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
 		e1:SetCode(EFFECT_CANNOT_CHANGE_POS_E)
 		e1:SetReset(RESET_EVENT|RESETS_STANDARD)
 		tc:RegisterEffect(e1)
 	end
 	Duel.SpecialSummonComplete()
-	tc:AddCounter(COUNTER_FOG,1)
 end

official/c32044231.lua

@@ -49,6 +49,7 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	if not sc then return end
 	sc:SetMaterial(tc)
 	Duel.Overlay(sc,tc)
+	Duel.BreakEffect()
 	if Duel.SpecialSummonStep(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) then
 		sc:CompleteProcedure()
 		if Duel.SpecialSummonComplete()==0 or not (c:IsRelateToEffect(e) and c:IsCanBeXyzMaterial(sc,tp,REASON_EFFECT)) then return end

official/c35848254.lua

@@ -2,27 +2,29 @@
 --Photon Lead
 local s,id=GetID()
 function s.initial_effect(c)
-	--Activate
+	--Special Summon 1 Level 4 or lower LIGHT monster from your hand in face-up Attack Position
 	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMING_STANDBY_PHASE|TIMING_MAIN_END|TIMINGS_CHECK_MONSTER_E)
 	e1:SetTarget(s.target)
 	e1:SetOperation(s.activate)
 	c:RegisterEffect(e1)
 end
-function s.filter(c,e,tp)
-	return c:IsLevelBelow(4) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+function s.spfilter(c,e,tp)
+	return c:IsLevelBelow(4) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK)
 end
 function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end
+		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
 end
 function s.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,s.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
 	if #g>0 then
 		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_ATTACK)
 	end

official/c37310367.lua

@@ -2,86 +2,71 @@
 --Lockout Gardna
 local s,id=GetID()
 function s.initial_effect(c)
-	--Special summon itself from hand
+	--Special Summon this card from your hand in Attack Position, and if you do, it cannot be destroyed by battle this turn
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
 	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
 	e1:SetRange(LOCATION_HAND)
-	e1:SetCondition(s.spcon)
+	e1:SetCondition(function(e,tp) return Duel.GetAttacker():isControler(1-tp) and Duel.GetAttackTarget()==nil end)
 	e1:SetTarget(s.sptg)
 	e1:SetOperation(s.spop)
 	c:RegisterEffect(e1)
-	--Negate both 1 of your cyberse monsters and opponent's cards/effects
+	--Negate the effects of both your targeted Cyberse monster and that opponent's monster until the end of this turn
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(id,1))
 	e2:SetCategory(CATEGORY_DISABLE)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
 	e2:SetCode(EVENT_CHAINING)
 	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,0,EFFECT_COUNT_CODE_CHAIN)
 	e2:SetCondition(s.discon)
 	e2:SetTarget(s.distg)
 	e2:SetOperation(s.disop)
 	c:RegisterEffect(e2)
 end
-function s.spcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetAttacker():GetControler()~=tp and Duel.GetAttackTarget()==nil
-end
 function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 		and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,tp,0)
 end
 function s.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK)~=0 then
-		--Cannot be destroyed by battle
+	if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK)>0 then
+		--It cannot be destroyed by battle this turn
 		local e1=Effect.CreateEffect(c)
 		e1:SetDescription(3000)
-		e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
 		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CLIENT_HINT)
 		e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
 		e1:SetValue(1)
 		e1:SetReset(RESETS_STANDARD_PHASE_END)
 		c:RegisterEffect(e1)
 	end
 end
 function s.discon(e,tp,eg,ep,ev,re,r,rp)
-	if rp==tp or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
-	local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
-	if not g or #g~=1 then return false end
-	local tc=g:GetFirst()
+	if not (rp==1-tp and re:IsMonsterEffect() and re:GetHandler():IsLocation(LOCATION_MZONE) and re:IsHasProperty(EFFECT_FLAG_CARD_TARGET)) then return false end
+	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	if not (tg and #tg==1) then return false end
+	local tc=tg:GetFirst()
 	e:SetLabelObject(tc)
-	return re:IsMonsterEffect() and re:GetHandler():IsLocation(LOCATION_MZONE)
-		and tc:IsControler(tp) and tc:IsFaceup() and tc:IsRace(RACE_CYBERSE) and tc:IsLocation(LOCATION_MZONE)
+	return tc:IsRace(RACE_CYBERSE) and tc:IsControler(tp) and tc:IsFaceup() and tc:IsLocation(LOCATION_MZONE)
 end
 function s.distg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local tc=e:GetLabelObject()
 	if chk==0 then return true end
-	local g=Group.FromCards(tc,re:GetHandler())
-	Duel.SetTargetCard(g)
-	Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,2,0,0)
-end
-function s.disfilter(c,e)
-	return c:IsFaceup() and c:IsRelateToEffect(e)
+	local tc=e:GetLabelObject()
+	local tg=Group.FromCards(tc,re:GetHandler())
+	Duel.SetTargetCard(tg)
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,tg,2,tp,0)
 end
 function s.disop(e,tp,eg,ep,ev,re,r,rp)
+	local tg=Duel.GetTargetCards(e)
+	if #tg~=2 then return end
 	local c=e:GetHandler()
-	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(s.disfilter,nil,e)
-	local tc=g:GetFirst()
-	for tc in aux.Next(g) do
-		Duel.NegateRelatedChain(tc,RESET_TURN_SET)
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_DISABLE)
-		e1:SetReset(RESETS_STANDARD_PHASE_END)
-		tc:RegisterEffect(e1)
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetCode(EFFECT_DISABLE_EFFECT)
-		e2:SetReset(RESETS_STANDARD_PHASE_END)
-		tc:RegisterEffect(e2)
+	for tc in tg:Iter() do
+		--Negate their effects until the end of this turn
+		tc:NegateEffects(c,RESETS_STANDARD_PHASE_END)
 	end
 end

official/c38669664.lua

@@ -67,8 +67,9 @@ function s.excop(e,tp,eg,ep,ev,re,r,rp)
 		if #g>0 then
 			Duel.BreakEffect()
 			Duel.SendtoHand(g,nil,REASON_EFFECT)
-			Duel.ConfirmCards(1-tp,g)
-			Duel.ShuffleHand(tp)
+			local owner=g:GetFirst():GetControler()
+			Duel.ConfirmCards(1-owner,g)
+			Duel.ShuffleHand(owner)
 		end
 	end
 end

official/c46291010.lua

@@ -22,15 +22,14 @@ end
 function s.rmop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,s.rmfilter,tp,LOCATION_DECK,0,1,1,nil)
-	local tc=g:GetFirst()
-	if tc and c:IsRelateToEffect(e) and c:IsFaceup() then
-		Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
+	local sc=Duel.SelectMatchingCard(tp,s.rmfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
+	if sc and Duel.Remove(sc,POS_FACEUP,REASON_EFFECT)>0 and c:IsRelateToEffect(e) and c:IsFaceup() then
+		--This card's Level becomes the Level of that monster
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_CHANGE_LEVEL)
-		e1:SetValue(tc:GetLevel())
-		e1:SetReset(RESET_EVENT|RESETS_STANDARD)
+		e1:SetValue(sc:GetLevel())
+		e1:SetReset(RESET_EVENT|RESETS_STANDARD_DISABLE)
 		c:RegisterEffect(e1)
 	end
 end