1+ -- ダイスマイトギャム・ファイヤーラップス
2+ -- Dicemite Gyame Fire Laps
3+ -- Scripted by YoshiDuels
4+ local s ,id = GetID ()
5+ function s .initial_effect (c )
6+ -- Fusion Summon Procedure
7+ c :EnableReviveLimit ()
8+ Fusion .AddProcMix (c ,true ,true ,160211067 ,160019007 )
9+ -- dice
10+ local e1 = Effect .CreateEffect (c )
11+ e1 :SetDescription (aux .Stringid (id ,0 ))
12+ e1 :SetCategory (CATEGORY_ATKCHANGE |CATEGORY_DICE |CATEGORY_DESTROY )
13+ e1 :SetType (EFFECT_TYPE_IGNITION )
14+ e1 :SetRange (LOCATION_MZONE )
15+ e1 :SetCountLimit (1 )
16+ e1 :SetCost (s .cost )
17+ e1 :SetTarget (s .target )
18+ e1 :SetOperation (s .operation )
19+ c :RegisterEffect (e1 )
20+ end
21+ s .roll_dice = true
22+ function s .cost (e ,tp ,eg ,ep ,ev ,re ,r ,rp ,chk )
23+ if chk == 0 then return Duel .IsPlayerCanDiscardDeck (tp ,2 ) end
24+ end
25+ function s .target (e ,tp ,eg ,ep ,ev ,re ,r ,rp ,chk )
26+ if chk == 0 then return true end
27+ Duel .SetOperationInfo (0 ,CATEGORY_DICE ,nil ,0 ,tp ,1 )
28+ end
29+ function s .operation (e ,tp ,eg ,ep ,ev ,re ,r ,rp )
30+ -- Requirement
31+ if Duel .DiscardDeck (tp ,2 ,REASON_COST )~= 2 then return end
32+ -- Effect
33+ local c = e :GetHandler ()
34+ local d1 ,d2 = Duel .TossDice (tp ,2 )
35+ local sum = d1 + d2
36+ if sum == 7 or sum == 11 then
37+ local g = Duel .GetMatchingGroup (Card .IsNotMaximumModeSide ,tp ,0 ,LOCATION_MZONE ,nil )
38+ if Duel .Destroy (g ,REASON_EFFECT )> 0 then
39+ -- Increase ATK
40+ local e1 = Effect .CreateEffect (e :GetHandler ())
41+ e1 :SetType (EFFECT_TYPE_SINGLE )
42+ e1 :SetCode (EFFECT_UPDATE_ATTACK )
43+ e1 :SetValue (2000 )
44+ e1 :SetReset (RESETS_STANDARD_PHASE_END )
45+ c :RegisterEffect (e1 )
46+ end
47+ else
48+ -- Increase ATK
49+ local e1 = Effect .CreateEffect (e :GetHandler ())
50+ e1 :SetType (EFFECT_TYPE_SINGLE )
51+ e1 :SetCode (EFFECT_UPDATE_ATTACK )
52+ e1 :SetValue (sum * 100 )
53+ e1 :SetReset (RESETS_STANDARD_PHASE_END ,2 )
54+ c :RegisterEffect (e1 )
55+ end
56+ end
0 commit comments