Unofficial script fixes

- Automatic Gearspring Machine: Also check that a Gearspring Counter(s) can be placed on this card + raise the event only after successfully placing a counter(s).
- Gearspring Catapult: Also check that a Gearspring Counter can be placed on this card + raise the event only after successfully placing a counter.
- Gearspring Spirit (Anime): Shouldn't be able to select a monster with 0 ATK.
- Red Soul: Should only reduce the battle damage from battles involving the targeted monster. Shouldn't be usable in the Damage Step. Fixed the hint used when selecting cards to send to the GY.

Author: pyrQ

unofficial/c511002723.lua

@@ -4,68 +4,68 @@ local s,id=GetID()
 function s.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
-	e1:SetHintTiming(TIMING_DAMAGE_STEP)
 	e1:SetCost(s.cost)
 	e1:SetTarget(s.target)
 	e1:SetOperation(s.activate)
 	c:RegisterEffect(e1)
 end
-function s.cfilter(c)
-	return c:IsMonster() and c:IsAbleToGraveAsCost()
-end
 function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	e:SetLabel(1)
-	if chk==0 then return true end
+	e:SetLabel(-100)
+	if chk==0 then return Duel.IsExistingMatchingCard(aux.AND(Card.IsMonster,Card.IsAbleToGraveAsCost),tp,LOCATION_HAND,0,2,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,aux.AND(Card.IsMonster,Card.IsAbleToGraveAsCost),tp,LOCATION_HAND,0,2,2,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+	e:SetLabel(g:GetSum(Card.GetAttack))
 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
-		if e:GetLabel()~=1 then return false end
+		local res=e:GetLabel()==-100
 		e:SetLabel(0)
-		return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND,0,2,nil) 
-			and Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,0,1,nil)
+		return res and Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,0,1,nil)
 	end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_HAND,0,2,2,nil)
-	local sum=g:GetSum(Card.GetAttack)
-	Duel.SendtoGrave(g,REASON_COST)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-	Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,0,1,1,nil)
-	Duel.SetTargetParam(sum)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_APPLYTO)
+	Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
-	if tc and tc:IsRelateToEffect(e) then
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_FIELD)
-		e1:SetCode(EFFECT_CHANGE_DAMAGE)
-		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-		e1:SetTargetRange(1,0)
-		e1:SetValue(s.damval)
-		e1:SetLabel(Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM))
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		Duel.RegisterEffect(e1,tp)
-		local e2=Effect.CreateEffect(e:GetHandler())
-		e2:SetType(EFFECT_TYPE_SINGLE)
-		e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
-		e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
-		e2:SetValue(1)
-		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	if tc:IsRelateToEffect(e) then
+		local c=e:GetHandler()
+		--It cannot be destroyed by battle or card effects until the end of this turn
+		local e1=Effect.CreateEffect(c)
+		e1:SetDescription(aux.Stringid(id,1))
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
+		e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+		e1:SetValue(1)
+		e1:SetReset(RESETS_STANDARD_PHASE_END)
+		tc:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
 		tc:RegisterEffect(e2)
-		local e3=e2:Clone()
-		e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+		--Reduce the battle damage you would take by the combined ATK of the monsters sent to the GY to activate this card
+		local e3=Effect.CreateEffect(c)
+		e3:SetType(EFFECT_TYPE_FIELD)
+		e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e3:SetCode(EFFECT_CHANGE_DAMAGE)
+		e3:SetRange(LOCATION_MZONE)
+		e3:SetTargetRange(1,0)
+		e3:SetValue(s.damval)
+		e3:SetLabel(e:GetLabel())
+		e3:SetReset(RESETS_STANDARD_PHASE_END)
 		tc:RegisterEffect(e3)
 	end
 end
 function s.damval(e,re,val,r,rp,rc)
-	local dam=val-e:GetLabel()
-	if dam>=0 then
+	if r&REASON_BATTLE>0 then
+		local dam=val-e:GetLabel()
+		if dam<0 then dam=0 end
 		return dam
 	else
-		return 0
+		return val
 	end
-end
+end

unofficial/c511002903.lua

@@ -1,24 +1,22 @@
---ネジマキのカタパルト
 --Gearspring Catapult
-local GEARSPRING_COUNTER=0x107
 local s,id=GetID()
 function s.initial_effect(c)
-	c:EnableCounterPermit(GEARSPRING_COUNTER)
+	c:EnableCounterPermit(0x107)
 	--Activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	c:RegisterEffect(e1)
-	--During each of your Standby Phases, place 1 Gearspring Counter on this card
+	--add counter
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e2:SetRange(LOCATION_SZONE)
 	e2:SetCountLimit(1)
 	e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
-	e2:SetCondition(function(e,tp) return Duel.GetTurnPlayer()==tp end)
+	e2:SetCondition(s.ctcon)
 	e2:SetOperation(s.ctop)
 	c:RegisterEffect(e2)
