Lines of
script/c0.lua
from check-in c5bcca479f
that are changed by the sequence of edits moving toward
check-in ad5fabcb17:
1: local string = string
2: local table = table
3: local Debug = Debug
4: local Effect = Effect
5: local Duel = Duel
6: local Card = Card
7: local d = {}
8: local f = {}
9: d["排_效果卡的类型"] = {
10: TYPE_SPELL,
11: TYPE_TRAP,
12: TYPE_EFFECT,
13: }
14: d["排_非效果灵摆怪兽的卡编"] = {
15: 28363749,
16: 19474136,
17: 17390179,
18: 83980492,
19: }
20: d["数_所有区域"] = LOCATION_HAND + LOCATION_MZONE + LOCATION_SZONE + LOCATION_GRAVE + LOCATION_REMOVED + LOCATION_DECK + LOCATION_EXTRA
21: do
22: local k1
23: --~ 这一局所适用规则的对
24: k1 = {
25: [3] = "大师规则三（2014） ",
26: [4] = "新大师规则（2017） ",
27: [5] = "大师规则（2020） ",
28: }
29: f["Debug.ReloadFieldBegin"] = _G.Debug.ReloadFieldBegin
30: --~ 这一局的模式
31: --~ 规则参数
32: function _G.Debug.ReloadFieldBegin(o1, o2)
33: d["数_假洗卡"] = o1 & DUEL_PSEUDO_SHUFFLE
34: d["数_战斗阶段"] = o1 & DUEL_ATTACK_FIRST_TURN
35: d["数_人工智能"] = o1 & DUEL_SIMPLE_AI
36: if o2 then
37: d["字_这一局的规则"] = k1[o2]
38: else
39: d["字_这一局的规则"] = k1[5]
40: end
41: f["Debug.ReloadFieldBegin"](o1, o2)
42: end
43: end
44: f["不被连锁"] = function()
45: Duel.SetChainLimit(aux.FALSE)
46: return true
47: end
48: f["是否有效果卡"] = function(card)
49: for i = 1, #d["排_效果卡的类型"] do
50: if Card.IsType(card, d["排_效果卡的类型"][i]) then
51: return true
52: end
53: end
54: if Card.IsType(card, TYPE_PENDULUM) then
55: for i = 1, #d["排_非效果灵摆怪兽的卡编"] do
56: if Card.IsCode(card, d["排_非效果灵摆怪兽的卡编"][i]) then
57: return false
58: else
59: end
60: end
61: return true
62: end
63: end
64: do
65: local k1
66: --~ 所调用这个效果的效果
67: --~ 所调用这个效果的玩家
68: f["_开局选卡入手"] = function(o1, o2)
69: local k2
c5bcca479f 2024-07-17 70: --~ 玩家选定的卡
71: k2 = Duel.SelectMatchingCard(o2, Card.IsAbleToHand, o2, LOCATION_DECK, 0, k1, k1, nil)
72: Duel.SendtoHand(k2, nil, REASON_RULE)
73: o1:Reset()
74: end
75: f["开局选卡入手"] = function(o1)
76: local k2
c5bcca479f 2024-07-17 77: d["数_选卡"] = o1
c5bcca479f 2024-07-17 78: --~ 开局选卡入手的数量
79: k1 = o1
80: --~ 效果
81: k2 = Effect.GlobalEffect()
82: k2:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_CONTINUOUS)
83: k2:SetCode(EVENT_ADJUST)
84: k2:SetCondition(aux.TRUE)
85: k2:SetOperation(f["_开局选卡入手"])
86: Duel.RegisterEffect(k2, 0)
87: end
88: end
c5bcca479f 2024-07-17 89: --~ 禁几个怪兽格
90: f["禁格"] = function(o1)
91: local k1
c5bcca479f 2024-07-17 92: d["数_禁格"] = o1
93: --~ 效果
94: k1 = Effect.GlobalEffect()
95: k1:SetCode(EFFECT_USE_EXTRA_MZONE)
96: k1:SetValue(o1)
97: Duel.RegisterEffect(k1, 0)
98: end
99: do
100: local k1, k2, k3, k4
c5bcca479f 2024-07-17 101: --~ 印卡过多时的提示
102: k1 = "印卡过多"
c5bcca479f 2024-07-17 103: --~ 现在的印卡数量
104: k2 = 1
c5bcca479f 2024-07-17 105: --~ 手卡印卡数量的上限
106: k3 = 0
c5bcca479f 2024-07-17 107: --~ 印卡总数量的上限
108: k4 = 0
c5bcca479f 2024-07-17 109: --~ 所调用这个效果的效果
c5bcca479f 2024-07-17 110: --~ 所调用这个效果的玩家
111: f["_印卡"] = function(o1, o2)
112: local k5, k6
c5bcca479f 2024-07-17 113: --~ 要印之卡的卡编
114: k5 = Duel.AnnounceCard(o2)
115: --~ 卡
116: k6 = Duel.CreateToken(o2, k5)
117: if k2 <= k3 then
118: k2 = k2 + 1
119: Duel.SendtoHand(k6, nil, REASON_RULE)
120: else
121: if k2 <= k4 then
122: k2 = k2 + 1
123: Duel.SendtoDeck(k6, o2, 0, REASON_RULE)
124: else
125: Debug.ShowHint(k1)
126: o1:Reset()
127: end
128: end
129: end
c5bcca479f 2024-07-17 130: --~ 印卡的启动源
c5bcca479f 2024-07-17 131: --~ 手卡印卡数量的上限
c5bcca479f 2024-07-17 132: --~ 印卡总数量的上限
133: f["印卡"] = function(o1, o2, o3)
134: local k5
135: k3 = o2
136: k4 = o3 or o2
137: Debug.ShowHint("点击对方额外卡组，可以印卡\n手卡只能印" .. k3 .. "张\n最多可印" .. k4 .. "张")
138: k5 = Effect.CreateEffect(o1)
139: k5:SetType(EFFECT_TYPE_IGNITION)
140: k5:SetProperty(EFFECT_FLAG_BOTH_SIDE + EFFECT_FLAG_UNCOPYABLE + EFFECT_FLAG_CANNOT_DISABLE)
141: k5:SetTarget(f["不被连锁"])
142: k5:SetRange(LOCATION_EXTRA)
143: k5:SetOperation(f["_印卡"])
144: o1:RegisterEffect(k5)
145: end
146: end
147: f["开局说明"] = function()
148: --~ 字_开局说明
149: --~ 量_我方的效果卡
150: --~ 组_我方超量素材
151: --~ 量_对方的效果卡
152: --~ 组_对方超量素材
153: --~ 量_效果卡
154: local k1, k2, k3, k4, k5, k6
155: k2 = Duel.GetMatchingGroupCount(f["是否有效果卡"], 0, d["数_所有区域"], nil, nil)
156: k3 = Duel.GetOverlayGroup(0, LOCATION_MZONE, nil)
157: for o1 in aux.Next(k3) do
158: if f["是否有效果卡"](o1) then
159: k2 = k2 + 1
160: end
161: end
162: k4 = Duel.GetMatchingGroupCount(f["是否有效果卡"], 0, nil, d["数_所有区域"], nil)
163: k5 = Duel.GetOverlayGroup(0, nil, LOCATION_MZONE)
164: for o1 in aux.Next(k5) do
165: if f["是否有效果卡"](o1) then
166: k4 = k4 + 1
167: end
168: end
169: k6 = k2 + k4
170: k1 = "" .. k6 .. "卡 " .. k4 .. "卡 " .. d["字_这一局的规则"]
171: if d["数_假洗卡"] == 0 then
172: else
173: k1 = k1 .. "假洗卡 "
174: end
175: if d["数_战斗阶段"] == 0 then
176: k1 = k1 .. "无战斗阶段 "
177: end
178: if d["数_人工智能"] == 0 then
179: k1 = k1 .. "无人工智能 "
180: end
c5bcca479f 2024-07-17 181: if d["数_选卡"] then
c5bcca479f 2024-07-17 182: k1 = k1 .. "选" .. d["数_选卡"] .. "卡 "
183: end
c5bcca479f 2024-07-17 184: if d["数_禁格"] then
c5bcca479f 2024-07-17 185: k1 = k1 .. "禁" .. d["数_禁格"] .. "格 "
186: end
187: Debug.ShowHint(k1)
188: end
189: do
190: f["aux.BeginPuzzle"] = _G.aux.BeginPuzzle
c5bcca479f 2024-07-17 191: --~ 开局选卡入手的数量
c5bcca479f 2024-07-17 192: --~ 禁几个我方主要怪兽格
c5bcca479f 2024-07-17 193: --~ 传入对方额外卡组最上面的表侧卡，并将其作为印卡源
c5bcca479f 2024-07-17 194: --~ 能印几张手卡
c5bcca479f 2024-07-17 195: --~ 最多能印几张卡
196: function _G.aux.BeginPuzzle(o1, o2, o3, o4, o5)
197: f["aux.BeginPuzzle"]()
198: if o1 then
199: f["开局选卡入手"](o1)
200: else
201: end
202: if o2 then
203: f["禁格"](o2)
204: else
205: end
206: if o3 then
207: f["印卡"](o3, o4, o5)
208: else
209: end
210: f["开局说明"]()
211: end
212: end
213: Auxiliary.PuzzleOp = function()
214: Duel.SetLP(0,0)
215: for i = 1, #d["排_局末提示"] do
216: Debug.ShowHint(d["排_局末提示"][i])
217: end
218: end
219: do
220: f["Debug.ReloadFieldEnd"] = _G.Debug.ReloadFieldEnd
221: --~ 局末提示
222: function _G.Debug.ReloadFieldEnd(...)
223: f["Debug.ReloadFieldEnd"]()
224: d["排_局末提示"] = {...}
225: end
226: end