Skip to content

Y
ygopro-222DIY-cards
Commit 2e732a83 authored by Tachibana's avatar Tachibana
Browse files
Options

ndyd

parent addb8557
Hide whitespace changes
Inline Side-by-side
Showing with 903 additions and 829 deletions
expansions/222DIY.cdb
View file @ 2e732a83
No preview for this file type
expansions/script/c12014000.lua
View file @ 2e732a83
......@@ -7,8 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_MACHINE)
c:RegisterEffect(e1)
--special summon proc
......
expansions/script/c12014001.lua
View file @ 2e732a83
......@@ -7,8 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_MACHINE)
c:RegisterEffect(e1)
......
expansions/script/c12014003.lua
View file @ 2e732a83
......@@ -7,8 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_MACHINE)
c:RegisterEffect(e1)
--
......
expansions/script/c12014011.lua
View file @ 2e732a83
......@@ -7,8 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_MACHINE)
c:RegisterEffect(e1)
--tohand
......
expansions/script/c12014012.lua
View file @ 2e732a83
......@@ -7,8 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_MACHINE)
c:RegisterEffect(e1)
......
expansions/script/c12014013.lua
View file @ 2e732a83
......@@ -7,8 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_MACHINE)
c:RegisterEffect(e1)
......
expansions/script/c12014014.lua
View file @ 2e732a83
......@@ -10,8 +10,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_MACHINE)
c:RegisterEffect(e1)
--to hand
......
expansions/script/c12014015.lua
View file @ 2e732a83
......@@ -10,8 +10,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_MACHINE)
c:RegisterEffect(e1)
--immune
......
expansions/script/c12014016.lua
View file @ 2e732a83
......@@ -7,8 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_MACHINE)
c:RegisterEffect(e1)
--tohand
......
expansions/script/c12014020.lua
View file @ 2e732a83
......@@ -10,8 +10,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_MACHINE)
c:RegisterEffect(e1)
--special summon
......
expansions/script/c12025009.lua
View file @ 2e732a83
......@@ -21,6 +21,15 @@ function c12025009.initial_effect(c)
e1:SetTarget(c12025009.target)
e1:SetOperation(c12025009.operation)
c:RegisterEffect(e1)
--RACE_DRAGON
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetCode(EFFECT_ADD_RACE)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetRange(LOCATION_MZONE)
e2:SetValue(RACE_DRAGON)
c:RegisterEffect(e2)
end
function c12025009.cfilter(c,tp)
return c:IsPreviousLocation(LOCATION_DECK)
......
expansions/script/c12083001.lua
View file @ 2e732a83
......@@ -7,7 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e1)
--special summon proc
......
expansions/script/c12083003.lua
View file @ 2e732a83
......@@ -7,7 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e1)
--target
......@@ -81,7 +82,7 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
e1:SetCode(EFFECT_ADD_TYPE)
e1:SetRange(LOCATION_SZONE)
e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TEMP_REMOVE-RESET_TURN_SET)
c:RegisterEffect(e1)
local e2=e1:Clone()
......
expansions/script/c12083004.lua
View file @ 2e732a83
......@@ -7,7 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(LOCATION_ONFIELD+LOCATION_EXTRA+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e1)
--search
......
expansions/script/c12083005.lua
View file @ 2e732a83
......@@ -7,7 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e1)
--
......
expansions/script/c12083010.lua
View file @ 2e732a83
......@@ -7,7 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e1)
--target
......
expansions/script/c12083011.lua
View file @ 2e732a83
......@@ -7,7 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e1)
--draw
......
expansions/script/c12083012.lua
View file @ 2e732a83
......@@ -7,7 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e1)
--draw
......
expansions/script/c12083013.lua
View file @ 2e732a83
......@@ -7,7 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e1)
......
expansions/script/c12083014.lua
View file @ 2e732a83
......@@ -10,7 +10,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e1)
--to hand
......@@ -87,7 +88,7 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
e1:SetCode(EFFECT_ADD_TYPE)
e1:SetRange(LOCATION_SZONE)
e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TEMP_REMOVE-RESET_TURN_SET)
c:RegisterEffect(e1)
local e2=e1:Clone()
......
expansions/script/c12083015.lua
View file @ 2e732a83
......@@ -10,7 +10,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e1)
--immune
......
expansions/script/c12083020.lua
View file @ 2e732a83
......@@ -10,7 +10,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e1)
--to grave
......@@ -26,7 +27,7 @@ function cm.initial_effect(c)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e5:SetCode(EVENT_SPSUMMON_SUCCESS)
e5:SetCondition(cm.matcon)
e5:SetOperation(cm.matop)
......
expansions/script/c12083021.lua
View file @ 2e732a83
......@@ -11,13 +11,14 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(0xff)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e1)
--indes
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetCondition(cm.immcon)
e2:SetOperation(cm.immop)
......
expansions/script/c16101183.lua
View file @ 2e732a83
......@@ -7,7 +7,8 @@ function cm.initial_effect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(0x7f)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_ZOMBIE)
c:RegisterEffect(e1)
end
expansions/script/c16107119.lua
View file @ 2e732a83
......@@ -54,6 +54,15 @@ function cm.initial_effect(c)
e4:SetRange(LOCATION_MZONE)
e4:SetCondition(cm.copycon2)
c:RegisterEffect(e4)
--attribute
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e5:SetCode(EFFECT_ADD_ATTRIBUTE)
e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e5:SetRange(LOCATION_MZONE)
e5:SetValue(0x2f)
c:RegisterEffect(e5)
end
function cm.mfilter(c,xyzc)
return c:IsRankAbove(10)
......
expansions/script/c40008626.lua
View file @ 2e732a83
......@@ -12,6 +12,7 @@ function c40008626.initial_effect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetCode(EFFECT_ADD_ATTRIBUTE)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetRange(LOCATION_MZONE)
e2:SetValue(ATTRIBUTE_DARK)
c:RegisterEffect(e2)
......
expansions/script/c4210007.lua
View file @ 2e732a83
......@@ -28,7 +28,8 @@ function c4210007.initial_effect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetCode(EFFECT_ADD_ATTRIBUTE)
e3:SetRange(0xff)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e3:SetRange(LOCATION_MZONE)
e3:SetValue(ATTRIBUTE_EARTH)
c:RegisterEffect(e3)
end
......
expansions/script/c4210008.lua
View file @ 2e732a83
......@@ -16,7 +16,7 @@ function c4210008.initial_effect(c)
e2:SetCategory(CATEGORY_TODECK)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_RELEASE)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetRange(LOCATION_GRAVE)
e2:SetCountLimit(1,4210008)
e2:SetCondition(c4210008.otcon)
......@@ -28,7 +28,8 @@ function c4210008.initial_effect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetCode(EFFECT_ADD_ATTRIBUTE)
e3:SetRange(0xff)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e3:SetRange(LOCATION_MZONE)
e3:SetValue(ATTRIBUTE_WIND)
c:RegisterEffect(e3)
end
......
expansions/script/c4210009.lua
View file @ 2e732a83
......@@ -26,7 +26,8 @@ function c4210009.initial_effect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetCode(EFFECT_ADD_ATTRIBUTE)
e3:SetRange(0xff)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e3:SetRange(LOCATION_MZONE)
e3:SetValue(ATTRIBUTE_DARK)
c:RegisterEffect(e3)
c4210009.tgcard = nil
......@@ -39,7 +40,7 @@ function c4210009.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return ft>-1 and Duel.IsExistingMatchingCard(c4210009.cfilter,tp,LOCATION_MZONE,0,1,nil,ft) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
local g=Duel.SelectMatchingCard(tp,c4210009.cfilter,tp,LOCATION_MZONE,0,1,1,nil,ft)
if g:GetFirst():GetFlagEffect(4210010)~=0 then e:SetLabel(1) c4210009.tgcard = g:GetFirst() else e:SetLabel(0) end
if g:GetFirst():GetFlagEffect(4210010)~=0 then e:SetLabel(1) c4210009.tgcard = g:GetFirst() else e:SetLabel(0) end
Duel.Release(g,REASON_COST)
end
function c4210009.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
......
expansions/script/c46564044.lua
View file @ 2e732a83
......@@ -26,18 +26,10 @@ function cm.initial_effect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetCode(EFFECT_ADD_RACE)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e3:SetRange(LOCATION_MZONE)
e3:SetValue(RACE_ZOMBIE)
c:RegisterEffect(e3)
local e4=e3:Clone()
e4:SetRange(LOCATION_EXTRA)
c:RegisterEffect(e4)
local e5=e3:Clone()
e5:SetRange(LOCATION_GRAVE)
c:RegisterEffect(e5)
local e6=e3:Clone()
e6:SetRange(LOCATION_REMOVED)
c:RegisterEffect(e6)
--spsummon
local e7=Effect.CreateEffect(c)
e7:SetCategory(CATEGORY_SPECIAL_SUMMON)
......
expansions/script/c47500015.lua
View file @ 2e732a83
--黑猫道士 姬塔
function c47500015.initial_effect(c)
aux.AddCodeList(c,47500000)
c:EnableCounterPermit(0x1)
c:EnableReviveLimit()
--pendulum summon
aux.EnablePendulumAttribute(c)
--activate
local e0=Effect.CreateEffect(c)
e0:SetDescription(aux.Stringid(47500015,0))
e0:SetCategory(CATEGORY_SPECIAL_SUMMON)
e0:SetType(EFFECT_TYPE_IGNITION)
e0:SetRange(LOCATION_PZONE)
e0:SetCountLimit(1,47500014)
e0:SetTarget(c47500015.target)
e0:SetOperation(c47500015.activate)
c:RegisterEffect(e0)
--kuroneko
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(LOCATION_ONFIELD+LOCATION_EXTRA+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED)
e1:SetValue(RACE_BEASTWARRIOR)
c:RegisterEffect(e1)
--moon magic
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DAMAGE)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_ATTACK_ANNOUNCE)
e2:SetOperation(c47500015.actop)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_BE_BATTLE_TARGET)
c:RegisterEffect(e3)
--Activate
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(47500015,1))
e4:SetCategory(CATEGORY_COUNTER)
e4:SetType(EFFECT_TYPE_IGNITION)
e4:SetCountLimit(1)
e4:SetRange(LOCATION_MZONE)
e4:SetCost(c47500015.mncost)
e4:SetOperation(c47500015.mnop)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetCategory(CATEGORY_TOHAND)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e5:SetCode(EVENT_BATTLE_END)
e5:SetCondition(c47500015.damcon)
e5:SetOperation(c47500015.damop)
c:RegisterEffect(e5)
--special summon
local e6=Effect.CreateEffect(c)
e6:SetDescription(aux.Stringid(47500015,2))
e6:SetCategory(CATEGORY_SPECIAL_SUMMON)
e6:SetType(EFFECT_TYPE_IGNITION)
e6:SetCountLimit(1,47500015)
e6:SetRange(LOCATION_MZONE)
e6:SetTarget(c47500015.sptg)
e6:SetOperation(c47500015.spop)
c:RegisterEffect(e6)
aux.AddCodeList(c,47500000)
c:EnableCounterPermit(0x1)
c:EnableReviveLimit()
--pendulum summon
aux.EnablePendulumAttribute(c)
--activate
local e0=Effect.CreateEffect(c)
e0:SetDescription(aux.Stringid(47500015,0))
e0:SetCategory(CATEGORY_SPECIAL_SUMMON)
e0:SetType(EFFECT_TYPE_IGNITION)
e0:SetRange(LOCATION_PZONE)
e0:SetCountLimit(1,47500014)
e0:SetTarget(c47500015.target)
e0:SetOperation(c47500015.activate)
c:RegisterEffect(e0)
--kuroneko
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_BEASTWARRIOR)
c:RegisterEffect(e1)
--moon magic
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DAMAGE)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_ATTACK_ANNOUNCE)
e2:SetOperation(c47500015.actop)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_BE_BATTLE_TARGET)
c:RegisterEffect(e3)
--Activate
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(47500015,1))
e4:SetCategory(CATEGORY_COUNTER)
e4:SetType(EFFECT_TYPE_IGNITION)
e4:SetCountLimit(1)
e4:SetRange(LOCATION_MZONE)
e4:SetCost(c47500015.mncost)
e4:SetOperation(c47500015.mnop)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetCategory(CATEGORY_TOHAND)
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e5:SetCode(EVENT_BATTLE_END)
e5:SetCondition(c47500015.damcon)
e5:SetOperation(c47500015.damop)
c:RegisterEffect(e5)
--special summon
local e6=Effect.CreateEffect(c)
e6:SetDescription(aux.Stringid(47500015,2))
e6:SetCategory(CATEGORY_SPECIAL_SUMMON)
e6:SetType(EFFECT_TYPE_IGNITION)
e6:SetCountLimit(1,47500015)
e6:SetRange(LOCATION_MZONE)
e6:SetTarget(c47500015.sptg)
e6:SetOperation(c47500015.spop)
c:RegisterEffect(e6)
end
function c47500015.mfilter(c)
return c:IsCode(47500000) and c:IsFaceup()
return c:IsCode(47500000) and c:IsFaceup()
end
function c47500015.target(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return Duel.IsExistingMatchingCard(c47500015.mfilter,tp,LOCATION_EXTRA,0,2,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
local c=e:GetHandler()
if chk==0 then return Duel.IsExistingMatchingCard(c47500015.mfilter,tp,LOCATION_EXTRA,0,2,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
end
function c47500015.activate(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local c=e:GetHandler()
local g=Duel.SelectMatchingCard(tp,c47500015.mfilter,tp,LOCATION_EXTRA,0,2,2,nil)
if Duel.SendtoGrave(g,REASON_COST) then
Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
c:CompleteProcedure()
end
if not e:GetHandler():IsRelateToEffect(e) then return end
local c=e:GetHandler()
local g=Duel.SelectMatchingCard(tp,c47500015.mfilter,tp,LOCATION_EXTRA,0,2,2,nil)
if Duel.SendtoGrave(g,REASON_COST) then
Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
c:CompleteProcedure()
end
end
function c47500015.actop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetRange(LOCATION_MZONE,0)
e1:SetValue(c47500015.efilter)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_EXTRA_ATTACK)
e2:SetTargetRange(LOCATION_MZONE,0)
e2:SetValue(1)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetRange(LOCATION_MZONE,0)
e1:SetValue(c47500015.efilter)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_EXTRA_ATTACK)
e2:SetTargetRange(LOCATION_MZONE,0)
e2:SetValue(1)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp)
end
function c47500015.efilter(e,te)
return te:GetOwnerPlayer()~=e:GetHandlerPlayer()
return te:GetOwnerPlayer()~=e:GetHandlerPlayer()
end
function c47500015.mncost(e,tp,eg,ep,ev,re,r,rp,chk,val)
if chk==0 then return true end
local val=e:SetLabel(math.floor(Duel.GetLP(tp)/2))
Duel.PayLPCost(tp,e:GetLabel())
if chk==0 then return true end
local val=e:SetLabel(math.floor(Duel.GetLP(tp)/2))
Duel.PayLPCost(tp,e:GetLabel())
end
function c47500015.mnop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local ct=e:GetLabel()/500
c:AddCounter(0x1,ct)
local c=e:GetHandler()
local ct=e:GetLabel()/500
c:AddCounter(0x1,ct)
end
function c47500015.damcon(e)
local c=e:GetHandler()
return c:GetBattleTarget()~=nil
local c=e:GetHandler()
return c:GetBattleTarget()~=nil
end
function c47500015.damop(e,tp,eg,ep,ev,re,r,rp)
local mp=c:GetCounter(0x1)*1
Duel.Damage(1-tp,mp*400,REASON_EFFECT)
local mp=c:GetCounter(0x1)*1
Duel.Damage(1-tp,mp*400,REASON_EFFECT)
end
function c47500015.filter(c,cc,e,tp)
return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:GetLevel()>0 and c:IsType(TYPE_PENDULUM) and cc:IsCanRemoveCounter(tp,0x1,c:GetLevel(),REASON_COST)
return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:GetLevel()>0 and c:IsType(TYPE_PENDULUM) and cc:IsCanRemoveCounter(tp,0x1,c:GetLevel(),REASON_COST)
end
function c47500015.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c47500015.filter,tp,LOCATION_DECK,0,1,nil,e:GetHandler(),e,tp) end
local g=Duel.GetMatchingGroup(c47500015.filter,tp,LOCATION_DECK,0,nil,e:GetHandler(),e,tp)
local lvt={}
local tc=g:GetFirst()
while tc do
local tlv=tc:GetLevel()
lvt[tlv]=tlv
tc=g:GetNext()
end
local pc=1
for i=1,12 do
if lvt[i] then lvt[i]=nil lvt[pc]=i pc=pc+1 end
end
lvt[pc]=nil
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(47500015,1))
local lv=Duel.AnnounceNumber(tp,table.unpack(lvt))
Duel.RemoveCounter(tp,1,1,0x1,lv,REASON_COST)
e:SetLabel(lv)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c47500015.filter,tp,LOCATION_DECK,0,1,nil,e:GetHandler(),e,tp) end
local g=Duel.GetMatchingGroup(c47500015.filter,tp,LOCATION_DECK,0,nil,e:GetHandler(),e,tp)
local lvt={}
local tc=g:GetFirst()
while tc do
local tlv=tc:GetLevel()
lvt[tlv]=tlv
tc=g:GetNext()
end
local pc=1
for i=1,12 do
if lvt[i] then lvt[i]=nil lvt[pc]=i pc=pc+1 end
end
lvt[pc]=nil
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(47500015,1))
local lv=Duel.AnnounceNumber(tp,table.unpack(lvt))
Duel.RemoveCounter(tp,1,1,0x1,lv,REASON_COST)
e:SetLabel(lv)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c47500015.sfilter(c,lv,e,tp)
return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLevel(lv)
return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLevel(lv)
end
function c47500015.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
local lv=e:GetLabel()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47500015.sfilter,tp,LOCATION_DECK,0,1,1,nil,lv,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
local lv=e:GetLabel()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c47500015.sfilter,tp,LOCATION_DECK,0,1,1,nil,lv,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
\ No newline at end of file
expansions/script/c47510025.lua
View file @ 2e732a83
--双子的星晶兽 弗拉姆=格拉姆
function c47510025.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
--tohand
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_PZONE)
e2:SetCountLimit(1,47510025+EFFECT_COUNT_CODE_DUEL)
e2:SetTarget(c47510025.tktg)
e2:SetOperation(c47510025.tkop)
c:RegisterEffect(e2)
--Attribute Dark
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetCode(EFFECT_ADD_ATTRIBUTE)
e3:SetRange(LOCATION_MZONE)
e3:SetValue(ATTRIBUTE_WATER)
c:RegisterEffect(e3)
--destroy
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_DRAW+CATEGORY_DESTROY)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_SUMMON_SUCCESS)
e4:SetProperty(EFFECT_FLAG_DELAY)
e4:SetCountLimit(1,47510026)
e4:SetTarget(c47510025.destg)
e4:SetOperation(c47510025.desop)
c:RegisterEffect(e4)
local e5=e4:Clone()
e5:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e5)
--sunmoneffect
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_QUICK_O)
e6:SetRange(LOCATION_EXTRA)
e6:SetCode(EVENT_FREE_CHAIN)
e6:SetCountLimit(1,47510000)
e6:SetCondition(c47510025.condition)
e6:SetCost(c47510025.cost)
e6:SetOperation(c47510025.disop)
c:RegisterEffect(e6)
c47510025.ss_effect=e6
--recover
local e7=Effect.CreateEffect(c)
e7:SetCategory(CATEGORY_RECOVER)
e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e7:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e7:SetRange(LOCATION_MZONE)
e7:SetCode(EVENT_BATTLE_DAMAGE)
e7:SetCondition(c47510025.reccon)
e7:SetTarget(c47510025.rectg)
e7:SetOperation(c47510025.recop)
c:RegisterEffect(e7)
--recover
local e8=Effect.CreateEffect(c)
e8:SetCategory(CATEGORY_RECOVER)
e8:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e8:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e8:SetRange(LOCATION_MZONE)
e8:SetCode(EVENT_BATTLE_DAMAGE)
e8:SetCondition(c47510025.descon2)
e8:SetTarget(c47510025.destg2)
e8:SetOperation(c47510025.desop2)
c:RegisterEffect(e8)
--pendulum summon
aux.EnablePendulumAttribute(c)
--tohand
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_PZONE)
e2:SetCountLimit(1,47510025+EFFECT_COUNT_CODE_DUEL)
e2:SetTarget(c47510025.tktg)
e2:SetOperation(c47510025.tkop)
c:RegisterEffect(e2)
--Attribute Dark
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetCode(EFFECT_ADD_ATTRIBUTE)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e3:SetRange(LOCATION_MZONE)
e3:SetValue(ATTRIBUTE_WATER)
c:RegisterEffect(e3)
--destroy
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_DRAW+CATEGORY_DESTROY)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_SUMMON_SUCCESS)
e4:SetProperty(EFFECT_FLAG_DELAY)
e4:SetCountLimit(1,47510026)
e4:SetTarget(c47510025.destg)
e4:SetOperation(c47510025.desop)
c:RegisterEffect(e4)
local e5=e4:Clone()
e5:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e5)
--sunmoneffect
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_QUICK_O)
e6:SetRange(LOCATION_EXTRA)
e6:SetCode(EVENT_FREE_CHAIN)
e6:SetCountLimit(1,47510000)
e6:SetCondition(c47510025.condition)
e6:SetCost(c47510025.cost)
e6:SetOperation(c47510025.disop)
c:RegisterEffect(e6)
c47510025.ss_effect=e6
--recover
local e7=Effect.CreateEffect(c)
e7:SetCategory(CATEGORY_RECOVER)
e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e7:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e7:SetRange(LOCATION_MZONE)
e7:SetCode(EVENT_BATTLE_DAMAGE)
e7:SetCondition(c47510025.reccon)
e7:SetTarget(c47510025.rectg)
e7:SetOperation(c47510025.recop)
c:RegisterEffect(e7)
--recover
local e8=Effect.CreateEffect(c)
e8:SetCategory(CATEGORY_RECOVER)
e8:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e8:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e8:SetRange(LOCATION_MZONE)
e8:SetCode(EVENT_BATTLE_DAMAGE)
e8:SetCondition(c47510025.descon2)
e8:SetTarget(c47510025.destg2)
e8:SetOperation(c47510025.desop2)
c:RegisterEffect(e8)
end
function c47510025.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
local atk=2000
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,47511001,0,0x5da,atk,atk,1,RACE_AQUA,ATTRIBUTE_WATER,POS_FACEUP_DEFENSE) end
Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
local atk=2000
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsPlayerCanSpecialSummonMonster(tp,47511001,0,0x5da,atk,atk,1,RACE_AQUA,ATTRIBUTE_WATER,POS_FACEUP_DEFENSE) end
Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
end
function c47510025.tkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local atk=2000
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=2
or not Duel.IsPlayerCanSpecialSummonMonster(tp,47511001,0,0x5da,atk,atk,1,RACE_AQUA,ATTRIBUTE_WATER,POS_FACEUP_DEFENSE) then return end
local token=Duel.CreateToken(tp,47511001)
if Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UNRELEASABLE_SUM)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
token:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_UNRELEASABLE_NONSUM)
token:RegisterEffect(e2)
end
if Duel.SpecialSummonComplete()~=0 and c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,0)
e1:SetTarget(c47510025.splimit)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local c=e:GetHandler()
local atk=2000
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=2
or not Duel.IsPlayerCanSpecialSummonMonster(tp,47511001,0,0x5da,atk,atk,1,RACE_AQUA,ATTRIBUTE_WATER,POS_FACEUP_DEFENSE) then return end
local token=Duel.CreateToken(tp,47511001)
if Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UNRELEASABLE_SUM)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
token:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_UNRELEASABLE_NONSUM)
token:RegisterEffect(e2)
end
if Duel.SpecialSummonComplete()~=0 and c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,0)
e1:SetTarget(c47510025.splimit)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
function c47510025.splimit(e,c)
return not c:IsSetCard(0x5da) or c:IsType(TYPE_PENDULUM)
return not c:IsSetCard(0x5da) or c:IsType(TYPE_PENDULUM)
end
function c47510025.destg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,nil) end
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD+LOCATION_HAND,0,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,nil) end
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD+LOCATION_HAND,0,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function c47510025.desop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,1,nil)
if g:GetCount()>0 then
Duel.Destroy(g,REASON_EFFECT)
Duel.Draw(tp,1,REASON_EFFECT)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,1,nil)
if g:GetCount()>0 then
Duel.Destroy(g,REASON_EFFECT)
Duel.Draw(tp,1,REASON_EFFECT)
end
end
function c47510025.condition(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetLP(tp)<=1000
return Duel.GetLP(tp)<=1000
end
function c47510025.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
Duel.SendtoGrave(e:GetHandler(),REASON_COST)
if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
Duel.SendtoGrave(e:GetHandler(),REASON_COST)
end
function c47510025.disop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
local tc=g:GetFirst()
local c=e:GetHandler()
while tc do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_TRIGGER)
e1:SetReset(RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1)
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_CANNOT_ATTACK)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e3)
tc=g:GetNext()
end
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
local tc=g:GetFirst()
local c=e:GetHandler()
while tc do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_TRIGGER)
e1:SetReset(RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1)
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_CANNOT_ATTACK)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e3)
tc=g:GetNext()
end
end
function c47510025.reccon(e,tp,eg,ep,ev,re,r,rp)
if ep==tp then return false end
local rc=eg:GetFirst()
return rc:IsControler(tp) and rc:IsAttribute(ATTRIBUTE_WATER)
if ep==tp then return false end
local rc=eg:GetFirst()
return rc:IsControler(tp) and rc:IsAttribute(ATTRIBUTE_WATER)
end
function c47510025.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(ev)
Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,ev)
if chk==0 then return true end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(ev)
Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,ev)
end
function c47510025.recop(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Recover(p,d,REASON_EFFECT)
if not e:GetHandler():IsRelateToEffect(e) then return end
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Recover(p,d,REASON_EFFECT)
end
function c47510025.descon2(e,tp,eg,ep,ev,re,r,rp)
if ep==tp then return false end
local rc=eg:GetFirst()
return rc:IsControler(tp) and rc:IsAttribute(ATTRIBUTE_FIRE)
if ep==tp then return false end
local rc=eg:GetFirst()
return rc:IsControler(tp) and rc:IsAttribute(ATTRIBUTE_FIRE)
end
function c47510025.destg2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
end
function c47510025.desop2(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil)
if g:GetCount()>0 then
Duel.HintSelection(g)
Duel.Destroy(g,REASON_EFFECT)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil)
if g:GetCount()>0 then
Duel.HintSelection(g)
Duel.Destroy(g,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c47510028.lua
View file @ 2e732a83
......@@ -55,6 +55,15 @@ function c47510028.initial_effect(c)
e8:SetTarget(c47510028.drtg)
e8:SetOperation(c47510028.drop)
c:RegisterEffect(e8)
--attribute light
local ea=Effect.CreateEffect(c)
ea:SetType(EFFECT_TYPE_SINGLE)
ea:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
ea:SetCode(EFFECT_ADD_ATTRIBUTE)
ea:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
ea:SetRange(LOCATION_MZONE)
ea:SetValue(ATTRIBUTE_FIRE)
c:RegisterEffect(ea)
end
function c47510028.pcon(e,tp,eg,ep,ev,re,r,rp)
local a=Duel.GetAttacker()
......@@ -74,7 +83,8 @@ function c47510028.pop(e,tp,eg,ep,ev,re,r,rp)
if a:IsControler(1-tp) then a,d=d,a end
if c:IsRelateToEffect(e) then
if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) then
local e1=Effect.CreateEffect(c)
local e1=Effect.
CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(2700)
......
expansions/script/c47510115.lua
View file @ 2e732a83
......@@ -2,101 +2,102 @@
local m=47510115
local cm=_G["c"..m]
function c47510115.initial_effect(c)
c:SetSPSummonOnce(47510115)
--pendulum summon
aux.EnablePendulumAttribute(c)
--synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(c47510115.sfilter),1,1)
c:EnableReviveLimit()
--Fraunhofer
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EFFECT_REVERSE_RECOVER)
e1:SetRange(LOCATION_PZONE)
e1:SetTargetRange(1,0)
e1:SetValue(1)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_REFLECT_DAMAGE)
e2:SetRange(LOCATION_PZONE)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetTargetRange(1,0)
e2:SetValue(c47510115.refcon)
c:RegisterEffect(e2)
--Attribute Dark
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetCode(EFFECT_ADD_ATTRIBUTE)
e3:SetRange(LOCATION_MZONE)
e3:SetValue(ATTRIBUTE_FIRE)
c:RegisterEffect(e3)
--Fraunhofer
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e4:SetCode(EFFECT_REVERSE_RECOVER)
e4:SetRange(LOCATION_MZONE)
e4:SetTargetRange(1,0)
e4:SetValue(1)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD)
e5:SetCode(EFFECT_REFLECT_DAMAGE)
e5:SetRange(LOCATION_MZONE)
e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e5:SetTargetRange(1,0)
e5:SetValue(c47510115.refcon)
c:RegisterEffect(e5)
--Sol Shot
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e6:SetCode(EFFECT_DESTROY_REPLACE)
e6:SetRange(LOCATION_MZONE)
e6:SetTarget(c47510115.reptg)
c:RegisterEffect(e6)
--pendulum
local e10=Effect.CreateEffect(c)
e10:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e10:SetCode(EVENT_DESTROYED)
e10:SetProperty(EFFECT_FLAG_DELAY)
e10:SetCondition(c47510115.pencon)
e10:SetTarget(c47510115.pentg)
e10:SetOperation(c47510115.penop)
c:RegisterEffect(e10)
c:SetSPSummonOnce(47510115)
--pendulum summon
aux.EnablePendulumAttribute(c)
--synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(c47510115.sfilter),1,1)
c:EnableReviveLimit()
--Fraunhofer
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EFFECT_REVERSE_RECOVER)
e1:SetRange(LOCATION_PZONE)
e1:SetTargetRange(1,0)
e1:SetValue(1)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_REFLECT_DAMAGE)
e2:SetRange(LOCATION_PZONE)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetTargetRange(1,0)
e2:SetValue(c47510115.refcon)
c:RegisterEffect(e2)
--Attribute Dark
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetCode(EFFECT_ADD_ATTRIBUTE)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e3:SetRange(LOCATION_MZONE)
e3:SetValue(ATTRIBUTE_FIRE)
c:RegisterEffect(e3)
--Fraunhofer
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e4:SetCode(EFFECT_REVERSE_RECOVER)
e4:SetRange(LOCATION_MZONE)
e4:SetTargetRange(1,0)
e4:SetValue(1)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD)
e5:SetCode(EFFECT_REFLECT_DAMAGE)
e5:SetRange(LOCATION_MZONE)
e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e5:SetTargetRange(1,0)
e5:SetValue(c47510115.refcon)
c:RegisterEffect(e5)
--Sol Shot
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e6:SetCode(EFFECT_DESTROY_REPLACE)
e6:SetRange(LOCATION_MZONE)
e6:SetTarget(c47510115.reptg)
c:RegisterEffect(e6)
--pendulum
local e10=Effect.CreateEffect(c)
e10:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e10:SetCode(EVENT_DESTROYED)
e10:SetProperty(EFFECT_FLAG_DELAY)
e10:SetCondition(c47510115.pencon)
e10:SetTarget(c47510115.pentg)
e10:SetOperation(c47510115.penop)
c:RegisterEffect(e10)
end
function c47510115.sfilter(c)
return c:IsType(TYPE_PENDULUM) and c:IsAttribute(ATTRIBUTE_LIGHT)
return c:IsType(TYPE_PENDULUM) and c:IsAttribute(ATTRIBUTE_LIGHT)
end
function c47510115.refcon(e,re,val,r,rp,rc)
return bit.band(r,REASON_EFFECT)~=0 and rp==e:GetHandler():GetControler()
return bit.band(r,REASON_EFFECT)~=0 and rp==e:GetHandler():GetControler()
end
function c47510115.f(c,e)
return c:IsAbleToGraveAsCost() and not c:IsImmuneToEffect(e)
return c:IsAbleToGraveAsCost() and not c:IsImmuneToEffect(e)
end
function c47510115.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO) and Duel.IsExistingMatchingCard(c47510115.f,tp,0,LOCATION_ONFIELD,1,nil,e) end
if Duel.SelectYesNo(tp,aux.Stringid(47510115,1)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c47510115.f,tp,0,LOCATION_ONFIELD,1,1,nil,e)
Duel.SendtoGrave(g,REASON_EFFECT)
return true
else return false end
if chk==0 then return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO) and Duel.IsExistingMatchingCard(c47510115.f,tp,0,LOCATION_ONFIELD,1,nil,e) end
if Duel.SelectYesNo(tp,aux.Stringid(47510115,1)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,c47510115.f,tp,0,LOCATION_ONFIELD,1,1,nil,e)
Duel.SendtoGrave(g,REASON_EFFECT)
return true
else return false end
end
function c47510115.pencon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
local c=e:GetHandler()
return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
end
function c47510115.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
end
function c47510115.penop(e,tp,eg,ep,ev,re,r,rp)
if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
end
if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
end
end
\ No newline at end of file
expansions/script/c47510119.lua
View file @ 2e732a83
......@@ -2,183 +2,178 @@
local m=47510119
local cm=_G["c"..m]
function c47510119.initial_effect(c)
c:SetSPSummonOnce(47510119)
--pendulum summon
aux.EnablePendulumAttribute(c)
--xyz summon
c:EnableReviveLimit()
aux.AddXyzProcedure(c,c47510119.mfilter,8,2)
--destroy
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47510119,0))
e1:SetCategory(CATEGORY_REMOVE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCode(EVENT_DESTROYED)
e1:SetRange(LOCATION_PZONE)
e1:SetCountLimit(1,47510119+EFFECT_COUNT_CODE_DUEL)
e1:SetCondition(c47510119.descon)
e1:SetTarget(c47510119.destg)
e1:SetOperation(c47510119.desop)
c:RegisterEffect(e1)
local e11=e1:Clone()
e11:SetCondition(c47510119.descon2)
c:RegisterEffect(e11)
--RACE_DRAGON
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetCode(EFFECT_ADD_RACE)
e2:SetRange(LOCATION_MZONE)
e2:SetValue(RACE_DRAGON)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetRange(LOCATION_EXTRA)
c:RegisterEffect(e3)
local e4=e2:Clone()
e4:SetRange(LOCATION_GRAVE)
c:RegisterEffect(e4)
--Judecca
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(47510119,0))
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e5:SetCode(EVENT_SPSUMMON_SUCCESS)
e5:SetCondition(c47510119.lpcon)
e5:SetOperation(c47510119.lpop)
c:RegisterEffect(e5)
--Antenora
local e8=Effect.CreateEffect(c)
e8:SetDescription(aux.Stringid(47510119,1))
e8:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e8:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
e8:SetRange(LOCATION_MZONE)
e8:SetCountLimit(1)
e8:SetCondition(c47510119.bacon)
e8:SetCost(c47510119.cost)
e8:SetOperation(c47510119.op)
c:RegisterEffect(e8)
--pendulum
local e10=Effect.CreateEffect(c)
e10:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e10:SetCode(EVENT_DESTROYED)
e10:SetProperty(EFFECT_FLAG_DELAY)
e10:SetCondition(c47510119.pencon)
e10:SetTarget(c47510119.pentg)
e10:SetOperation(c47510119.penop)
c:RegisterEffect(e10)
c:SetSPSummonOnce(47510119)
--pendulum summon
aux.EnablePendulumAttribute(c)
--xyz summon
c:EnableReviveLimit()
aux.AddXyzProcedure(c,c47510119.mfilter,8,2)
--destroy
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47510119,0))
e1:SetCategory(CATEGORY_REMOVE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCode(EVENT_DESTROYED)
e1:SetRange(LOCATION_PZONE)
e1:SetCountLimit(1,47510119+EFFECT_COUNT_CODE_DUEL)
e1:SetCondition(c47510119.descon)
e1:SetTarget(c47510119.destg)
e1:SetOperation(c47510119.desop)
c:RegisterEffect(e1)
local e11=e1:Clone()
e11:SetCondition(c47510119.descon2)
c:RegisterEffect(e11)
--RACE_DRAGON
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetCode(EFFECT_ADD_RACE)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetRange(LOCATION_MZONE)
e2:SetValue(RACE_DRAGON)
c:RegisterEffect(e2)
--Judecca
local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(47510119,0))
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e5:SetCode(EVENT_SPSUMMON_SUCCESS)
e5:SetCondition(c47510119.lpcon)
e5:SetOperation(c47510119.lpop)
c:RegisterEffect(e5)
--Antenora
local e8=Effect.CreateEffect(c)
e8:SetDescription(aux.Stringid(47510119,1))
e8:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e8:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
e8:SetRange(LOCATION_MZONE)
e8:SetCountLimit(1)
e8:SetCondition(c47510119.bacon)
e8:SetCost(c47510119.cost)
e8:SetOperation(c47510119.op)
c:RegisterEffect(e8)
--pendulum
local e10=Effect.CreateEffect(c)
e10:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e10:SetCode(EVENT_DESTROYED)
e10:SetProperty(EFFECT_FLAG_DELAY)
e10:SetCondition(c47510119.pencon)
e10:SetTarget(c47510119.pentg)
e10:SetOperation(c47510119.penop)
c:RegisterEffect(e10)
end
function c47510119.bacon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()==tp
return Duel.GetTurnPlayer()==tp
end
function c47510119.mfilter(c,xyzc)
return c:IsSetCard(0x5da) or c:IsAttribute(ATTRIBUTE_WATER)
return c:IsSetCard(0x5da) or c:IsAttribute(ATTRIBUTE_WATER)
end
function c47510119.cfilter(c,tp)
return c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) and (c:IsReason(REASON_DESTROY) and c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()==1-tp or c:IsReason(REASON_BATTLE) and Duel.GetTurnPlayer()==1-tp) and c:IsType(TYPE_MONSTER)
return c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) and (c:IsReason(REASON_DESTROY) and c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()==1-tp or c:IsReason(REASON_BATTLE) and Duel.GetTurnPlayer()==1-tp) and c:IsType(TYPE_MONSTER)
end
function c47510119.descon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c47510119.cfilter,1,nil,tp) and Duel.GetLP(tp)<=4000
return eg:IsExists(c47510119.cfilter,1,nil,tp) and Duel.GetLP(tp)<=4000
end
function c47510119.descon2(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil and Duel.GetLP(tp)<=4000
return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil and Duel.GetLP(tp)<=4000
end
function c47510119.filter(c)
return c:IsAbleToRemove()
return c:IsAbleToRemove()
end
function c47510119.destg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c47510119.filter,tp,0,LOCATION_ONFIELD,1,nil) end
local g=Duel.GetMatchingGroup(c47510119.filter,tp,0,LOCATION_ONFIELD,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
if chk==0 then return Duel.IsExistingMatchingCard(c47510119.filter,tp,0,LOCATION_ONFIELD,1,nil) end
local g=Duel.GetMatchingGroup(c47510119.filter,tp,0,LOCATION_ONFIELD,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
end
function c47510119.desop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c47510119.filter,tp,0,LOCATION_ONFIELD,nil)
if g:GetCount()>0 then
Duel.Remove(g,REASON_EFFECT,POS_FACEDOWN)
end
local g=Duel.GetMatchingGroup(c47510119.filter,tp,0,LOCATION_ONFIELD,nil)
if g:GetCount()>0 then
Duel.Remove(g,REASON_EFFECT,POS_FACEDOWN)
end
end
function c47510119.lpcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
return e:GetHandler():IsSummonType(SUMMON_TYPE_XYZ)
end
function c47510119.lpop(e,tp,eg,ep,ev,re,r,rp)
Duel.SetLP(tp,4000)
Duel.SetLP(tp,4000)
end
function c47510119.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
end
function c47510119.filter2(c)
return c:IsFaceup() and (c:IsLocation(LOCATION_SZONE) or c:IsType(TYPE_EFFECT)) and not c:IsDisabled()
return c:IsFaceup() and (c:IsLocation(LOCATION_SZONE) or c:IsType(TYPE_EFFECT)) and not c:IsDisabled()
end
function c47510119.filter3(c)
return c:IsType(TYPE_MONSTER) and c:IsCanChangePosition()
return c:IsType(TYPE_MONSTER) and c:IsCanChangePosition()
end
function c47510119.op(e,tp,eg,ep,ev,re,r,rp)
local d=Duel.TossDice(tp,1)
if d==1 or d==2 then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_ACTIVATE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,1)
e1:SetCondition(c47510119.accon)
e1:SetValue(1)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
elseif d==3 then
local c=e:GetHandler()
if c:IsRelateToEffect(e) and c:IsFaceup() then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EXTRA_ATTACK)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetValue(2)
c:RegisterEffect(e1)
end
elseif d==4 or d==5 then
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c47510119.filter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,aux.ExceptThisCard(e))
local tc=g:GetFirst()
while tc do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e2)
tc=g:GetNext()
end
elseif d==6 then
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c47510119.filter3,tp,0,LOCATION_MZONE,nil)
Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_PIERCE)
e1:SetTargetRange(LOCATION_MZONE,0)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetValue(1)
Duel.RegisterEffect(e1,tp)
end
local d=Duel.TossDice(tp,1)
if d==1 or d==2 then
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_ACTIVATE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,1)
e1:SetCondition(c47510119.accon)
e1:SetValue(1)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
elseif d==3 then
local c=e:GetHandler()
if c:IsRelateToEffect(e) and c:IsFaceup() then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EXTRA_ATTACK)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetValue(2)
c:RegisterEffect(e1)
end
elseif d==4 or d==5 then
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c47510119.filter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,aux.ExceptThisCard(e))
local tc=g:GetFirst()
while tc do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e2)
tc=g:GetNext()
end
elseif d==6 then
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(c47510119.filter3,tp,0,LOCATION_MZONE,nil)
Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_PIERCE)
e1:SetTargetRange(LOCATION_MZONE,0)
e1:SetReset(RESET_PHASE+PHASE_END)
e1:SetValue(1)
Duel.RegisterEffect(e1,tp)
end
end
function c47510119.accon(e)
local ph=Duel.GetCurrentPhase()
return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
local ph=Duel.GetCurrentPhase()
return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
end
function c47510119.pencon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
local c=e:GetHandler()
return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
end
function c47510119.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
end
function c47510119.penop(e,tp,eg,ep,ev,re,r,rp)
if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
end
if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return false end
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
end
end
\ No newline at end of file
expansions/script/c47510241.lua
View file @ 2e732a83
......@@ -2,72 +2,81 @@
local m=47510241
local cm=_G["c"..m]
function c47510241.initial_effect(c)
--immune
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c47510241.efilter)
c:RegisterEffect(e1)
--charnge
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,47510241)
e3:SetCondition(c47510241.crcon)
e3:SetOperation(c47510241.crop)
c:RegisterEffect(e3)
--Change
local e7=Effect.CreateEffect(c)
e7:SetDescription(aux.Stringid(47510241,0))
e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e7:SetRange(LOCATION_MZONE)
e7:SetCode(EVENT_PHASE+PHASE_STANDBY)
e7:SetTarget(c47510241.changetg)
e7:SetOperation(c47510241.changeop)
c:RegisterEffect(e7)
--immune
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c47510241.efilter)
c:RegisterEffect(e1)
--RACE_DRAGON
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetCode(EFFECT_ADD_RACE)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetRange(LOCATION_MZONE)
e2:SetValue(RACE_FIEND)
c:RegisterEffect(e2)
--charnge
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,47510241)
e3:SetCondition(c47510241.crcon)
e3:SetOperation(c47510241.crop)
c:RegisterEffect(e3)
--Change
local e7=Effect.CreateEffect(c)
e7:SetDescription(aux.Stringid(47510241,0))
e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e7:SetRange(LOCATION_MZONE)
e7:SetCode(EVENT_PHASE+PHASE_STANDBY)
e7:SetTarget(c47510241.changetg)
e7:SetOperation(c47510241.changeop)
c:RegisterEffect(e7)
end
function c47510241.efilter(e,te)
return te:GetOwner()~=e:GetOwner()
return te:GetOwner()~=e:GetOwner()
end
function c47510241.changetg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return c.dfc_front_side and c.dfc_back_side==c:GetOriginalCode() end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
local c=e:GetHandler()
if chk==0 then return c.dfc_front_side and c.dfc_back_side==c:GetOriginalCode() end
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function c47510241.changeop(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) or c:IsFacedown() or c:IsImmuneToEffect(e) then return end
local tcode=c.dfc_front_side
c:SetEntityCode(tcode,true)
c:ReplaceEffect(tcode,0,0)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) or c:IsFacedown() or c:IsImmuneToEffect(e) then return end
local tcode=c.dfc_front_side
c:SetEntityCode(tcode,true)
c:ReplaceEffect(tcode,0,0)
end
function c47510241.crcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetCurrentPhase()==PHASE_MAIN1
return Duel.GetCurrentPhase()==PHASE_MAIN1
end
function c47510241.crop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,aux.ExceptThisCard(e))
local tc=g:GetFirst()
while tc do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE)
tc:RegisterEffect(e2)
tc=g:GetNext()
end
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_SET_ATTACK_FINAL)
e3:SetValue(4500)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e3)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,aux.ExceptThisCard(e))
local tc=g:GetFirst()
while tc do
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_DISABLE_EFFECT)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE)
tc:RegisterEffect(e2)
tc=g:GetNext()
end
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_SET_ATTACK_FINAL)
e3:SetValue(4500)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e3)
end
\ No newline at end of file
expansions/script/c47510254.lua
View file @ 2e732a83
......@@ -2,146 +2,155 @@
local m=47510254
local cm=_G["c"..m]
function c47510254.initial_effect(c)
aux.EnablePendulumAttribute(c)
--synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsType,TYPE_PENDULUM),1)
c:EnableReviveLimit()
--splimit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetRange(LOCATION_PZONE)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetTargetRange(1,0)
e1:SetTarget(c47510254.splimit)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetRange(LOCATION_PZONE)
e2:SetCondition(c47510254.discon)
e2:SetOperation(c47510254.disop)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_UPDATE_ATTACK)
e3:SetRange(LOCATION_MZONE)
e3:SetTargetRange(0,LOCATION_MZONE)
e3:SetValue(-500)
c:RegisterEffect(e3)
local e4=e3:Clone()
e4:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD)
e5:SetCode(EFFECT_UPDATE_ATTACK)
e5:SetRange(LOCATION_MZONE)
e5:SetTargetRange(LOCATION_MZONE,0)
e5:SetValue(500)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(e6)
local e7=Effect.CreateEffect(c)
e7:SetType(EFFECT_TYPE_SINGLE)
e7:SetCode(EFFECT_EXTRA_ATTACK)
e7:SetCondition(c47510254.tacon)
e7:SetValue(3)
c:RegisterEffect(e7)
local e8=Effect.CreateEffect(c)
e8:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e8:SetCode(EVENT_CHAIN_SOLVING)
e8:SetRange(LOCATION_MZONE)
e8:SetCondition(c47510254.discon2)
e8:SetOperation(c47510254.disop2)
c:RegisterEffect(e8)
--back
local e9=Effect.CreateEffect(c)
e9:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e9:SetCode(EVENT_ADJUST)
e9:SetRange(LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_HAND+LOCATION_EXTRA)
e9:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE)
e9:SetCondition(c47510254.backon)
e9:SetOperation(c47510254.backop)
c:RegisterEffect(e9)
aux.EnablePendulumAttribute(c)
--synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsType,TYPE_PENDULUM),1)
c:EnableReviveLimit()
--splimit
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetRange(LOCATION_PZONE)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetTargetRange(1,0)
e1:SetTarget(c47510254.splimit)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetRange(LOCATION_PZONE)
e2:SetCondition(c47510254.discon)
e2:SetOperation(c47510254.disop)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_UPDATE_ATTACK)
e3:SetRange(LOCATION_MZONE)
e3:SetTargetRange(0,LOCATION_MZONE)
e3:SetValue(-500)
c:RegisterEffect(e3)
local e4=e3:Clone()
e4:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD)
e5:SetCode(EFFECT_UPDATE_ATTACK)
e5:SetRange(LOCATION_MZONE)
e5:SetTargetRange(LOCATION_MZONE,0)
e5:SetValue(500)
c:RegisterEffect(e5)
local e6=e5:Clone()
e6:SetCode(EFFECT_UPDATE_DEFENSE)
c:RegisterEffect(e6)
local e7=Effect.CreateEffect(c)
e7:SetType(EFFECT_TYPE_SINGLE)
e7:SetCode(EFFECT_EXTRA_ATTACK)
e7:SetCondition(c47510254.tacon)
e7:SetValue(3)
c:RegisterEffect(e7)
local e8=Effect.CreateEffect(c)
e8:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e8:SetCode(EVENT_CHAIN_SOLVING)
e8:SetRange(LOCATION_MZONE)
e8:SetCondition(c47510254.discon2)
e8:SetOperation(c47510254.disop2)
c:RegisterEffect(e8)
--back
local e9=Effect.CreateEffect(c)
e9:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e9:SetCode(EVENT_ADJUST)
e9:SetRange(LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_HAND+LOCATION_EXTRA)
e9:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE)
e9:SetCondition(c47510254.backon)
e9:SetOperation(c47510254.backop)
c:RegisterEffect(e9)
--attribute light
local ea=Effect.CreateEffect(c)
ea:SetType(EFFECT_TYPE_SINGLE)
ea:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
ea:SetCode(EFFECT_ADD_ATTRIBUTE)
ea:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
ea:SetRange(LOCATION_MZONE)
ea:SetValue(ATTRIBUTE_DARK)
c:RegisterEffect(ea)
end
c47510254.list={
CATEGORY_DESTROY,
CATEGORY_RELEASE,
CATEGORY_REMOVE,
CATEGORY_TOHAND,
CATEGORY_TODECK,
CATEGORY_TOGRAVE,
CATEGORY_DECKDES,
CATEGORY_HANDES,
CATEGORY_POSITION,
CATEGORY_CONTROL,
CATEGORY_DISABLE,
CATEGORY_DISABLE_SUMMON,
CATEGORY_EQUIP,
CATEGORY_DAMAGE,
CATEGORY_RECOVER,
CATEGORY_ATKCHANGE,
CATEGORY_DEFCHANGE,
CATEGORY_COUNTER,
CATEGORY_LVCHANGE,
CATEGORY_NEGATE,
CATEGORY_DESTROY,
CATEGORY_RELEASE,
CATEGORY_REMOVE,
CATEGORY_TOHAND,
CATEGORY_TODECK,
CATEGORY_TOGRAVE,
CATEGORY_DECKDES,
CATEGORY_HANDES,
CATEGORY_POSITION,
CATEGORY_CONTROL,
CATEGORY_DISABLE,
CATEGORY_DISABLE_SUMMON,
CATEGORY_EQUIP,
CATEGORY_DAMAGE,
CATEGORY_RECOVER,
CATEGORY_ATKCHANGE,
CATEGORY_DEFCHANGE,
CATEGORY_COUNTER,
CATEGORY_LVCHANGE,
CATEGORY_NEGATE,
}
function c47510254.splimit(e,c,tp,sumtp,sumpos)
return not c:IsType(TYPE_PENDULUM)
return not c:IsType(TYPE_PENDULUM)
end
function c47510254.indfilter(c)
return c:IsLocation(LOCATION_PZONE)
return c:IsLocation(LOCATION_PZONE)
end
function c47510254.discon(e,tp,eg,ep,ev,re,r,rp)
if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
return g and g:IsExists(c47510254.indfilter,1,nil) and ep~=tp and e:GetHandler():GetFlagEffect(47510254)==0
if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
return g and g:IsExists(c47510254.indfilter,1,nil) and ep~=tp and e:GetHandler():GetFlagEffect(47510254)==0
end
function c47510254.disop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.NegateActivation(ev)
c:RegisterFlagEffect(47510254,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
local c=e:GetHandler()
Duel.NegateActivation(ev)
c:RegisterFlagEffect(47510254,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
end
function c47510254.tacon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetFlagEffect(47510255)~=0
return e:GetHandler():GetFlagEffect(47510255)~=0
end
function c47510254.nfilter(c)
return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsType(TYPE_PENDULUM)
return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsType(TYPE_PENDULUM)
end
function c47510254.discon2(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if e:GetHandler():GetFlagEffect(47510255)~=0 then return end
if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) or not Duel.IsChainNegatable(ev) or not rp==1-tp then return false end
if c47510254.nfilter(re:GetHandler()) then return true end
local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
if g and g:IsExists(c47510254.nfilter,1,nil) then return true end
local res,ceg,cep,cev,re,r,rp=Duel.CheckEvent(re:GetCode())
if res and ceg and ceg:IsExists(c47510254.nfilter,1,nil) then return true end
for i,ctg in pairs(c47510254.list) do
local ex,tg,ct,p,v=Duel.GetOperationInfo(ev,ctg)
if tg then
if tg:IsExists(c47510254.nfilter,1,c) then return true end
elseif v and v>0 and Duel.IsExistingMatchingCard(c47510254.nfilter,tp,v,0,1,nil) then
return true
end
end
return false
local c=e:GetHandler()
if e:GetHandler():GetFlagEffect(47510255)~=0 then return end
if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) or not Duel.IsChainNegatable(ev) or not rp==1-tp then return false end
if c47510254.nfilter(re:GetHandler()) then return true end
local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
if g and g:IsExists(c47510254.nfilter,1,nil) then return true end
local res,ceg,cep,cev,re,r,rp=Duel.CheckEvent(re:GetCode())
if res and ceg and ceg:IsExists(c47510254.nfilter,1,nil) then return true end
for i,ctg in pairs(c47510254.list) do
local ex,tg,ct,p,v=Duel.GetOperationInfo(ev,ctg)
if tg then
if tg:IsExists(c47510254.nfilter,1,c) then return true end
elseif v and v>0 and Duel.IsExistingMatchingCard(c47510254.nfilter,tp,v,0,1,nil) then
return true
end
end
return false
end
function c47510254.disop2(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.NegateEffect(ev)
c:RegisterFlagEffect(47510255,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
local c=e:GetHandler()
Duel.NegateEffect(ev)
c:RegisterFlagEffect(47510255,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1)
end
function c47510254.backon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c.dfc_front_side and c:GetOriginalCode()==c.dfc_back_side
local c=e:GetHandler()
return c.dfc_front_side and c:GetOriginalCode()==c.dfc_back_side
end
function c47510254.backop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tcode=c.dfc_front_side
c:SetEntityCode(tcode)
Duel.ConfirmCards(tp,Group.FromCards(c))
Duel.ConfirmCards(1-tp,Group.FromCards(c))
c:ReplaceEffect(tcode,0,0)
local c=e:GetHandler()
local tcode=c.dfc_front_side
c:SetEntityCode(tcode)
Duel.ConfirmCards(tp,Group.FromCards(c))
Duel.ConfirmCards(1-tp,Group.FromCards(c))
c:ReplaceEffect(tcode,0,0)
end
\ No newline at end of file
expansions/script/c47530157.lua
View file @ 2e732a83
......@@ -2,84 +2,85 @@
local m=47530157
local cm=_G["c"..m]
function c47530157.initial_effect(c)
--Attribute Dark
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_PSYCHO)
c:RegisterEffect(e1)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(47530157,0))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_HAND)
e2:SetCountLimit(1,47530157)
e2:SetCondition(c47530157.spcon)
e2:SetTarget(c47530157.sptg)
e2:SetOperation(c47530157.spop)
c:RegisterEffect(e2)
--effect
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_BE_MATERIAL)
e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e3:SetCondition(c47530157.efcon)
e3:SetOperation(c47530157.efop)
c:RegisterEffect(e3)
--Attribute Dark
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_ADD_RACE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(RACE_PSYCHO)
c:RegisterEffect(e1)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(47530157,0))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_HAND)
e2:SetCountLimit(1,47530157)
e2:SetCondition(c47530157.spcon)
e2:SetTarget(c47530157.sptg)
e2:SetOperation(c47530157.spop)
c:RegisterEffect(e2)
--effect
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_BE_MATERIAL)
e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
e3:SetCondition(c47530157.efcon)
e3:SetOperation(c47530157.efop)
c:RegisterEffect(e3)
end
c47530157.is_named_with_EFSF=1
function c47530157.IsEFSF(c)
local m=_G["c"..c:GetCode()]
return m and m.is_named_with_EFSF
local m=_G["c"..c:GetCode()]
return m and m.is_named_with_EFSF
end
function c47530157.spfilter(c)
return c:IsFaceup() and c:IsCode(47530143)
return c:IsFaceup() and c:IsCode(47530143)
end
function c47530157.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c47530157.spfilter,tp,LOCATION_SZONE,0,1,nil)
return Duel.IsExistingMatchingCard(c47530157.spfilter,tp,LOCATION_SZONE,0,1,nil)
end
function c47530157.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c47530157.spop(e,tp,eg,ep,ev,re,r,rp)
if e:GetHandler():IsRelateToEffect(e) then
Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
end
if e:GetHandler():IsRelateToEffect(e) then
Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
end
end
function c47530157.efcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetReasonCard():IsSetCard(0x5d5)
return e:GetHandler():GetReasonCard():IsSetCard(0x5d5)
end
function c47530157.efop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=c:GetReasonCard()
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47530157,1))
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
e1:SetCode(EFFECT_CANNOT_ACTIVATE)
e1:SetRange(LOCATION_MZONE)
e1:SetTargetRange(0,1)
e1:SetValue(1)
e1:SetCondition(c47530157.actcon)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e1,true)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(47530157,2))
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e2:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e2:SetCode(EVENT_BATTLE_DESTROYING)
e2:SetCondition(aux.bdocon)
e2:SetOperation(c47530157.caop)
rc:RegisterEffect(e2,true)
local c=e:GetHandler()
local rc=c:GetReasonCard()
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(47530157,1))
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
e1:SetCode(EFFECT_CANNOT_ACTIVATE)
e1:SetRange(LOCATION_MZONE)
e1:SetTargetRange(0,1)
e1:SetValue(1)
e1:SetCondition(c47530157.actcon)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
rc:RegisterEffect(e1,true)
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(47530157,2))
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e2:SetProperty(EFFECT_FLAG_CLIENT_HINT)
e2:SetCode(EVENT_BATTLE_DESTROYING)
e2:SetCondition(aux.bdocon)
e2:SetOperation(c47530157.caop)
rc:RegisterEffect(e2,true)
end
function c47530157.actcon(e)
return Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()
return Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()
end
function c47530157.caop(e,tp,eg,ep,ev,re,r,rp)
Duel.ChainAttack()
Duel.ChainAttack()
end
\ No newline at end of file
expansions/script/c60150814.lua
View file @ 2e732a83
......@@ -16,7 +16,8 @@ function c60150814.initial_effect(c)
e12:SetType(EFFECT_TYPE_SINGLE)
e12:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e12:SetCode(EFFECT_ADD_ATTRIBUTE)
e12:SetRange(LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA+LOCATION_OVERLAY)
e12:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e12:SetRange(LOCATION_MZONE)
e12:SetValue(ATTRIBUTE_DARK)
c:RegisterEffect(e12)
--特招免疫
......
expansions/script/c60159907.lua
View file @ 2e732a83
......@@ -7,7 +7,8 @@ function c60159907.initial_effect(c)
e12:SetType(EFFECT_TYPE_SINGLE)
e12:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e12:SetCode(EFFECT_ADD_ATTRIBUTE)
e12:SetRange(LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA+LOCATION_OVERLAY)
e12:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e12:SetRange(LOCATION_MZONE)
e12:SetValue(ATTRIBUTE_DARK)
c:RegisterEffect(e12)
--spsummon condition
......
expansions/script/c60159941.lua
View file @ 2e732a83
......@@ -17,16 +17,25 @@ function c60159941.initial_effect(c)
e1:SetValue(c60159941.linklimit)
c:RegisterEffect(e1)
--base atk/def
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetCode(EFFECT_SET_BASE_ATTACK)
e2:SetRange(LOCATION_MZONE)
e2:SetValue(c60159941.atkval)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EFFECT_SET_BASE_DEFENSE)
c:RegisterEffect(e3)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetCode(EFFECT_SET_BASE_ATTACK)
e2:SetRange(LOCATION_MZONE)
e2:SetValue(c60159941.atkval)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EFFECT_SET_BASE_DEFENSE)
c:RegisterEffect(e3)
--attribute light
local ea=Effect.CreateEffect(c)
ea:SetType(EFFECT_TYPE_SINGLE)
ea:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
ea:SetCode(EFFECT_ADD_ATTRIBUTE)
ea:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
ea:SetRange(LOCATION_MZONE)
ea:SetValue(ATTRIBUTE_DARK)
c:RegisterEffect(ea)
end
function c60159941.cfilter(c,tp,lc)
return c:IsCanBeLinkMaterial(lc) and c:IsFaceup() and c:GetSummonLocation()&(LOCATION_DECK+LOCATION_EXTRA)~=0
......@@ -73,5 +82,5 @@ function c60159941.linklimit(e,se,sp,st)
return bit.band(st,SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ
end
function c60159941.atkval(e,c)
return Duel.GetMatchingGroupCount(nil,c:GetControler(),LOCATION_GRAVE+LOCATION_REMOVED,LOCATION_GRAVE+LOCATION_REMOVED,nil)*100
return Duel.GetMatchingGroupCount(nil,c:GetControler(),LOCATION_GRAVE+LOCATION_REMOVED,LOCATION_GRAVE+LOCATION_REMOVED,nil)*100
end
\ No newline at end of file
expansions/script/c72411180.lua
View file @ 2e732a83
......@@ -4,16 +4,16 @@ function c72411180.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,nil,2,2,c72411180.lcheck)
c:EnableReviveLimit()
--[[as spellcaster
--
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e0:SetCode(EFFECT_ADD_RACE)
e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e0:SetRange(0xff)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e0:SetRange(LOCATION_MZONE)
e0:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e0)]]
--des
c:RegisterEffect(e0)
--def
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_QUICK_O)
......
expansions/script/c72411190.lua
View file @ 2e732a83
......@@ -4,16 +4,16 @@ function c72411190.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,nil,2,4,c72411190.lcheck)
c:EnableReviveLimit()
--[[
--
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e0:SetCode(EFFECT_ADD_RACE)
e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e0:SetRange(0xff)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e0:SetRange(LOCATION_MZONE)
e0:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e0)
]]
--
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_UPDATE_ATTACK)
......@@ -82,13 +82,13 @@ function c72411190.atkop(e,tp,eg,ep,ev,re,r,rp)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e2:SetValue(math.ceil(atk/2))
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e3:SetCode(EFFECT_EXTRA_ATTACK)
e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e3:SetValue(1)
......
expansions/script/c72411200.lua
View file @ 2e732a83
......@@ -7,8 +7,8 @@ function c72411200.initial_effect(c)
e7:SetType(EFFECT_TYPE_SINGLE)
e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e7:SetCode(EFFECT_ADD_RACE)
e7:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e7:SetRange(0xff)
e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e7:SetRange(LOCATION_MZONE)
e7:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e7)
--des
......
expansions/script/c72411440.lua
View file @ 2e732a83
......@@ -4,15 +4,15 @@ function c72411440.initial_effect(c)
--xyz summon
aux.AddXyzProcedure(c,nil,10,3)
c:EnableReviveLimit()
--[[ --as spellcaster
--
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e0:SetCode(EFFECT_ADD_RACE)
e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e0:SetRange(0xff)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e0:SetRange(LOCATION_MZONE)
e0:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e0)]]
c:RegisterEffect(e0)
--negate
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(72411440,0))
......
expansions/script/c72411510.lua
View file @ 2e732a83
......@@ -5,14 +5,14 @@ function c72411510.initial_effect(c)
aux.AddXyzProcedure(c,nil,6,2)
c:EnableReviveLimit()
--as spellcaster
--[[ local e0=Effect.CreateEffect(c)
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e0:SetCode(EFFECT_ADD_RACE)
e0:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE)
e0:SetRange(0xff)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e0:SetRange(LOCATION_MZONE)
e0:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e0)]]
c:RegisterEffect(e0)
--cannot be targeted
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
......
expansions/script/c72411610.lua
View file @ 2e732a83
--雷格尼斯之主·古蕾娅
function c72411610.initial_effect(c)
--
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e0:SetCode(EFFECT_ADD_RACE)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
e0:SetRange(LOCATION_MZONE)
e0:SetValue(RACE_SPELLCASTER)
c:RegisterEffect(e0)
--search
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_TOGRAVE+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
......
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