1+ -- 超魔導剣士-ブラック・パラディン
2+ -- Dark Paladin
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 ,CARD_DARK_MAGICIAN ,78193831 )
9+ -- atkup
10+ local e1 = Effect .CreateEffect (c )
11+ e1 :SetType (EFFECT_TYPE_SINGLE )
12+ e1 :SetProperty (EFFECT_FLAG_SINGLE_RANGE )
13+ e1 :SetCode (EFFECT_UPDATE_ATTACK )
14+ e1 :SetRange (LOCATION_MZONE )
15+ e1 :SetValue (s .val )
16+ c :RegisterEffect (e1 )
17+ -- Cannot be destroyed
18+ local e2 = Effect .CreateEffect (c )
19+ e2 :SetType (EFFECT_TYPE_SINGLE )
20+ e2 :SetCode (EFFECT_INDESTRUCTABLE_EFFECT )
21+ e2 :SetProperty (EFFECT_FLAG_SINGLE_RANGE )
22+ e2 :SetRange (LOCATION_MZONE )
23+ e2 :SetCondition (s .condition )
24+ e2 :SetValue (s .indval )
25+ c :RegisterEffect (e2 )
26+ -- Opponent cannot activate Legend Spells
27+ local e3 = Effect .CreateEffect (c )
28+ e3 :SetType (EFFECT_TYPE_FIELD )
29+ e3 :SetProperty (EFFECT_FLAG_PLAYER_TARGET )
30+ e3 :SetCode (EFFECT_CANNOT_ACTIVATE )
31+ e3 :SetTargetRange (0 ,1 )
32+ e3 :SetRange (LOCATION_MZONE )
33+ e3 :SetCondition (s .condition )
34+ e3 :SetValue (s .aclimit )
35+ c :RegisterEffect (e3 )
36+ end
37+ function s .filter (c )
38+ return c :IsRace (RACE_DRAGON ) and (c :IsLocation (LOCATION_GRAVE ) or c :IsFaceup ())
39+ end
40+ function s .val (e ,c )
41+ return Duel .GetMatchingGroupCount (s .filter ,0 ,LOCATION_MZONE |LOCATION_GRAVE ,LOCATION_MZONE |LOCATION_GRAVE ,nil )* 500
42+ end
43+ function s .condition (e )
44+ return Duel .GetFieldGroupCount (e :GetHandlerPlayer (),LOCATION_HAND ,0 )>= 1
45+ end
46+ function s .indval (e ,re ,rp )
47+ return re :IsSpellEffect () and aux .indoval (e ,re ,rp )
48+ end
49+ function s .aclimit (e ,re ,tp )
50+ local tc = re :GetHandler ()
51+ return tc :IsSpell () and tc :IsLegend () and re :IsHasType (EFFECT_TYPE_ACTIVATE )
52+ end
0 commit comments