Skip to content

Y
ygopro-scripts
Commit 2d9c45be authored by VanillaSalt's avatar VanillaSalt
Browse files
Options

fix

parent 0ae091b1
Hide whitespace changes
Inline Side-by-side
Showing with 73 additions and 73 deletions
c89091772.lua
View file @ 2d9c45be
--Superheavy Samurai Jisha-Q
--超重武者ジシャ－Q
function c89091772.initial_effect(c)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(25259669,0))
e1:SetDescription(aux.Stringid(89091772,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_POSITION)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SUMMON_SUCCESS)
......@@ -27,20 +27,17 @@ function c89091772.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
end
function c89091772.sumop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
local c=e:GetHandler()
if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c89091772.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c89091772.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
if g:GetCount()==0 then return end
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) then
Duel.BreakEffect()
Duel.ChangePosition(c,POS_FACEUP_DEFENCE)
end
end
function c89091772.atlimit(e,c)
return c~=e:GetHandler()
end
c89113320.lua
View file @ 2d9c45be
--Performapal Big Bite Turtle
--EMビッグバイトタートル
function c89113320.initial_effect(c)
--pendulum summon
aux.AddPendulumProcedure(c)
......@@ -7,38 +7,39 @@ function c89113320.initial_effect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e1)
--lv
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(83982270,0))
e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_BATTLE_DESTROYED)
e2:SetCondition(c89113320.condition)
e2:SetTarget(c89113320.target)
e2:SetOperation(c89113320.operation)
e2:SetDescription(aux.Stringid(89113320,0))
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_PZONE)
e2:SetCountLimit(1)
e2:SetTarget(c89113320.lvtg)
e2:SetOperation(c89113320.lvop)
c:RegisterEffect(e2)
--lv
--
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(84171830,0))
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_PZONE)
e3:SetCountLimit(1)
e3:SetTarget(c89113320.lvtg)
e3:SetOperation(c89113320.lvop)
e3:SetDescription(aux.Stringid(89113320,1))
e3:SetCategory(CATEGORY_DESTROY)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_BATTLE_DESTROYED)
e3:SetTarget(c89113320.target)
e3:SetOperation(c89113320.operation)
c:RegisterEffect(e3)
end
function c89113320.filter(c)
return c:IsSetCard(0x9f) or c:IsSetCard(0x99) and c:IsType(TYPE_MONSTER)
return (c:IsSetCard(0x9f) or c:IsSetCard(0x99)) and c:IsType(TYPE_MONSTER)
end
function c89113320.lvtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c89113320.filter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
end
function c89113320.afilter(c,code)
return c:IsCode(code)
end
function c89113320.lvop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.SelectMatchingCard(tp,c89113320.filter,tp,LOCATION_HAND,0,1,1,nil)
local hg=Duel.GetMatchingGroup(c89113320.afilter,tp,LOCATION_HAND,0,nil,tc:GetFirst():GetCode())
if not c:IsRelateToEffect(e) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g=Duel.SelectMatchingCard(tp,c89113320.filter,tp,LOCATION_HAND,0,1,1,nil)
Duel.ConfirmCards(1-tp,g)
Duel.ShuffleHand(tp)
local hg=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_HAND,0,nil,g:GetFirst():GetCode())
local tc=hg:GetFirst()
while tc do
local e1=Effect.CreateEffect(c)
......@@ -50,18 +51,14 @@ function c89113320.lvop(e,tp,eg,ep,ev,re,r,rp)
tc=hg:GetNext()
end
end
function c89113320.condition(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c:IsReason(REASON_BATTLE)
end
function c89113320.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler():GetBattleTarget(),1,0,0)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800)
local bc=e:GetHandler():GetBattleTarget()
if chk==0 then return bc:IsRelateToBattle() and bc:IsDestructable() end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,bc,1,0,0)
end
function c89113320.operation(e,tp,eg,ep,ev,re,r,rp)
local bc=e:GetHandler():GetBattleTarget()
if bc:IsFaceup() and bc:IsRelateToBattle() and Duel.Destroy(bc,REASON_EFFECT)~=0 then
if bc:IsRelateToBattle() then
Duel.Destroy(bc,REASON_EFFECT)
end
end
c89883517.lua
View file @ 2d9c45be
--False Accusations
--濡れ衣
function c89883517.initial_effect(c)
--BLock
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,89883517+EFFECT_COUNT_CODE_OATH)
e1:SetCondition(c89883517.condition)
e1:SetCountLimit(1,89883517)
e1:SetTarget(c89883517.target)
e1:SetOperation(c89883517.operation)
e1:SetOperation(c89883517.activate)
c:RegisterEffect(e1)
end
function c89883517.condition(e,tp,eg,ep,ev,re,r,rp)
......@@ -16,25 +16,29 @@ function c89883517.condition(e,tp,eg,ep,ev,re,r,rp)
local ct2=Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD+LOCATION_HAND)
return ct1<ct2
end
function c89883517.target(e,tp,eg,ep,ev,re,r,rp,chk)
e:SetLabel(1)
function c89883517.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end
if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
e:SetLabel(g:GetFirst():GetCode())
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler())
end
function c89883517.activate(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if not tc:IsRelateToEffect(e) or tc:IsFacedown() then return end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetCode(EFFECT_CANNOT_ACTIVATE)
e1:SetTargetRange(1,1)
e1:SetValue(c89883517.aclimit)
e1:SetLabel(e:GetLabel())
e1:SetLabel(tc:GetCode())
Duel.RegisterEffect(e1,tp)
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetLabel(tc:GetFieldID())
Duel.RegisterEffect(e2,tp)
e1:SetLabelObject(e2)
end
function c89883517.aclimit(e,re,tp)
return re:GetHandler():IsCode(e:GetLabel()) and (not re:GetHandler():IsImmuneToEffect(e) or not re:GetHandler()==e:GetHandler())
local rc=re:GetHandler()
return rc:IsCode(e:GetLabel()) and (not rc:IsOnField() or rc:GetFieldID()~=e:GetLabelObject():GetLabel())
end
c97466438.lua
View file @ 2d9c45be
--Yokoshimauma
--ヨコシマウマ
function c97466438.initial_effect(c)
--pendulum summon
aux.AddPendulumProcedure(c)
......@@ -8,12 +8,12 @@ function c97466438.initial_effect(c)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetOperation(c97466438.regop)
c:RegisterEffect(e1)
--
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(97466438,0))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e2:SetTarget(c97466438.ztg)
e2:SetOperation(c97466438.zop2)
c:RegisterEffect(e2)
......@@ -23,14 +23,15 @@ function c97466438.initial_effect(c)
end
function c97466438.regop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
--disable zone
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(97466438,1))
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_PZONE)
e1:SetCountLimit(1)
e1:SetTarget(c97466438.ztg)
e1:SetOperation(c97466438.zop)
e1:SetCountLimit(1)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
c:RegisterEffect(e1)
end
......@@ -41,26 +42,27 @@ function c97466438.ztg(e,tp,eg,ep,ev,re,r,rp,chk)
e:SetLabel(dis)
end
function c97466438.zop(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local e1=Effect.CreateEffect(e:GetHandler())
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetRange(LOCATION_PZONE)
e1:SetCode(EFFECT_DISABLE_FIELD)
e1:SetOperation(c97466438.disop)
e1:SetReset(RESET_EVENT+0x1ff0000)
e1:SetReset(RESET_EVENT+0x1fe0000)
e1:SetLabel(e:GetLabel())
e:GetHandler():RegisterEffect(e1)
c:RegisterEffect(e1)
end
function c97466438.zop2(e,tp,eg,ep,ev,re,r,rp)
if not e:GetHandler():IsRelateToEffect(e) then return end
local e1=Effect.CreateEffect(e:GetHandler())
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_DISABLE_FIELD)
e1:SetOperation(c97466438.disop)
e1:SetReset(RESET_EVENT+0x1ff0000)
e1:SetReset(RESET_EVENT+0x1fe0000)
e1:SetLabel(e:GetLabel())
e:GetHandler():RegisterEffect(e1)
c:RegisterEffect(e1)
end
function c97466438.disop(e,tp)
return e:GetLabel()
......
c97588916.lua
View file @ 2d9c45be
--Deskbot 007
--ブンボーグ007
function c97588916.initial_effect(c)
--pendulum summon
aux.AddPendulumProcedure(c)
......@@ -17,6 +17,7 @@ function c97588916.initial_effect(c)
e2:SetCondition(c97588916.splimcon)
e2:SetTarget(c97588916.splimit)
c:RegisterEffect(e2)
--
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
......@@ -29,6 +30,7 @@ function c97588916.initial_effect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetCode(EFFECT_PIERCE)
c:RegisterEffect(e5)
--
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_FIELD)
e6:SetRange(LOCATION_MZONE)
......@@ -46,8 +48,6 @@ end
function c97588916.value(e,c)
return Duel.GetMatchingGroupCount(Card.IsSetCard,c:GetControler(),LOCATION_GRAVE,0,nil,0xab)*500
end
function c97588916.atlimit(e,c)
return c~=e:GetHandler() and c:IsSetCard(0xab)
return c:IsFaceup() and c:IsSetCard(0xab) and c~=e:GetHandler()
end
c99423156.lua
View file @ 2d9c45be
--Chief Priest of Shiranui
--Scripted by Ragna_Edge
--不知火の宮司
function c99423156.initial_effect(c)
--special summon
local e1=Effect.CreateEffect(c)
......@@ -10,19 +9,20 @@ function c99423156.initial_effect(c)
e1:SetTarget(c99423156.sumtg)
e1:SetOperation(c99423156.sumop)
c:RegisterEffect(e1)
--
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(99423156,1))
e2:SetCategory(CATEGORY_DESTROY)
e2:SetCountLimit(1,99423156)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_REMOVE)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,99423156)
e2:SetTarget(c99423156.target)
e2:SetOperation(c99423156.operation)
c:RegisterEffect(e2)
end
function c99423156.spfilter(c,e,tp)
return c:GetCode()~=99423156 and c:IsSetCard(0xd7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
return c:IsSetCard(0xd9) and not c:IsCode(99423156) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c99423156.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
......@@ -55,7 +55,7 @@ function c99423156.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
end
function c99423156.operation(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and tc:IsFaceup() then
if tc:IsRelateToEffect(e) then
Duel.Destroy(tc,REASON_EFFECT)
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