Commit 71c08893 authored by 2924713558's avatar 2924713558 Committed by GitHub

Add files via upload

parent a1c3a78d
--莱姆狐-圈外搜救队 --莱姆狐-圈外搜救队
local m=1130052 local m=1130052
local cm=_G["c"..m] local cm=_G["c"..m]
xpcall(function() require("expansions/script/c1110198") end,function() require("script/c1110198") end) xpcall(function() require("expansions/script/c1110198") end,function() require("script/c1110198") end)
cm.named_with_Hinbackc=true cm.named_with_Hinbackc=true
-- --
function c1130052.initial_effect(c) function c1130052.initial_effect(c)
-- --
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD) e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_HAND_LIMIT) e1:SetCode(EFFECT_HAND_LIMIT)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetRange(LOCATION_MZONE) e1:SetRange(LOCATION_MZONE)
e1:SetTargetRange(1,0) e1:SetTargetRange(1,0)
e1:SetValue(100) e1:SetValue(100)
c:RegisterEffect(e1) c:RegisterEffect(e1)
-- --
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(EFFECT_DESTROY_REPLACE) e2:SetCode(EFFECT_DESTROY_REPLACE)
e2:SetRange(LOCATION_MZONE) e2:SetRange(LOCATION_MZONE)
e2:SetTarget(c1130052.tg2) e2:SetTarget(c1130052.tg2)
e2:SetValue(c1130052.val2) e2:SetValue(c1130052.val2)
e2:SetOperation(c1130052.op2) e2:SetOperation(c1130052.op2)
c:RegisterEffect(e2) c:RegisterEffect(e2)
-- --
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(1130052,0)) e3:SetDescription(aux.Stringid(1130052,0))
e3:SetCategory(CATEGORY_TOHAND) e3:SetCategory(CATEGORY_TOHAND)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
e3:SetCode(EVENT_PHASE+PHASE_END) e3:SetCode(EVENT_PHASE+PHASE_END)
e3:SetRange(LOCATION_MZONE) e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1) e3:SetCountLimit(1)
e3:SetTarget(c1130052.tg3) e3:SetTarget(c1130052.tg3)
e3:SetOperation(c1130052.op3) e3:SetOperation(c1130052.op3)
c:RegisterEffect(e3) c:RegisterEffect(e3)
-- --
end end
-- --
c1130052.toss_coin=true c1130052.toss_coin=true
-- --
function c1130052.tfilter2(c,tp) function c1130052.tfilter2(c,tp)
return c:IsReason(REASON_EFFECT+REASON_BATTLE) and c:IsControler(tp) return c:IsReason(REASON_EFFECT+REASON_BATTLE)
end and c:IsControler(tp) and c:IsType(TYPE_MONSTER)
function c1130052.tg2(e,tp,eg,ep,ev,re,r,rp,chk) end
local c=e:GetHandler() function c1130052.tg2(e,tp,eg,ep,ev,re,r,rp,chk)
local tg=Group.CreateGroup() local c=e:GetHandler()
local checknum=0 local tg=Group.CreateGroup()
local sg=eg:Filter(c1130052.tfilter2,0,nil,tp) local checknum=0
if sg:GetCount()>0 then local sg=eg:Filter(c1130052.tfilter2,0,nil,tp)
local sc=sg:GetFirst() if sg:GetCount()>0 then
while sc do local sc=sg:GetFirst()
sc:SetStatus(STATUS_DESTROY_CONFIRMED,false) while sc do
if sc:IsAbleToHand() then tg:AddCard(sc) end sc:SetStatus(STATUS_DESTROY_CONFIRMED,false)
sc:SetStatus(STATUS_DESTROY_CONFIRMED,true) if sc:IsAbleToHand() then tg:AddCard(sc) end
sc=sg:GetNext() sc:SetStatus(STATUS_DESTROY_CONFIRMED,true)
end sc=sg:GetNext()
end end
if chk==0 then return c:GetFlagEffect(1130052)<1 and tg:GetCount()>0 and not c:IsStatus(STATUS_DESTROY_CONFIRMED) end end
if Duel.SelectEffectYesNo(tp,c,96) then if chk==0 then return c:GetFlagEffect(1130052)<1 and tg:GetCount()>0 and not c:IsStatus(STATUS_DESTROY_CONFIRMED) end
tg:KeepAlive() if Duel.SelectEffectYesNo(tp,c,96) then
e:SetLabelObject(tg) tg:KeepAlive()
return true e:SetLabelObject(tg)
else return false end return true
end else return false end
-- end
function c1130052.val2(e,c) --
local tg=e:GetLabelObject() function c1130052.val2(e,c)
return tg local tg=e:GetLabelObject()
end return tg
-- end
function c1130052.op2(e,tp,eg,ep,ev,re,r,rp) --
local c=e:GetHandler() function c1130052.op2(e,tp,eg,ep,ev,re,r,rp)
local tg=e:GetLabelObject() local c=e:GetHandler()
local tc=tg:GetFirst() local tg=e:GetLabelObject()
while tc do local tc=tg:GetFirst()
tc:SetStatus(STATUS_DESTROY_CONFIRMED,false) while tc do
tc=tg:GetNext() tc:SetStatus(STATUS_DESTROY_CONFIRMED,false)
end tc=tg:GetNext()
Duel.SendtoHand(tg,nil,REASON_EFFECT) end
c:RegisterFlagEffect(1130052,RESET_EVENT+0x1fe0000,0,0) Duel.SendtoHand(tg,nil,REASON_EFFECT)
end c:RegisterFlagEffect(1130052,RESET_EVENT+0x1fe0000,0,0)
-- end
function c1130052.tg3(e,tp,eg,ep,ev,re,r,rp,chk) --
if chk==0 then return true end function c1130052.tg3(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) if chk==0 then return true end
end Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
-- end
function c1130052.ofilter3(c) --
return c:IsAbleToHand() and c:IsRace(RACE_BEAST) function c1130052.ofilter3(c)
end return c:IsAbleToHand() and c:IsRace(RACE_BEAST)
function c1130052.op3(e,tp,eg,ep,ev,re,r,rp) end
local coin=Duel.SelectOption(tp,60,61) function c1130052.op3(e,tp,eg,ep,ev,re,r,rp)
local res=Duel.TossCoin(tp,1) local coin=Duel.SelectOption(tp,60,61)
if coin~=res and Duel.IsExistingMatchingCard(c1130052.ofilter3,tp,LOCATION_GRAVE,0,1,nil) then local res=Duel.TossCoin(tp,1)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) if coin~=res and Duel.IsExistingMatchingCard(c1130052.ofilter3,tp,LOCATION_GRAVE,0,1,nil) then
local sg=Duel.SelectMatchingCard(tp,c1130052.ofilter3,tp,LOCATION_GRAVE,0,1,1,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
if sg:GetCount()<1 then return end local sg=Duel.SelectMatchingCard(tp,c1130052.ofilter3,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.SendtoHand(sg,nil,REASON_EFFECT) if sg:GetCount()<1 then return end
Duel.ConfirmCards(1-tp,sg) Duel.SendtoHand(sg,nil,REASON_EFFECT)
end Duel.ConfirmCards(1-tp,sg)
end 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