1+ -- バトル・チェンジ
12-- Battle Change
23local s ,id = GetID ()
34function s .initial_effect (c )
@@ -8,42 +9,32 @@ function s.initial_effect(c)
89 e1 :SetCondition (s .condition )
910 e1 :SetOperation (s .activate )
1011 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 )
2112end
22- function s .actcondition (e ,tp ,eg ,ep ,ev ,re ,r ,rp )
23- return Duel .GetTurnPlayer ()~= tp and Duel .GetCurrentPhase ()= =PHASE_BATTLE
13+ function s .condition (e ,tp ,eg ,ep ,ev ,re ,r ,rp )
14+ return Duel .GetTurnPlayer ()~= tp and Duel .GetCurrentPhase ()>= PHASE_BATTLE_START and Duel . GetCurrentPhase () < =PHASE_BATTLE
2415end
2516function s .activate (e ,tp ,eg ,ep ,ev ,re ,r ,rp )
2617 local e1 = Effect .CreateEffect (e :GetHandler ())
2718 e1 :SetType (EFFECT_TYPE_FIELD + EFFECT_TYPE_CONTINUOUS )
2819 e1 :SetCode (EVENT_ATTACK_ANNOUNCE )
29- e1 :SetCondition (s .condition )
30- e1 :SetOperation (s .operation )
20+ e1 :SetCondition (s .con )
21+ e1 :SetOperation (s .op )
3122 e1 :SetReset (RESET_PHASE + PHASE_END )
3223 Duel .RegisterEffect (e1 ,tp )
3324end
34- function s .condition (e ,tp ,eg ,ep ,ev ,re ,r ,rp )
35- return tp ~= Duel .GetTurnPlayer ( ) and Duel .GetAttacker ():GetFlagEffect (id )== 0
25+ function s .con (e ,tp ,eg ,ep ,ev ,re ,r ,rp )
26+ return not Duel .GetAttacker (): IsContains ( tp ) and Duel .GetAttacker ():GetFlagEffect (id )== 0
3627end
37- function s .operation (e ,tp ,eg ,ep ,ev ,re ,r ,rp )
28+ function s .op (e ,tp ,eg ,ep ,ev ,re ,r ,rp )
3829 local ats = eg :GetFirst ():GetAttackableTarget ()
3930 local at = Duel .GetAttackTarget ()
4031 if # ats == 0 or (at and # ats == 1 ) then return end
41- if Duel .SelectYesNo (tp ,aux . Stringid ( id , 0 )) then
42- Duel .Hint (HINT_SELECTMSG ,tp ,aux . Stringid ( id , 1 ) )
32+ if Duel .SelectEffectYesNo (tp ,e : GetHandler ( )) then
33+ Duel .Hint (HINT_SELECTMSG ,tp ,HINTMSG_ATTACKTARGET )
4334 local g = ats :Select (tp ,1 ,1 ,at )
4435 Duel .Hint (HINT_CARD ,0 ,id )
4536 Duel .HintSelection (g )
4637 Duel .ChangeAttackTarget (g :GetFirst ())
4738 Duel .GetAttacker ():RegisterFlagEffect (id ,RESET_EVENT + RESETS_STANDARD ,0 ,1 )
4839 end
49- end
40+ end
0 commit comments