Commit c1a55c53 authored by POLYMER's avatar POLYMER

fix

parent 3d3d1977
......@@ -95,17 +95,18 @@ function cm.imop(e,tp,eg,ep,ev,re,r,rp)
e1:SetLabel(1)
end
Duel.RegisterEffect(e1,tp)
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_FIELD)
--[[local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(0x20000000+m+1)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetRange(LOCATION_GRAVE)
e2:SetTargetRange(1,0)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e:GetHandler():RegisterEffect(e2)
e:GetHandler():RegisterEffect(e2)--]]
e:GetHandler():RegisterFlagEffect(m+1,RESET_EVENT+RESETS_STANDARD,0,1)
end
function cm.flcon(e)
return Duel.GetFlagEffect(e:GetHandlerPlayer(),m+1)~=0
return e:GetHandler():GetFlagEffect(m+1)>0
end
function cm.thop(e,tp,eg,ep,ev,re,r,rp)
if rp==1-tp and e:GetLabel()==1 then return end
......
--唤士的幼龙-嘉儿
if not require and loadfile then
function require(str)
require_list=require_list or {}
if not require_list[str] then
if string.find(str,"%.") then
require_list[str]=loadfile(str)
else
require_list[str]=loadfile(str..".lua")
end
pcall(require_list[str])
return require_list[str]
end
return require_list[str]
end
end
if not pcall(function() require("expansions/script/c130001000") end) then require("script/c130001000") end
local m,cm=rscf.DefineCard(130005101,"DragonCaller")
if rsdc then return end
......
--唤士的观测者-尤拉
if not require and loadfile then
function require(str)
require_list=require_list or {}
if not require_list[str] then
if string.find(str,"%.") then
require_list[str]=loadfile(str)
else
require_list[str]=loadfile(str..".lua")
end
pcall(require_list[str])
return require_list[str]
end
return require_list[str]
end
end
if not pcall(function() require("expansions/script/c130005101") end) then require("script/c130005101") end
local m,cm=rscf.DefineCard(130005102,"DragonCaller")
function cm.initial_effect(c)
......
--龙唤士 罗莎
if not require and loadfile then
function require(str)
require_list=require_list or {}
if not require_list[str] then
if string.find(str,"%.") then
require_list[str]=loadfile(str)
else
require_list[str]=loadfile(str..".lua")
end
pcall(require_list[str])
return require_list[str]
end
return require_list[str]
end
end
if not pcall(function() require("expansions/script/c130005101") end) then require("script/c130005101") end
local m,cm=rscf.DefineCard(130005107,"DragonCaller")
function cm.initial_effect(c)
......
......@@ -338,8 +338,8 @@ function cm.checkopn(e,tp,c,mf)
c:SetEntityCode(g:GetOriginalCode(),true)
local te,ceg,cep,cev,cre,cr,crp=g:CheckActivateEffect(false,true,true)
--
if c:IsLocation(LOCATION_HAND) and-- (e:GetLabelObject():IsHasType(EFFECT_TYPE_QUICK_O) or e:GetLabelObject():IsHasType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)) and --
not e:GetLabelObject():IsHasType(EFFECT_TYPE_ACTIVATE) then
if c:IsLocation(LOCATION_HAND) then-- (e:GetLabelObject():IsHasType(EFFECT_TYPE_QUICK_O) or e:GetLabelObject():IsHasType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)) and --
--not e:GetLabelObject():IsHasType(EFFECT_TYPE_ACTIVATE) then
if not c:IsType(TYPE_FIELD) then
Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
else
......@@ -360,7 +360,7 @@ function cm.checkopn(e,tp,c,mf)
e1:SetReset(RESET_EVENT+0x1fc0000)
c:RegisterEffect(e1,true)
end
if mf~=1 then e:GetLabelObject():SetType(EFFECT_TYPE_ACTIVATE) end
--if mf~=1 then e:GetLabelObject():SetType(EFFECT_TYPE_ACTIVATE) end
if not c:IsType(TYPE_CONTINUOUS) and not c:IsType(TYPE_FIELD) then c:CancelToGrave(false) end
end
if te~=nil and te:GetProperty()~=nil then--and bit.band(te:GetProperty(),EFFECT_FLAG_CARD_TARGET)~=0 then
......@@ -687,7 +687,7 @@ function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
end
--相同cost
function cm.costn(e,tp,c)
e:SetType(EFFECT_TYPE_ACTIVATE)
--e:SetType(EFFECT_TYPE_ACTIVATE)
--
local c2=cm.gx
if c2~=nil then
......
......@@ -29,7 +29,7 @@ function c9910212.checkop1(e,tp,eg,ep,ev,re,r,rp)
local tg=eg:Filter(Card.IsLocation,nil,LOCATION_MZONE)
if #tg>0 then
for tc in aux.Next(tg) do
tc:RegisterFlagEffect(9910212,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(9910212,0))
tc:RegisterFlagEffect(9910212,RESET_EVENT+0x1fc0000,EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(9910212,0))
end
end
end
......@@ -37,7 +37,7 @@ function c9910212.checkop2(e,tp,eg,ep,ev,re,r,rp)
local tg=Duel.GetMatchingGroup(c9910212.ctgfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil)
if #tg>0 then
for tc in aux.Next(tg) do
tc:RegisterFlagEffect(9910212,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(9910212,0))
tc:RegisterFlagEffect(9910212,RESET_EVENT+0x1fc0000,EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(9910212,0))
end
end
end
......
......@@ -43,7 +43,7 @@ function c9910365.checkop1(e,tp,eg,ep,ev,re,r,rp)
local tg=eg:Filter(Card.IsOnField,nil)
if #tg>0 then
for tc in aux.Next(tg) do
tc:RegisterFlagEffect(9910365,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(9910365,1))
tc:RegisterFlagEffect(9910365,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(9910365,1))
end
end
end
......@@ -51,7 +51,7 @@ function c9910365.checkop2(e,tp,eg,ep,ev,re,r,rp)
local tg=Duel.GetMatchingGroup(c9910365.ctgfilter,0,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
if #tg>0 then
for tc in aux.Next(tg) do
tc:RegisterFlagEffect(9910365,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(9910365,1))
tc:RegisterFlagEffect(9910365,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(9910365,1))
end
end
end
......
......@@ -48,7 +48,7 @@ function c9911370.checkop1(e,tp,eg,ep,ev,re,r,rp)
local tg=eg:Filter(Card.IsOnField,nil)
if #tg>0 then
for tc in aux.Next(tg) do
tc:RegisterFlagEffect(9911370,RESET_EVENT+RESETS_STANDARD,0,1)
tc:RegisterFlagEffect(9911370,RESET_EVENT+0x1fc0000,EFFECT_FLAG_SET_AVAILABLE,1)
end
end
end
......@@ -56,7 +56,7 @@ function c9911370.checkop2(e,tp,eg,ep,ev,re,r,rp)
local tg=Duel.GetMatchingGroup(c9911370.ctgfilter,0,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
if #tg>0 then
for tc in aux.Next(tg) do
tc:RegisterFlagEffect(9911370,RESET_EVENT+RESETS_STANDARD,0,1)
tc:RegisterFlagEffect(9911370,RESET_EVENT+0x1fc0000,EFFECT_FLAG_SET_AVAILABLE,1)
end
end
end
......
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