missed lua

expansions/lflist.conf

@@ -1036,16 +1036,6 @@
 99600001 0 --时空魔女 艾米尔
 #待下架内容
 #01156606
-#50218134
-#50218135
-#50218136
-#50218137
-#50218138
-#50218144
-#50218145
-#50218146
-#50218147
-#50218148
 
 #forbidden
 91869203 0 --アマゾネスの射手

expansions/script/c10199992.lua

@@ -93,7 +93,7 @@ local rsgod =   God
 --local   =   0x1330
 local Alchement_Bio  =   0x3330
 local Chaos_Alchemy  =   0x5330
-local Azure-Wing_Mercenary = 0x6330
+local Azure_Wing_Mercenary = 0x6330
 local Oracleoath	 =   0x9330
 local Zrouf_Mantra   =   0xa330
 local Autumntale	 =   0xc330

expansions/script/c16199992.lua

@@ -91,7 +91,7 @@ local rsgod =   God
 --local   =   0x1330
 local Alchement_Bio  =   0x3330
 local Chaos_Alchemy  =   0x5330
-local Azure-Wing_Mercenary = 0x6330
+local Azure_Wing_Mercenary = 0x6330
 local Oracleoath	 =   0x9330
 local Zrouf_Mantra   =   0xa330
 local Autumntale	 =   0xc330

expansions/script/c50218134.lua

+--炎之数码兽LV9 凤凰兽
+function c50218134.initial_effect(c) 
+    c:EnableReviveLimit()
+    --cannot special summon
+    local e1=Effect.CreateEffect(c)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+    e1:SetValue(aux.FALSE)
+    c:RegisterEffect(e1)
+    --special summon
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_FIELD)
+    e2:SetCode(EFFECT_SPSUMMON_PROC)
+    e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+    e2:SetRange(LOCATION_HAND)
+    e2:SetCondition(c50218134.scon)
+    e2:SetOperation(c50218134.sop)
+    c:RegisterEffect(e2)
+    --token
+    local e3=Effect.CreateEffect(c)
+    e3:SetDescription(aux.Stringid(50218134,1))
+    e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_HAND)
+    e3:SetCountLimit(1,50218134)
+    e3:SetCost(c50218134.spcost)
+    e3:SetTarget(c50218134.sptg)
+    e3:SetOperation(c50218134.spop)
+    c:RegisterEffect(e3)
+    --atkup
+    local e4=Effect.CreateEffect(c)
+    e4:SetType(EFFECT_TYPE_SINGLE)
+    e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+    e4:SetRange(LOCATION_MZONE)
+    e4:SetCode(EFFECT_UPDATE_ATTACK)
+    e4:SetValue(c50218134.atkup)
+    c:RegisterEffect(e4)
+    --attack all
+    local e5=Effect.CreateEffect(c)
+    e5:SetType(EFFECT_TYPE_SINGLE)
+    e5:SetCode(EFFECT_ATTACK_ALL)
+    e5:SetValue(1)
+    c:RegisterEffect(e5)
+end
+c50218134.lvupcount=1
+c50218134.lvup={50218112}
+c50218134.lvdncount=3
+c50218134.lvdn={50218110,50218111,50218112}
+function c50218134.spfilter(c,ft,tp)
+    return c:IsCode(50218112)
+        and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
+end
+function c50218134.scon(e,c)
+    if c==nil then return true end
+    local tp=c:GetControler()
+    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+    return ft>-1 and Duel.CheckReleaseGroup(tp,c50218134.spfilter,1,nil,ft,tp)
+end
+function c50218134.sop(e,tp,eg,ep,ev,re,r,rp,c)
+    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+    local g=Duel.SelectReleaseGroup(tp,c50218134.spfilter,1,1,nil,ft,tp)
+    Duel.Release(g,REASON_COST)
+end
+function c50218134.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return c:IsDiscardable() end
+    Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+end
+function c50218134.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsPlayerCanSpecialSummonMonster(tp,50218144,0,0x4011,800,200,1,RACE_WINDBEAST,ATTRIBUTE_FIRE) end
+    Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+end
+function c50218134.spop(e,tp,eg,ep,ev,re,r,rp)
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+    if Duel.IsPlayerCanSpecialSummonMonster(tp,50218144,0,0x4011,800,200,1,RACE_WINDBEAST,ATTRIBUTE_FIRE) then
+        local token=Duel.CreateToken(tp,50218144)
+        Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+    end
+end
+function c50218134.atkfilter(c)
+    return c:IsSetCard(0xcb1)
+end
+function c50218134.atkup(e,c)
+    return Duel.GetMatchingGroupCount(c50218134.atkfilter,c:GetControler(),LOCATION_GRAVE,0,nil)*200
+end
\ No newline at end of file

