Commit e9564194 authored by POLYMER's avatar POLYMER

fix

parent a3a28cb6
...@@ -2,6 +2,10 @@ ...@@ -2,6 +2,10 @@
local m=40011475 local m=40011475
local cm=_G["c"..m] local cm=_G["c"..m]
cm.named_with_MagicCombineMagic=1 cm.named_with_MagicCombineMagic=1
function cm.Spiritualist(c)
local m=_G["c"..c:GetCode()]
return m and m.named_with_Spiritualist
end
function cm.initial_effect(c) function cm.initial_effect(c)
--Activate --Activate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
......
...@@ -5,7 +5,7 @@ function cm.initial_effect(c) ...@@ -5,7 +5,7 @@ function cm.initial_effect(c)
c:EnableCounterPermit(0x626,LOCATION_ONFIELD) c:EnableCounterPermit(0x626,LOCATION_ONFIELD)
c:SetCounterLimit(0x626,1) c:SetCounterLimit(0x626,1)
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) --e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e3:SetType(EFFECT_TYPE_ACTIVATE) e3:SetType(EFFECT_TYPE_ACTIVATE)
e3:SetCode(EVENT_FREE_CHAIN) e3:SetCode(EVENT_FREE_CHAIN)
e3:SetTarget(cm.tg4) e3:SetTarget(cm.tg4)
...@@ -41,7 +41,7 @@ end ...@@ -41,7 +41,7 @@ end
function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
Duel.SetTargetPlayer(tp) Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(2) Duel.SetTargetParam(1)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end end
function cm.desop(e,tp,eg,ep,ev,re,r,rp) function cm.desop(e,tp,eg,ep,ev,re,r,rp)
......
...@@ -20,7 +20,7 @@ function cm.initial_effect(c) ...@@ -20,7 +20,7 @@ function cm.initial_effect(c)
e3:SetDescription(aux.Stringid(m,1)) e3:SetDescription(aux.Stringid(m,1))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON) e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_IGNITION) e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE) e3:SetRange(LOCATION_HAND)
e3:SetCost(cm.descost) e3:SetCost(cm.descost)
e3:SetTarget(cm.destg) e3:SetTarget(cm.destg)
e3:SetOperation(cm.desop) e3:SetOperation(cm.desop)
...@@ -72,5 +72,9 @@ function cm.desop(e,tp,eg,ep,ev,re,r,rp) ...@@ -72,5 +72,9 @@ function cm.desop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) then if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
if Duel.IsPlayerCanDiscardDeck(1-tp,1) then
Duel.BreakEffect()
Duel.DiscardDeck(1-tp,3,REASON_EFFECT)
end
end end
end end
\ No newline at end of file
...@@ -14,6 +14,26 @@ function cm.initial_effect(c) ...@@ -14,6 +14,26 @@ function cm.initial_effect(c)
e3:SetTarget(cm.thtg) e3:SetTarget(cm.thtg)
e3:SetOperation(cm.thop) e3:SetOperation(cm.thop)
c:RegisterEffect(e3) c:RegisterEffect(e3)
if not cm.LHini==true then
cm.LHini=true
--local tp=c:GetOwner()
--spsm
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCondition(cm.LHcon1)
e1:SetOperation(cm.LHop1)
Duel.RegisterEffect(e1,tp)
--spsm
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCondition(cm.LHcon1)
e1:SetOperation(cm.LHop1)
Duel.RegisterEffect(e1,tp)
end
end end
function cm.thfil(c) function cm.thfil(c)
return c:IsAbleToHand() return c:IsAbleToHand()
...@@ -30,7 +50,24 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp) ...@@ -30,7 +50,24 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g) Duel.ConfirmCards(1-tp,g)
local ti=MTC.LHnum(tp)*300 local ti=MTC.LHnum(tp)*200
Duel.Recover(tp,ti,REASON_EFFECT) Duel.Damage(1-tp,ti,REASON_EFFECT)
end
end
function cm.LHfil1(c,tp)
return c:IsSummonPlayer(tp) and c:IsSetCard(0x630)
end
function cm.LHcon1(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(MTC.LHfil1,1,nil,tp)
end
function cm.LHop1(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=eg:GetFirst()
while tc do
if tc:IsSetCard(0x630) then
Duel.RegisterFlagEffect(tc:GetSummonPlayer(),60010002,RESET_PHASE+PHASE_END,0,1)
Duel.RaiseEvent(c,EVENT_CUSTOM+60010002,nil,0,tc:GetSummonPlayer(),tc:GetSummonPlayer(),0)
end
tc=eg:GetNext()
end end
end end
\ No newline at end of file
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
Duel.LoadScript("c60010000.lua") Duel.LoadScript("c60010000.lua")
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
MTC.LHini(c) --MTC.LHini(c)
MTC.LHSpS(c,2) MTC.LHSpS(c,2)
--search --search
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
...@@ -14,6 +14,26 @@ function cm.initial_effect(c) ...@@ -14,6 +14,26 @@ function cm.initial_effect(c)
e3:SetTarget(cm.thtg) e3:SetTarget(cm.thtg)
e3:SetOperation(cm.thop) e3:SetOperation(cm.thop)
c:RegisterEffect(e3) c:RegisterEffect(e3)
if not cm.LHini==true then
cm.LHini=true
--local tp=c:GetOwner()
--spsm
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCondition(cm.LHcon1)
e1:SetOperation(cm.LHop1)
Duel.RegisterEffect(e1,tp)
--spsm
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCondition(cm.LHcon1)
e1:SetOperation(cm.LHop1)
Duel.RegisterEffect(e1,tp)
end
end end
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler() local c=e:GetHandler()
...@@ -30,4 +50,21 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp) ...@@ -30,4 +50,21 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
local rg=Duel.GetDecktopGroup(1-tp,ti) local rg=Duel.GetDecktopGroup(1-tp,ti)
Duel.Remove(rg,POS_FACEDOWN,REASON_EFFECT) Duel.Remove(rg,POS_FACEDOWN,REASON_EFFECT)
end end
end
function cm.LHfil1(c,tp)
return c:IsSummonPlayer(tp) and c:IsSetCard(0x630)
end
function cm.LHcon1(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(MTC.LHfil1,1,nil,tp)
end
function cm.LHop1(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=eg:GetFirst()
while tc do
if tc:IsSetCard(0x630) then
Duel.RegisterFlagEffect(tc:GetSummonPlayer(),60010002,RESET_PHASE+PHASE_END,0,1)
Duel.RaiseEvent(c,EVENT_CUSTOM+60010002,nil,0,tc:GetSummonPlayer(),tc:GetSummonPlayer(),0)
end
tc=eg:GetNext()
end
end end
\ No newline at end of file
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
Duel.LoadScript("c60010000.lua") Duel.LoadScript("c60010000.lua")
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
MTC.LHini(c) --MTC.LHini(c)
MTC.LHSpS(c,3) MTC.LHSpS(c,3)
--to hand --to hand
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
...@@ -17,6 +17,26 @@ function cm.initial_effect(c) ...@@ -17,6 +17,26 @@ function cm.initial_effect(c)
local e2=e1:Clone() local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS) e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2) c:RegisterEffect(e2)
if not cm.LHini==true then
cm.LHini=true
--local tp=c:GetOwner()
--spsm
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCondition(cm.LHcon1)
e1:SetOperation(cm.LHop1)
Duel.RegisterEffect(e1,tp)
--spsm
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCondition(cm.LHcon1)
e1:SetOperation(cm.LHop1)
Duel.RegisterEffect(e1,tp)
end
end end
function cm.tdfilter(c) function cm.tdfilter(c)
return c:IsSetCard(0x630) and c:IsAbleToHand() return c:IsSetCard(0x630) and c:IsAbleToHand()
...@@ -53,4 +73,21 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp) ...@@ -53,4 +73,21 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
local mg=Duel.GetDecktopGroup(p,1) local mg=Duel.GetDecktopGroup(p,1)
Duel.MoveSequence(mg:GetFirst(),SEQ_DECKBOTTOM) Duel.MoveSequence(mg:GetFirst(),SEQ_DECKBOTTOM)
end end
end
function cm.LHfil1(c,tp)
return c:IsSummonPlayer(tp) and c:IsSetCard(0x630)
end
function cm.LHcon1(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(MTC.LHfil1,1,nil,tp)
end
function cm.LHop1(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=eg:GetFirst()
while tc do
if tc:IsSetCard(0x630) then
Duel.RegisterFlagEffect(tc:GetSummonPlayer(),60010002,RESET_PHASE+PHASE_END,0,1)
Duel.RaiseEvent(c,EVENT_CUSTOM+60010002,nil,0,tc:GetSummonPlayer(),tc:GetSummonPlayer(),0)
end
tc=eg:GetNext()
end
end end
\ No newline at end of file
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
Duel.LoadScript("c60010000.lua") Duel.LoadScript("c60010000.lua")
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
MTC.LHini(c) --MTC.LHini(c)
MTC.LHSpS(c,3) MTC.LHSpS(c,3)
--to hand --to hand
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
...@@ -17,6 +17,26 @@ function cm.initial_effect(c) ...@@ -17,6 +17,26 @@ function cm.initial_effect(c)
local e2=e1:Clone() local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS) e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2) c:RegisterEffect(e2)
if not cm.LHini==true then
cm.LHini=true
--local tp=c:GetOwner()
--spsm
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCondition(cm.LHcon1)
e1:SetOperation(cm.LHop1)
Duel.RegisterEffect(e1,tp)
--spsm
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCondition(cm.LHcon1)
e1:SetOperation(cm.LHop1)
Duel.RegisterEffect(e1,tp)
end
end end
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_GRAVE,0)~=0 and Duel.IsPlayerCanDraw(tp) end if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_GRAVE,0)~=0 and Duel.IsPlayerCanDraw(tp) end
...@@ -36,4 +56,21 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp) ...@@ -36,4 +56,21 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Draw(tp,ti,REASON_EFFECT) Duel.Draw(tp,ti,REASON_EFFECT)
end end
end end
end
function cm.LHfil1(c,tp)
return c:IsSummonPlayer(tp) and c:IsSetCard(0x630)
end
function cm.LHcon1(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(MTC.LHfil1,1,nil,tp)
end
function cm.LHop1(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=eg:GetFirst()
while tc do
if tc:IsSetCard(0x630) then
Duel.RegisterFlagEffect(tc:GetSummonPlayer(),60010002,RESET_PHASE+PHASE_END,0,1)
Duel.RaiseEvent(c,EVENT_CUSTOM+60010002,nil,0,tc:GetSummonPlayer(),tc:GetSummonPlayer(),0)
end
tc=eg:GetNext()
end
end end
\ No newline at end of file
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
Duel.LoadScript("c60010000.lua") Duel.LoadScript("c60010000.lua")
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
MTC.LHini(c) --MTC.LHini(c)
MTC.LHSpS(c,3) MTC.LHSpS(c,3)
--battle indes --battle indes
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
...@@ -22,10 +22,47 @@ function cm.initial_effect(c) ...@@ -22,10 +22,47 @@ function cm.initial_effect(c)
e3:GetCondition(cm.con) e3:GetCondition(cm.con)
e3:SetValue(cm.efilter) e3:SetValue(cm.efilter)
c:RegisterEffect(e3) c:RegisterEffect(e3)
if not cm.LHini==true then
cm.LHini=true
--local tp=c:GetOwner()
--spsm
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCondition(cm.LHcon1)
e1:SetOperation(cm.LHop1)
Duel.RegisterEffect(e1,tp)
--spsm
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCondition(cm.LHcon1)
e1:SetOperation(cm.LHop1)
Duel.RegisterEffect(e1,tp)
end
end end
function cm.efilter(e,re) function cm.efilter(e,re)
return e:GetHandlerPlayer()~=re:GetOwnerPlayer() and re:IsActivated() return e:GetHandlerPlayer()~=re:GetOwnerPlayer() and re:IsActivated()
end end
function cm.con(e,tp,eg,ep,ev,re,r,rp,tc) function cm.con(e,tp,eg,ep,ev,re,r,rp,tc)
return Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_FZONE,0,1,nil,60010002) return Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_FZONE,0,1,nil,60010002)
end
function cm.LHfil1(c,tp)
return c:IsSummonPlayer(tp) and c:IsSetCard(0x630)
end
function cm.LHcon1(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(MTC.LHfil1,1,nil,tp)
end
function cm.LHop1(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=eg:GetFirst()
while tc do
if tc:IsSetCard(0x630) then
Duel.RegisterFlagEffect(tc:GetSummonPlayer(),60010002,RESET_PHASE+PHASE_END,0,1)
Duel.RaiseEvent(c,EVENT_CUSTOM+60010002,nil,0,tc:GetSummonPlayer(),tc:GetSummonPlayer(),0)
end
tc=eg:GetNext()
end
end end
\ No newline at end of file
...@@ -31,10 +31,9 @@ function cm.filter(c,e,tp) ...@@ -31,10 +31,9 @@ function cm.filter(c,e,tp)
end end
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp)end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
end end
end
function cm.thop(e,tp,eg,ep,ev,re,r,rp) function cm.thop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
......
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