fix

expansions/script/c65131100.lua

@@ -6,6 +6,7 @@ function s.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_XMATERIAL+EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
 	e1:SetCode(EVENT_ADJUST)
+	e1:SetCondition(s.xcon)
 	e1:SetOperation(s.xop)
 	c:RegisterEffect(e1)
 	if not s.global_check then
@@ -86,6 +87,8 @@ function s.ChangeCard(card1,card2,seq)
 		Duel.DisableShuffleCheck()
 		card1:ReplaceEffect(code2,0,0)
 		card1:SetEntityCode(code2)
+		Duel.RaiseEvent(card1,EVENT_CUSTOM+65131100,Effect.GlobalEffect(),0,0,0,0)
+		Duel.RaiseSingleEvent(card1,EVENT_CUSTOM+65131100,Effect.GlobalEffect(),0,0,0,0)
 	end   
 	if card2:IsLocation(LOCATION_DECK) then
 		Duel.DisableShuffleCheck()
@@ -95,6 +98,8 @@ function s.ChangeCard(card1,card2,seq)
 		Duel.DisableShuffleCheck()
 		card2:ReplaceEffect(code1,0,0)
 		card2:SetEntityCode(code1)
+		Duel.RaiseEvent(card2,EVENT_CUSTOM+65131100,Effect.GlobalEffect(),0,0,0,0)
+		Duel.RaiseSingleEvent(card2,EVENT_CUSTOM+65131100,Effect.GlobalEffect(),0,0,0,0)
 	end  
 end
 function s.lostfilter(c)
@@ -125,6 +130,9 @@ function s.lostop(e,tp,eg,ep,ev,re,r,rp)
 	elseif not Islost1 and Islost2 then Duel.Win(0,0x0)
 	else Duel.Win(PLAYER_NONE,0x0) end
 end
+function s.xcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsLocation(LOCATION_ONFIELD)
+end
 function s.xop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_CARD,0,86541496)
 	local g=Duel.GetOverlayGroup(0,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)

expansions/script/c65131112.lua

@@ -32,7 +32,7 @@ function s.setop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.SelectMatchingCard(tp,s.setfilter,tp,LOCATION_HAND,0,1,1,nil)
 	if g:GetCount()>0 then
 		local dc=g:GetFirst()
-		if Duel.SSet(tp,dc,tp,false)==0 then return end		
+		if Duel.SSet(tp,dc,tp,false)==0 then return end	 
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetDescription(aux.Stringid(id,2))
@@ -86,5 +86,7 @@ function s.reop(e,tp,eg,ep,ev,re,r,rp)
 	local te=e:GetLabelObject()
 	local rc=te:GetHandler()
 	rc:CancelToGrave()
-	Duel.SendtoHand(rc,tp,REASON_EFFECT)
+	if Duel.SendtoHand(rc,tp,REASON_EFFECT)==0 then
+		rc:CancelToGrave(true)
+	end
 end
\ No newline at end of file

expansions/script/c65131118.lua

@@ -41,7 +41,7 @@ function s.checkop(e,tp,eg,ep,ev,re,r,rp)
 	end
 	local g=Duel.GetFieldGroup(0,0xff,0xff):Filter(s.checkfilter,nil)
 	for tc in aux.Next(g) do
-		tc:SetHint(CHINT_NUMBER,Duel.GetFlagEffect(c:GetControler(),id))
+		tc:SetHint(CHINT_NUMBER,Duel.GetFlagEffect(tc:GetControler(),id))
 	end
 end
 function s.filter(c,dam)