Skip to content

Y
ygopro
Commit cebb2ace authored by salix5's avatar salix5
Browse files
Options

fix: 47942531, 6614221, 8794435, 88071625, 73333463 

47942531  偉大魔獣 ガーゼット
6614221  霧の王
8794435  合成魔獣 ガーゼット
88071625 Ｔｈｅ　ｔｙｒａｎｔ　ＮＥＰＴＵＮＥ
The atk setting/updating continuous effect was given at SUMMON_SUCCESS
before, which may cause some problem with effects triggered at te same
time.(ex. 王虎ワンフー, traps like 奈落の落とし穴)

Now the atk setting/updating continuous effect is given right after
tribute check, which will be ready at SUMMON_SUCCESS.
Also, the RESET_EVENT is changed into 0xff0000.

P.S.
Current script uses text_attack when calculating atk, so the trap
monster should have their own atk and def data in cards.cdb
Here is a brief list of trap mosters:

28649820 アポピスの化神  			1600/1800
3129635 カース・オブ・スタチュー 		1800/1000
70406920 機械王－Ｂ.Ｃ.３０００ 		1000/1000
13955608 機動砦 ストロング・ホールド		0/2000
21843307 コピー・ナイト 			0/0
90440725 サイバー・シャドー・ガードナー 	?/?
92099232 シェイプシスター  			0/0
79852326 死霊ゾーマ			1800/500
49514333 ソウル・オブ・スタチュー          	1000/1800
26905245 メタル・リフレクト・スライム	0/3000

