fix

expansions/script/c14001557.lua

@@ -74,7 +74,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 				Duel.HintSelection(mat1)
 				Duel.ConfirmCards(1-tp,mat1)
 				Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-				Duel.ShuffleHand()
+				Duel.ShuffleHand(tp)
 			else
 				Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
 			end

expansions/script/c65130420.lua

@@ -19,105 +19,92 @@ function s.initial_effect(c)
 		end
 		function aux.IsCodeListed(c,code)
 			return false
-		end		
+		end
+		function Duel.Win(p,r)
+		
+		end
 	end
 end
 function s.changecode(tc)
 	--local cid=tc:GetOriginalCode()
 	local cid=0
 	local Type=tc:GetOriginalType()
-	if Type&TYPE_MONSTER>0 then				
-		local Lv=tc:GetOriginalLevel()
-		local Rk=tc:GetOriginalRank()
-		local Att=tc:GetOriginalAttribute()
-		local Atk=tc:GetBaseAttack()
-		local Def=tc:GetBaseDefense()
-		local Race=tc:GetOriginalRace()
-		local Lsc=tc:GetOriginalLeftScale()
-		local Rsc=tc:GetOriginalRightScale()
-		local Lkml = {0x001,0x002,0x004,0x008,0x020,0x040,0x080,0x100}
-		local Lkm =0
-		for k,v in ipairs(Lkml) do
-			if tc:IsLinkMarker(v) then 
-				Lkm=Lkm+v
-			end
-		end
+	if Type&TYPE_MONSTER>0 then		  
 		if Type&TYPE_NORMAL>0 then cid=id+1 end
-		if Type&TYPE_LINK>0 then cid=id+10+tc:GetLink() end		--
+		if Type&TYPE_LINK>0 then cid=id+10+tc:GetLink() end  --
 		if Type&TYPE_SYNCHRO>0 then cid=id+3 end
 		if Type&TYPE_XYZ>0 then cid=id+5 end
 		if Type&TYPE_RITUAL>0 then cid=id+7 end
 		if Type&TYPE_FUSION>0 then cid=id+9 end
 		if Type&TYPE_PENDULUM>0 then cid=cid+1 end
 		if cid>id+39 or cid<id+1 then cid=id+1 end
-		if Type&TYPE_TOKEN>0 then cid=id+39 end		
-		tc:SetEntityCode(cid,true)
-		s.changemonster(tc,Type,Lkm,Lv,Rk,Att,Atk,Def,Race,Lsc,Rsc)
+		if Type&TYPE_TOKEN>0 then cid=id+39 end  
+		tc:SetCardData(CARDDATA_CODE,cid)
 	else 
 		if Type&TYPE_SPELL>0 then
-			tc:SetEntityCode(id+20,true)
-			if Type&TYPE_QUICKPLAY>0 then tc:SetEntityCode(id+21,true) end
-			if Type&TYPE_CONTINUOUS>0 then tc:SetEntityCode(id+22,true) end
-			if Type&TYPE_EQUIP>0 then tc:SetEntityCode(id+23,true) end
-			if Type&TYPE_FIELD>0 then tc:SetEntityCode(id+24,true) end
-			if Type&TYPE_RITUAL>0 then tc:SetEntityCode(id+25,true) end
+			tc:SetCardData(CARDDATA_CODE,id+20)
+			if Type&TYPE_QUICKPLAY>0 then tc:SetCardData(CARDDATA_CODE,id+21) end
+			if Type&TYPE_CONTINUOUS>0 then tc:SetCardData(CARDDATA_CODE,id+22) end
+			if Type&TYPE_EQUIP>0 then tc:SetCardData(CARDDATA_CODE,id+23) end
+			if Type&TYPE_FIELD>0 then tc:SetCardData(CARDDATA_CODE,id+24) end
+			if Type&TYPE_RITUAL>0 then tc:SetCardData(CARDDATA_CODE,id+25) end
 		else 
 			if Type&TYPE_TRAP>0 then
-				tc:SetEntityCode(id+30,true)
-				if Type&TYPE_CONTINUOUS>0 then tc:SetEntityCode(id+31,true) end
-				if Type&TYPE_COUNTER>0 then tc:SetEntityCode(id+32,true) end
+				tc:SetCardData(CARDDATA_CODE,id+30)
+				if Type&TYPE_CONTINUOUS>0 then tc:SetCardData(CARDDATA_CODE,id+31) end
+				if Type&TYPE_COUNTER>0 then tc:SetCardData(CARDDATA_CODE,id+32) end
 			end
 		end
 	end
 end
