+1

expansions/script/c12008023.lua

@@ -34,7 +34,7 @@ function c12008023.initial_effect(c)
 	c:RegisterEffect(e2)  
 end
 function c12008023.thfilter2(c)
-	return c:IsSetCard(0x1fb3) and c:IsAbleToHand() 
+	return c:IsSetCard(0x1fb3) and c:IsRace(RACE_SEASERPENT) and c:IsAbleToHand() 
 end
 function c12008023.sptg(e,tp,eg,ep,ev,re,r,rp,chk,mg)
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,nil) and Duel.IsExistingMatchingCard(c12008023.thfilter2,tp,LOCATION_DECK,0,1,nil) end

expansions/script/c12059001.lua

@@ -41,8 +41,11 @@ function cm.indop(e,tp,eg,ep,ev,re,r,rp)
 	e2:SetTarget(aux.TargetBoolFunction(Card.IsSummonType,SUMMON_TYPE_XYZ))
 	rc:RegisterEffect(e2,true)
 end
+function cm.filter(c)
+   return not c:IsLevel(4)
+end
 function cm.hspcon(e,c)
 	if c==nil then return true end
-	return not Duel.IsExistingMatchingCard(Card.IsLevel,tp,LOCATION_MZONE,0,1,1,nil,4) 
+	return not Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,1,1,nil) and Duel.IsExistingMatchingCard(Card.IsLevel,tp,LOCATION_MZONE,0,1,1,nil,4)
 		and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
 end
\ No newline at end of file

expansions/script/c16100002.lua

@@ -24,12 +24,11 @@ function c16100002.initial_effect(c)
 	local e4=Effect.CreateEffect(c)
 	e4:SetDescription(aux.Stringid(16100002,1))
 	e4:SetCategory(CATEGORY_TOHAND)
-	e4:SetType(EFFECT_TYPE_TRIGGER_O)
+	e4:SetType(EFFECT_TYPE_QUICK_O)
 	e4:SetCode(EVENT_CHAINING)
-	e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
 	e4:SetRange(LOCATION_MZONE)
 	e4:SetCountLimit(1)
-	e4:SetCondition(c16100002.chcon)
+	e4:SetTarget(c16100002.chtg)
 	e4:SetCost(c16100002.cost)
 	e4:SetOperation(c16100002.chop)
 	c:RegisterEffect(e4)
@@ -67,8 +66,8 @@ function c16100002.op(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 --
-function c16100002.chcon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(c16100002.thf,1-ep,LOCATION_DECK+LOCATION_HAND,0,1,nil)
+function c16100002.chtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,rp,LOCATION_DECK+LOCATION_HAND,0,1,nil) end
 end
 --
 function c16100002.cost(e,tp,eg,ep,ev,re,r,rp,chk)

expansions/script/c16100007.lua

@@ -5,7 +5,7 @@ function cm.initial_effect(c)
 	c:EnableCounterPermit(0xccf)
 	--Cannot to grave 
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringm(m,0))
+	e1:SetDescription(aux.Stringid(m,0))
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
@@ -16,7 +16,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 	--Recover
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringm(m,1))
+	e2:SetDescription(aux.Stringid(m,1))
 	e2:SetCategory(CATEGORY_RECOVER)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_TO_GRAVE)

expansions/script/c16100008.lua

@@ -54,11 +54,13 @@ function cm.initial_effect(c)
 	e5:SetType(EFFECT_TYPE_IGNITION)
 	e5:SetRange(LOCATION_FZONE)
 	e5:SetCategory(CATEGORY_LVCHANGE)
+	e5:SetCountLimit(2)
 	e5:SetTarget(cm.lvtg)
 	e5:SetOperation(cm.lvop)
 	c:RegisterEffect(e5) 
 end
 function cm.lvtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
 	local tt=c:GetCounter(0xccf)
 	if chk==0 then return Duel.IsExistingTarget(Card.IsLevelAbove,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,1) and tt>0 end
 	local t={}

expansions/script/c16100009.lua

@@ -5,7 +5,7 @@ function cm.initial_effect(c)
 	c:EnableCounterPermit(0xccf)
 	 --ac or sp
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(aux.Stringm(m,0))
+	e1:SetDescription(aux.Stringid(m,0))
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
 	e1:SetProperty(EFFECT_FLAG_DELAY)
@@ -16,7 +16,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 	--tohand
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringm(m,1))
+	e2:SetDescription(aux.Stringid(m,1))
 	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_RECOVER)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_TO_GRAVE)

expansions/script/c16100013.lua

@@ -15,7 +15,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 	--tohand
 	local e2=Effect.CreateEffect(c)
-	e2:SetDescription(aux.Stringm(m,0))
+	e2:SetDescription(aux.Stringid(m,0))
 	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_RECOVER)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetCode(EVENT_TO_GRAVE)

expansions/script/c16100021.lua

 local m=16100021
 local cm=_G["c"..m]
 function cm.initial_effect(c)
+	c:SetUniqueOnField(1,1,m)
 	c:EnableCounterPermit(0xccf)
 	--coin
 	aux.AddFusionProcFunRep(c,cm.fusfilter,2,true)
