Skip to content

no81cards
no81cards
Commit e9564194 authored by POLYMER's avatar POLYMER
Browse files
Options

fix

parent a3a28cb6
Show whitespace changes
Inline Side-by-side
Showing with 203 additions and 11 deletions
expansions/script/c40011475.lua
View file @ e9564194
......@@ -2,6 +2,10 @@
local m=40011475
local cm=_G["c"..m]
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)
--Activate
local e1=Effect.CreateEffect(c)
......
expansions/script/c60002401.lua
View file @ e9564194
......@@ -5,7 +5,7 @@ function cm.initial_effect(c)
c:EnableCounterPermit(0x626,LOCATION_ONFIELD)
c:SetCounterLimit(0x626,1)
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
--e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e3:SetType(EFFECT_TYPE_ACTIVATE)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetTarget(cm.tg4)
......@@ -41,7 +41,7 @@ end
function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
Duel.SetTargetPlayer(tp)
Duel.SetTargetParam(2)
Duel.SetTargetParam(1)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end
function cm.desop(e,tp,eg,ep,ev,re,r,rp)
......
expansions/script/c60002403.lua
View file @ e9564194
......@@ -20,7 +20,7 @@ function cm.initial_effect(c)
e3:SetDescription(aux.Stringid(m,1))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetRange(LOCATION_HAND)
e3:SetCost(cm.descost)
e3:SetTarget(cm.destg)
e3:SetOperation(cm.desop)
......@@ -72,5 +72,9 @@ function cm.desop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
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
\ No newline at end of file
expansions/script/c60010006.lua
View file @ e9564194
......@@ -14,6 +14,26 @@ function cm.initial_effect(c)
e3:SetTarget(cm.thtg)
e3:SetOperation(cm.thop)
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
function cm.thfil(c)
return c:IsAbleToHand()
......@@ -30,7 +50,24 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
local ti=MTC.LHnum(tp)*300
Duel.Recover(tp,ti,REASON_EFFECT)
local ti=MTC.LHnum(tp)*200
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
\ No newline at end of file
expansions/script/c60010007.lua
View file @ e9564194
......@@ -2,7 +2,7 @@
Duel.LoadScript("c60010000.lua")
local cm,m,o=GetID()
function cm.initial_effect(c)
MTC.LHini(c)
--MTC.LHini(c)
MTC.LHSpS(c,2)
--search
local e3=Effect.CreateEffect(c)
......@@ -14,6 +14,26 @@ function cm.initial_effect(c)
e3:SetTarget(cm.thtg)
e3:SetOperation(cm.thop)
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
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
......@@ -31,3 +51,20 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Remove(rg,POS_FACEDOWN,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
\ No newline at end of file
expansions/script/c60010008.lua
View file @ e9564194
......@@ -2,7 +2,7 @@
Duel.LoadScript("c60010000.lua")
local cm,m,o=GetID()
function cm.initial_effect(c)
MTC.LHini(c)
--MTC.LHini(c)
MTC.LHSpS(c,3)
--to hand
local e1=Effect.CreateEffect(c)
......@@ -17,6 +17,26 @@ function cm.initial_effect(c)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
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
function cm.tdfilter(c)
return c:IsSetCard(0x630) and c:IsAbleToHand()
......@@ -54,3 +74,20 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.MoveSequence(mg:GetFirst(),SEQ_DECKBOTTOM)
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
\ No newline at end of file
expansions/script/c60010009.lua
View file @ e9564194
......@@ -2,7 +2,7 @@
Duel.LoadScript("c60010000.lua")
local cm,m,o=GetID()
function cm.initial_effect(c)
MTC.LHini(c)
--MTC.LHini(c)
MTC.LHSpS(c,3)
--to hand
local e1=Effect.CreateEffect(c)
......@@ -17,6 +17,26 @@ function cm.initial_effect(c)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
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
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
......@@ -37,3 +57,20 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
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
\ No newline at end of file
expansions/script/c60010010.lua
View file @ e9564194
......@@ -2,7 +2,7 @@
Duel.LoadScript("c60010000.lua")
local cm,m,o=GetID()
function cm.initial_effect(c)
MTC.LHini(c)
--MTC.LHini(c)
MTC.LHSpS(c,3)
--battle indes
local e1=Effect.CreateEffect(c)
......@@ -22,6 +22,26 @@ function cm.initial_effect(c)
e3:GetCondition(cm.con)
e3:SetValue(cm.efilter)
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
function cm.efilter(e,re)
return e:GetHandlerPlayer()~=re:GetOwnerPlayer() and re:IsActivated()
......@@ -29,3 +49,20 @@ end
function cm.con(e,tp,eg,ep,ev,re,r,rp,tc)
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
\ No newline at end of file
expansions/script/c60010011.lua
View file @ e9564194
......@@ -31,10 +31,9 @@ function cm.filter(c,e,tp)
end
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
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)
end
end
function cm.thop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
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