Skip to content

Y
ygopro-scripts
Commit be0d7e92 authored by DailyShana's avatar DailyShana
Browse files
Options

fix

parent 98bc7eac
Hide whitespace changes
Inline Side-by-side
Showing with 80 additions and 30 deletions
c19162134.lua
View file @ be0d7e92
...@@ -9,6 +9,7 @@ function c19162134.initial_effect(c) ...@@ -9,6 +9,7 @@ function c19162134.initial_effect(c)
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_SPSUMMON_SUCCESS) e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetRange(LOCATION_FZONE) e2:SetRange(LOCATION_FZONE)
e2:SetCountLimit(1) e2:SetCountLimit(1)
e2:SetCondition(c19162134.spcon1) e2:SetCondition(c19162134.spcon1)
...@@ -18,6 +19,7 @@ function c19162134.initial_effect(c) ...@@ -18,6 +19,7 @@ function c19162134.initial_effect(c)
e3:SetCondition(c19162134.spcon2) e3:SetCondition(c19162134.spcon2)
e3:SetOperation(c19162134.drop2) e3:SetOperation(c19162134.drop2)
c:RegisterEffect(e3) c:RegisterEffect(e3)
--
local e4=e2:Clone() local e4=e2:Clone()
e4:SetCode(EVENT_BATTLED) e4:SetCode(EVENT_BATTLED)
e4:SetCondition(c19162134.btcon1) e4:SetCondition(c19162134.btcon1)
...@@ -26,6 +28,7 @@ function c19162134.initial_effect(c) ...@@ -26,6 +28,7 @@ function c19162134.initial_effect(c)
e5:SetCode(EVENT_BATTLED) e5:SetCode(EVENT_BATTLED)
e5:SetCondition(c19162134.btcon2) e5:SetCondition(c19162134.btcon2)
c:RegisterEffect(e5) c:RegisterEffect(e5)
--
local e0=Effect.CreateEffect(c) local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
...@@ -41,14 +44,20 @@ function c19162134.initial_effect(c) ...@@ -41,14 +44,20 @@ function c19162134.initial_effect(c)
e7:SetCode(EVENT_CHAIN_SOLVING) e7:SetCode(EVENT_CHAIN_SOLVING)
e7:SetCondition(c19162134.chcon2) e7:SetCondition(c19162134.chcon2)
c:RegisterEffect(e7) c:RegisterEffect(e7)
local e8=e2:Clone() --
e8:SetCode(EVENT_CHAIN_SOLVED) local e8=Effect.CreateEffect(c)
e8:SetCondition(c19162134.tosscon1) e8:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e8:SetCode(EVENT_TOSS_COIN)
e8:SetProperty(EFFECT_FLAG_DELAY)
e8:SetRange(LOCATION_FZONE)
e8:SetCode(EVENT_TOSS_COIN)
e8:SetOperation(c19162134.tossop)
c:RegisterEffect(e8) c:RegisterEffect(e8)
local e9=e3:Clone() local e9=e8:Clone()
e9:SetCode(EVENT_CHAIN_SOLVED) e9:SetCode(EVENT_TOSS_DICE)
e9:SetCondition(c19162134.tosscon2) e9:SetOperation(c19162134.diceop)
c:RegisterEffect(e9) c:RegisterEffect(e9)
--
local ea=e2:Clone() local ea=e2:Clone()
ea:SetCode(EVENT_DAMAGE) ea:SetCode(EVENT_DAMAGE)
ea:SetCondition(c19162134.damcon1) ea:SetCondition(c19162134.damcon1)
...@@ -99,11 +108,53 @@ end ...@@ -99,11 +108,53 @@ end
function c19162134.chcon2(e,tp,eg,ep,ev,re,r,rp) function c19162134.chcon2(e,tp,eg,ep,ev,re,r,rp)
return rp==1-tp and Duel.GetCurrentChain()>=5 and e:GetHandler():GetFlagEffect(1)>0 return rp==1-tp and Duel.GetCurrentChain()>=5 and e:GetHandler():GetFlagEffect(1)>0
end end
function c19162134.tosscon1(e,tp,eg,ep,ev,re,r,rp) function c19162134.tossop(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTossedCoinCount(tp)+Duel.GetTossedDiceCount(tp)>=5 and e:GetHandler():GetFlagEffect(1)>0 local c=e:GetHandler()
if ep==tp then
for i=1,ev do
c:RegisterFlagEffect(19162135,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
end
else
for i=1,ev do
c:RegisterFlagEffect(19162136,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
end
end
if c:GetFlagEffect(19162135)>=5 and c:GetFlagEffect(19162137)==0 then
c19162134.drop1(e,tp,eg,ep,ev,re,r,rp)
c:RegisterFlagEffect(19162137,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
end
if c:GetFlagEffect(19162136)>=5 and c:GetFlagEffect(19162138)==0 then
c19162134.drop2(e,tp,eg,ep,ev,re,r,rp)
c:RegisterFlagEffect(19162138,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
end
end end
function c19162134.tosscon2(e,tp,eg,ep,ev,re,r,rp) function c19162134.diceop(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTossedCoinCount(1-tp)+Duel.GetTossedDiceCount(1-tp)>=5 and e:GetHandler():GetFlagEffect(1)>0 local c=e:GetHandler()
local ct1=bit.band(ev,0xffff)
local ct2=bit.rshift(ev,16)
if ep==tp then
for i=1,ct1 do
c:RegisterFlagEffect(19162135,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
end
for i=1,ct2 do
c:RegisterFlagEffect(19162136,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
end
else
for i=1,ct2 do
c:RegisterFlagEffect(19162135,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
end
for i=1,ct1 do
c:RegisterFlagEffect(19162136,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
end
end
if c:GetFlagEffect(19162135)>=5 and c:GetFlagEffect(19162137)==0 then
c19162134.drop1(e,tp,eg,ep,ev,re,r,rp)
c:RegisterFlagEffect(19162137,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
end
if c:GetFlagEffect(19162136)>=5 and c:GetFlagEffect(19162138)==0 then
c19162134.drop2(e,tp,eg,ep,ev,re,r,rp)
c:RegisterFlagEffect(19162138,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
end
end end
function c19162134.damcon1(e,tp,eg,ep,ev,re,r,rp) function c19162134.damcon1(e,tp,eg,ep,ev,re,r,rp)
return ep==tp and Duel.GetLP(tp)<=500 return ep==tp and Duel.GetLP(tp)<=500
......
c20007374.lua
View file @ be0d7e92
...@@ -38,30 +38,29 @@ function c20007374.filter(c,e,tp) ...@@ -38,30 +38,29 @@ function c20007374.filter(c,e,tp)
return c:IsCode(44508094) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false) return c:IsCode(44508094) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
end end
function c20007374.target(e,tp,eg,ep,ev,re,r,rp,chk) function c20007374.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c20007374.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
and Duel.IsExistingMatchingCard(c20007374.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp)
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
end end
function c20007374.activate(e,tp,eg,ep,ev,re,r,rp) function c20007374.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if not c:IsLocation(LOCATION_SZONE) then return end
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)
local g=Duel.SelectMatchingCard(tp,c20007374.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) local g=Duel.SelectMatchingCard(tp,c20007374.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
local tc=g:GetFirst() local tc=g:GetFirst()
if c:IsRelateToEffect(e) and tc and Duel.SpecialSummonStep(tc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP) then if tc and Duel.SpecialSummonStep(tc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP) then
Duel.Equip(tp,c,tc) if c:IsRelateToEffect(e) then
c:CancelToGrave() Duel.Equip(tp,c,tc)
--Add Equip limit c:CancelToGrave()
local e1=Effect.CreateEffect(tc) --Add Equip limit
e1:SetType(EFFECT_TYPE_SINGLE) local e1=Effect.CreateEffect(tc)
e1:SetCode(EFFECT_EQUIP_LIMIT) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetCode(EFFECT_EQUIP_LIMIT)
e1:SetReset(RESET_EVENT+0x1fe0000) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(c20007374.eqlimit) e1:SetReset(RESET_EVENT+0x1fe0000)
c:RegisterEffect(e1) e1:SetValue(c20007374.eqlimit)
c:RegisterEffect(e1)
end
tc:RegisterFlagEffect(20007374,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1,fid) tc:RegisterFlagEffect(20007374,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1,fid)
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
...@@ -74,6 +73,7 @@ function c20007374.activate(e,tp,eg,ep,ev,re,r,rp) ...@@ -74,6 +73,7 @@ function c20007374.activate(e,tp,eg,ep,ev,re,r,rp)
e2:SetOperation(c20007374.rmop) e2:SetOperation(c20007374.rmop)
Duel.RegisterEffect(e2,tp) Duel.RegisterEffect(e2,tp)
Duel.SpecialSummonComplete() Duel.SpecialSummonComplete()
tc:CompleteProcedure()
end end
end end
function c20007374.eqlimit(e,c) function c20007374.eqlimit(e,c)
......
c56673480.lua
View file @ be0d7e92
...@@ -68,7 +68,6 @@ function c56673480.activate(e,tp,eg,ep,ev,re,r,rp) ...@@ -68,7 +68,6 @@ function c56673480.activate(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c56673480.drop(e,tp,eg,ep,ev,re,r,rp) function c56673480.drop(e,tp,eg,ep,ev,re,r,rp)
if not eg then return end
local c=e:GetHandler() local c=e:GetHandler()
local pg=e:GetLabelObject() local pg=e:GetLabelObject()
if c:GetFlagEffect(56673480)==0 then if c:GetFlagEffect(56673480)==0 then
......
c82768499.lua
View file @ be0d7e92
...@@ -15,7 +15,7 @@ function c82768499.thfilter(c) ...@@ -15,7 +15,7 @@ function c82768499.thfilter(c)
return c:IsSetCard(0x99) and c:GetLevel()==7 and (c:IsFaceup() or not c:IsLocation(LOCATION_EXTRA)) and c:IsAbleToHand() return c:IsSetCard(0x99) and c:GetLevel()==7 and (c:IsFaceup() or not c:IsLocation(LOCATION_EXTRA)) and c:IsAbleToHand()
end end
function c82768499.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c82768499.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_ONFIELD) end if chkc then return chkc:IsOnField() end
local b1=Duel.IsExistingMatchingCard(c82768499.desfilter,tp,LOCATION_ONFIELD,0,1,nil) local b1=Duel.IsExistingMatchingCard(c82768499.desfilter,tp,LOCATION_ONFIELD,0,1,nil)
and Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) and Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler())
local b2=Duel.IsExistingMatchingCard(c82768499.thfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil) local b2=Duel.IsExistingMatchingCard(c82768499.thfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,1,nil)
...@@ -36,11 +36,11 @@ function c82768499.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) ...@@ -36,11 +36,11 @@ function c82768499.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
e:SetOperation(c82768499.desop) e:SetOperation(c82768499.desop)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
else else
e:SetCategory(CATEGORY_TOHAND) e:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e:SetProperty(0) e:SetProperty(0)
local g=Duel.GetMatchingGroup(c82768499.thfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,nil) local g=Duel.GetMatchingGroup(c82768499.thfilter,tp,LOCATION_DECK+LOCATION_EXTRA,0,nil)
e:SetOperation(c82768499.thop) e:SetOperation(c82768499.thop)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA)
end end
end end
function c82768499.desop(e,tp,eg,ep,ev,re,r,rp) function c82768499.desop(e,tp,eg,ep,ev,re,r,rp)
......
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