-	--Make 1 monster you control gain 500 ATK 
+	--gain atk
 	local e3=Effect.CreateEffect(c)
 	e3:SetDescription(aux.Stringid(id,0))
 	e3:SetCategory(CATEGORY_ATKCHANGE)
@@ -30,14 +28,17 @@ function s.initial_effect(c)
 	e3:SetOperation(s.atkop)
 	c:RegisterEffect(e3)
 end
+function s.ctcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
 function s.ctop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	c:AddCounter(GEARSPRING_COUNTER,1)
-	Duel.RaiseEvent(c,511002905,e,REASON_EFFECT,tp,tp,GEARSPRING_COUNTER)
+	c:AddCounter(0x107,1)
+	Duel.RaiseEvent(c,511002905,e,REASON_EFFECT,tp,tp,0x107)
 end
 function s.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,GEARSPRING_COUNTER,1,REASON_COST) end
-	e:GetHandler():RemoveCounter(tp,GEARSPRING_COUNTER,1,REASON_COST)
+	if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x107,1,REASON_COST) end
+	e:GetHandler():RemoveCounter(tp,0x107,1,REASON_COST)
 end
 function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() and chkc:IsControler(tp) end
@@ -51,7 +52,7 @@ function s.atkop(e,tp,eg,ep,ev,re,r,rp)
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetReset(RESETS_STANDARD_PHASE_END)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
 		e1:SetValue(500)
 		tc:RegisterEffect(e1)
 	end

unofficial/c511002904.lua

@@ -1,9 +1,7 @@
---自動ネジマキ機
 --Automatic Gearspring Machine
-local GEARSPRING_COUNTER=0x107
 local s,id=GetID()
 function s.initial_effect(c)
-	c:EnableCounterPermit(GEARSPRING_COUNTER)
+	c:EnableCounterPermit(0x107)
 	--Activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_COUNTER)
@@ -12,65 +10,68 @@ function s.initial_effect(c)
 	e1:SetTarget(s.target)
 	e1:SetOperation(s.activate)
 	c:RegisterEffect(e1)
-	--During each of your Standby Phases, place 1 Gearspring Counter on this card
+	--add counter
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(id,1))
 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
 	e2:SetRange(LOCATION_SZONE)
 	e2:SetCountLimit(1)
-	e2:SetCondition(function(e,tp) return Duel.GetTurnPlayer()==tp end)
+	e2:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e2:SetCondition(s.ctcon)
 	e2:SetOperation(s.ctop)
 	c:RegisterEffect(e2)
-	--Place Gearspring Counters on another card
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(id,1))
-	e3:SetCategory(CATEGORY_COUNTER)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_SZONE)
-	e3:SetCost(s.plcost)
-	e3:SetTarget(s.pltg)
-	e3:SetOperation(s.plop)
-	c:RegisterEffect(e3)
+	--place
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_COUNTER)
+	e4:SetDescription(aux.Stringid(47408488,1))
+	e4:SetType(EFFECT_TYPE_IGNITION)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetCost(s.plcost)
+	e4:SetTarget(s.pltg)
+	e4:SetOperation(s.plop)
+	c:RegisterEffect(e4)
 end
 function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,GEARSPRING_COUNTER)
+	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x107)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if c:IsRelateToEffect(e) then
-		c:AddCounter(GEARSPRING_COUNTER,2)
-		Duel.RaiseEvent(c,511002905,e,REASON_EFFECT,tp,tp,GEARSPRING_COUNTER)
+		c:AddCounter(0x107,2)
+		Duel.RaiseEvent(c,id+1,e,REASON_EFFECT,tp,tp,0x107)
 	end
 end
+function s.ctcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
 function s.ctop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	c:AddCounter(GEARSPRING_COUNTER,1)
-	Duel.RaiseEvent(c,511002905,e,REASON_EFFECT,tp,tp,GEARSPRING_COUNTER)
+	c:AddCounter(0x107,1)
+	Duel.RaiseSingleEvent(c,id+1,e,0,0,tp,0)
 end
 function s.plcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
-	e:SetLabel(e:GetHandler():GetCounter(GEARSPRING_COUNTER))
+	e:SetLabel(e:GetHandler():GetCounter(0x107))
 	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
 end
 function s.pltg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	local ct=c:GetCounter(GEARSPRING_COUNTER)
-	if chk==0 then return ct>0 and Duel.IsExistingMatchingCard(Card.IsCanAddCounter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c,GEARSPRING_COUNTER,ct)
+	if chk==0 then
+		local c=e:GetHandler()
+		local ct=c:GetCounter(0x107)
+		return ct>0 and Duel.IsExistingMatchingCard(Card.IsCanAddCounter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c,0x107,ct)
 	end
 	Duel.SetTargetParam(e:GetLabel())
 	e:SetLabel(0)
-	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,ct,0,GEARSPRING_COUNTER)
+	Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,ct,0,0x107)
 end
 function s.plop(e,tp,eg,ep,ev,re,r,rp)
 	local ct=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COUNTER)
