Merge branch 'master' of https://github.com/purerosefallen/specials

doom-pot-nlose/c55144522.lua

+--強欲な壺
+function c55144522.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(c55144522.target)
+	e1:SetOperation(c55144522.activate)
+	c:RegisterEffect(e1)
+	if not c55144522.doom then
+		c55144522.doom=true
+		local e1=Effect.GlobalEffect()
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_ADJUST)
+		e1:SetOperation(function(e)
+			for tp=0,1 do
+				if Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_DECK,0,1,nil,55144522) then
+					Auxiliary.InitializeDoom(tp,10)
+				end
+			end
+			e:Reset()
+		end)
+		Duel.RegisterEffect(e1,0)
+	end
+end
+function c55144522.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(2)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
+end
+function c55144522.activate(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Draw(p,d,REASON_EFFECT)
+end
+
+function Auxiliary.DoomChance(p,DOOM_LEVEL)
+	return math.random()<=DOOM_LEVEL*0.1*p
+end
+function Auxiliary.DoomValue(p,DOOM_LEVEL)
+	if p<=0 then return p end
+	if DOOM_LEVEL==0 then return 0 end
+	return math.random(math.ceil(DOOM_LEVEL*0.1*p))
+end
+function Auxiliary.InitializeDoom(PLAYER_AI,DOOM_LEVEL)
+	local e1=Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetCode(EFFECT_DRAW_COUNT)
+	e1:SetValue(function(e)
+		return math.min(1+Auxiliary.DoomValue(5,DOOM_LEVEL),Duel.GetFieldGroupCount(0,LOCATION_DECK,0))
+	end)
+	Duel.RegisterEffect(e1,PLAYER_AI)
+	local e1=Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetCode(EFFECT_HAND_LIMIT)
+	e1:SetValue(100)
+	Duel.RegisterEffect(e1,PLAYER_AI)
+	local e1=Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetCode(EFFECT_SET_SUMMON_COUNT_LIMIT)
+	e1:SetValue(100)
+	Duel.RegisterEffect(e1,PLAYER_AI)
+	local e1=Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetCode(EFFECT_CANNOT_LOSE_KOISHI)
+	e1:SetValue(1)
+	Duel.RegisterEffect(e1,1-PLAYER_AI)
+	local e1=Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_PHASE_START+PHASE_DRAW)
+	e1:SetCountLimit(1)
+	e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
+		return Duel.GetTurnPlayer()==PLAYER_AI
+	end)
+	e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
+		if Duel.GetFieldGroupCount(PLAYER_AI,LOCATION_DECK,0)<=6 then
+			local g=Duel.GetFieldGroup(PLAYER_AI,LOCATION_GRAVE+LOCATION_REMOVED,0)
+			Duel.SendtoDeck(g,nil,2,REASON_RULE)
+			Duel.ShuffleDeck(PLAYER_AI)
+		end
+		Duel.Recover(PLAYER_AI,Auxiliary.DoomValue(2000,DOOM_LEVEL),REASON_RULE)
+		--[[local e1=Effect.GlobalEffect()
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetCode(EFFECT_SET_SUMMON_COUNT_LIMIT)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetTargetRange(1,0)
+		e1:SetValue(1+Auxiliary.DoomValue(10,DOOM_LEVEL))
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e1,0)]]
+	end)
+	Duel.RegisterEffect(e1,PLAYER_AI)
+	--if Duel.IsExistingMatchingCard(Card.IsCode,0,LOCATION_EXTRA,0,1,nil,48905153,59822133) then
+		--[[local e1=Effect.GlobalEffect()
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetTargetRange(1,0)
+		e1:SetCode(EFFECT_EXTRA_TOMAIN_KOISHI)
+		e1:SetValue(1)
+		Duel.RegisterEffect(e1,PLAYER_AI)]]
+	--end
+	local e3=Effect.GlobalEffect()
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
+	e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e3:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
+		local tc=Duel.GetAttacker()
+		return tc and tc:IsControler(PLAYER_AI)
+	end)
+	e3:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
+		local tc=Duel.GetAttacker()
+		if not tc then return end
+		local atk=tc:GetAttack()
+		if atk<=0 then return end
+		local e1=Effect.CreateEffect(tc)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL)
+		e1:SetValue(Auxiliary.DoomValue(atk,DOOM_LEVEL))
+		tc:RegisterEffect(e1,true)
+	end)
+	Duel.RegisterEffect(e3,PLAYER_AI)
+	--[[local reg=Card.RegisterEffect
+	Card.RegisterEffect=function(c,e,b)
+		if e:IsHasType(0x7f0) then
+			local con=e:GetCondition()
+			e:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
+				return not con or con(e,tp,eg,ep,ev,re,r,rp) or (tp==PLAYER_AI and Auxiliary.DoomChance(0.8,DOOM_LEVEL))
+			end)
+			local cost=e:GetCost()
+			e:SetCost(function(e,tp,eg,ep,ev,re,r,rp,chk)
+				if chk==0 then return not cost or cost(e,tp,eg,ep,ev,re,r,rp,0) or (tp==PLAYER_AI and Auxiliary.DoomChance(0.7,DOOM_LEVEL)) end
+				if cost and cost(e,tp,eg,ep,ev,re,r,rp,0) and not (tp==PLAYER_AI and Auxiliary.DoomChance(0.7,DOOM_LEVEL)) then
+					cost(e,tp,eg,ep,ev,re,r,rp,1)
+				end
+			end)
+		end
+		reg(c,e,b)
+	end]]
+	local lp=Duel.GetLP(PLAYER_AI)
+	Duel.SetLP(PLAYER_AI,lp*(1+DOOM_LEVEL*0.1))
+	Duel.Draw(PLAYER_AI,math.ceil(DOOM_LEVEL*0.5),REASON_RULE)
+end

