Skip to content

S
specials
Commit 1aee3bfd authored by IMJoyJ's avatar IMJoyJ
Browse files
Options

update 4 skills

parent 9d0ddcfe
Hide whitespace changes
Inline Side-by-side
Showing with 134 additions and 109 deletions
wanning/special.lua
View file @ 1aee3bfd
......@@ -2,7 +2,7 @@ local skillLists={}
local function addSkill(code, skill)
if not skillLists[code] then
skillLists[code]={}
skillLists[code]={}
end
table.insert(skillLists[code], skill)
end
......@@ -10,7 +10,7 @@ end
local function getAllSkillCodes()
local skillCodes={}
for code,_ in pairs(skillLists) do
table.insert(skillCodes, code)
table.insert(skillCodes, code)
end
return skillCodes
end
......@@ -18,56 +18,56 @@ end
local function registerSkillForPlayer(tp, code)
local skills=skillLists[code]
for _,skill in ipairs(skills) do
local e1=Effect.GlobalEffect()
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_IGNORE_IMMUNE)
skill(e1)
Duel.RegisterEffect(e1,tp)
local e1=Effect.GlobalEffect()
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_IGNORE_IMMUNE)
skill(e1)
Duel.RegisterEffect(e1,tp)
end
end
local function wrapDeckSkill(code, effectFactory)
addSkill(code, function(e2)
local e1=Effect.GlobalEffect()
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE)
e1:SetRange(LOCATION_DECK)
effectFactory(e1)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
e2:SetTargetRange(LOCATION_DECK,0)
e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_SET_AVAILABLE)
e2:SetTarget(function(e,c)
local dg=Duel.GetFieldGroup(e:GetHandlerPlayer(),LOCATION_DECK,0)
if #dg==0 then return false end
local minc=dg:GetMinGroup(Card.GetSequence):GetFirst()
return c==minc
end)
e2:SetLabelObject(e1)
local e1=Effect.GlobalEffect()
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE)
e1:SetRange(LOCATION_DECK)
effectFactory(e1)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
e2:SetTargetRange(LOCATION_DECK,0)
e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_SET_AVAILABLE)
e2:SetTarget(function(e,c)
local dg=Duel.GetFieldGroup(e:GetHandlerPlayer(),LOCATION_DECK,0)
if #dg==0 then return false end
local minc=dg:GetMinGroup(Card.GetSequence):GetFirst()
return c==minc
end)
e2:SetLabelObject(e1)
end)
end
local function phaseSkill(code, phase, op, con, both)
wrapDeckSkill(code, function(e1)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_PHASE+phase)
e1:SetCountLimit(1,0x7ffffff-code)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return (both or Duel.GetTurnPlayer()==tp) and (not con or con(e,tp,eg,ep,ev,re,r,rp))
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,code)
op(e,tp,eg,ep,ev,re,r,rp)
end)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_PHASE+phase)
e1:SetCountLimit(1,0x7ffffff-code)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return (both or Duel.GetTurnPlayer()==tp) and (not con or con(e,tp,eg,ep,ev,re,r,rp))
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,code)
op(e,tp,eg,ep,ev,re,r,rp)
end)
end)
end
local function oneTimeSkill(code, op)
addSkill(code, function(e1)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_ADJUST)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,code)
op(e,tp,eg,ep,ev,re,r,rp)
e:Reset()
end)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_ADJUST)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,code)
op(e,tp,eg,ep,ev,re,r,rp)
e:Reset()
end)
end)
end
......@@ -86,8 +86,8 @@ end)
standbyPhaseSkill(2295831, function(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end, function(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(Card.IsAbleToHand, tp, LOCATION_DECK, 0, 1, nil)
......@@ -103,24 +103,24 @@ end)
for _,event in ipairs({EVENT_SUMMON_SUCCESS,EVENT_FLIP_SUMMON_SUCCESS,EVENT_SPSUMMON_SUCCESS}) do
wrapDeckSkill(23434538, function(e1)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(event)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
local count = eg:FilterCount(function(c)
return c:IsControler(1-tp) and c:IsType(TYPE_MONSTER)
end, 1, nil)
return ep~=tp and count>0 and Duel.GetMZoneCount(tp)>=count
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,23434538)
local tg=eg:Filter(function(c)
return c:IsControler(1-tp) and c:IsType(TYPE_MONSTER)
end, nil)
for tc in aux.Next(tg) do
local cc=Duel.CreateToken(tp,tc:GetOriginalCode())
Duel.MoveToField(cc,tp,tp,LOCATION_MZONE,tc:GetPosition(),true)
end
end)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(event)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
local count = eg:FilterCount(function(c)
return c:IsControler(1-tp) and c:IsType(TYPE_MONSTER)
end, 1, nil)
return ep~=tp and count>0 and Duel.GetMZoneCount(tp)>=count
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,23434538)
local tg=eg:Filter(function(c)
return c:IsControler(1-tp) and c:IsType(TYPE_MONSTER)
end, nil)
for tc in aux.Next(tg) do
local cc=Duel.CreateToken(tp,tc:GetOriginalCode())
Duel.MoveToField(cc,tp,tp,LOCATION_MZONE,tc:GetPosition(),true)
end
end)
end)
end
......@@ -128,16 +128,16 @@ wrapDeckSkill(1372887, function(e1)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_CHAIN_SOLVED)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return ep~=tp and not re:GetHandler():IsType(TYPE_TOKEN)
return ep~=tp and not re:GetHandler():IsType(TYPE_TOKEN)
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,1372887)
local cc=Duel.CreateToken(tp,re:GetHandler():GetOriginalCode())
Duel.SendtoHand(cc,nil,REASON_RULE)
if(cc:IsLocation(LOCATION_HAND)) then
Duel.ConfirmCards(1-tp,cc)
end
Duel.ShuffleHand(tp)
Duel.Hint(HINT_CARD,0,1372887)
local cc=Duel.CreateToken(tp,re:GetHandler():GetOriginalCode())
Duel.SendtoHand(cc,nil,REASON_RULE)
if(cc:IsLocation(LOCATION_HAND)) then
Duel.ConfirmCards(1-tp,cc)
end
Duel.ShuffleHand(tp)
end)
end)
......@@ -165,8 +165,8 @@ end)
phaseSkill(71490127, PHASE_BATTLE_START, function(e,tp,eg,ep,ev,re,r,rp)
local num=#Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_SZONE,0,nil)
for _=1,num do
local tc=Duel.CreateToken(tp,99267150)
Duel.MoveToField(tc,tp,tp,LOCATION_MZONE,POS_FACEUP_ATTACK,true)
local tc=Duel.CreateToken(tp,99267150)
Duel.MoveToField(tc,tp,tp,LOCATION_MZONE,POS_FACEUP_ATTACK,true)
end
end, function(e,tp)
return (#Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_SZONE,0,nil))>0
......@@ -189,22 +189,22 @@ addSkill(47529357, function(e1)
e1:SetProperty(e1:GetProperty()|EFFECT_FLAG_IGNORE_IMMUNE)
e1:SetCode(EFFECT_DESTROY_REPLACE)
e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return eg:IsExists(destroyReplaceFilter,1,nil,tp) end
return true
if chk==0 then return eg:IsExists(destroyReplaceFilter,1,nil,tp) end
return true
end)
e1:SetValue(function(e,c)
return destroyReplaceFilter(c,e:GetHandlerPlayer())
return destroyReplaceFilter(c,e:GetHandlerPlayer())
end)
e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_CARD,0,47529357)
Duel.Hint(HINT_CARD,0,47529357)
end)
end)
standbyPhaseSkill(73915051, function(e,tp,eg,ep,ev,re,r,rp)
local count=math.min((Duel.GetMZoneCount(tp)),4)
for i=1,count do
local token=Duel.CreateToken(tp,73915051+i)
Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
local token=Duel.CreateToken(tp,73915051+i)
Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
end
Duel.SpecialSummonComplete()
end, function(e,tp,eg,ep,ev,re,r,rp)
......@@ -213,17 +213,26 @@ end, function(e,tp,eg,ep,ev,re,r,rp)
and Duel.IsPlayerCanSpecialSummonMonster(tp,73915052,0,TYPES_TOKEN_MONSTER,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH)
end)
function c69015963_filter(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,true,true) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
standbyPhaseSkill(69015963, function(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.SelectMatchingCard(tp,c69015963_filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
if g then Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP) end
end)
addSkill(53239672, function(e1)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
e1:SetProperty(e1:GetProperty()|EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,0)
e1:SetValue(function(e)
Duel.Hint(HINT_CARD,0,53239672)
return 0
Duel.Hint(HINT_CARD,0,53239672)
return 0
end)
e1:SetCondition(function(e)
return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_HAND,0)==0
return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_HAND,0)==0
end)
end)
......@@ -234,37 +243,53 @@ end, function(e,tp)
return Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)==0 and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD+LOCATION_HAND,1,nil) and Duel.GetTurnPlayer()==1-tp and Duel.GetActivityCount(1-tp,ACTIVITY_ATTACK)==0 and Duel.GetTurnCount()>1
end, true)
--local godCodes={10000000,10000010,10000020}
local godCodes={55410871,55410871,55410871,55410871,55410871}
oneTimeSkill(13171876, function(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetDecktopGroup(1-tp,8)
Duel.Exile(g,REASON_RULE)
for i=1,8 do
local tc=Duel.CreateToken(1-tp,13171876)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
e1:SetCode(EVENT_DRAW)
e1:SetOperation(c21082832_op)
tc:RegisterEffect(e1)
end
Duel.SendtoDeck(Duel.GetFieldGroup(tp,LOCATION_HAND,0),nil,2,REASON_RULE)
Duel.Draw(tp,5,REASON_RULE)
end)
function c21082832_op(e,tp,eg,ep,ev,re,r,rp)
local lp=Duel.GetLP(tp)-3000
if lp<0 then lp=0 end
Duel.SetLP(tp,lp)
end
oneTimeSkill(21082832, function(e,tp,eg,ep,ev,re,r,rp)
for _,code in ipairs(godCodes) do
local tc=Duel.CreateToken(tp,code)
Duel.MoveToField(tc,tp,tp,LOCATION_MZONE,POS_FACEUP_ATTACK,true)
--tc:RegisterFlagEffect(37818795,RESET_EVENT+RESETS_STANDARD,0,1,2)
--[[if code==10000010 then
for _,ecode in ipairs({EFFECT_UPDATE_ATTACK,EFFECT_UPDATE_DEFENSE}) do
local e1=Effect.CreateEffect(tc)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(ecode)
e1:SetValue(4000)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1,true)
end
end]]
for i=1,5 do
local tc=Duel.CreateToken(tp,55410871)
Duel.MoveToField(tc,tp,tp,LOCATION_MZONE,POS_FACEUP_ATTACK,true)
--cannot remove
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetCode(EFFECT_CANNOT_REMOVE)
e1:SetRange(LOCATION_MZONE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
c:RegisterEffect(e4)
tc:CompleteProcedure()
end
end)
function c18940556_tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetAttacker()==e:GetHandler() and Duel.GetAttackTarget() end
local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD+LOCATION_HAND,nil)
local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD,nil)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,#g,0,0)
end
function c18940556_tgop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD+LOCATION_HAND,nil)
local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD,nil)
if #g>0 then
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
end
end
......@@ -292,7 +317,7 @@ local function initializeLion(e,tp)
e4:SetDescription(aux.Stringid(18940556,1))
e4:SetCategory(CATEGORY_REMOVE)
e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e4:SetCode(EVENT_BATTLE_START)
e4:SetCode(EVENT_BATTLE_CONFIRM)
e4:SetTarget(c18940556_tgtg)
e4:SetOperation(c18940556_tgop)
e4:SetReset(RESET_EVENT+RESETS_STANDARD)
......@@ -303,7 +328,7 @@ wrapDeckSkill(4392470, function(e1)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_ADJUST)
e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsPlayerAffectedByEffect(tp,4392470)
return not Duel.IsPlayerAffectedByEffect(tp,4392470)
end)
e1:SetOperation(initializeLion)
end)
......@@ -342,18 +367,18 @@ local function initialize()
local skillSelections={}
local skillCodes=getAllSkillCodes()
for tp=0,1 do
local g=Group.CreateGroup()
for _,code in ipairs(skillCodes) do
local c=Duel.CreateToken(tp,code)
Duel.Remove(c,POS_FACEDOWN,REASON_RULE)
g:AddCard(c)
end
local tc=g:Select(tp,1,1,nil):GetFirst()
skillSelections[tp]=tc:GetOriginalCode()
Duel.Exile(g,REASON_RULE)
local g=Group.CreateGroup()
for _,code in ipairs(skillCodes) do
local c=Duel.CreateToken(tp,code)
Duel.Remove(c,POS_FACEDOWN,REASON_RULE)
g:AddCard(c)
end
local tc=g:Select(tp,1,1,nil):GetFirst()
skillSelections[tp]=tc:GetOriginalCode()
Duel.Exile(g,REASON_RULE)
end
for tp=0,1 do
registerSkillForPlayer(tp,skillSelections[tp])
registerSkillForPlayer(tp,skillSelections[tp])
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