1
+ -- エクスキューティー・レイア・F
2
+ -- Executie Leir Frontiere
3
+ -- scripted by YoshiDuels
4
+ local s ,id = GetID ()
5
+ function s .initial_effect (c )
6
+ -- fusion material
7
+ c :EnableReviveLimit ()
8
+ Fusion .AddProcMix (c ,true ,true ,160205037 ,160205032 )
9
+ Fusion .AddContactProc (c ,s .contactfil ,s .contactop ,nil ,nil ,SUMMON_TYPE_FUSION ,nil ,false )
10
+ -- Draw
11
+ local e1 = Effect .CreateEffect (c )
12
+ e1 :SetDescription (aux .Stringid (id ,0 ))
13
+ e1 :SetCategory (CATEGORY_DRAW |CATEGORY_ATKCHANGE )
14
+ e1 :SetProperty (EFFECT_FLAG_PLAYER_TARGET )
15
+ e1 :SetType (EFFECT_TYPE_IGNITION )
16
+ e1 :SetRange (LOCATION_MZONE )
17
+ e1 :SetCountLimit (1 )
18
+ e1 :SetCondition (s .condition )
19
+ e1 :SetTarget (s .target )
20
+ e1 :SetOperation (s .operation )
21
+ c :RegisterEffect (e1 )
22
+ end
23
+ function s .contactfil (tp )
24
+ return Duel .GetMatchingGroup (aux .FaceupFilter (Card .IsAbleToDeckOrExtraAsCost ),tp ,LOCATION_ONFIELD ,0 ,nil )
25
+ end
26
+ function s .contactop (g ,tp )
27
+ Duel .SendtoDeck (g ,nil ,SEQ_DECKSHUFFLE ,REASON_COST + REASON_MATERIAL )
28
+ end
29
+ function s .condition (e ,tp ,eg ,ep ,ev ,re ,r ,rp )
30
+ local c = e :GetHandler ()
31
+ return c :IsSummonPhaseMain () and c :IsStatus (STATUS_SPSUMMON_TURN ) and c :IsSummonType (SUMMON_TYPE_FUSION )
32
+ end
33
+ function s .target (e ,tp ,eg ,ep ,ev ,re ,r ,rp ,chk )
34
+ if chk == 0 then return Duel .IsPlayerCanDraw (tp ,1 ) end
35
+ Duel .SetTargetPlayer (tp )
36
+ Duel .SetTargetParam (1 )
37
+ Duel .SetOperationInfo (0 ,CATEGORY_DRAW ,nil ,0 ,tp ,1 )
38
+ end
39
+ function s .operation (e ,tp ,eg ,ep ,ev ,re ,r ,rp )
40
+ local c = e :GetHandler ()
41
+ -- Effect
42
+ local p ,d = Duel .GetChainInfo (0 ,CHAININFO_TARGET_PLAYER ,CHAININFO_TARGET_PARAM )
43
+ if Duel .Draw (p ,d ,REASON_EFFECT )> 0 then
44
+ -- Increase ATK
45
+ local e1 = Effect .CreateEffect (c )
46
+ e1 :SetType (EFFECT_TYPE_SINGLE )
47
+ e1 :SetCode (EFFECT_UPDATE_ATTACK )
48
+ e1 :SetValue (500 )
49
+ e1 :SetReset (RESETS_STANDARD_PHASE_END )
50
+ c :RegisterEffect (e1 )
51
+ end
52
+ -- Attack Limit
53
+ local e2 = Effect .CreateEffect (c )
54
+ e2 :SetType (EFFECT_TYPE_FIELD )
55
+ e2 :SetCode (EFFECT_CANNOT_ATTACK )
56
+ e2 :SetTargetRange (LOCATION_MZONE ,0 )
57
+ e2 :SetTarget (function (_ ,c ) return not c :IsDefense (500 ) end )
58
+ e2 :SetReset (RESET_PHASE |PHASE_END )
59
+ Duel .RegisterEffect (e2 ,tp )
60
+ end
0 commit comments