Commit 9e904dd2 authored by wind2009's avatar wind2009

Fix LOCH

parent e0631ec1
Pipeline #42056 canceled with stages
in 3 seconds
No preview for this file type
...@@ -18,9 +18,9 @@ function s.initial_effect(c) ...@@ -18,9 +18,9 @@ function s.initial_effect(c)
e2:SetDescription(aux.Stringid(id,1)) e2:SetDescription(aux.Stringid(id,1))
e2:SetCategory(CATEGORY_DESTROY) e2:SetCategory(CATEGORY_DESTROY)
e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
e2:SetCode(EVENT_FREE_CHAIN) e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_MZONE) e2:SetRange(LOCATION_MZONE)
e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e2:SetCountLimit(1,id) e2:SetCountLimit(1,id)
e2:SetCost(s.descost) e2:SetCost(s.descost)
e2:SetTarget(s.destg) e2:SetTarget(s.destg)
......
...@@ -7,7 +7,7 @@ function s.initial_effect(c) ...@@ -7,7 +7,7 @@ function s.initial_effect(c)
--draw --draw
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(id,0)) e1:SetDescription(aux.Stringid(id,0))
e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW+CATEGORY_ATKCHANGE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_SPSUMMON_SUCCESS) e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_DELAY) e1:SetProperty(EFFECT_FLAG_DELAY)
......
...@@ -19,6 +19,7 @@ function s.initial_effect(c) ...@@ -19,6 +19,7 @@ function s.initial_effect(c)
e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetRange(LOCATION_MZONE) e2:SetRange(LOCATION_MZONE)
e2:SetCode(EVENT_FREE_CHAIN) e2:SetCode(EVENT_FREE_CHAIN)
e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
e2:SetCost(s.indcost) e2:SetCost(s.indcost)
e2:SetTarget(s.indtg) e2:SetTarget(s.indtg)
e2:SetOperation(s.indop) e2:SetOperation(s.indop)
...@@ -31,6 +32,7 @@ function s.initial_effect(c) ...@@ -31,6 +32,7 @@ function s.initial_effect(c)
e3:SetOperation(s.acop) e3:SetOperation(s.acop)
c:RegisterEffect(e3) c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c) local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(id,1))
e4:SetCategory(CATEGORY_ATKCHANGE) e4:SetCategory(CATEGORY_ATKCHANGE)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_ATTACK_ANNOUNCE) e4:SetCode(EVENT_ATTACK_ANNOUNCE)
...@@ -86,16 +88,19 @@ function s.atkop(e,tp,eg,ep,ev,re,r,rp) ...@@ -86,16 +88,19 @@ function s.atkop(e,tp,eg,ep,ev,re,r,rp)
e1:SetValue(2500) e1:SetValue(2500)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE) e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
c:RegisterEffect(e1) c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c) if not c:IsHasEffect(EFFECT_REVERSE_UPDATE) then
e2:SetDescription(aux.Stringid(id,1)) local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetDescription(aux.Stringid(id,2))
e2:SetCode(EVENT_BATTLE_DESTROYING) e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e2:SetCode(EVENT_BATTLE_DESTROYING)
e2:SetCondition(aux.bdogcon) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetTarget(s.sptg) e2:SetCondition(aux.bdogcon)
e2:SetOperation(s.spop) e2:SetTarget(s.sptg)
e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE) e2:SetOperation(s.spop)
c:RegisterEffect(e2) e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
c:RegisterEffect(e2)
c:RegisterFlagEffect(id+o,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,3))
end
end end
end end
function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
......
...@@ -26,6 +26,7 @@ function s.initial_effect(c) ...@@ -26,6 +26,7 @@ function s.initial_effect(c)
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE) e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EFFECT_CHANGE_INVOLVING_BATTLE_DAMAGE) e3:SetCode(EFFECT_CHANGE_INVOLVING_BATTLE_DAMAGE)
e3:SetCondition(s.atkcon)
e3:SetValue(aux.ChangeBattleDamage(1,DOUBLE_DAMAGE)) e3:SetValue(aux.ChangeBattleDamage(1,DOUBLE_DAMAGE))
c:RegisterEffect(e3) c:RegisterEffect(e3)
--to hand --to hand
...@@ -87,9 +88,7 @@ function s.atkval(e,c) ...@@ -87,9 +88,7 @@ function s.atkval(e,c)
if not (l and r) then return 0 end if not (l and r) then return 0 end
local ls,rs=l:GetCurrentScale(),r:GetCurrentScale() local ls,rs=l:GetCurrentScale(),r:GetCurrentScale()
if ls==rs then return 0 end if ls==rs then return 0 end
local atk=ls-rs return math.abs(rs-ls)*300
if rs>ls then atk=rs-ls end
return atk*300
end end
function s.thcon2(e,tp,eg,ep,ev,re,r,rp) function s.thcon2(e,tp,eg,ep,ev,re,r,rp)
return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_MZONE) return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_MZONE)
...@@ -97,8 +96,10 @@ end ...@@ -97,8 +96,10 @@ end
function s.thtg2(e,tp,eg,ep,ev,re,r,rp,chk) function s.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToHand() end if chk==0 then return e:GetHandler():IsAbleToHand() end
if e:GetHandler():IsReason(REASON_BATTLE) or rp==1-tp then if e:GetHandler():IsReason(REASON_BATTLE) or rp==1-tp then
e:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
e:SetLabel(1) e:SetLabel(1)
else else
e:SetCategory(CATEGORY_TOHAND)
e:SetLabel(0) e:SetLabel(0)
end end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
...@@ -108,8 +109,9 @@ function s.thop2(e,tp,eg,ep,ev,re,r,rp) ...@@ -108,8 +109,9 @@ function s.thop2(e,tp,eg,ep,ev,re,r,rp)
if c:IsRelateToChain() then if c:IsRelateToChain() then
Duel.SendtoHand(c,nil,REASON_EFFECT) Duel.SendtoHand(c,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,c) Duel.ConfirmCards(1-tp,c)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end if e:GetLabel()==1
if e:GetLabel()==1 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
Duel.BreakEffect() Duel.BreakEffect()
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
......
...@@ -22,7 +22,7 @@ function s.initial_effect(c) ...@@ -22,7 +22,7 @@ function s.initial_effect(c)
e2:SetCondition(s.atkcon) e2:SetCondition(s.atkcon)
e2:SetValue(aux.tgoval) e2:SetValue(aux.tgoval)
c:RegisterEffect(e2) c:RegisterEffect(e2)
--equip --tograve
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_TOGRAVE) e3:SetCategory(CATEGORY_TOGRAVE)
e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetType(EFFECT_TYPE_QUICK_O)
...@@ -42,7 +42,7 @@ function s.atkfilter(c) ...@@ -42,7 +42,7 @@ function s.atkfilter(c)
return c:IsFaceupEx() and c:IsType(TYPE_LINK) return c:IsFaceupEx() and c:IsType(TYPE_LINK)
end end
function s.atkval(e,c) function s.atkval(e,c)
return Duel.GetMatchingGroupCount(s.atkfilter,e:GetHandlerPlayer(),LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,nil)*500 return Duel.GetMatchingGroupCount(s.atkfilter,e:GetHandlerPlayer(),LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,e:GetHandler())*500
end end
function s.cfilter(c,g) function s.cfilter(c,g)
return g:IsContains(c) and not c:IsStatus(STATUS_BATTLE_DESTROYED) return g:IsContains(c) and not c:IsStatus(STATUS_BATTLE_DESTROYED)
...@@ -73,6 +73,7 @@ function s.tgop(e,tp,eg,ep,ev,re,r,rp) ...@@ -73,6 +73,7 @@ function s.tgop(e,tp,eg,ep,ev,re,r,rp)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE) e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_EXTRA_ATTACK_MONSTER) e1:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
e1:SetValue(2) e1:SetValue(1)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
c:RegisterEffect(e1) c:RegisterEffect(e1)
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