-	local g=Duel.SelectMatchingCard(tp,Card.IsCanAddCounter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,GEARSPRING_COUNTER,ct)
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(73853830,1))
+	local g=Duel.SelectMatchingCard(tp,Card.IsCanAddCounter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,0x107,ct)
 	local tc=g:GetFirst()
 	if tc then
-		Duel.HintSelection(g,true)
-		tc:AddCounter(GEARSPRING_COUNTER,ct)
-		Duel.RaiseEvent(c,511002905,e,REASON_EFFECT,tp,tp,GEARSPRING_COUNTER)
+		Duel.HintSelection(g)
+		tc:AddCounter(0x107,ct)
+		Duel.RaiseEvent(tc,id+1,e,REASON_EFFECT,tp,tp,0x107)
 	end
 end

unofficial/c511002905.lua

@@ -1,28 +1,31 @@
+--ネジマキの爆弾
 --Gearspring Exploder
 local s,id=GetID()
+local COUNTER_GEARSPRING=0x107
 function s.initial_effect(c)
-	--activate
+	--Inflict 800 damage to your opponent for each Gearspring Counter on your side of the field
 	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetCategory(CATEGORY_DAMAGE)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(id)
-	e1:SetCondition(s.condition)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EVENT_CUSTOM+id)
+	e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp) return Duel.IsTurnPlayer(tp) and eg:IsExists(Card.IsControler,1,nil,tp) end)
 	e1:SetTarget(s.target)
 	e1:SetOperation(s.activate)
 	c:RegisterEffect(e1)
 end
-function s.condition(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(Card.IsControler,1,nil,tp) and Duel.GetTurnPlayer()==tp
-end
+s.counter_list={COUNTER_GEARSPRING}
 function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local ct=Duel.GetCounter(tp,1,0,0x107)
+	local ct=Duel.GetCounter(tp,1,0,COUNTER_GEARSPRING)
 	if chk==0 then return ct>0 end
 	Duel.SetTargetPlayer(1-tp)
-	Duel.SetTargetParam(ct*800)
 	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,ct*800)
 end
 function s.activate(e,tp,eg,ep,ev,re,r,rp)
-	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
-	Duel.Damage(p,Duel.GetCounter(tp,1,0,0x107)*800,REASON_EFFECT)
-end
+	local ct=Duel.GetCounter(tp,1,0,COUNTER_GEARSPRING)
+	if ct>0 then
+		local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
+		Duel.Damage(p,ct*800,REASON_EFFECT)
+	end
+end

unofficial/c511002906.lua

@@ -1,47 +1,48 @@
---ネジマキシキガミ
+--ネジマキシキガミ (Anime)
+--Gearspring Spirit (Anime)
 local s,id=GetID()
+local COUNTER_GEARSPRING=0x107
 function s.initial_effect(c)
-	--special summon
+	--You can Special Summon this card (from your hand) by removing 3 Gearspring Counters from your side of the field
 	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
 	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
 	e1:SetRange(LOCATION_HAND)
 	e1:SetCondition(s.spcon)
-	e1:SetOperation(s.spop)
+	e1:SetOperation(function(e,tp) Duel.RemoveCounter(tp,1,0,COUNTER_GEARSPRING,3,REASON_COST) end)
 	c:RegisterEffect(e1)
-	--0 atk
+	--ake the ATK of 1 face-up monster your opponent controls 0 until the End Phase
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(2137678,0))
+	e2:SetDescription(aux.Stringid(id,1))
 	e2:SetCategory(CATEGORY_ATKCHANGE)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetRange(LOCATION_MZONE)
 	e2:SetCountLimit(1)
-	e2:SetTarget(s.target)
-	e2:SetOperation(s.operation)
+	e2:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(Card.HasNonZeroAttack,tp,0,LOCATION_MZONE,1,nil) end end)
+	e2:SetOperation(s.atkop)
 	c:RegisterEffect(e2)
 end
+s.counter_list={COUNTER_GEARSPRING}
 function s.spcon(e,c)
 	if c==nil then return true end
-	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and Duel.IsCanRemoveCounter(c:GetControler(),1,0,0x107,3,REASON_COST)
-end
-function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
-	Duel.RemoveCounter(tp,1,0,0x107,3,REASON_RULE)
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsCanRemoveCounter(tp,1,0,COUNTER_GEARSPRING,3,REASON_COST)
 end
-function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
-end
-function s.operation(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
-	local g=Duel.SelectMatchingCard(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.HintSelection(g)
+function s.atkop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATKDEF)
+	local sc=Duel.SelectMatchingCard(tp,Card.HasNonZeroAttack,tp,0,LOCATION_MZONE,1,1,nil):GetFirst()
+	if sc then
+		Duel.HintSelection(sc)
+		--Its ATK becomes 0 until the end of the turn
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
 		e1:SetValue(0)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1)
+		e1:SetReset(RESETS_STANDARD_PHASE_END)
+		sc:RegisterEffect(e1)
 	end
-end
+end