nextneg/special.lua

+function Auxiliary.PreloadUds()
+	local e1=Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
+		return ep==tp
+	end)
+	e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
+		local c=re:GetHandler()
+		Duel.SetChainLimit(function(re,ep,tp)
+			return tp==ep
+		end)
+		for _,code in pairs({EFFECT_CANNOT_DISABLE, EFFECT_CANNOT_INACTIVATE, EFFECT_CANNOT_DISEFFECT}) do
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SET_AVAILABLE)
+			e2:SetCode(code)
+			e2:SetReset(RESET_CHAIN+RESET_EVENT+RESETS_STANDARD)
+			e2:SetValue(1)
+			c:RegisterEffect(e2,true)
+		end
+		e:Reset()
+	end)
+	Duel.RegisterEffect(e1,1)
+end

viewdeck-removal/special.lua

+function operate(tp)
+	local mg=Duel.GetFieldGroup(tp,0,LOCATION_DECK)
+	local eg=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA)
+	Duel.ConfirmCards(tp,mg)
+	Duel.Hint(tp,HINT_SELECTMSG,HINTMSG_OPPO)
+	local rg=mg:Select(tp,3,3,nil)
+	Duel.ConfirmCards(tp,eg)
+	if #eg>0 then
+		Duel.Hint(tp,HINT_SELECTMSG,HINTMSG_OPPO)
+		local rg2=eg:Select(tp,1,1,nil)
+		rg:Merge(rg2)
+	end
+	Duel.ShuffleDeck(1-tp)
+	Duel.ShuffleExtra(1-tp)
+	Duel.Exile(rg,REASON_RULE)
+	Duel.ShuffleDeck(1-tp)
+	Duel.ShuffleExtra(1-tp)
+end
+
+function inititialize()
+	operate(0)
+	operate(1)
+	Duel.Draw(0,5,REASON_RULE)
+	Duel.Draw(1,5,REASON_RULE)
+end
+
+function Auxiliary.PreloadUds()
+	-- one more draw
+	local e1=Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetCode(EVENT_ADJUST)
+	e1:SetOperation(function(e)
+		inititialize()
+		e:Reset()
+	end)
+	Duel.RegisterEffect(e1,0)
+end

viewdeck/special.lua

+function inititialize()
+	--Duel.Draw(1,1,REASON_RULE)
+	Duel.ConfirmCards(0,Duel.GetFieldGroup(0,0,LOCATION_EXTRA))
+	Duel.ConfirmCards(1,Duel.GetFieldGroup(1,0,LOCATION_EXTRA))
+	Duel.ConfirmCards(0,Duel.GetFieldGroup(0,0,LOCATION_DECK))
+	Duel.ConfirmCards(1,Duel.GetFieldGroup(1,0,LOCATION_DECK))
+	Duel.ShuffleDeck(0)
+	Duel.ShuffleDeck(1)
+	Duel.ShuffleExtra(0)
+	Duel.ShuffleExtra(1)
+end
+
+function Auxiliary.PreloadUds()
+	-- one more draw
+	local e1=Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetCode(EVENT_ADJUST)
+	e1:SetOperation(function(e)
+		inititialize()
+		e:Reset()
+	end)
+	Duel.RegisterEffect(e1,0)
+end