expansions/script/c50218135.lua

+--地之数码兽LV9 蔷薇兽
+function c50218135.initial_effect(c) 
+    c:EnableReviveLimit()
+    --cannot special summon
+    local e1=Effect.CreateEffect(c)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+    e1:SetValue(aux.FALSE)
+    c:RegisterEffect(e1)
+    --special summon
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_FIELD)
+    e2:SetCode(EFFECT_SPSUMMON_PROC)
+    e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+    e2:SetRange(LOCATION_HAND)
+    e2:SetCondition(c50218135.scon)
+    e2:SetOperation(c50218135.sop)
+    c:RegisterEffect(e2)
+    --token
+    local e3=Effect.CreateEffect(c)
+    e3:SetDescription(aux.Stringid(50218135,1))
+    e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_HAND)
+    e3:SetCountLimit(1,50218135)
+    e3:SetCost(c50218135.spcost)
+    e3:SetTarget(c50218135.sptg)
+    e3:SetOperation(c50218135.spop)
+    c:RegisterEffect(e3)
+   --can not be attack
+    local e4=Effect.CreateEffect(c)
+    e4:SetType(EFFECT_TYPE_SINGLE)
+    e4:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET)
+    e4:SetCondition(c50218135.atcon)
+    e4:SetValue(1)
+    c:RegisterEffect(e4)
+    --can not be target
+    local e5=e4:Clone()
+    e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+    c:RegisterEffect(e5)
+    --control
+    local e6=Effect.CreateEffect(c)
+    e6:SetCategory(CATEGORY_CONTROL)
+    e6:SetType(EFFECT_TYPE_IGNITION)
+    e6:SetProperty(EFFECT_FLAG_CARD_TARGET)
+    e6:SetRange(LOCATION_MZONE)
+    e6:SetCountLimit(1,50218135)
+    e6:SetTarget(c50218135.cttg)
+    e6:SetOperation(c50218135.ctop)
+    c:RegisterEffect(e6)
+end
+c50218135.lvupcount=1
+c50218135.lvup={50218115}
+c50218135.lvdncount=3
+c50218135.lvdn={50218113,50218114,50218115}
+function c50218135.spfilter(c,ft,tp)
+    return c:IsCode(50218115)
+        and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
+end
+function c50218135.scon(e,c)
+    if c==nil then return true end
+    local tp=c:GetControler()
+    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+    return ft>-1 and Duel.CheckReleaseGroup(tp,c50218135.spfilter,1,nil,ft,tp)
+end
+function c50218135.sop(e,tp,eg,ep,ev,re,r,rp,c)
+    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+    local g=Duel.SelectReleaseGroup(tp,c50218135.spfilter,1,1,nil,ft,tp)
+    Duel.Release(g,REASON_COST)
+end
+function c50218135.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return c:IsDiscardable() end
+    Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+end
+function c50218135.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsPlayerCanSpecialSummonMonster(tp,50218145,0,0x4011,400,600,1,RACE_PLANT,ATTRIBUTE_EARTH) end
+    Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+end
+function c50218135.spop(e,tp,eg,ep,ev,re,r,rp)
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+    if Duel.IsPlayerCanSpecialSummonMonster(tp,50218145,0,0x4011,400,600,1,RACE_PLANT,ATTRIBUTE_EARTH) then
+        local token=Duel.CreateToken(tp,50218145)
+        Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+    end
+end
+function c50218135.atfilter(c)
+    return c:IsFaceup() and c:IsSetCard(0xcb1)
+end
+function c50218135.atcon(e)
+    return Duel.IsExistingMatchingCard(c50218135.atfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,e:GetHandler())
+end
+function c50218135.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+    if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsControlerCanBeChanged() end
+    if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+    local g=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil)
+    Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
+end
+function c50218135.ctop(e,tp,eg,ep,ev,re,r,rp)
+    local tc=Duel.GetFirstTarget()
+    if tc:IsRelateToEffect(e) then
+        Duel.GetControl(tc,tp,PHASE_END,1)
+    end
+end
\ No newline at end of file

expansions/script/c50218136.lua