73333463  アーマロイドガイデンゴー
Now the card name in the script is chaned into the correct one.
parent 0fd3867d
Hide whitespace changes
Inline Side-by-side
Showing with 129 additions and 151 deletions
script/c47942531.lua
View file @ cebb2ace
--偉大魔獣 ガーゼット --偉大魔獣 ガーゼット
function c47942531.initial_effect(c) function c47942531.initial_effect(c)
--atk --tribute check
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EVENT_SUMMON_SUCCESS) e1:SetCode(EFFECT_MATERIAL_CHECK)
e1:SetOperation(c47942531.atop) e1:SetValue(c47942531.valcheck)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--tribute check end
local e2=Effect.CreateEffect(c) function c47942531.valcheck(e,c)
e2:SetType(EFFECT_TYPE_SINGLE) local tc=c:GetMaterial():GetFirst()
e2:SetCode(EFFECT_MATERIAL_CHECK) local atk=0
e2:SetValue(c47942531.valcheck) if tc then atk=tc:GetTextAttack()*2 end
e2:SetLabelObject(e1) if atk<0 then atk=0 end
c:RegisterEffect(e2) --atk continuous effect
end local e1=Effect.CreateEffect(c)
function c47942531.valcheck(e,c) e1:SetType(EFFECT_TYPE_SINGLE)
local tc=c:GetMaterial():GetFirst() e1:SetCode(EFFECT_SET_ATTACK)
local atk=tc:GetTextAttack() e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
if atk<0 then atk=0 end e1:SetRange(LOCATION_MZONE)
e:GetLabelObject():SetLabel(atk*2) e1:SetValue(atk)
end e1:SetReset(RESET_EVENT+0xff0000)
function c47942531.atop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1)
local c=e:GetHandler() end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(e:GetLabel())
e1:SetReset(RESET_EVENT+0x1ff0000)
c:RegisterEffect(e1)
end
script/c6614221.lua
View file @ cebb2ace
...@@ -6,11 +6,11 @@ function c6614221.initial_effect(c) ...@@ -6,11 +6,11 @@ function c6614221.initial_effect(c)
e1:SetCode(EFFECT_DECREASE_TRIBUTE) e1:SetCode(EFFECT_DECREASE_TRIBUTE)
e1:SetValue(0x2) e1:SetValue(0x2)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--atk --tribute check
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EVENT_SUMMON_SUCCESS) e2:SetCode(EFFECT_MATERIAL_CHECK)
e2:SetOperation(c6614221.atkop) e2:SetValue(c6614221.valcheck)
c:RegisterEffect(e2) c:RegisterEffect(e2)
--cannot release --cannot release
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
...@@ -21,23 +21,22 @@ function c6614221.initial_effect(c) ...@@ -21,23 +21,22 @@ function c6614221.initial_effect(c)
e3:SetTargetRange(1,1) e3:SetTargetRange(1,1)
c:RegisterEffect(e3) c:RegisterEffect(e3)
end end
function c6614221.atkop(e,tp,eg,ep,ev,re,r,rp) function c6614221.valcheck(e,c)
local c=e:GetHandler() local g=c:GetMaterial()
local mg=c:GetMaterial() local tc=g:GetFirst()
local tc=mg:GetFirst()
local atk=0 local atk=0
while tc do while tc do
local catk=tc:GetTextAttack() local catk=tc:GetTextAttack()
if catk<0 then catk=0 end atk=atk+(catk>=0 and catk or 0)
atk=atk+catk tc=g:GetNext()
tc=mg:GetNext()
end
if atk~=0 then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_ATTACK)
e1:SetValue(atk)
e1:SetReset(RESET_EVENT+0x1ff0000)
c:RegisterEffect(e1)
end end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(atk)
e1:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(e1)
end end
script/c73333463.lua
View file @ cebb2ace
--ライトロード·エンジェル ケルビム --アーマロイドガイデンゴー
function c73333463.initial_effect(c) function c73333463.initial_effect(c)
--summon success --summon success
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(73333463,0)) e1:SetDescription(aux.Stringid(73333463,0))
e1:SetCategory(CATEGORY_REMOVE) e1:SetCategory(CATEGORY_REMOVE)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetCode(EVENT_SUMMON_SUCCESS) e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCondition(c73333463.condition) e1:SetCondition(c73333463.condition)
e1:SetTarget(c73333463.target) e1:SetTarget(c73333463.target)
e1:SetOperation(c73333463.operation) e1:SetOperation(c73333463.operation)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--tribute check --tribute check
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE) e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_MATERIAL_CHECK) e2:SetCode(EFFECT_MATERIAL_CHECK)
e2:SetValue(c73333463.valcheck) e2:SetValue(c73333463.valcheck)
e2:SetLabelObject(e1) e2:SetLabelObject(e1)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c73333463.valcheck(e,c) function c73333463.valcheck(e,c)
local g=c:GetMaterial() local g=c:GetMaterial()
if g:IsExists(Card.IsSetCard,1,nil,0x16) then if g:IsExists(Card.IsSetCard,1,nil,0x16) then
e:GetLabelObject():SetLabel(1) e:GetLabelObject():SetLabel(1)
else else
e:GetLabelObject():SetLabel(0) e:GetLabelObject():SetLabel(0)
end end
end end
function c73333463.condition(e,tp,eg,ep,ev,re,r,rp) function c73333463.condition(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE and e:GetLabel()==1 return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE and e:GetLabel()==1
end end
function c73333463.filter(c) function c73333463.filter(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemove() return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemove()
end end
function c73333463.target(e,tp,eg,ep,ev,re,r,rp,chk) function c73333463.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end if chk==0 then return true end
local g=Duel.GetMatchingGroup(c73333463.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) local g=Duel.GetMatchingGroup(c73333463.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
end end
function c73333463.operation(e,tp,eg,ep,ev,re,r,rp) function c73333463.operation(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c73333463.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) local g=Duel.GetMatchingGroup(c73333463.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.Remove(g,POS_FACEUP,REASON_EFFECT) Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
end end
end end
script/c8794435.lua
View file @ cebb2ace
--合成魔獣 ガーゼット --合成魔獣 ガーゼット
function c8794435.initial_effect(c) function c8794435.initial_effect(c)
--atk --tribute check
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EVENT_SUMMON_SUCCESS) e1:SetCode(EFFECT_MATERIAL_CHECK)
e1:SetOperation(c8794435.atop) e1:SetValue(c8794435.valcheck)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--tribute check end
local e2=Effect.CreateEffect(c) function c8794435.valcheck(e,c)
e2:SetType(EFFECT_TYPE_SINGLE) local g=c:GetMaterial()
e2:SetCode(EFFECT_MATERIAL_CHECK) local tc=g:GetFirst()
e2:SetValue(c8794435.valcheck) local atk=0
e2:SetLabelObject(e1) while tc do
c:RegisterEffect(e2) local catk=tc:GetTextAttack()
end atk=atk+(catk>=0 and catk or 0)
function c8794435.valcheck(e,c) tc=g:GetNext()
local g=c:GetMaterial() end
local tc=g:GetFirst() --atk continuous effect
local atk=0 local e1=Effect.CreateEffect(c)
while tc do e1:SetType(EFFECT_TYPE_SINGLE)
local catk=tc:GetTextAttack() e1:SetCode(EFFECT_SET_ATTACK)
atk=atk+(catk>=0 and catk or 0) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
tc=g:GetNext() e1:SetRange(LOCATION_MZONE)
end e1:SetValue(atk)
e:GetLabelObject():SetLabel(atk) e1:SetReset(RESET_EVENT+0xff0000)
end c:RegisterEffect(e1)
function c8794435.atop(e,tp,eg,ep,ev,re,r,rp) end
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(e:GetLabel())
e1:SetReset(RESET_EVENT+0x1ff0000)
c:RegisterEffect(e1)
end
script/c88071625.lua
View file @ cebb2ace
...@@ -17,11 +17,11 @@ function c88071625.initial_effect(c) ...@@ -17,11 +17,11 @@ function c88071625.initial_effect(c)
e2:SetOperation(c88071625.otop) e2:SetOperation(c88071625.otop)
e2:SetValue(SUMMON_TYPE_ADVANCE) e2:SetValue(SUMMON_TYPE_ADVANCE)
c:RegisterEffect(e2) c:RegisterEffect(e2)
--atk --tribute check
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetCode(EVENT_SUMMON_SUCCESS) e3:SetCode(EFFECT_MATERIAL_CHECK)
e3:SetOperation(c88071625.atkop) e3:SetValue(c88071625.valcheck)
c:RegisterEffect(e3) c:RegisterEffect(e3)
--copy --copy
local e4=Effect.CreateEffect(c) local e4=Effect.CreateEffect(c)
...@@ -43,30 +43,28 @@ function c88071625.otop(e,tp,eg,ep,ev,re,r,rp,c) ...@@ -43,30 +43,28 @@ function c88071625.otop(e,tp,eg,ep,ev,re,r,rp,c)
c:SetMaterial(sg) c:SetMaterial(sg)
Duel.Release(sg, REASON_SUMMON+REASON_MATERIAL) Duel.Release(sg, REASON_SUMMON+REASON_MATERIAL)
end end
function c88071625.atkop(e,tp,eg,ep,ev,re,r,rp) function c6614221.valcheck(e,c)
local c=e:GetHandler() local g=c:GetMaterial()
if c:GetMaterialCount()==0 then return end local tc=g:GetFirst()
local e1=Effect.CreateEffect(c)
local mg=c:GetMaterial()
local tc=mg:GetFirst()
local atk=0 local atk=0
local def=0 local def=0
while tc do while tc do
local catk=tc:GetTextAttack() local catk=tc:GetTextAttack()
local cdef=tc:GetTextDefence() local cdef=tc:GetTextDefence()
if catk<0 then catk=0 end atk=atk+(catk>=0 and catk or 0)
if cdef<0 then cdef=0 end def=def+(cdef>=0 and cdef or 0)
atk=atk+catk tc=g:GetNext()
def=def+cdef
tc=mg:GetNext()
end end
--atk continuous effect
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK) e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE) e1:SetRange(LOCATION_MZONE)
e1:SetValue(atk) e1:SetValue(atk)
e1:SetReset(RESET_EVENT+0x1ff0000) e1:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--def continuous effect
local e2=e1:Clone() local e2=e1:Clone()
e2:SetCode(EFFECT_UPDATE_DEFENCE) e2:SetCode(EFFECT_UPDATE_DEFENCE)
e2:SetValue(def) e2:SetValue(def)
......
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