fix

c89091772.lua

---Superheavy Samurai Jisha-Q
+--超重武者ジシャ－Q
 function c89091772.initial_effect(c)
 	--spsummon
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringid(25259669,0))
+	e1:SetDescription(aux.Stringid(89091772,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_POSITION)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e1:SetCode(EVENT_SUMMON_SUCCESS)
@@ -27,20 +27,17 @@ function c89091772.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
 end
 function c89091772.sumop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
 	local c=e:GetHandler()
-	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local g=Duel.SelectMatchingCard(tp,c89091772.filter,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
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c89091772.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+	if g:GetCount()==0 then return end
+	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 	if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) then
 		Duel.BreakEffect()
 		Duel.ChangePosition(c,POS_FACEUP_DEFENCE)
 	end
 end
-
 function c89091772.atlimit(e,c)
 	return c~=e:GetHandler()
 end

c89113320.lua

---Performapal Big Bite Turtle
+--EMビッグバイトタートル
 function c89113320.initial_effect(c)
 	--pendulum summon
 	aux.AddPendulumProcedure(c)
@@ -7,38 +7,39 @@ function c89113320.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	c:RegisterEffect(e1)
+	--lv
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringid(83982270,0))
-	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e2:SetCode(EVENT_BATTLE_DESTROYED)
-	e2:SetCondition(c89113320.condition)
-	e2:SetTarget(c89113320.target)
-	e2:SetOperation(c89113320.operation)
+	e2:SetDescription(aux.Stringid(89113320,0))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_PZONE)
+	e2:SetCountLimit(1)
+	e2:SetTarget(c89113320.lvtg)
+	e2:SetOperation(c89113320.lvop)
 	c:RegisterEffect(e2)
-	--lv
+	--
 	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(84171830,0))
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_PZONE)
-	e3:SetCountLimit(1)
-	e3:SetTarget(c89113320.lvtg)
-	e3:SetOperation(c89113320.lvop)
+	e3:SetDescription(aux.Stringid(89113320,1))
+	e3:SetCategory(CATEGORY_DESTROY)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_BATTLE_DESTROYED)
+	e3:SetTarget(c89113320.target)
+	e3:SetOperation(c89113320.operation)
 	c:RegisterEffect(e3)
 end
 function c89113320.filter(c)
-	return c:IsSetCard(0x9f) or c:IsSetCard(0x99) and c:IsType(TYPE_MONSTER)
+	return (c:IsSetCard(0x9f) or c:IsSetCard(0x99)) and c:IsType(TYPE_MONSTER)
 end
 function c89113320.lvtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c89113320.filter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
 end
-function c89113320.afilter(c,code)
-	return c:IsCode(code)
-end
 function c89113320.lvop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	local tc=Duel.SelectMatchingCard(tp,c89113320.filter,tp,LOCATION_HAND,0,1,1,nil)
-	local hg=Duel.GetMatchingGroup(c89113320.afilter,tp,LOCATION_HAND,0,nil,tc:GetFirst():GetCode())
+	if not c:IsRelateToEffect(e) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local g=Duel.SelectMatchingCard(tp,c89113320.filter,tp,LOCATION_HAND,0,1,1,nil)
+	Duel.ConfirmCards(1-tp,g)
+	Duel.ShuffleHand(tp)
+	local hg=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_HAND,0,nil,g:GetFirst():GetCode())
 	local tc=hg:GetFirst()
 	while tc do
 		local e1=Effect.CreateEffect(c)
@@ -50,18 +51,14 @@ function c89113320.lvop(e,tp,eg,ep,ev,re,r,rp)
 		tc=hg:GetNext()
 	end
 end
-
-function c89113320.condition(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsReason(REASON_BATTLE)
-end
 function c89113320.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler():GetBattleTarget(),1,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
+	local bc=e:GetHandler():GetBattleTarget()
+	if chk==0 then return bc:IsRelateToBattle() and bc:IsDestructable() end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,bc,1,0,0)
 end
 function c89113320.operation(e,tp,eg,ep,ev,re,r,rp)
 	local bc=e:GetHandler():GetBattleTarget()
-	if bc:IsFaceup() and bc:IsRelateToBattle() and Duel.Destroy(bc,REASON_EFFECT)~=0 then
+	if bc:IsRelateToBattle() then
+		Duel.Destroy(bc,REASON_EFFECT)
 	end
 end

c89883517.lua

---False Accusations
+--濡れ衣
 function c89883517.initial_effect(c)
-	--BLock
+	--Activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,89883517+EFFECT_COUNT_CODE_OATH)
 	e1:SetCondition(c89883517.condition)
-	e1:SetCountLimit(1,89883517)
 	e1:SetTarget(c89883517.target)
-	e1:SetOperation(c89883517.operation)
+	e1:SetOperation(c89883517.activate)
 	c:RegisterEffect(e1)
 end
 function c89883517.condition(e,tp,eg,ep,ev,re,r,rp)
@@ -16,25 +16,29 @@ function c89883517.condition(e,tp,eg,ep,ev,re,r,rp)
 	local ct2=Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD+LOCATION_HAND)
 	return ct1<ct2
 end
-function c89883517.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	e:SetLabel(1)
+function c89883517.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end
 	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
-	local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
-	e:SetLabel(g:GetFirst():GetCode())
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
 end
-
 function c89883517.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if not tc:IsRelateToEffect(e) or tc:IsFacedown() then return end
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e1:SetCode(EFFECT_CANNOT_ACTIVATE)
 	e1:SetTargetRange(1,1)
 	e1:SetValue(c89883517.aclimit)
-	e1:SetLabel(e:GetLabel())
+	e1:SetLabel(tc:GetCode())
 	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(e:GetHandler())
