Commit 06a8a0f8 authored by Nemo Ma's avatar Nemo Ma

fix

parent e1ac32cb
This diff is collapsed.
--Real Scl Version - Variable
local Version_Number=200119
local Version_Number=20200218
local m=10199990
local vm=10199991
rsv={} --"Base Function"
......@@ -19,6 +19,7 @@ rscate={} --"Category Function"
rsflag={} --"Property Function"
rsreset={} --"Reset Function"
rshint={} --"Hint Function"
rsloc={} --"Location Function"
--Info Variable
rsef.valinfo ={} --"Value for inside series, inside type etc."
......@@ -107,18 +108,31 @@ rscf.extype_r = rscf.extype + TYPE_RITUAL
rscf.extype_np = rscf.extype - TYPE_PENDULUM
rscf.exlist = { TYPE_FUSION,TYPE_SYNCHRO,TYPE_XYZ,TYPE_LINK }
--Location Variable
rsloc.hd=LOCATION_HAND+LOCATION_DECK
rsloc.dg=LOCATION_DECK+LOCATION_GRAVE
rsloc.gr=LOCATION_GRAVE+LOCATION_REMOVED
rsloc.hdg=LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE
rsloc.de=LOCATION_DECK+LOCATION_EXTRA
rsloc.mg=LOCATION_MZONE+LOCATION_GRAVE
rsloc.hmg=LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE
rsloc.hog=LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE
rsloc.all=0xff
--Escape Old Functions
rsof.DefineCard = rscf.DefineCard
rsof.SendtoHand = rsop.SendtoHand
rsof.SendtoDeck = rsop.SendtoDeck
rsof.SendtoGrave = rsop.SendtoGrave
rsof.Destroy = rsop.Destroy
rsof.Remove = rsop.Remove
rsof.SelectHint = rshint.Select
rsof.SelectOption= rsop.SelectOption
rsof.SelectOption_Page= rsop.SelectOption_Page
rsof.SelectNumber= rsop.AnnounceNumber
rsof.SelectNumber_List= rsop.AnnounceNumber_List
rsof.IsSet = rscf.DefineSet
function rsof.Escape_Old_Functions()
rsof.DefineCard = rscf.DefineCard
rsof.SendtoHand = rsop.SendtoHand
rsof.SendtoDeck = rsop.SendtoDeck
rsof.SendtoGrave = rsop.SendtoGrave
rsof.Destroy = rsop.Destroy
rsof.Remove = rsop.Remove
rsof.SelectHint = rshint.Select
rsof.SelectOption= rsop.SelectOption
rsof.SelectOption_Page= rsop.SelectOption_Page
rsof.SelectNumber= rsop.AnnounceNumber
rsof.SelectNumber_List= rsop.AnnounceNumber_List
rsof.IsSet = rscf.DefineSet
end
--Record Author
local am=10199992
local Version_Number=200129
local Version_Number=20200323
#Scl
local rsdka = Dakyria
local rsdio = Diablo
......@@ -12,6 +12,8 @@ local rsos = Oracle_Smith
local rssp = Stellar_Pearl
//local rsgd = Ghostdom_Dragon
local rsed = Epic_Dragon
local rsdh = Devil_Hunter
local rsds = Dark_Souls
#Scl - Special Mode
local rssm = Special_Mode
......@@ -22,6 +24,7 @@ local rssms = Special_Mode_Skill_Duel
local rssmi = Special_Mode_Infinite_Duel
local rssmf = Special_Mode_Fast_Duel
local rssmm = Special_Mode_Multiple_Duel
local rssmu = Special_Mode_Universal_Duel
#Gale
local rsve = Voison
......@@ -68,17 +71,20 @@ local rsgc = Guard_City
#ZhenDong
local rsfv = Fgo/Assassin
#JingJing
local rsba = BlueAngel
--Set Code
#Scl
local Chaos_Alchemy = 0x1330
--local = 0x1330
local Alchement_Bio = 0x3330
local = 0x5330
local Chaos_Alchemy = 0x5330
local Azure-Wing_Mercenary = 0x6330
local Oracleoath = 0x9330
local Zrouf_Mantra = 0xa330
local Autumntale = 0xc330
local = 0x1331
--local = 0x1331
local Night_Raven = 0x3331
local Rainsoon = 0x5331
local Monsoonangel = 0x6331
......@@ -86,7 +92,7 @@ local Dakyria = 0x9331
local Diablo = 0xa331
local Pure_Wing = 0xc331
local = 0x1332
--local = 0x1332
local Little_Fight = 0x3332
local Spellbinder = 0x5332
local Soulgem = 0x6332
......@@ -94,7 +100,7 @@ local Eridiument = 0x9332
local Comic_Clown = 0xa332
local Gorkha = 0xc332
local = 0x1333
--local = 0x1333
local T.T.Hunter = 0x3333
local Treagon = 0x5333
local Treasure_Trove = 0x6333
......@@ -102,40 +108,40 @@ local Epic_Dragon = 0x9333
local Stellar_Pearl = 0xa333
local Utoland = 0xc333
local = 0x1334
local = 0x3334
--local = 0x1334
local = 0x3334
local Summerlover = 0x5334
local Quasi_Beast = 0x6334
local Bite_Teech = 0x9334
local = 0xa334
local = 0xc334
local Oraclesmith = 0x1335
local = 0x3335
local = 0x5335
local = 0x6335
local = 0x9335
local = 0xa335
local = 0xc335
local = 0x1336
local = 0x3336
local = 0x5336
local = 0xa334
local = 0xc334
--local = 0x1335
local Oraclesmith = 0x3335
local DevilHunter = 0x5335
local DevilSlayer = 0x6335
local DMC = 0x9335
local Ashenone = 0xa335
local Cinderlord = 0xc335
--local = 0x1336
local = 0x3336
local = 0x5336
local Fantastory = 0x6336
local = 0x9336
local = 0x9336
local Quantum_Driver = 0xa336
local = 0xc336
local = 0xc336
local Ghostdom_Dragon = 0x337
local Ghosaom_Dragon_King = 0x1337
local = 0x1338
--local = 0x1338
local Ectopialord = 0x3338
local Freedom_Fighter= 0x5338
local Zombieraser = 0x6338
local Sweet_Baby = 0x9338
local = 0xa338
local = 0xc338
local = 0xa338
local = 0xc338
local S.W. = 0x339
local S.W.C.C = 0x1339
......@@ -144,4 +150,6 @@ local XB = 0x340
local XB_Z = 0x1340
local Action_Card = 0x3341
local Multiple_Deck = 0x5341
local Skill_Card = 0x6341
......@@ -181,7 +181,7 @@ function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
end
function cm.spfilter(c,e,tp)
return cm.isherald(c) and c:GetCode()~=m and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
return cm.isherald(c) and not c:IsCode(m,46935289) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.spfilter(chkc,e,tp) end
......
......@@ -49,12 +49,12 @@ function c117981478.operation(e,tp,eg,ep,ev,re,r,rp)
Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP)
Duel.SpecialSummonComplete()
g:AddCard(c)
local sg=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,nil,g)
local sg=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,c,g)
if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(117981478,0)) then
if not sg then return end
local sc=sg:Select(tp,1,1,nil):GetFirst()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
Duel.SynchroSummon(tp,sc,nil,g)
Duel.SynchroSummon(tp,sc,c,g)
end
end
function c117981478.bftg(e,tp,eg,ep,ev,re,r,rp)
......@@ -72,10 +72,10 @@ function c117981478.bfop(e,tp,eg,ep,ev,re,r,rp)
e1:SetCondition(c117981478.discon)
e1:SetOperation(c117981478.disop)
e1:SetCode(EVENT_CHAIN_SOLVING)
e1:SetReset(RESET_EVENT+0x1fe0000)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetAbsoluteRange(ep,0,1)
rc:RegisterEffect(e1,tp)
rc:RegisterFlagEffect(117981478,RESET_EVENT+0x1fe0000,0,1)
rc:RegisterFlagEffect(117981478,RESET_EVENT+RESETS_STANDARD,0,1)
end
end
function c117981478.discon(e,tp,eg,ep,ev,re,r,rp)
......
function c118817732.initial_effect(c)
c:EnableReviveLimit()
aux.AddXyzProcedure(c,nil,4,2)
aux.AddXyzProcedure(c,nil,8,2)
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(118817732,0))
e1:SetType(EFFECT_TYPE_FIELD)
......
......@@ -68,7 +68,7 @@ function c121082832.desop(e,tp,eg,ep,ev,re,r,rp)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_PHASE+PHASE_END)
e1:SetRange(LOCATION_SZONE)
e1:SetCountLimit(1)
e1:SetCountLimit(1+EFFECT_COUNT_CODE_DUEL)
e1:SetTarget(c121082832.target2)
e1:SetOperation(c121082832.operation2)
c:RegisterEffect(e1)
......
--时崎狂三-梦魇
function c33400010.initial_effect(c)
c:EnableCounterPermit(0x34f)
--link summon
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x341),3,99,c33400010.lcheck)
c:EnableReviveLimit()
......@@ -89,10 +90,10 @@ function c33400010.cost(e,tp,eg,ep,ev,re,r,rp,chk)
end
function c33400010.dstg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local c=e:GetHandler()
if chkc then return chkc:IsOnField() and chkc:IsFaceup() and chkc~=c end
if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end
if chkc then return chkc:IsOnField() and chkc~=c end
if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,c)
local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,c)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
end
function c33400010.dsop(e,tp,eg,ep,ev,re,r,rp)
......
......@@ -29,7 +29,7 @@ function cm.repfilter(c,tp)
and c:IsOnField() and c:IsControler(tp) and c:IsReason(REASON_EFFECT+REASON_BATTLE) and not c:IsReason(REASON_REPLACE)
end
function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(cm.repfilter,1,c:IsCode(m),tp) end
if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(cm.repfilter,1,e:GetHandler():IsCode(m),tp) end
return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
end
function cm.repval(e,c)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment