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

fix

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