Commit 4fd0ea21 authored by Nemo Ma's avatar Nemo Ma

fix

parent 91906a87
No preview for this file type
--方舟骑士-莫斯提马 --方舟骑士-莫斯提马
local m=14010242 local m=14010242
local cm=_G["c"..m] local cm=_G["c"..m]
cm.named_with_Arknight=1
function cm.initial_effect(c) function cm.initial_effect(c)
--special summon --special summon
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
......
...@@ -33,6 +33,7 @@ function c33700929.initial_effect(c) ...@@ -33,6 +33,7 @@ function c33700929.initial_effect(c)
e2:SetTarget(c33700929.atktg) e2:SetTarget(c33700929.atktg)
e2:SetOperation(c33700929.atkop) e2:SetOperation(c33700929.atkop)
c:RegisterEffect(e2) c:RegisterEffect(e2)
e2:SetLabelObject(e1)
-- --
local e4=Effect.CreateEffect(c) local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE) e4:SetType(EFFECT_TYPE_SINGLE)
......
...@@ -8,6 +8,7 @@ function cm.initial_effect(c) ...@@ -8,6 +8,7 @@ function cm.initial_effect(c)
e1:SetCategory(CATEGORY_DAMAGE) e1:SetCategory(CATEGORY_DAMAGE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EVENT_FREE_CHAIN) e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,m)
e1:SetTarget(cm.damtg) e1:SetTarget(cm.damtg)
e1:SetOperation(cm.damop) e1:SetOperation(cm.damop)
c:RegisterEffect(e1) c:RegisterEffect(e1)
...@@ -33,7 +34,7 @@ end ...@@ -33,7 +34,7 @@ end
function cm.damop(e,tp,eg,ep,ev,re,r,rp) function cm.damop(e,tp,eg,ep,ev,re,r,rp)
local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
Duel.Damage(p,d,REASON_EFFECT) Duel.Damage(p,d,REASON_EFFECT)
if Duel.GetActivityCount(m,tp,ACTIVITY_CHAIN)==1 then if Duel.GetActivityCount(m,tp,ACTIVITY_CHAIN)==0 then
Duel.BreakEffect() Duel.BreakEffect()
Duel.Damage(p,1000,REASON_EFFECT) Duel.Damage(p,1000,REASON_EFFECT)
end end
......
--方舟骑士 泥岩 --方舟骑士 泥岩
cm.named_with_Arknight=1
function c72410180.initial_effect(c) function c72410180.initial_effect(c)
--special summon rule --special summon rule
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
......
--扭曲念想·不死的黑蛇
function c79036001.initial_effect(c)
c:EnableReviveLimit()
--spsummon condition
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
c:RegisterEffect(e1)
--special summon rule
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_EXTRA)
e2:SetCondition(c79036001.sprcon)
e2:SetOperation(c79036001.sprop)
c:RegisterEffect(e2)
--Announce
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_ANNOUNCE+CATEGORY_EQUIP)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1)
e3:SetTarget(c79036001.antg)
e3:SetOperation(c79036001.anop)
c:RegisterEffect(e3)
end
function c79036001.sprfilter(c)
return c:IsFaceup() and c:IsAbleToGraveAsCost()
end
function c79036001.sprfilter1(c,tp,g,sc)
local lv=c:GetLevel()
return c:IsType(TYPE_TUNER) and g:IsExists(c79036001.sprfilter2,1,c,tp,c,sc,lv)
end
function c79036001.sprfilter2(c,tp,mc,sc,lv)
local sg=Group.FromCards(c,mc)
return c:IsLevel(lv) and not c:IsType(TYPE_TUNER)
and Duel.GetLocationCountFromEx(tp,tp,sg,sc)>0
end
function c79036001.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local g=Duel.GetMatchingGroup(c79036001.sprfilter,tp,LOCATION_MZONE,0,nil)
return g:IsExists(c79036001.sprfilter1,1,nil,tp,g,c)
end
function c79036001.sprop(e,tp,eg,ep,ev,re,r,rp,c)
local g=Duel.GetMatchingGroup(c79036001.sprfilter,tp,LOCATION_MZONE,0,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g1=g:FilterSelect(tp,c79036001.sprfilter1,1,1,nil,tp,g,c)
local mc=g1:GetFirst()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g2=g:FilterSelect(tp,c79036001.sprfilter2,1,1,mc,tp,mc,c,mc:GetLevel())
g1:Merge(g2)
Duel.SendtoGrave(g1,REASON_COST)
end
function c79036001.antg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
local op=0
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(79036001,3))
op=Duel.SelectOption(tp,aux.Stringid(79036001,0),aux.Stringid(79036001,1),aux.Stringid(79036001,2))
e:SetLabel(op)
end
function c79036001.anop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local op=e:GetLabel()
--
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_CHAINING)
e1:SetLabel(op)
e1:SetCondition(c79036001.eqcon)
e1:SetOperation(c79036001.eqop)
e1:SetReset(RESET_PHASE+PHASE_END,2)
Duel.RegisterEffect(e1,tp)
end
function c79036001.eqcon(e,tp,eg,ep,ev,re,r,rp)
local op=e:GetLabel()
local ex2,g2,gc2,dp2,dv2=Duel.GetOperationInfo(ev,CATEGORY_SPECIAL_SUMMON)
if op==0 then
return ((ex2 and bit.band(dv2,LOCATION_DECK)==LOCATION_DECK) or (ex2 and bit.band(dv2,LOCATION_EXTRA)==LOCATION_EXTRA)) and rp==1-tp and Duel.IsChainDisablable(ev) and re:GetHandler():IsType(TYPE_MONSTER)
elseif op==1 then
return (ex2 and bit.band(dv2,LOCATION_GRAVE)==LOCATION_GRAVE) and rp==1-tp and Duel.IsChainDisablable(ev) and re:GetHandler():IsType(TYPE_MONSTER)
elseif op==2 then
return (ex2 and bit.band(dv2,LOCATION_HAND)==LOCATION_HAND) and rp==1-tp and Duel.IsChainDisablable(ev) and re:GetHandler():IsType(TYPE_MONSTER)
end
end
function c79036001.eqop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,79036001)
Duel.NegateEffect(ev)
local c=e:GetHandler()
local tc=re:GetHandler()
if c:IsOnField() and c:IsFaceup() and not c:IsStatus(STATUS_BATTLE_DESTROYED) then
if tc:IsLocation(LOCATION_MZONE) then
Duel.Equip(tp,c,tc)
--Add Equip limit
local e1=Effect.CreateEffect(tc)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EQUIP_LIMIT)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetValue(c79036001.eqlimit)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_EQUIP)
e2:SetCode(EFFECT_SET_CONTROL)
e2:SetValue(tp)
e2:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
c:RegisterEffect(e2)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_EQUIP)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetValue(1000)
e2:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e2)
elseif not tc:IsLocation(LOCATION_MZONE) then
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
Duel.Equip(tp,c,tc)
--Add Equip limit
local e1=Effect.CreateEffect(tc)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EQUIP_LIMIT)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetValue(c79036001.eqlimit)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_EQUIP)
e2:SetCode(EFFECT_UPDATE_ATTACK)
e2:SetValue(1000)
e2:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e2)
end
end
e:Reset()
end
function c79036001.eqlimit(e,c)
return e:GetOwner()==c
end
...@@ -527,6 +527,8 @@ ...@@ -527,6 +527,8 @@
!setname 0x6f3d 秋之刻证兽 !setname 0x6f3d 秋之刻证兽
!setname 0x9f3d 冬之刻证兽 !setname 0x9f3d 冬之刻证兽
!setname 0x3f3e 灵核机 !setname 0x3f3e 灵核机
!setname 0x5f3e Pecftlcus(未来圣罚)
!setname 0x6f3e Se7en(罪名)
!counter 0xf3 陨星指示物 !counter 0xf3 陨星指示物
!counter 0xf3c 幻象指示物 !counter 0xf3c 幻象指示物
!counter 0x1f35 龙鳞指示物 !counter 0x1f35 龙鳞指示物
...@@ -567,7 +569,11 @@ ...@@ -567,7 +569,11 @@
!counter 0xca13 鲨鱼指示物 !counter 0xca13 鲨鱼指示物
!setname 0xcab 镜碎 !setname 0xcab 镜碎
!counter 0x10cb 镜碎指示物 !counter 0x10cb 镜碎指示物
#空鸽 0x7f0-0x7ff
!setname 0x7fa 假面骑士 !setname 0x7fa 假面骑士
!setname 0x37fb 零一
!setname 0x47fb 亚克
#洛基卡奥斯 Dr.Chaos 670489248 107 0xa00-0xa0f #洛基卡奥斯 Dr.Chaos 670489248 107 0xa00-0xa0f
!setname 0x3a01 姬绊连结 !setname 0x3a01 姬绊连结
...@@ -729,6 +735,9 @@ ...@@ -729,6 +735,9 @@
!setname 0x323 灵兽训练师 !setname 0x323 灵兽训练师
!setname 0x324 幻梦灵兽 !setname 0x324 幻梦灵兽
!setname 0x326 机略纵横 !setname 0x326 机略纵横
!setname 0x329 异界旅人
!setname 0xa329 夜幕魔术团
!setname 0xc329 幻兽佣兵团
#vestige 751011441 825 0x820-0x82f #vestige 751011441 825 0x820-0x82f
!setname 0x829 钢战 !setname 0x829 钢战
...@@ -767,6 +776,10 @@ ...@@ -767,6 +776,10 @@
#拳定天下 230 0x350-0x35f #拳定天下 230 0x350-0x35f
#永远的干涸
!setname 0x888
!setname 0x889 铭恶魔
!setname 0x890 铭魔王
#老凤凰 672 0x670-0x67f #老凤凰 672 0x670-0x67f
!setname 0x673 创刻 !setname 0x673 创刻
...@@ -790,9 +803,6 @@ ...@@ -790,9 +803,6 @@
!system 0x1222 U87 !system 0x1222 U87
#??? #???
!setname 0x5f3e Pecftlcus(未来圣罚)
!setname 0x6f3e Se7en(罪名)
#TYGOC Submissions #TYGOC Submissions
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment