1+ -- ヴィクトリー・トッピング
12-- Victory Topping
2- function c150000070 .initial_effect (c )
3+ local s ,id = GetID ()
4+ function s .initial_effect (c )
35 -- Activate
46 local e1 = Effect .CreateEffect (c )
57 e1 :SetType (EFFECT_TYPE_ACTIVATE )
68 e1 :SetProperty (EFFECT_FLAG_CARD_TARGET )
79 e1 :SetCode (EVENT_FREE_CHAIN )
8- e1 :SetTarget (c150000070 .target )
9- e1 :SetOperation (c150000070 .activate )
10+ e1 :SetTarget (s .target )
11+ e1 :SetOperation (s .activate )
1012 c :RegisterEffect (e1 )
11- -- become action card
12- local e2 = Effect .CreateEffect (c )
13- e2 :SetType (EFFECT_TYPE_SINGLE )
14- e2 :SetCode (EFFECT_BECOME_QUICK )
15- e2 :SetProperty (EFFECT_FLAG_UNCOPYABLE + EFFECT_FLAG_CANNOT_DISABLE + EFFECT_FLAG_IGNORE_IMMUNE )
16- c :RegisterEffect (e2 )
17- local e3 = e2 :Clone ()
18- e3 :SetCode (EFFECT_REMOVE_TYPE )
19- e3 :SetValue (TYPE_QUICKPLAY )
20- c :RegisterEffect (e3 )
2113end
22- function c150000070 .target (e ,tp ,eg ,ep ,ev ,re ,r ,rp ,chk ,chkc )
14+ function s .target (e ,tp ,eg ,ep ,ev ,re ,r ,rp ,chk ,chkc )
2315 if chkc then return chkc :IsLocation (LOCATION_MZONE ) and chkc :IsControler (tp ) and chkc :IsFaceup () end
2416 if chk == 0 then return Duel .IsExistingTarget (Card .IsFaceup ,tp ,LOCATION_MZONE ,0 ,1 ,nil ) end
2517 Duel .Hint (HINT_SELECTMSG ,tp ,HINTMSG_FACEUP )
2618 Duel .SelectTarget (tp ,Card .IsFaceup ,tp ,LOCATION_MZONE ,0 ,1 ,1 ,nil )
2719end
28- function c150000070 .activate (e ,tp ,eg ,ep ,ev ,re ,r ,rp )
20+ function s .activate (e ,tp ,eg ,ep ,ev ,re ,r ,rp )
2921 local tc = Duel .GetFirstTarget ()
3022 if tc :IsRelateToEffect (e ) and tc :IsFaceup () then
3123 local e1 = Effect .CreateEffect (e :GetHandler ())
3224 e1 :SetType (EFFECT_TYPE_SINGLE )
3325 e1 :SetCode (EFFECT_UPDATE_ATTACK )
3426 e1 :SetValue (600 )
35- e1 :SetReset (RESET_EVENT + 0x1fe0000 + RESET_PHASE + PHASE_END )
27+ e1 :SetReset (RESET_EVENT + RESETS_STANDARD + RESET_PHASE + PHASE_END )
3628 tc :RegisterEffect (e1 )
37- if Duel .IsExistingTarget (Card .IsDefensePos ,tp ,0 ,LOCATION_MZONE ,1 ,nil ) and Duel .SelectYesNo (tp ,aux .Stringid (95000139 ,0 )) then
29+ if Duel .IsExistingTarget (Card .IsDefensePos ,tp ,0 ,LOCATION_MZONE ,1 ,nil ) and Duel .SelectYesNo (tp ,aux .Stringid (id ,0 )) then
3830 local g = Duel .SelectTarget (tp ,Card .IsDefensePos ,tp ,0 ,LOCATION_MZONE ,1 ,1 ,nil )
3931 local tg = g :GetFirst ()
4032 Duel .ChangePosition (tg ,0 ,0 ,POS_FACEUP_ATTACK ,POS_FACEUP_ATTACK )
4133 end
4234 end
43- end
35+ end
0 commit comments