-function s.changemonster(c,Type,Lkm,Lv,Rk,Att,Atk,Def,Race,Lsc,Rsc)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_SET_BASE_ATTACK)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
-	e1:SetRange(0xff)
-	e1:SetValue(Atk)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EFFECT_SET_BASE_DEFENSE)
-	e2:SetValue(Def)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE)
-	e3:SetCode(EFFECT_CHANGE_TYPE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
-	e3:SetValue(Type)
-	e3:SetReset(0)
-	c:RegisterEffect(e3)	
-	local e4=e1:Clone()
-	e4:SetCode(EFFECT_CHANGE_LINK_MARKER_KOISHI)
-	e4:SetValue(Lkm)
-	c:RegisterEffect(e4)  
-	local e5=e1:Clone()
-	e5:SetCode(EFFECT_CHANGE_LEVEL)
-	e5:SetValue(Lv)
-	c:RegisterEffect(e5)
-	local e6=e1:Clone()
-	e6:SetCode(EFFECT_CHANGE_RANK)
-	e6:SetValue(Rk)
-	c:RegisterEffect(e6)
-	local e7=e1:Clone()
-	e7:SetCode(EFFECT_CHANGE_ATTRIBUTE)
-	e7:SetValue(Att)
-	c:RegisterEffect(e7)
-	local e8=e1:Clone()
-	e8:SetCode(EFFECT_CHANGE_RACE)
-	e8:SetValue(Race)
-	c:RegisterEffect(e8)
-	local e9=e1:Clone()
-	e9:SetCode(EFFECT_CHANGE_LSCALE)
-	e9:SetValue(Lsc)
-	c:RegisterEffect(e9)
-	local e10=e1:Clone()
-	e10:SetCode(EFFECT_CHANGE_RSCALE)
-	e10:SetValue(Rsc)
-	c:RegisterEffect(e10)
-end
+--function s.changemonster(c,Type,Lkm,Lv,Rk,Att,Atk,Def,Race,Lsc,Rsc)
+--	local e1=Effect.CreateEffect(c)
+--	e1:SetType(EFFECT_TYPE_SINGLE)
+--	e1:SetCode(EFFECT_SET_BASE_ATTACK)
+--	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
+--	e1:SetRange(0xff)
+--	e1:SetValue(Atk)
+--	c:RegisterEffect(e1)
+--	local e2=e1:Clone()
+--	e2:SetCode(EFFECT_SET_BASE_DEFENSE)
+--	e2:SetValue(Def)
+--	c:RegisterEffect(e2)
+--	local e3=Effect.CreateEffect(c)
+--	e3:SetType(EFFECT_TYPE_SINGLE)
+--	e3:SetCode(EFFECT_CHANGE_TYPE)
+--	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
+--	e3:SetValue(Type)
+--	e3:SetReset(0)
+--	c:RegisterEffect(e3)	
+--	local e4=e1:Clone()
+--	e4:SetCode(EFFECT_CHANGE_LINK_MARKER_KOISHI)
+--	e4:SetValue(Lkm)
+--	c:RegisterEffect(e4)  
+--	local e5=e1:Clone()
+--	e5:SetCode(EFFECT_CHANGE_LEVEL)
+--	e5:SetValue(Lv)
+--	c:RegisterEffect(e5)
+--	local e6=e1:Clone()
+--	e6:SetCode(EFFECT_CHANGE_RANK)
+--   e6:SetValue(Rk)
+--	c:RegisterEffect(e6)
+--	local e7=e1:Clone()
+--	e7:SetCode(EFFECT_CHANGE_ATTRIBUTE)
+--	e7:SetValue(Att)
+--	c:RegisterEffect(e7)
+--	local e8=e1:Clone()
+--	e8:SetCode(EFFECT_CHANGE_RACE)
+--   e8:SetValue(Race)
+--	c:RegisterEffect(e8)
+--	local e9=e1:Clone()
+--	e9:SetCode(EFFECT_CHANGE_LSCALE)
+--	e9:SetValue(Lsc)
+--	c:RegisterEffect(e9)
+--	local e10=e1:Clone()
+--	e10:SetCode(EFFECT_CHANGE_RSCALE)
+--	e10:SetValue(Rsc)
+--	c:RegisterEffect(e10)
+--end
 function s.op(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_CARD,tp,id)
 	Duel.Hint(HINT_CARD,1-tp,id)
@@ -133,7 +120,12 @@ function s.op(e,tp,eg,ep,ev,re,r,rp)
 		Duel.SendtoDeck(rg,nil,SEQ_DECKSHUFFLE,REASON_RULE)
 	end
 	function Card.SetEntityCode(c,bool)
-		
+
+	end
+	_SetCardData=Card.SetCardData
+	function Card.SetCardData(c,type,value)
+		if type==CARDDATA_CODE then return end
+		_SetCardData(c,type,value)
 	end
 	_Hint=Duel.Hint
 	function Duel.Hint(ht,p,desc)

expansions/script/c98920008.lua

@@ -33,7 +33,7 @@ function c98920008.slevel(e,c)
 	return 4*65536+lv
 end
 function c98920008.cfilter(c)
-	return c:IsRace(RACE_REPTILE) and c:IsAbleToGraveAsCost()
+	return c:IsRace(RACE_REPTILE) and c:IsReleasable()
 end
 function c98920008.dspcon(e,c)
 	if c==nil then return true end