+--风之数码兽LV9 力神比多兽
+function c50218136.initial_effect(c) 
+    c:EnableReviveLimit()
+    --cannot special summon
+    local e1=Effect.CreateEffect(c)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+    e1:SetValue(aux.FALSE)
+    c:RegisterEffect(e1)
+    --special summon
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_FIELD)
+    e2:SetCode(EFFECT_SPSUMMON_PROC)
+    e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+    e2:SetRange(LOCATION_HAND)
+    e2:SetCondition(c50218136.scon)
+    e2:SetOperation(c50218136.sop)
+    c:RegisterEffect(e2)
+    --token
+    local e3=Effect.CreateEffect(c)
+    e3:SetDescription(aux.Stringid(50218136,1))
+    e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_HAND)
+    e3:SetCountLimit(1,50218136)
+    e3:SetCost(c50218136.spcost)
+    e3:SetTarget(c50218136.sptg)
+    e3:SetOperation(c50218136.spop)
+    c:RegisterEffect(e3)
+     --aclimit
+    local e4=Effect.CreateEffect(c)
+    e4:SetType(EFFECT_TYPE_FIELD)
+    e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e4:SetCode(EFFECT_CANNOT_ACTIVATE)
+    e4:SetRange(LOCATION_MZONE)
+    e4:SetTargetRange(1,1)
+    e4:SetValue(c50218136.aclimit)
+    c:RegisterEffect(e4)
+    --handes
+    local e5=Effect.CreateEffect(c)
+    e5:SetDescription(aux.Stringid(50218136,0))
+    e5:SetCategory(CATEGORY_REMOVE)
+    e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+    e5:SetProperty(EFFECT_FLAG_DELAY)
+    e5:SetCode(EVENT_TO_HAND)
+    e5:SetRange(LOCATION_MZONE)
+    e5:SetCountLimit(1,50218136)
+    e5:SetCondition(c50218136.hdcon)
+    e5:SetTarget(c50218136.hdtg)
+    e5:SetOperation(c50218136.hdop)
+    c:RegisterEffect(e5)
+end
+c50218136.lvupcount=1
+c50218136.lvup={50218118}
+c50218136.lvdncount=3
+c50218136.lvdn={50218116,50218117,50218118}
+function c50218136.spfilter(c,ft,tp)
+    return c:IsCode(50218118)
+        and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
+end
+function c50218136.scon(e,c)
+    if c==nil then return true end
+    local tp=c:GetControler()
+    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+    return ft>-1 and Duel.CheckReleaseGroup(tp,c50218136.spfilter,1,nil,ft,tp)
+end
+function c50218136.sop(e,tp,eg,ep,ev,re,r,rp,c)
+    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+    local g=Duel.SelectReleaseGroup(tp,c50218136.spfilter,1,1,nil,ft,tp)
+    Duel.Release(g,REASON_COST)
+end
+function c50218136.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return c:IsDiscardable() end
+    Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+end
+function c50218136.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsPlayerCanSpecialSummonMonster(tp,50218146,0,0x4011,600,400,1,RACE_INSECT,ATTRIBUTE_WIND) end
+    Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+end
+function c50218136.spop(e,tp,eg,ep,ev,re,r,rp)
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+    if Duel.IsPlayerCanSpecialSummonMonster(tp,50218146,0,0x4011,600,400,1,RACE_INSECT,ATTRIBUTE_WIND) then
+        local token=Duel.CreateToken(tp,50218146)
+        Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+    end
+end
+function c50218136.aclimit(e,re,tp)
+    local loc=re:GetActivateLocation()
+    return (loc==LOCATION_GRAVE or loc==LOCATION_REMOVED) and not re:GetHandler():IsImmuneToEffect(e)
+end
+function c50218136.cfilter(c,tp)
+    return c:IsControler(tp) and c:IsPreviousLocation(LOCATION_DECK)
+end
+function c50218136.hdcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetCurrentPhase()~=PHASE_DRAW and eg:IsExists(c50218136.cfilter,1,nil,1-tp)
+end
+function c50218136.hdtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_HAND,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_HAND)
+end
+function c50218136.hdop(e,tp,eg,ep,ev,re,r,rp)
+    local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_HAND,nil)
+    if g:GetCount()>0 then
+        local sg=g:RandomSelect(tp,1)
+        Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
+    end
+end
\ No newline at end of file

expansions/script/c50218137.lua