+	--
+	local e0=Effect.CreateEffect(c)
+	e0:SetCategory(CATEGORY_DESTROY)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e0:SetTarget(cm.destg)
+	e0:SetOperation(cm.desop)
+	c:RegisterEffect(e0)
 	--special summon condition
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
@@ -32,30 +41,40 @@ function cm.initial_effect(c)
 	e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
 	c:RegisterEffect(e3)
 	--
-	local e4=Effect.CreateEffect(c)
-	e4:SetCategory(CATEGORY_TOHAND)
-	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_QUICK_O)
-	e4:SetCode(EVENT_FREE_CHAIN)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCountLimit(1)
-	e4:SetDescription(aux.Stringid(m,1))
-	e4:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
+	local e5=Effect.CreateEffect(c)
+	e5:SetCategory(CATEGORY_TOHAND)
+	e5:SetType(EFFECT_TYPE_QUICK_O)
+	e5:SetCode(EVENT_FREE_CHAIN)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetCountLimit(1)
+	e5:SetDescription(aux.Stringid(m,1))
+	e5:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
 		if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_HAND,1,nil) end
 		local g=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,0,LOCATION_HAND,nil)
 		Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
 	end)
-	e4:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
+	e5:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
 		local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
 		if #g==0 then return end
 		Duel.ConfirmCards(tp,g)
-		if not g:IsExists(cm.thfilter,2,nil) then return end
+		if not g:IsExists(cm.thfilter,2,nil) then Duel.ShuffleHand(1-tp) return end
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
 		local sg=g:Select(tp,1,1,nil)
 		Duel.SendtoHand(sg,tp,REASON_EFFECT)
+		Duel.ShuffleHand(1-tp)
 	end)
-	c:RegisterEffect(e1)
+	c:RegisterEffect(e5)
 end
 --
+function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0,nil)
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	Duel.Destroy(g,REASON_EFFECT)
+end
 function cm.thfilter(c)
 	return c:IsSetCard(0xcc0)
 end

expansions/script/c16101149.lua

@@ -43,7 +43,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
 end
 
 function cm.tgfilter(c)
-	return c:IsAttackBelow(1700) and c:IsRace(RACE_WINDBEAST) and c:IsAbleToGrave()
+	return c:IsAttackAbove(1700) and c:IsRace(RACE_WINDBEAST) and c:IsAbleToGrave()
 end
 function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end

expansions/script/c33500611.lua

@@ -61,34 +61,34 @@ function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
 	if g:GetCount()>0 then
 		local sc=g:GetFirst()
 		while sc do
-			local e0=Effect.CreateEffect(c)
+			local e0=Effect.CreateEffect(e:GetHandler())
 			e0:SetType(EFFECT_TYPE_SINGLE)
 			e0:SetCode(EFFECT_PUBLIC)
 			e0:SetReset(RESET_PHASE+PHASE_END,1)
 			sc:RegisterEffect(e0)
- --		   local e1=Effect.CreateEffect(e:GetHandler())
- --		   e1:SetType(EFFECT_TYPE_SINGLE)
- --		   e1:SetCode(EFFECT_CANNOT_TRIGGER)
- --		   e1:SetReset(RESET_PHASE+PHASE_END,1)
- --		   sc:RegisterEffect(e1)
- --		   sc:RegisterFlagEffect(0,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,2))
- --		   local e5=Effect.CreateEffect(e:GetHandler())
- --		   e5:SetType(EFFECT_TYPE_FIELD)
- --		   e5:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
- --		   e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
- --		   e5:SetTargetRange(1,1)
- --		   e5:SetLabelObject(sc)
- --		   e5:SetTarget(cm.distg)
- --		   e5:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
- --		   Duel.RegisterEffect(e5,tp)
- --		   local e6=e5:Clone()
- --		   e6:SetCode(EFFECT_CANNOT_SUMMON)
- --		   Duel.RegisterEffect(e6,tp)
+ --		local e1=Effect.CreateEffect(e:GetHandler())
+ --		e1:SetType(EFFECT_TYPE_SINGLE)
+ --		e1:SetCode(EFFECT_CANNOT_TRIGGER)
+ --		e1:SetReset(RESET_PHASE+PHASE_END,1)
+ --		sc:RegisterEffect(e1)
+ --		sc:RegisterFlagEffect(0,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,2))
+ --		local e5=Effect.CreateEffect(e:GetHandler())
+ --		e5:SetType(EFFECT_TYPE_FIELD)
+ --		e5:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+ --		e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+ --		e5:SetTargetRange(1,1)
+ --		e5:SetLabelObject(sc)
+ --		e5:SetTarget(cm.distg)
+ --		e5:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+ --		Duel.RegisterEffect(e5,tp)
+ --		local e6=e5:Clone()
+ --		e6:SetCode(EFFECT_CANNOT_SUMMON)
+ --		Duel.RegisterEffect(e6,tp)
 		sc=g:GetNext()
 		end
 	end
 end
 --function cm.distg(e,c)
---	local sc=e:GetLabelObject()
---	return c:IsOriginalCodeRule(sc)
+--  local sc=e:GetLabelObject()
+--  return c:IsOriginalCodeRule(sc)
 --end
\ No newline at end of file