2121function s .cost (e ,tp ,eg ,ep ,ev ,re ,r ,rp ,chk )
2222 if chk == 0 then return Duel .IsExistingMatchingCard (s .tgfilter ,tp ,LOCATION_HAND ,0 ,1 ,nil ) end
2323end
24- function s .thfilter (c )
25- return c :IsAbleToHand () and c :GetSequence ()< 5
26- end
2724function s .target (e ,tp ,eg ,ep ,ev ,re ,r ,rp ,chk )
28- if chk == 0 then return Duel .IsExistingMatchingCard (s . thfilter ,tp ,0 ,LOCATION_SZONE ,1 ,nil ) end
25+ if chk == 0 then return Duel .IsExistingMatchingCard (Card . IsAbleToHand ,tp ,0 ,LOCATION_STZONE ,1 ,nil ) end
2926 Duel .SetOperationInfo (0 ,CATEGORY_TOHAND ,nil ,1 ,tp ,0 )
3027end
3128function s .filter (c )
@@ -38,23 +35,19 @@ function s.operation(e,tp,eg,ep,ev,re,r,rp)
3835 if Duel .SendtoGrave (tg ,REASON_COST )== 0 then return end
3936 -- Effect
4037 Duel .Hint (HINT_SELECTMSG ,tp ,HINTMSG_RTOHAND )
41- local tc = Duel .SelectMatchingCard (tp ,s .thfilter ,tp ,0 ,LOCATION_SZONE ,1 ,1 ,nil )
42- if # tc > 0 then
43- Duel .HintSelection (tc )
44- Duel .SendtoHand (tc ,nil ,REASON_EFFECT )
45- if Duel .IsExistingMatchingCard (aux .FilterMaximumSideFunctionEx (s .filter ),tp ,0 ,LOCATION_MZONE ,1 ,nil ) and Duel .SelectYesNo (tp ,aux .Stringid (id ,1 )) then
46- Duel .Hint (HINT_SELECTMSG ,tp ,HINTMSG_FACEUP )
47- local g = Duel .SelectMatchingCard (tp ,aux .FilterMaximumSideFunctionEx (s .filter ),tp ,0 ,LOCATION_MZONE ,1 ,1 ,nil )
48- if # g > 0 then
49- g = g :AddMaximumCheck ()
50- Duel .HintSelection (g )
51- local e1 = Effect .CreateEffect (e :GetHandler ())
52- e1 :SetType (EFFECT_TYPE_SINGLE )
53- e1 :SetCode (EFFECT_UPDATE_ATTACK )
54- e1 :SetValue (- 2500 )
55- e1 :SetReset (RESETS_STANDARD_PHASE_END )
56- g :GetFirst ():RegisterEffect (e1 )
57- end
38+ local tc = Duel .SelectMatchingCard (tp ,Card .IsAbleToHand ,tp ,0 ,LOCATION_STZONE ,1 ,1 ,nil )
39+ Duel .HintSelection (tc )
40+ if Duel .SendtoHand (tc ,nil ,REASON_EFFECT )> 0 and Duel .IsExistingMatchingCard (aux .FilterMaximumSideFunctionEx (s .filter ),tp ,0 ,LOCATION_MZONE ,1 ,nil ) and Duel .SelectYesNo (tp ,aux .Stringid (id ,1 )) then
41+ Duel .Hint (HINT_SELECTMSG ,tp ,HINTMSG_FACEUP )
42+ local g = Duel .SelectMatchingCard (tp ,aux .FilterMaximumSideFunctionEx (s .filter ),tp ,0 ,LOCATION_MZONE ,1 ,1 ,nil )
43+ if # g > 0 then
44+ Duel .HintSelection (g )
45+ local e1 = Effect .CreateEffect (e :GetHandler ())
46+ e1 :SetType (EFFECT_TYPE_SINGLE )
47+ e1 :SetCode (EFFECT_UPDATE_ATTACK )
48+ e1 :SetValue (- 2500 )
49+ e1 :SetReset (RESETS_STANDARD_PHASE_END )
50+ g :GetFirst ():RegisterEffect (e1 )
5851 end
5952 end
6053end
0 commit comments