+	e2:SetLabel(tc:GetFieldID())
+	Duel.RegisterEffect(e2,tp)
+	e1:SetLabelObject(e2)
 end
 function c89883517.aclimit(e,re,tp)
-	return re:GetHandler():IsCode(e:GetLabel()) and (not re:GetHandler():IsImmuneToEffect(e) or not re:GetHandler()==e:GetHandler())
+	local rc=re:GetHandler()
+	return rc:IsCode(e:GetLabel()) and (not rc:IsOnField() or rc:GetFieldID()~=e:GetLabelObject():GetLabel())
 end
-

c97466438.lua

---Yokoshimauma
+--ヨコシマウマ
 function c97466438.initial_effect(c)
 	--pendulum summon
 	aux.AddPendulumProcedure(c)
@@ -8,12 +8,12 @@ function c97466438.initial_effect(c)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetOperation(c97466438.regop)
 	c:RegisterEffect(e1)
+	--
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(97466438,0))
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_SUMMON_SUCCESS)
-	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
 	e2:SetTarget(c97466438.ztg)
 	e2:SetOperation(c97466438.zop2)
 	c:RegisterEffect(e2)
@@ -23,14 +23,15 @@ function c97466438.initial_effect(c)
 end
 function c97466438.regop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
 	--disable zone
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(97466438,1))
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_PZONE)
+	e1:SetCountLimit(1)
 	e1:SetTarget(c97466438.ztg)
 	e1:SetOperation(c97466438.zop)
-	e1:SetCountLimit(1)
 	e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
 	c:RegisterEffect(e1)
 end
@@ -41,26 +42,27 @@ function c97466438.ztg(e,tp,eg,ep,ev,re,r,rp,chk)
 	e:SetLabel(dis)
 end
 function c97466438.zop(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
-	local e1=Effect.CreateEffect(e:GetHandler())
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetRange(LOCATION_PZONE)
 	e1:SetCode(EFFECT_DISABLE_FIELD)
 	e1:SetOperation(c97466438.disop)
-	e1:SetReset(RESET_EVENT+0x1ff0000)
+	e1:SetReset(RESET_EVENT+0x1fe0000)
 	e1:SetLabel(e:GetLabel())
-	e:GetHandler():RegisterEffect(e1)
+	c:RegisterEffect(e1)
 end
 function c97466438.zop2(e,tp,eg,ep,ev,re,r,rp)
-	if not e:GetHandler():IsRelateToEffect(e) then return end
-	local e1=Effect.CreateEffect(e:GetHandler())
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCode(EFFECT_DISABLE_FIELD)
 	e1:SetOperation(c97466438.disop)
-	e1:SetReset(RESET_EVENT+0x1ff0000)
+	e1:SetReset(RESET_EVENT+0x1fe0000)
 	e1:SetLabel(e:GetLabel())
-	e:GetHandler():RegisterEffect(e1)
+	c:RegisterEffect(e1)
 end
 function c97466438.disop(e,tp)
 	return e:GetLabel()

c97588916.lua

---Deskbot 007
+--ブンボーグ007
 function c97588916.initial_effect(c)
 	--pendulum summon
 	aux.AddPendulumProcedure(c)
@@ -17,6 +17,7 @@ function c97588916.initial_effect(c)
 	e2:SetCondition(c97588916.splimcon)
 	e2:SetTarget(c97588916.splimit)
 	c:RegisterEffect(e2)
+	--
 	local e3=Effect.CreateEffect(c)
 	e3:SetType(EFFECT_TYPE_SINGLE)
 	e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
@@ -29,6 +30,7 @@ function c97588916.initial_effect(c)
 	e5:SetType(EFFECT_TYPE_SINGLE)
 	e5:SetCode(EFFECT_PIERCE)
 	c:RegisterEffect(e5)
+	--
 	local e6=Effect.CreateEffect(c)
 	e6:SetType(EFFECT_TYPE_FIELD)
 	e6:SetRange(LOCATION_MZONE)
@@ -46,8 +48,6 @@ end
 function c97588916.value(e,c)
 	return Duel.GetMatchingGroupCount(Card.IsSetCard,c:GetControler(),LOCATION_GRAVE,0,nil,0xab)*500
 end
-
-
 function c97588916.atlimit(e,c)
-	return c~=e:GetHandler() and c:IsSetCard(0xab)
+	return c:IsFaceup() and c:IsSetCard(0xab) and c~=e:GetHandler()
 end

c99423156.lua

---Chief Priest of Shiranui
---Scripted by Ragna_Edge
+--不知火の宮司
 function c99423156.initial_effect(c)
 	--special summon
 	local e1=Effect.CreateEffect(c)
@@ -10,19 +9,20 @@ function c99423156.initial_effect(c)
 	e1:SetTarget(c99423156.sumtg)
 	e1:SetOperation(c99423156.sumop)
 	c:RegisterEffect(e1)
+	--
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(99423156,1))
 	e2:SetCategory(CATEGORY_DESTROY)
-	e2:SetCountLimit(1,99423156)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_REMOVE)
 	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,99423156)
 	e2:SetTarget(c99423156.target)
 	e2:SetOperation(c99423156.operation)
 	c:RegisterEffect(e2)
 end
 function c99423156.spfilter(c,e,tp)
-	return c:GetCode()~=99423156 and c:IsSetCard(0xd7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+	return c:IsSetCard(0xd9) and not c:IsCode(99423156) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
 function c99423156.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
@@ -55,7 +55,7 @@ function c99423156.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 end
 function c99423156.operation(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+	if tc:IsRelateToEffect(e) then
 		Duel.Destroy(tc,REASON_EFFECT)
 	end
 end