Skip to content

Y
ygopro-222DIY-cards
Commit 0ee8ca03 authored by songtongtong's avatar songtongtong
Browse files
Options

bug fix

parent f003b6cc
Hide whitespace changes
Inline Side-by-side
Showing with 121 additions and 119 deletions
expansions/script/c16104406.lua
View file @ 0ee8ca03
......@@ -109,6 +109,7 @@ function cm.cfilter(c,e,tp)
return c:IsSummonPlayer(tp) and c:IsSetCard(0xccb) and c:IsType(TYPE_MONSTER) and c~=e:GetHandler()
end
function cm.reccon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
return eg:IsExists(cm.cfilter,1,nil,e,tp) and g:GetCount()>0 and c:GetFlagEffect(m*10)==0
end
......
expansions/script/c64837008.lua
View file @ 0ee8ca03
--『怪盗Hello Happy』 濑田薰
function c64837008.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
c:EnableReviveLimit()
--spsummon bgm
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e0:SetCode(EVENT_SPSUMMON_SUCCESS)
e0:SetCondition(c64837008.sumcon)
e0:SetOperation(c64837008.sumsuc)
c:RegisterEffect(e0)
--equip
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(64837008,0))
e1:SetCategory(CATEGORY_EQUIP)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1)
e1:SetCondition(c64837008.eqcon)
e1:SetCost(c64837008.eqcost)
e1:SetTarget(c64837008.eqtg)
e1:SetOperation(c64837008.eqop)
c:RegisterEffect(e1)
--destroy replace
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_DESTROY_REPLACE)
e2:SetRange(LOCATION_MZONE)
e2:SetTarget(c64837008.desreptg)
e2:SetValue(c64837008.desrepval)
e2:SetOperation(c64837008.desrepop)
c:RegisterEffect(e2)
end
function c64837008.sumcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsPreviousLocation(LOCATION_EXTRA)
end
function c64837008.sumsuc(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_MUSIC,0,aux.Stringid(64837008,0))
end
function c64837008.repfilter(c,tp)
return c:IsControler(tp) and c:IsLocation(LOCATION_ONFIELD)
and c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
end
function c64837008.desrepfil(c)
return c:GetEquipTarget()~=nil and c:IsAbleToGrave()
end
function c64837008.desreptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return eg:IsExists(c64837008.repfilter,1,nil,tp)
and Duel.IsExistingMatchingCard(c64837008.desrepfil,tp,LOCATION_SZONE,0,1,nil) end
return Duel.SelectEffectYesNo(tp,c,96)
end
function c64837008.desrepval(e,c)
return c64837008.repfilter(c,e:GetHandlerPlayer())
end
function c64837008.desrepop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,64837008)
local g=Duel.SelectMatchingCard(tp,c64837008.desrepfil,tp,LOCATION_SZONE,0,1,1,nil)
Duel.SendtoGrave(g,REASON_EFFECT+REASON_REPLACE)
end
function c64837008.eqcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c64837008.can_equip_monster(c)
end
function c64837008.eqfilter(c)
return c:GetFlagEffect(64837008)~=0
end
function c64837008.can_equip_monster(c)
local g=c:GetEquipGroup():Filter(c64837008.eqfilter,nil)
return g:GetCount()==0
end
function c64837008.eqcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckLPCost(tp,2000) end
Duel.PayLPCost(tp,2000)
end
function c64837008.eqtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
and Duel.GetMatchingGroupCount(Card.IsFacedown,tp,0,LOCATION_EXTRA,nil)>=2 end
Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0)
end
function c64837008.eqlimit(e,c)
return e:GetOwner()==c
end
function c64837008.equip_monster(c,tp,tc)
Duel.ConfirmCards(tp,tc)
if not Duel.Equip(tp,tc,c,true) then return end
local code=tc:GetCode()
--Add Equip limit
tc:RegisterFlagEffect(64837008,RESET_EVENT+RESETS_STANDARD,0,0)
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_OWNER_RELATE)
e0:SetCode(EFFECT_EQUIP_LIMIT)
e0:SetReset(RESET_EVENT+RESETS_STANDARD)
e0:SetValue(c64837008.eqlimit)
tc:RegisterEffect(e0)
--copy
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetCode(EFFECT_CHANGE_CODE)
e1:SetValue(code)
c:RegisterEffect(e1)
c:CopyEffect(code,RESET_EVENT+RESETS_STANDARD,1)
end
function c64837008.eqop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local ag=Duel.GetMatchingGroup(Card.IsFacedown,tp,0,LOCATION_EXTRA,nil)
if ag:GetCount()<2 then return end
local g=ag:RandomSelect(1-tp,2)
Duel.ConfirmCards(1-tp,g)
if g:IsExists(Card.IsAbleToChangeControler,1,nil) then
local sg=g:Filter(Card.IsAbleToChangeControler,1,nil)
local tc=sg:Select(1-tp,1,1,nil):GetFirst()
c64837008.equip_monster(c,tp,tc)
end
--『怪盗Hello Happy』 濑田薰
function c64837008.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
c:EnableReviveLimit()
--spsummon bgm
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e0:SetCode(EVENT_SPSUMMON_SUCCESS)
e0:SetCondition(c64837008.sumcon)
e0:SetOperation(c64837008.sumsuc)
c:RegisterEffect(e0)
--equip
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(64837008,0))
e1:SetCategory(CATEGORY_EQUIP)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,64837008)
e1:SetCondition(c64837008.eqcon)
e1:SetCost(c64837008.eqcost)
e1:SetTarget(c64837008.eqtg)
e1:SetOperation(c64837008.eqop)
c:RegisterEffect(e1)
--destroy replace
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_DESTROY_REPLACE)
e2:SetRange(LOCATION_MZONE)
e2:SetTarget(c64837008.desreptg)
e2:SetValue(c64837008.desrepval)
e2:SetOperation(c64837008.desrepop)
c:RegisterEffect(e2)
end
function c64837008.sumcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsPreviousLocation(LOCATION_EXTRA)
end
function c64837008.sumsuc(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_MUSIC,0,aux.Stringid(64837008,0))
end
function c64837008.repfilter(c,tp)
return c:IsControler(tp) and c:IsLocation(LOCATION_ONFIELD)
and c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
end
function c64837008.desrepfil(c)
return c:GetEquipTarget()~=nil and c:IsAbleToGrave()
end
function c64837008.desreptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return eg:IsExists(c64837008.repfilter,1,nil,tp)
and Duel.IsExistingMatchingCard(c64837008.desrepfil,tp,LOCATION_SZONE,0,1,nil) end
return Duel.SelectEffectYesNo(tp,c,96)
end
function c64837008.desrepval(e,c)
return c64837008.repfilter(c,e:GetHandlerPlayer())
end
function c64837008.desrepop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,64837008)
local g=Duel.SelectMatchingCard(tp,c64837008.desrepfil,tp,LOCATION_SZONE,0,1,1,nil)
Duel.SendtoGrave(g,REASON_EFFECT+REASON_REPLACE)
end
function c64837008.eqcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c64837008.can_equip_monster(c)
end
function c64837008.eqfilter(c)
return c:GetFlagEffect(64837008)~=0
end
function c64837008.can_equip_monster(c)
local g=c:GetEquipGroup():Filter(c64837008.eqfilter,nil)
return g:GetCount()==0
end
function c64837008.eqcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckLPCost(tp,2000) end
Duel.PayLPCost(tp,2000)
end
function c64837008.eqtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
and Duel.GetMatchingGroupCount(Card.IsFacedown,tp,0,LOCATION_EXTRA,nil)>=3 end
Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0)
end
function c64837008.eqlimit(e,c)
return e:GetOwner()==c
end
function c64837008.equip_monster(c,tp,tc)
Duel.ConfirmCards(tp,tc)
if not Duel.Equip(tp,tc,c,true) then return end
local code=tc:GetCode()
--Add Equip limit
tc:RegisterFlagEffect(64837008,RESET_EVENT+RESETS_STANDARD,0,0)
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_OWNER_RELATE)
e0:SetCode(EFFECT_EQUIP_LIMIT)
e0:SetReset(RESET_EVENT+RESETS_STANDARD)
e0:SetValue(c64837008.eqlimit)
tc:RegisterEffect(e0)
--copy
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetCode(EFFECT_CHANGE_CODE)
e1:SetValue(code)
c:RegisterEffect(e1)
c:CopyEffect(code,RESET_EVENT+RESETS_STANDARD,1)
end
function c64837008.eqop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
local ag=Duel.GetMatchingGroup(Card.IsFacedown,tp,0,LOCATION_EXTRA,nil)
if ag:GetCount()<3 then return end
local g=ag:RandomSelect(1-tp,3)
Duel.ConfirmCards(tp,g)
if g:IsExists(Card.IsAbleToChangeControler,1,nil) then
local sg=g:Filter(Card.IsAbleToChangeControler,1,nil)
local tc=sg:Select(tp,1,1,nil):GetFirst()
c64837008.equip_monster(c,tp,tc)
end
end
\ No newline at end of file
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