@@ -4,6 +4,7 @@ local s,id=GetID()
44function s .initial_effect (c )
55 -- Negate the activation of a Trap Card
66 local e1 = Effect .CreateEffect (c )
7+ e1 :SetDescription (aux .Stringid (id ,0 ))
78 e1 :SetCategory (CATEGORY_NEGATE )
89 e1 :SetType (EFFECT_TYPE_ACTIVATE )
910 e1 :SetCode (EVENT_CHAINING )
@@ -14,16 +15,15 @@ function s.initial_effect(c)
1415 c :RegisterEffect (e1 )
1516 -- Can be activated from the hand
1617 local e2 = Effect .CreateEffect (c )
17- e2 :SetDescription (aux .Stringid (id ,2 ))
18+ e2 :SetDescription (aux .Stringid (id ,1 ))
1819 e2 :SetType (EFFECT_TYPE_SINGLE )
1920 e2 :SetCode (EFFECT_TRAP_ACT_IN_HAND )
2021 e2 :SetValue (function (e ,c ) e :SetLabel (1 ) end )
2122 c :RegisterEffect (e2 )
2223 e1 :SetLabelObject (e2 )
2324end
2425function s .condition (e ,tp ,eg ,ep ,ev ,re ,r ,rp )
25- return rp ~= tp and re :IsHasType (EFFECT_TYPE_ACTIVATE )
26- and re :IsTrapEffect () and Duel .IsChainNegatable (ev )
26+ return rp == 1 - tp and re :IsTrapEffect () and re :IsHasType (EFFECT_TYPE_ACTIVATE ) and Duel .IsChainNegatable (ev )
2727end
2828function s .cost (e ,tp ,eg ,ep ,ev ,re ,r ,rp ,chk )
2929 if chk == 0 then e :GetLabelObject ():SetLabel (0 ) return true end
@@ -32,8 +32,8 @@ function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
3232 Duel .PayLPCost (tp ,Duel .GetLP (tp )// 2 )
3333 end
3434end
35- function s .setfilter (c )
36- return c :IsTrap () and c :IsSSetable (true )
35+ function s .setfilter (c , tp )
36+ return c :IsTrap () and c :IsSSetable (false , 1 - tp )
3737end
3838function s .target (e ,tp ,eg ,ep ,ev ,re ,r ,rp ,chk )
3939 if chk == 0 then return true end
@@ -47,15 +47,15 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
4747 rc :SetStatus (STATUS_ACTIVATE_DISABLED ,false )
4848 rc :SetStatus (STATUS_SET_TURN ,false )
4949 Duel .RaiseEvent (rc ,EVENT_SSET ,e ,REASON_EFFECT ,tp ,tp ,0 )
50- local g = Duel .GetMatchingGroup (s .setfilter ,tp ,0 ,LOCATION_DECK ,nil )
51- if # g > 0 and Duel .GetLocationCount (1 - tp ,LOCATION_SZONE )> 0 and Duel .SelectYesNo (1 - tp ,aux .Stringid (id ,0 )) then
50+ local g = Duel .GetMatchingGroup (s .setfilter ,tp ,0 ,LOCATION_DECK ,nil , tp )
51+ if # g > 0 and Duel .GetLocationCount (1 - tp ,LOCATION_SZONE )> 0 and Duel .SelectYesNo (1 - tp ,aux .Stringid (id ,2 )) then
5252 Duel .Hint (HINT_SELECTMSG ,tp ,HINTMSG_SET )
5353 local sg = g :Select (1 - tp ,1 ,1 ,nil )
5454 Duel .SSet (1 - tp ,sg :GetFirst ())
5555 end
5656 end
5757 local e1 = Effect .CreateEffect (e :GetHandler ())
58- e1 :SetDescription (aux .Stringid (id ,1 ))
58+ e1 :SetDescription (aux .Stringid (id ,3 ))
5959 e1 :SetType (EFFECT_TYPE_FIELD )
6060 e1 :SetCode (EFFECT_CANNOT_ACTIVATE )
6161 e1 :SetProperty (EFFECT_FLAG_PLAYER_TARGET + EFFECT_FLAG_CLIENT_HINT )
0 commit comments