init

special-fh-20201208.lua

+--FH special
+function Auxiliary.PreloadUds()
+	--adjust
+	local e1=Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetCode(EVENT_ADJUST)
+	e1:SetOperation(aux.AdjustOperation)
+	Duel.RegisterEffect(e1,0)
+end
+function aux.AdjustOperation(e,tp,eg,ep,ev,re,r,rp)
+	local e1 = Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetOperation(aux.LPDecrease)
+	Duel.RegisterEffect(e1,0)
+	--atk up
+	local e2= Effect.GlobalEffect()
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_UPDATE_ATTACK)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetTarget(aux.AtkUpFilter)
+	e2:SetValue(2000)
+	Duel.RegisterEffect(e2,0)
+	e:Reset()
+end
+function aux.LPDecrease(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetActivityCount(rp,ACTIVITY_SPSUMMON)>2 then
+		local lp = Duel.GetLP(rp)-800
+		if lp < 0 then lp = 0 end
+		Duel.SetLP(rp,lp)
+	end
+end
+function aux.AtkUpFilter(e,c)
+	local code = c:GetOriginalCode()
+	return code == 69884162 or code == 40044918 or code == 71564252 or code == 48092532 or code == 83986578
+end
\ No newline at end of file

special-minus.lua

+--player can set own LP at duel start
+function aux.PreloadUds()
+	--adjust
+	local e1=Effect.GlobalEffect()
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e1:SetCode(EVENT_ADJUST)
+	e1:SetOperation(aux.AdjustOperation)
+	Duel.RegisterEffect(e1,0)
+end
+
+function aux.AdjustOperation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.DisableActionCheck(true)
+	local i = 1
+	local lp = Duel.GetLP(0)
+	while i > 0 do
+		i = Duel.AnnounceNumber(0,0,100,200,300,400,500,600,700,800,900,1000,1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300,3400,3500,3600,3700,3800,3900,4000,4100,4200,4300,4400,4500,4600,4700,4800,4900,5000,5100,5200,5300,5400,5500,5600,5700,5800,5900,6000,6100,6200,6300,6400,6500,6600,6700,6800,6900,7000,7100,7200,7300,7400,7500,7600,7700,7800,7900,8000,8100,8200,8300,8400,8500,8600,8700,8800,8900,9000,9100,9200,9300,9400,9500,9600,9700,9800,9900,10000,10100,10200,10300,10400,10500,10600,10700,10800,10900,11000,11100,11200,11300,11400,11500,11600,11700,11800,11900,12000,12100,12200,12300,12400,12500,12600,12700,12800,12900,13000,13100,13200,13300,13400,13500,13600,13700,13800,13900,14000,14100,14200,14300,14400,14500,14600,14700,14800,14900,15000,15100,15200,15300,15400,15500,15600,15700,15800,15900,16000,16100,16200,16300,16400,16500,16600,16700,16800,16900,17000,17100,17200,17300,17400,17500,17600,17700,17800,17900,18000,18100,18200,18300,18400,18500,18600,18700,18800,18900,19000,19100,19200,19300,19400,19500,19600,19700,19800,19900,20000)
+		lp = lp - i
+		Duel.SetLP(0,lp)
+	end
+	i = 1
+	lp = Duel.GetLP(1)
+
+	while i > 0 do
+		i = Duel.AnnounceNumber(1,0,100,200,300,400,500,600,700,800,900,1000,1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300,3400,3500,3600,3700,3800,3900,4000,4100,4200,4300,4400,4500,4600,4700,4800,4900,5000,5100,5200,5300,5400,5500,5600,5700,5800,5900,6000,6100,6200,6300,6400,6500,6600,6700,6800,6900,7000,7100,7200,7300,7400,7500,7600,7700,7800,7900,8000,8100,8200,8300,8400,8500,8600,8700,8800,8900,9000,9100,9200,9300,9400,9500,9600,9700,9800,9900,10000,10100,10200,10300,10400,10500,10600,10700,10800,10900,11000,11100,11200,11300,11400,11500,11600,11700,11800,11900,12000,12100,12200,12300,12400,12500,12600,12700,12800,12900,13000,13100,13200,13300,13400,13500,13600,13700,13800,13900,14000,14100,14200,14300,14400,14500,14600,14700,14800,14900,15000,15100,15200,15300,15400,15500,15600,15700,15800,15900,16000,16100,16200,16300,16400,16500,16600,16700,16800,16900,17000,17100,17200,17300,17400,17500,17600,17700,17800,17900,18000,18100,18200,18300,18400,18500,18600,18700,18800,18900,19000,19100,19200,19300,19400,19500,19600,19700,19800,19900,20000)
+		lp = lp - i
+		Duel.SetLP(1,lp)
+	end
+	Duel.DisableActionCheck(false)
+	e:Reset()
+end
\ No newline at end of file