+--暗之数码兽LV9 圣龙兽
+function c50218137.initial_effect(c) 
+    c:EnableReviveLimit()
+    --cannot special summon
+    local e1=Effect.CreateEffect(c)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+    e1:SetValue(aux.FALSE)
+    c:RegisterEffect(e1)
+    --special summon
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_FIELD)
+    e2:SetCode(EFFECT_SPSUMMON_PROC)
+    e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+    e2:SetRange(LOCATION_HAND)
+    e2:SetCondition(c50218137.scon)
+    e2:SetOperation(c50218137.sop)
+    c:RegisterEffect(e2)
+    --token
+    local e3=Effect.CreateEffect(c)
+    e3:SetDescription(aux.Stringid(50218137,1))
+    e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_HAND)
+    e3:SetCountLimit(1,50218137)
+    e3:SetCost(c50218137.spcost)
+    e3:SetTarget(c50218137.sptg)
+    e3:SetOperation(c50218137.spop)
+    c:RegisterEffect(e3)
+    --draw
+    local e4=Effect.CreateEffect(c)
+    e4:SetDescription(aux.Stringid(50218137,0))
+    e4:SetCategory(CATEGORY_DRAW)
+    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e4:SetCode(EVENT_BATTLE_DESTROYING)
+    e4:SetCondition(aux.bdocon)
+    e4:SetTarget(c50218137.drtg)
+    e4:SetOperation(c50218137.drop)
+    c:RegisterEffect(e4)
+    --spsummon
+    local e5=Effect.CreateEffect(c)
+    e5:SetDescription(aux.Stringid(50218137,0))
+    e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    e5:SetType(EFFECT_TYPE_QUICK_O)
+    e5:SetCode(EVENT_FREE_CHAIN)
+    e5:SetRange(LOCATION_MZONE)
+    e5:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+    e5:SetCountLimit(1,50218137)
+    e5:SetTarget(c50218137.target)
+    e5:SetOperation(c50218137.operation)
+    c:RegisterEffect(e5)
+end
+c50218137.lvupcount=1
+c50218137.lvup={50218121}
+c50218137.lvdncount=3
+c50218137.lvdn={50218119,50218120,50218121}
+function c50218137.spfilter(c,ft,tp)
+    return c:IsCode(50218121)
+        and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
+end
+function c50218137.scon(e,c)
+    if c==nil then return true end
+    local tp=c:GetControler()
+    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+    return ft>-1 and Duel.CheckReleaseGroup(tp,c50218137.spfilter,1,nil,ft,tp)
+end
+function c50218137.sop(e,tp,eg,ep,ev,re,r,rp,c)
+    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+    local g=Duel.SelectReleaseGroup(tp,c50218137.spfilter,1,1,nil,ft,tp)
+    Duel.Release(g,REASON_COST)
+end
+function c50218137.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return c:IsDiscardable() end
+    Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+end
+function c50218137.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsPlayerCanSpecialSummonMonster(tp,50218147,0,0x4011,500,500,1,RACE_SPELLCASTER,ATTRIBUTE_DARK) end
+    Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+end
+function c50218137.spop(e,tp,eg,ep,ev,re,r,rp)
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+    if Duel.IsPlayerCanSpecialSummonMonster(tp,50218147,0,0x4011,500,500,1,RACE_SPELLCASTER,ATTRIBUTE_DARK) then
+        local token=Duel.CreateToken(tp,50218147)
+        Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+    end
+end
+function c50218137.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return true end
+    Duel.SetTargetPlayer(tp)
+    Duel.SetTargetParam(1)
+    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+function c50218137.drop(e,tp,eg,ep,ev,re,r,rp)
+    local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+    Duel.Draw(p,d,REASON_EFFECT)
+end
+function c50218137.filter(c,e,tp)
+    return c:IsSetCard(0xcb1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:GetLevel()<=6 
+end
+function c50218137.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+    if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_HAND) and chkc:IsControler(tp) and c50218137.filter(chkc,e,tp) end
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsExistingTarget(c50218137.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+    local g=Duel.SelectTarget(tp,c50218137.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp)
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function c50218137.operation(e,tp,eg,ep,ev,re,r,rp)
+    local tc=Duel.GetFirstTarget()
+    if tc:IsRelateToEffect(e) then
+        Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+    end
+end
\ No newline at end of file

expansions/script/c50218138.lua

+--光之数码兽LV9 炽天使兽
+function c50218138.initial_effect(c) 
+    c:EnableReviveLimit()
+    --cannot special summon
+    local e1=Effect.CreateEffect(c)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+    e1:SetValue(aux.FALSE)
+    c:RegisterEffect(e1)
+    --special summon
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_FIELD)
+    e2:SetCode(EFFECT_SPSUMMON_PROC)
+    e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+    e2:SetRange(LOCATION_HAND)
+    e2:SetCondition(c50218138.scon)
+    e2:SetOperation(c50218138.sop)
+    c:RegisterEffect(e2)
+    --token
+    local e3=Effect.CreateEffect(c)
+    e3:SetDescription(aux.Stringid(50218138,1))
+    e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_HAND)
+    e3:SetCountLimit(1,50218138)
+    e3:SetCost(c50218138.spcost)
+    e3:SetTarget(c50218138.sptg)
+    e3:SetOperation(c50218138.spop)
+    c:RegisterEffect(e3)
+    --atk down
+    local e4=Effect.CreateEffect(c)
+    e4:SetDescription(aux.Stringid(50218138,0))
+    e4:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
+    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+    e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+    e4:SetCondition(c50218138.atkcon)
+    e4:SetOperation(c50218138.atkop)
+    c:RegisterEffect(e4)
+    --remove
+    local e5=Effect.CreateEffect(c)
+    e5:SetDescription(aux.Stringid(50218138,1))
+    e5:SetCategory(CATEGORY_REMOVE)
+    e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
+    e5:SetType(EFFECT_TYPE_IGNITION)
+    e5:SetCountLimit(1,50218138)
+    e5:SetRange(LOCATION_MZONE)
+    e5:SetTarget(c50218138.rmtg)
+    e5:SetOperation(c50218138.rmop)
+    c:RegisterEffect(e5)
+end
+c50218138.lvupcount=1
+c50218138.lvup={50218124}
+c50218138.lvdncount=3
+c50218138.lvdn={50218122,50218123,50218124}
+function c50218138.spfilter(c,ft,tp)
+    return c:IsCode(50218124)
+        and (ft>0 or (c:IsControler(tp) and c:GetSequence()<5)) and (c:IsControler(tp) or c:IsFaceup())
+end
+function c50218138.scon(e,c)
+    if c==nil then return true end
+    local tp=c:GetControler()
+    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+    return ft>-1 and Duel.CheckReleaseGroup(tp,c50218138.spfilter,1,nil,ft,tp)
+end
+function c50218138.sop(e,tp,eg,ep,ev,re,r,rp,c)
+    local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+    local g=Duel.SelectReleaseGroup(tp,c50218138.spfilter,1,1,nil,ft,tp)
+    Duel.Release(g,REASON_COST)
+end
+function c50218138.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return c:IsDiscardable() end
+    Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+end
+function c50218138.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+        and Duel.IsPlayerCanSpecialSummonMonster(tp,50218148,0,0x4011,700,300,1,RACE_FAIRY,ATTRIBUTE_LIGHT) end
+    Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+end
+function c50218138.spop(e,tp,eg,ep,ev,re,r,rp)
+    if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+    if Duel.IsPlayerCanSpecialSummonMonster(tp,50218148,0,0x4011,700,300,1,RACE_FAIRY,ATTRIBUTE_LIGHT) then
+        local token=Duel.CreateToken(tp,50218148)
+        Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
+    end
+end
+function c50218138.atkcon(e,tp,eg,ep,ev,re,r,rp)
+    return e:GetHandler():IsSummonType(SUMMON_TYPE_SPECIAL)
+end
+function c50218138.atkop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    local tg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
+    local tc=tg:GetFirst()
+    while tc do
+        local atk=tc:GetAttack()
+        local def=tc:GetDefense()
+        local e1=Effect.CreateEffect(c)
+        e1:SetType(EFFECT_TYPE_SINGLE)
+        e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+        e1:SetValue(0)
+        e1:SetReset(RESET_EVENT+0x1fe0000)
+        tc:RegisterEffect(e1)
+        local e2=Effect.CreateEffect(c)
+        e2:SetType(EFFECT_TYPE_SINGLE)
+        e2:SetCode(EFFECT_SET_DEFENSE_FINAL)
+        e2:SetValue(0)
+        e2:SetReset(RESET_EVENT+0x1fe0000)
+        tc:RegisterEffect(e2)
+        tc=tg:GetNext()
+    end
+end
+function c50218138.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+    if chkc then return chkc:GetLocation()==LOCATION_MZONE and chkc:IsAbleToRemove() end
+    if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
+end
+function c50218138.rmop(e,tp,eg,ep,ev,re,r,rp)
+    local tc=Duel.GetFirstTarget()
+    if tc:IsRelateToEffect(e) then
+        Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
+    end
+end
\ No newline at end of file